Проверка на нажатие кнопки во время работы программы

[ToKS]

А при чём тут b4

Я не много не понял!! Объясни последнюю свою запись!!

[Terran]

В этой строчке:

if b4=1 then k:=true;

Вы проверяете значение b4. Если оно равно 1, то делаете k:=true;
На сколько я понял задумка была такая. При ответе правильно вопросы должны меняться притом рандомно. Я там предложил делать проверку при нажатии на кнопку. И если ответили правильно, то менять вопросы.

[ToKS]

Я ш и не понял как делать проверку при нажатии кнопки!! Как это сделать??

мне вобще надо что б работал цикл на смену вопроса, ну вместе с вариантами ответа, взависимости от того правильный ответ или нет!! Если да, то продолжать цикл если нет то прекратить его!!

ты мож написать такой цикл??

[Terran]

Я тут подумал. Выложите лучше исходник. Я попробую его подкорректировать. И пользуйтесь кнопочкой "Правка" если хотите ещё что-то дописать, а то получается очень много сообщений...

[ToKS]

unit milion;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Menus, StdCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
k:boolean;
b2,b3,b4,b5:integer;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
N1.Visible:=TRUE;
N2.Visible:=TRUE;
EDIT1.Visible:=FALSE;
LABEL1.Visible:=FALSE;
BUTTON1.Visible:=FALSE;


end;


procedure TForm1.N3Click(Sender: TObject);
var n:integer;

begin
randomize;
button2.visible:=true;
button3.visible:=true;
button5.visible:=true;button4.visib le:=true;
label2.Visible:=true;
k:=true;
while k=true do
begin
n:=random(3);
case n of
1:begin label2.caption:='Сколько дней в апреле?'; button2.Caption:='29';
button3.Caption:='28'; button4.Caption:='30'; button5.Caption:='31';
K:=false;
if b4=1 then k:=true;
end;
2:begin label2.caption:='Какая 24 буква в алфавите?'; button2.Caption:='К';
button3.Caption:='Ё'; button4.Caption:='Ч'; button5.Caption:='Ш';
k:=false;
if b5=1 then k:=true;
end;
3:begin label2.caption:='Что кричал архимед сидя в ванной?'; button2.Caption:='А. Еврейка ';
button3.Caption:='Б. Индейка'; button4.Caption:='В. Идейка '; button5.Caption:='Г. Эврика!';
k:=false;
if b5=1 then k:=true;
end;

end;
end;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
b2:=1; b3:=0; b4:=0; b5:=0;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
b5:=1; b3:=0; b2:=0; b4:=0;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
b3:=1; b4:=0; b5:=0; b2:=0;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
b4:=1; b3:=0; b2:=0; b5:=0;

end;

end.

вот он весь!! он не хочет правильно работать!! Короче вот с этим оно работает правильно, но не реагирует на нажатие кнопок, короче выбивает первый вопрос и не реагирует на ответы вобще!! Исправь пожалуйста!! И скинь сюда весь исправленный исходник!!

[Terran]

Я имел в виду файлы исходника, но в принципе ладно. Вот подправил: Тест.rar Всё работает, только вас может рандом подвести. В том плане, что если вы ответите правильно и при переходе к следующему вопросу при рандоме может появится число этого же вопроса и получится впечатление, что вы не перешли к следующему вопросу.

[ToKS]

шо то оно чуток не так работает!! Давай я те скину всю прогу что б ты полность имел представление о ней!! А ты подкорректируешь шо не так и скинешь мне??

[ToKS]

http://ifolder.ru/12161252? тут вся прога!! не делай что б выбивало сообщение правильно не правильно!! просто сделай что б при надатиии на правильный ответ оно выдавало следующий вопрос!!

[Terran]

просто сделай что б при надатиии на правильный ответ оно выдавало следующий вопрос!!

Подправил ваш исходник. Скачать его можете здесь: http://slil.ru/27665204 Что касается цикла, то я думаю крутить цикл постоянно пока не нажмут на правильный ответ не стоит т.к. повиснет прога. По большей части он там и не нужен. Про рандомный выбор вопроса я уже писал, поэтому читайте выше. Остальное, думаю доработайте сами. Что касается сообщения, которое появляется когда ответят не верно, то оно какое-то грубоватое + оно пишется через "е". Хотя автору программы виднее.