Geum.ru

Электронный учебник "Программа Erwin"

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

Visible:=true;. Align:=alclient;:=nick;. Caption:=Здравствуйте +la;;

Ttest_3.sButton8Click (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=true;. Align:=alclient;:=s+1;;

Ttest_3.sButton9Click (Sender: TObject); \\ переход на практику_3. Hide;.show;. Timer1. Enabled:=true;;

Ttest_3.sButton10Click (Sender: TObject); \\ переход на главную_3. Hide;.show;. Timer2. Enabled:=true;;

Ttest_3.sButton2Click (Sender: TObject);_3. Hide;.show;. Timer1. Enabled:=true;;_4: Ttest_4;k, l, s:integer;test3, practic, ychebnik, Unit5;

{$R *.dfm}Ttest_4. 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_4.sButton1Click (Sender: TObject); \\ тестирование. Visible:=true;. Visible:=false;. Visible:=false;. Visible:=true;. Align:=alclient;_4. Width:=700;_4. Height:=389;;

Ttest_4.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;;

procedure Ttest_4.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_4.sButton5Click (Sender: TObject); \\ тестированиеcheckbox2. 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_4.sButton6Click (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_4.sButton7Click (Sender: TObject); \\ тестированиеla:string;radiobutton4. Checked=true then begin(Правильный ответ, mtconfirmation, [mbOk], 0);:=k+1; end(Неправильный ответ, mtconfirmation, [mbOk], 0);:=l+1;;. Caption:=inttostr(k);. Caption:=inttostr(l);k<=2 then label35. Caption:=Неудовлетворительно;k=3 then label35. Caption:=Удовлетворительно;k=4 then label35. Caption:=Хорошо;k=5 then label35. Caption:=Отлично;. Caption:=inttostr(s);:=nick;. Caption:=Здравствуйте + la;. Visible:=false;. Visible:=true;. Align:=alclient;;

Ttest_4.sButton8Click (Sender: TObject); \\ тестирование. Visible:=false;. Visible:=true;. Align:=alclient;:=s+1;;

Ttest_4.sButton9Click (Sender: TObject); \\ переход на практику_4. Hide;.show;. Timer1. Enabled:=true;;

Ttest_4.sButton10Click (Sender: TObject); \\ переход на главную_4. Hide;.show; glavnaya. Timer2. Enabled:=true;;

Ttest_4.sButton2Click (Sender: TObject);_4. Hide;.show;. Timer1. Enabled:=true;;

 

end.