Разработка информационной системы обучения информатике иностранных студентов
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
TForm6.ToolButton2Click(Sender: TObject);;;
TForm6.ToolButton1Click(Sender: TObject);
//сохранить.Lines.SaveToFile(edname);;
TForm6.ToolButton3Click(Sender: TObject);
//вывод окна помощи.ShowModal;;
.
(Главное окно обучающей ситемы):main;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ToolWin, XPStyleActnCtrls, Jpeg,, ComCtrls, Menus, StdCtrls, DBCtrls, ExtCtrls, ImgList, Buttons,, XPMan, SHDocVw;
= class(TForm): TActionList;: TAction;: TAction;: TAction;: TAction;: TToolBar;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TToolButton;: TImageList;: TPanel;: TPanel;: TGroupBox;: TListBox;: TListBox;: TRichEdit;: TWebBrowser;: TAction;: TMenuItem;: TXPManifest;: TPanel;: TPanel;: TPanel;: TBitBtn;: TAction;: TToolButton;: TAction;: TToolButton;: TMenuItem;: TAction;: TMenuItem;: TAction;: TMenuItem;: TPanel;: TPanel;: TBitBtn;: TBitBtn;: TAction;: TMenuItem;: TToolButton;: TPanel;: TPanel;: TLabel;: TRadioGroup;: TImage;: TGroupBox;: TDBLookupListBox;: TGroupBox;: TListBox;: TAction;: TMenuItem;: TOpenDialog;: TPanel;: TLabel;: TAction;: TMenuItem;: TMenuItem;: TMenuItem;QuitExecute(Sender: TObject);AboutPrgExecute(Sender: TObject);ConstrBookExecute(Sender: TObject);SpeedButton1Click(Sender: TObject);SelectPredmExecute(Sender: TObject);ListBox1DblClick(Sender: TObject);LoadFile(name: string);LiterClick(Sender: TObject);ListBox2DblClick(Sender: TObject);EditBookExecute(Sender: TObject);SetupExecute(Sender: TObject);TranslatExecute(Sender: TObject);ConstrTestExecute(Sender: TObject);EditTestExecute(Sender: TObject);btnYesClick(Sender: TObject);btnBreakClick(Sender: TObject);GoTestExecute(Sender: TObject);RadioGroup1Click(Sender: TObject);HelpMainExecute(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TForm1;
about, cbooks, ShellAPI, selbook, Editor, setups, ctest, ntest, help;
{$R *.dfm}= record: string; //вопрос, // количество ответов: integer; // номер правильного ответа: string;: array [1..10] of string; //ответы;
: array [0..5] of string = (нет оценки, нет оценки,
неудовлетворительно, удовлетворительно,
хорошо, отлично);
, pgl: array [1..100] of string;: integer;: string;: integer; //число тестовt: array [1..100] of string; //путь к тестам: integer;
TForm1.LoadFile(name: string);
//обработка файла: string;: THandle;:= Copy(name, Pos(., name) + 1, Length(name) - Pos(., name));(ext = txt) then.Visible := True;.Visible := False;.Lines.LoadFromFile(name);;;(ext = htm) or (ext = html) then.Visible := False;.Visible := True;.Navigate(name);;;:= ShellExecute(0, open, PChar(name), nil, nil, SW_SHOW);h < 32 then(Нет приложения для просмотра документа.);;
TForm1.QuitExecute(Sender: TObject);
//выход;;
TForm1.AboutPrgExecute(Sender: TObject);
//о программе.ShowModal;;
TForm1.ConstrBookExecute(Sender: TObject);
//конструктор учебников: string;:= GetCurrentDir;.Memo1.Lines.LoadFromFile(spravki\справка (конструктор учебников).txt);.ShowModal;SetCurrentDir(cd) then {};;
TForm1.SpeedButton1Click(Sender: TObject);
//удаление учебника из базы: integer;:= Application.MessageBox(Удалить текущий учебник?, Подтверждение, MB_YESNO + MB_ICONWARNING);k = idYes then.Table1.Delete;;
TForm1.SelectPredmExecute(Sender: TObject);
//загрузка учебника: textfile;, name, s: string;: integer;: TSearchRec;: integer;.Visible := False;.Visible := True;:= Form3.Table1.FieldByName(name).AsString;:= Form3.Table1.FieldByName(path).AsString;.Caption := name;
{$I-}(f, p); Reset(f);
0then();;;.Visible:=True;.Clear;.Clear;(f,s);(f,p);(f,s);(f,s);(f,s);(f,ngl);i:=1tongldo(f,gl[i]);(f,pgl[i]);.Items.Add(gl[i]);;(f,s);(f,lit);(f,s);notEOF(f)do(f,s);.Items.Add(s);;(f);.Enabled:=True;.Enabled:=True;">{$I+}IOResult <> 0 then(Учебник не найден);;;.Visible := True;.Clear;.Clear;(f, s);(f, p);(f, s);(f, s);(f, s);(f, ngl);i := 1 to ngl do(f, gl[i]);(f, pgl[i]);.Items.Add(gl[i]);;(f, s);(f, lit);(f, s);not EOF(f) do(f, s);.Items.Add(s);;(f);.Enabled := True;.Enabled := True;
//загрузка тестов.Clear;:= 0;:= FindFirst(p + \*.tst, faAnyFile, SR);doserror = 0 do(ntst);t[ntst] := p + \ + SR.Name;(f, p + \ + SR.Name); Reset(f);(f, s);.Items.Add(s);(f);:= FindNext(SR);;.ItemIndex := 0;.Enabled := True;;
TForm1.ListBox1DblClick(Sender: TObject);
//загрузка темы: integer;:= ListBox1.ItemIndex + 1;(pgl[k]);;
TForm1.LiterClick(Sender: TObject);
//загрузка списка литературыlit <> then(lit);;
TForm1.ListBox2DblClick(Sender: TObject);
//запуск обозревателя: string;: integer;:= ListBox2.ItemIndex;:= ListBox2.Items.Strings[k];(s);;
TForm1.EditBookExecute(Sender: TObject);
//редактировать учебник.ShowModal;:= Form3.Table1.FieldByName(path).AsString;.Memo1.Lines.LoadFromFile(spravki\справка (редактор учебников).txt);.RichEdit1.Lines.LoadFromFile(edname);.ShowModal;;
TForm1.SetupExecute(Sender: TObject);
//вывод окна настроек.ShowModal;;
TForm1.TranslatExecute(Sender: TObject);
//загрузка переводчика: THandle;: string;:= Form4.Edit2.Text;:= ShellExecute(0, open, PChar(s), nil, nil, SW_SHOW);h < 32 then(Переводчик не найден!);;
TForm1.ConstrTestExecute(Sender: TObject);
//конструирование теста: integer;: string;:= GetCurrentDir;SetCurrentDir(cd) then {};:= Form8.ShowModal;m = mrCancel then Exit;:= 0;:= Form8.Edit2.Text;:= Form8.Edit1.Text;.Label5.Caption := ptest;.Edit2.Text := ;.ShowModal;SetCurrentDir(cd) then {};;
TForm1.EditTestExecute(Sender: TObject);
//редактировать тест: string;.Memo1.Lines.LoadFromFile(spravki\справка (редактор тестов).txt);:= GetCurrentDir;OpenDialog1.Execute then:= OpenDialog1.FileName;.RichEdit1.Lines.LoadFromFile(edname);.ShowModal;SetCurrentDir(cd) then {};;
TForm1.btnYesClick(Sender: TObject);
//нажата кнопка принятия ответа:= 1;;TForm1.btnBreakClick(Sender: TObject);
//нажата кнопка прерывания теста:= 2;;
TForm1.GoTestExecute(Sender: TObject);
then.Picture.LoadFromFile(v[i].fn).Picture.LoadFromFile(GetCurrentDir + \nopic.bmp);.Enabled := False;.Items.Clear;k := 1 to v[i].n do.Items.Add(v[i].otv[k]);:= 0;.ProcessMessages;stopp = 50) and (pr < 80) then:= 3;pr <= 50 then:= 2;(Результаты теста + #13 +
Всего вопросов + IntToStr(n) + #13 +
Правильных ответов + IntToStr(no) + #13 +
Оценка: + oc[na]);.Visible := False;.Visible := True;;
TForm1.RadioGroup1Click(Sender: TObject);.Enabled := True;;
TForm1.HelpMainExec