|
#46
|
|||
|
|||
Сработало))
Последний раз редактировалось XaKeR282, 15.03.2011 в 18:08. |
#47
|
|||
|
|||
Цитата:
взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#48
|
||||
|
||||
Пора делать раздел "Для тех, кто не знает, что такое программирование".
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#49
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin randomize; i:=random(2); case i of 1:(label1.Caption:='что такое солнце?') and (RadioButton1.Caption:='aftafa') and (RadioButton2.Caption:='aftafa') and (RadioButton3.Caption:='aftafa') and (RadioButton4.Caption:='aftafa'); 2: Label1.Caption:='f'; end; end; |
#50
|
||||
|
||||
Код:
case i of 1:begin label1.Caption:='что такое солнце?'; RadioButton1.Caption:='aftafa'; RadioButton2.Caption:='aftafa'; RadioButton3.Caption:='aftafa'; RadioButton4.Caption:='aftafa'; end; 2: Label1.Caption := 'f'; end; |
#51
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin Label1.Visible:=True; RadioButton1.Visible:=true; RadioButton2.Visible:=true; RadioButton3.Visible:=true; RadioButton4.Visible:=true; randomize; i:=random(2); case i of 1: begin label1.Caption:='что такое солнце?'; RadioButton1.Caption:='Полнолуние'; RadioButton2.Caption:='Шарик'; RadioButton3.Caption:='Источник света'; RadioButton4.Caption:='Планета'; if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked) then ShowMessage('Игра окончена'); //Close; end; 0: Begin label1.Caption:='Сколько делает 5+5?'; RadioButton1.Caption:='11'; RadioButton2.Caption:='10'; RadioButton3.Caption:='14'; RadioButton4.Caption:='9'; if (RadioButton3.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked) then ShowMessage('Игра окончена'); //Close; End; end; if ((label1.Caption ='что такое солнце?') and (RadioButton3.Checked)) or ((Label1.Caption = 'Сколько делает 5+5?') and (RadioButton2.Checked)) then begin randomize; i:=(2); case i of 0: begin label1.Caption:='Как называется страна где живут лезгины?'; RadioButton1.Caption:='Таджикистан'; RadioButton2.Caption:='Армения'; RadioButton3.Caption:='Россия'; RadioButton4.Caption:='они повсюду'; if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton3.Checked) then ShowMessage('Игра окончена'); end; 1: begin label1.Caption:='Что из ниже причисленных не относится к компьютеру?'; RadioButton1.Caption:='Камера'; RadioButton2.Caption:='Колонки'; RadioButton3.Caption:='Мышка'; RadioButton4.Caption:='Ручка'; if (RadioButton2.Checked) or (RadioButton1.Checked) or(RadioButton4.Checked) then ShowMessage('Игра окончена'); end; end; end; end; |
#52
|
||||
|
||||
XaKeR282 хотел помочь, но начал читать твой листинг, и у меня отключился мозг!
|
#53
|
|||
|
|||
Цитата:
|
#54
|
|||
|
|||
Я что-то не заматил то что ты выделил))
|
#55
|
|||
|
|||
ну я так и подумал... повторюсь: Ты это прочитать пробовал?
|