Запарка с комбобоксами
Здравствуйте, проблема такая-появилась потребность в "тесте-тренажере",
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, ToolWin, ComCtrls, StdCtrls, TabNotBk, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Label2: TLabel;
Label3: TLabel;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
GroupBox4: TGroupBox;
ComboBox2: TComboBox;
GroupBox2: TGroupBox;
ComboBox4: TComboBox;
GroupBox3: TGroupBox;
ComboBox3: TComboBox;
GroupBox6: TGroupBox;
ComboBox5: TComboBox;
GroupBox7: TGroupBox;
ComboBox6: TComboBox;
GroupBox8: TGroupBox;
ComboBox7: TComboBox;
GroupBox9: TGroupBox;
ComboBox8: TComboBox;
GroupBox10: TGroupBox;
ComboBox9: TComboBox;
GroupBox11: TGroupBox;
ComboBox10: TComboBox;
ComboBox11: TComboBox;
procedure Button1Click(Sender: TObject);
procedure ComboBox11Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ball:integer;
i:integer;
y:Integer;
type answers=array[1..10,0..16] of byte;
const otv1:answers=((0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0),(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1));
const otv2:answers=((0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0),(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1));
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ball:=otv1[1,ComboBox1.itemIndex]+otv1[2,ComboBox2.itemIndex]+
otv1[3,ComboBox3.itemIndex]+otv1[4,ComboBox4.itemIndex]+
otv1[5,ComboBox5.itemIndex]+otv1[6,ComboBox6.itemIndex]+
otv1[7,ComboBox7.itemIndex]+otv1[8,ComboBox8.itemIndex]+
otv1[9,ComboBox9.itemIndex]+otv1[10,ComboBox10.itemIndex];
if ball=10
then label2.Caption:='Правильно ответил'
else
label2.Caption:='Ответил не правильно';
end;
procedure TForm1.ComboBox11Change(Sender: TObject);
begin
y:=0;
i:=ComboBox11.itemIndex;
if i=y
then label3.Caption:='выбран 217';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ball:=otv1[1,ComboBox1.itemIndex]+otv1[2,ComboBox2.itemIndex]+
otv1[3,ComboBox3.itemIndex]+otv1[4,ComboBox4.itemIndex]+
otv1[5,ComboBox5.itemIndex]+otv1[6,ComboBox6.itemIndex]+
otv1[7,ComboBox7.itemIndex]+otv1[8,ComboBox8.itemIndex]+
otv1[9,ComboBox9.itemIndex]+otv1[10,ComboBox10.itemIndex];
if ball=10
then label2.Caption:='Правильно ответил'
else
label2.Caption:='Ответил не правильно';
end;
end.
нужно, чтобы при выборе в комбобоксе "команды от руководителя полетов" определенного варианта команды, зависили и правильные варианты в комбобоксах, и если человек правильно выбрал во всех боксах, то выходило сообщение что-то типа "все правильно".
Помогите пожалуйста, не могу разобраться
Последний раз редактировалось lmikle, 04.03.2015 в 01:22.
|