y">;
TForm1. Button2Click (Sender: TObject) ;. Showmodal;
procedure TForm1. Button5Click (Sender: TObject); OKBottomDlg. ShowModal=mrOk then. Caption:= Користувач відповів + OKBottomDlg. ComboBox1. Text; OKBottomDlg. ComboBox1. Itemindex of
, 2,3 :. Caption:= відповідь не вірний raquo ;;
: begin. Caption:= відповідь вірний raquo ;;:=a + 1 ;;;. Enabled:=false ;; TForm1. FormCreate (Sender: TObject);:=0 ;;
TForm1. Button6Click (Sender: TObject); OKRightDlg1. ShowModal=mrOk then3. Caption:= Користувач відповів + OKRightDlg1. ComboBox1. Text; OKRightDlg1. ComboBox1. Itemindex of
, 2,3 :. Caption:= відповідь не вірний raquo ;;
0: begin. Caption:= відповідь вірний raquo ;;:=a + 1 ;;;. Enabled:=false ;; TForm1. Button7Click (Sender: TObject); OKBottomDlg1. ShowModal=mrOk then. Caption:= Користувач відповів + OKBottomDlg1. ComboBox1. Text; OKBottomDlg1. ComboBox1. Itemindex of
, 2,3 :. Caption:= відповідь не вірний raquo ;;
: begin. Caption:= відповідь вірний raquo ;;:=a + 1 ;;;. Enabled:=false ;; TForm1. Button8Click (Sender: TObject); OKBottomDlg2. ShowModal=mrOk then. Caption:= Користувач відповів + OKBottomDlg2. ComboBox1. Text; OKBottomDlg2. ComboBox1. Itemindex of
:. Caption:= відповідь не вірний raquo ;;
: begin. Caption:= відповідь вірний raquo ;;:=a + 1 ;;;. Enabled:=false ;; TForm1. Button9Click (Sender: TObject); OKBottomDlg3. ShowModal=mrOk then. Caption:= Користувач відповів + OKBottomDlg3. ComboBox1. Text; OKBottomDlg3. ComboBox1. Itemindex of
, 2 :. Caption:= відповідь не вірний raquo ;;
: begin. Caption:= відповідь вірний raquo ;;:=a + 1 ;;;. Enabled:=false ;; TForm1. Button10Click (Sender: TObject); OKBottomDlg4. ShowModal=mrOk then. Caption:= Користувач відповів + OKBottomDlg4. ComboBox1. Text; OKBottomDlg4. ComboBox1. Itemindex of
, 2 :. Caption:= відповідь не вірний raquo ;;
: begin. Caption:= відповідь вірний raquo ;;:=a + 1 ;;;. Enabled:=false ;; TForm1. Button11Click (Sender: TObject); OKBottomDlg5. ShowModal=mrOk then. Caption:= Користувач відповів + OKBottomDlg5. ComboBox1. Text; OKBottomDlg5. ComboBox1. Itemindex of
, 2 :. Caption:= відповідь не вірний raquo ;;
: begin. Caption:= відповідь вірний raquo ;;:=a + 1 ;;;. Enabled:=false ;; TForm1. Button12Click (Sender: TObject); OKBottomDlg6. ShowModal=mrOk then. Caption:= Користувач відповів + OKBottomDlg6. ComboBox1. Text; OKBottomDlg6. ComboBox1. Itemindex of
, 2 :. Caption:= відповідь не вірний raquo ;;
: begin. Caption:= відповідь вірний raquo ;;:=a + 1 ;;;. Enabled:=false ;; TForm1. Button13Click (Sender: TObject); OKBottomDlg7. ShowModal=mrOk then. Caption:= Користувач відповів + OKBottomDlg7. ComboBox1. Text; OKBottomDlg7. ComboBox1. Itemindex of
, 2 :. Caption:= відповідь не вірний raquo ;;
: begin. Caption:= відповідь вірний raquo ;;:=a + 1 ;;;. Enabled:=false ;; TForm1. Button1Click (Sender: TObject); OKbottomDlg8. ShowModal=mrOK then begin. Caption:=OKbottomDlg8. Edit1. Text + OKbottomDlg8. Edit2. Text;
(OKbottomDlg8. Edit1. Text= ) or (OKbottomDlg8. Edit2. Text= ) then. Caption:= Введіть свої дані! Raquo ;;;; TForm1. Button4Click (Sender: TObject) ;. Label3. Caption:=inttostr (a) ;;
TForm1. Image1Click (Sender: TObject);
end;
end.
Висновок
Перед початком роботи я поставила мету розробити програму тесту для перевірки знань з d-елементів. Спробувавши кілька способів рішення даної задачі, я досягла поставленої мети.
Мій спосіб полягає в тому, що кожне питання виводиться у своєму діалоговому вікні. Для питань оголошена накопичувальна змінна, якої у разі вірної відповіді присвоюється один бал. Підсумок представлений получившимся значенням.
На мою думку, дана програма зручна тим, що легка у використанні: Всі компоненти головного меню знаходяться безпосередньо на головній формі і видно користувачеві при вході в програму. Користувач може відповідати на питання в різному порядку і відразу дізнається, правильний він дав відповідь. Якщо відповідь не обраний, можна повернутися до питання пізніше.
У ході розробки програми я намагала...
