Membuat Kartesian menggunakan Delphi
- Buatlah form
- Isikan komponen – komponen berikut pada form :
1. Panel = Cartesian
2. Label6 = X
3. Edit1
4. Label1 = Kuadran 1
5. Label7 = Nilai X
6. Edit2
7. Label2 = Kuadran 2
8. Label8 = NilaiY
9. Edit3
10. Label3 = Kuadran 3
11. Label9 = Hasil
12. Bitbtn1 = OK
13. Label4 = Kuadran 4
14. Shape1
15. Bitbtn2 = Retry
16. Label5 = Y
17. Shape2
18. Bitbtn3 = Close
- Buatlah komponen tersebut menjadi seperti berikut :
- Tulislah program pada event onclick pada tombol OK :
procedure TForm1.BitBtn1Click(Sender: TObject);
var x,y:integer;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
begin
if ((x>0)and(y>0)) then
Edit3.Text:= 'Berada dalam Kuadran 1';
if((x>0)and(y<0))then Edit3.Text:=' Berada dalam Kuadran 2' ; if((x<0)and(y<0)) then Edit3.Text:=' Berada dalam Kuadran 3'; if((x<0)and(y>0)) then
Edit3.Text:=' Berada dalam Kuadran 4';
if((x=0)and(y=0)) then
Edit3.Text:=' ada dalam Titik tengah';
end;
- Untuk event Onclick pada tombol Retry, diisi perintah berikut :
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;
- Untuk event Onclick pada tombol Close, diisi seperti berikut:
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if messagedlg('Anda Ingin Keluar Aplikasi ini?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
application.Terminate;
end;
silahkan download disini
- Buatlah form
- Isikan komponen – komponen berikut pada form :
1. Panel = Cartesian
2. Label6 = X
3. Edit1
4. Label1 = Kuadran 1
5. Label7 = Nilai X
6. Edit2
7. Label2 = Kuadran 2
8. Label8 = NilaiY
9. Edit3
10. Label3 = Kuadran 3
11. Label9 = Hasil
12. Bitbtn1 = OK
13. Label4 = Kuadran 4
14. Shape1
15. Bitbtn2 = Retry
16. Label5 = Y
17. Shape2
18. Bitbtn3 = Close
- Buatlah komponen tersebut menjadi seperti berikut :
- Tulislah program pada event onclick pada tombol OK :
procedure TForm1.BitBtn1Click(Sender: TObject);
var x,y:integer;
begin
x:=StrToInt(Edit1.Text);
y:=StrToInt(Edit2.Text);
begin
if ((x>0)and(y>0)) then
Edit3.Text:= 'Berada dalam Kuadran 1';
if((x>0)and(y<0))then Edit3.Text:=' Berada dalam Kuadran 2' ; if((x<0)and(y<0)) then Edit3.Text:=' Berada dalam Kuadran 3'; if((x<0)and(y>0)) then
Edit3.Text:=' Berada dalam Kuadran 4';
if((x=0)and(y=0)) then
Edit3.Text:=' ada dalam Titik tengah';
end;
- Untuk event Onclick pada tombol Retry, diisi perintah berikut :
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;
- Untuk event Onclick pada tombol Close, diisi seperti berikut:
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if messagedlg('Anda Ingin Keluar Aplikasi ini?',mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
application.Terminate;
end;
silahkan download disini
Tidak ada komentar:
Posting Komentar