Membuat Kartesian Dengan Delphi

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