LISTING PROGRAM WARUNG MAKAN PADA DELPHI

unit dftrwarung; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: TRadioGroup; RadioGroup2: TRadioGroup; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Timer1: TTimer; procedure RadioGroup1Click(Sender: TObject); procedure RadioGroup2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var a:integer; begin if (edit1.text >'0')and (edit2.Text>'0') then begin a:=strtoint(edit2.text)+ strtoint(edit1.Text); edit3.Text:=inttostr(a); end else if edit2.Text >'0' then begin edit3.Text:= edit2.Text; end else edit3.Text:=edit1.Text; end ; procedure TForm1.RadioGroup1Click(Sender: TObject); begin if radiogroup1.ItemIndex=0 then begin edit1.Text:='7000'; end else if radiogroup1.ItemIndex=1 then begin edit1.Text:='8000'; end else if radiogroup1.ItemIndex=2 then begin edit1.Text:='10000'; end else if radiogroup1.ItemIndex=3 then begin edit1.Text:='7000'; end else if radiogroup1.ItemIndex=4 then begin edit1.Text:='8000'; end else if radiogroup1.ItemIndex=5 then begin edit1.Text:='0'; end end; procedure TForm1.RadioGroup2Click(Sender: TObject); begin if radiogroup2.ItemIndex=0 then begin edit2.Text:='6000'; end else if radiogroup2.ItemIndex=1 then begin edit2.Text:='5000'; end else if radiogroup2.ItemIndex=2 then begin edit2.Text:='5000'; end else if radiogroup2.ItemIndex=3 then begin edit2.Text:='1000'; end else if radiogroup2.ItemIndex=4 then begin edit2.Text:='500'; end else if radiogroup2.ItemIndex=5 then begin edit2.Text:='0'; end end; procedure TForm1.Timer1Timer(Sender: TObject); begin label4.Caption:=timetostr(time); end; end.