Электронный учебник "Программа Erwin"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
le:=false;. Visible:=true;. Align:=alclient;;
Ttest.sButton7Click (Sender: TObject); \\ тестированиеla:string;scheckbox10. Checked=true then begin:=k+1;(Правильный ответ, mtconfirmation, [mbOk], 0); endbegin:=l+1;(Неправильный ответ, mtconfirmation, [mbOk], 0); end;. Caption:=inttostr(k);. Caption:=inttostr(l);. Caption:=inttostr(k);. Caption:=inttostr(s);. Visible:=false;. Visible:=true;. Align:=alclient;:=nick;. Caption:=Здравствуйте +la;;
Ttest.sButton9Click (Sender: TObject); \\ тестирование. Hide;.show;. Timer2. Enabled:=true;
;
Ttest.sButton8Click (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=true;:=s+1;:=0; l:=0;;
Ttest.sButton10Click (Sender: TObject); \\ тестирование. Hide;.show;. Timer1. Enabled:=true;;
Ttest.sButton2Click (Sender: TObject); \\ тестирование. Hide;.show;. Timer1. Enabled:=true;;_1: Ttest_1;, l, m:integer;ychebnik, Unit5, practic;
{$R *.dfm}Ttest_1.sButton1Click (Sender: TObject); \\ тестирование_1. Height:=477;_1. Width:=852;. Visible:=true;. Align:=alclient;. Visible:=false;. Visible:=false;;
Ttest_1. FormCreate (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;:=0;:=0;:=1;;
Ttest_1.sButton3Click (Sender: TObject); \\ тестированиеradiogroup1. ItemIndex=0 then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Visible:=false;. Visible:=true;. Align:=alclient;. Caption:=inttostr(k);. Caption:=inttostr(l);;
Ttest_1.sButton4Click (Sender: TObject); \\ тестированиеradiobutton3. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Visible:=false;. Visible:=true;. Align:=alclient;. Caption:=inttostr(k);. Caption:=inttostr(l);
;
Ttest_1.sButton5Click (Sender: TObject); \\ тестированиеcheckbox2. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Visible:=false;. Visible:=true;. Align:=alclient;. Caption:=inttostr(k);. Caption:=inttostr(l);;
Ttest_1.sButton6Click (Sender: TObject); \\ тестированиеradiogroup2. ItemIndex=0 then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Visible:=false;. Visible:=true;. Align:=alclient;. Caption:=inttostr(k);. Caption:=inttostr(l);;
Ttest_1.sButton8Click (Sender: TObject); \\ тестированиеla:string;radiobutton4. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Visible:=false;. Visible:=true;. Align:=alclient;. Caption:=inttostr(k);. Caption:=inttostr(l);. Caption:=inttostr(m);k<=2 then label35. Caption:=Неудовлетворительно;k=3 then label35. Caption:=Удовлетворительно;k=4 then label35. Caption:=Хорошо;k=5 then label35. Caption:=Отлично;:=nick;. Caption:=la;;Ttest_1.sButton9Click (Sender: TObject); \\ тестирование:=0;:=0;. Visible:=false;. Visible:=true;. Align:=alclient;:=m+1;;
Ttest_1.sButton10Click (Sender: TObject); \\ тестирование_1. Hide;.show;. Timer2. Enabled:=true;;
Ttest_1.sButton7Click (Sender: TObject); \\ тестирование_1. Hide;.show;. Timer1. Enabled:=true;;
Ttest_1.sButton2Click (Sender: TObject); \\ тестирование_1. Hide;.show;. Timer1. Enabled:=true;;_2: Ttest_2;k, l, s:integer;practic, ychebnik, Unit3, Unit5;
{$R *.dfm}Ttest_2. FormCreate (Sender: TObject);. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;_2. Height:=209;_2. Width:=358;:=0;:=0;:=1;:=registr.sEdit1. Text;;Ttest_2.sButton7Click (Sender: TObject); \\ тестирование. Visible:=true;. Visible:=false;. Visible:=false;. Visible:=true;. Align:=alclient;_2. Width:=700;_2. Height:=389;;
procedure Ttest_2.sButton1Click (Sender: TObject); \\ тестированиеradiogroup1. ItemIndex=0 then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;
;
Ttest_2.sButton2Click (Sender: TObject); \\ тестированиеradiobutton2. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;
Ttest_2.sButton3Click (Sender: TObject); \\ тестированиеcheckbox1. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;
Ttest_2.sButton4Click (Sender: TObject); \\ тестированиеradiogroup2. ItemIndex=1 then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;
Ttest_2.sButton5Click (Sender: TObject); \\ тестированиеla:string;radiobutton5. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=reg;. Caption:=inttostr(k);. Caption:=inttostr(l);k<=2 then label33. Caption:=Неудовлетворительно;k=3 then label33. Caption:=Удовлетворительно;k=4 then label33. Caption:=Хорошо;k=5 then label33. Caption:=Отлично;. Caption:=inttostr(s);:=nick;.caption:=la;. Visible:=false;. Visible:=true;. Align:=alclient;;
Ttest_2.sButton6Click (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=true;. Align:=alclient;:=s+1;;
Ttest_2.sButton9Click (Sender: TObject); \\ переход на форму практика_2. Hide;.show;. Timer1. Enabled:=true;
;
Ttest_2.sButton10Click (Sender: TObject); \\ переход на главную форму_2. Hide;.show;. Timer2. Enabled:=true;;
Ttest_2.sButton8Click (Sender: TObject);_2. Hide;.show;. Timer1. Enabled:=true;;_3: Ttest_3;k, l, s:integer;test3, practic, ychebnik, Unit5;
{$R *.dfm}Ttest_3. FormCreate (Sender: TObject);. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;_2. Height:=209;_2. Width:=358;:=0;:=0;:=1;;
Ttest_3.sButton1Click (Sender: TObject); \\ тестирование. Visible:=true;. Visible:=false;. Visible:=false;. Visible:=true;. Align:=alclient;_3. Width:=700;_3. Height:=389;;
Ttest_3.sButton3Click (Sender: TObject); \\ тестированиеradiogroup1. ItemIndex=0 then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;
Ttest_3.sButton4Click (Sender: TObject); \\ тестированиеradiobutton2. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;
Ttest_3.sButton5Click (Sender: TObject); \\ тестированиеcheckbox1. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;
Ttest_3.sButton6Click (Sender: TObject); \\ тестированиеradiobutton7. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);. Visible:=false;. Visible:=true;. Align:=alclient;;
Ttest_3.sButton7Click (Sender: TObject); \\ тестированиеla:string;radiobutton12. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);k<=2 then label36. Caption:=Неудовлетворительно;k=3 then label36. Caption:=Удовлетворительно;k=4 then label36. Caption:=Хорошо;k=5 then label36. Caption:=Отлично;. Caption:=inttostr(s);. Visible:=false;.