Zdravím mám problém s Delphi, tlačidlá 3 a 4 mi nereagujú. Chybu nevypisuje žiadnu.
Kód:
unit over;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button5: TButton;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
a,b,c,d:integer;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToInt(Edit1.text);
If a<40
Then ShowMessage(' Činnosť vyžadujúca nepretržité sústredenie alebo nerušené dorozumievanie; tvorivá činnosť. Je v norme. ');
If a>40
Then ShowMessage('Hlučnosť prekračuje povolený rozsah');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
b:=StrToInt(Edit2.text);
If b<40
Then ShowMessage(' Činnosť vyžadujúca nepretržité sústredenie alebo nerušené dorozumievanie; tvorivá činnosť. Je v norme.');
If (b>40) and (b<50)
Then ShowMessage(' Činnosť, pri ktorej dorozumievanie predstavuje dôležitú súčasťvykonávanej práce; činnosť, pri ktorej sú veľké nároky na presnosť, rýchlosť alebo pozornosť. Je v norme. ');
If (b>50)
Then ShowMessage('Hlučnosť prekračuje povolený rozsah ');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
c:=StrToInt(Edit3.text);
If c<40
Then ShowMessage(' Činnosť vyžadujúca nepretržité sústredenie alebo nerušené dorozumievanie; tvorivá činnosť. Je v norme. ');
If (c>40) and (c<50)
Then ShowMessage(' Činnosť, pri ktorej dorozumievanie predstavuje dôležitú súčasťvykonávanej práce; činnosť, pri ktorej sú veľké nároky na presnosť, rýchlosť alebo pozornosť. Je v norme. ');
If (c>40) and (c<65)
Then ShowMessage('Činnosť rutinnej povahy, pri ktorej je dorozumievanie súčasťou vykonávanej práce; činnosť vykonávaná na základe čiastkových sluchových informácií. Je v norme. ');
If (c>65)
Then ShowMessage('Hlučnosť prekračuje povolený rozsah ');
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
d:=StrToInt(Edit4.text);
If d<40
Then ShowMessage(' Činnosť vyžadujúca nepretržité sústredenie alebo nerušené dorozumievanie; tvorivá činnosť. Je v norme. ');
If (d>40) and (d<50)
Then ShowMessage(' Činnosť, pri ktorej dorozumievanie predstavuje dôležitú súčasťvykonávanej práce; činnosť, pri ktorej sú veľké nároky na presnosť, rýchlosť alebo pozornosť. Je v norme. ');
If (d>50) and (d<65)
Then ShowMessage(' Činnosť rutinnej povahy, pri ktorej je dorozumievanie súčasťou vykonávanej práce; činnosť vykonávaná na základe čiastkových sluchových informácií. Je v norme. ');
If (d>65) and (d<80)
Then ShowMessage('Činnosť, pri ktorej sa používajú hlučné stroje a nástroje alebo ktorá je vykonávaná v hlučnom prostredí a ktorá nespĺňa podmienky zaradenia do skupín I, II alebo III. Je v norme. ');
If (d>80)
Then ShowMessage('Hlučnosť prekračuje povolený rozsah ');
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
self.Close;
end;
end.
Choď na stránku: