Tutorial Program Posisi Bidang Chartesius

Naah, sekarang kita akan membuat sebuah program untuk mencari posisi titik di sebuah bidang cartesius. Di sini kita akan menggunakan bahasa pemrograman Borland Delphi 7.

Ilustrasinya adalah sebagai berikut :

1. Jika di sumbu x nilainya adalah > 0 dan di sumbu y adalah > 0, maka titik berada pada kuadran I,

2. Jika di sumbu x nilainya adalah < 0 dan di sumbu y adalah > 0, maka titik berada pada kuadran II,

3. Jika di sumbu x nilainya adalah < 0 dan di sumbu y adalah < 0, maka titik berada pada kuadran III,

4. Jika di sumbu x nilainya adalah > 0 dan di sumbu y adalah < 0, maka titik berada pada kuadran IV,

Ikuti langkah-langkah berikut :

1. Buka aplikasi Borland Delphi 7, dan otomatis kita diarahkan pada New Application.

2. Sekarang masukkan sebuah Panel, 2 buah Label, 3 buah Edit, dan 3 buah Button.

3. Klik Panel, pada tab properties Object Inspector di sebelah kiri lembar kerja Delphi, cari Caption dan ubah menjadi Program Pencari Posisi Titik Pada Bidang Cartesius. Label1 captionnya ubah menjadi Nilai Pada Sumbu X. Label2 captionnya ubah menjadi Nilai Pada Sumbu Y. Edit1 cari Text pada tab proerties tadi, lalu hapus n kosongkan. Begitu juga Edit2 dan Edit3. Button1 ubah captionnya jadi CEK POSISI. Button2 jadi GANTI TITIK. Dan Button3 jadi EXIT.

4. Syntax (script) program utama pake seleksi IF THEN. Klik 2 kali button CEK POSISI dan isikan syntax (script) berikut :

begin

x:=StrToInt(Edit1.Text);

y:=StrToInt(Edit2.Text);

if (x>0) and (y>0) then pos:='KUADRAN I'

else if (x>0) and (y<0) then pos:='KUADRAN IV'

else if (x<0) and (y>0) then pos:='KUADRAN II'

else pos:='KUADRAN III';

Edit3.Text:=pos;

end;

5. Kemudian klik 2 kali button GANTI dan isikan syntax berikut :

begin

Edit1.Text:=EmptyStr;

Edit2.Text:=EmptyStr;

end;

6. Kemudian klik 2 kali button EXIT PROGRAM dan isikan syntax berikut :

begin

Application.Terminate;

end;

7. Pada saat mengisi salah syntax salah satu button di atas, gulung layar untuk syntax tersebut ke atas, cari var, kemudian tambahkan untuk variabelnya menjadi sebagai berikut :

var

Form1: TForm1;

x,y:integer;

pos:string;

8. Programnya uda jadi. Untuk merubah warna atau variasi, cari di tab properties yah. Coba2 sendiri.

9. Terus yang terakhir, coba di Run programnya pake tombol F9. Tombol CEK POSISI untuk nyari posisinya pada bidang cartesius jika uda ngisi angka di kolom NILAI PADA SUMBU X dan Y. Tombol GANTI untuk menghapus kolom NILAI PADA SUMBU X dan Y, serta kolom letak posisi pada kuadran berapap untuk ngisi dengan titik lain. EXIT PROGRAM untuk nutup aplikasinya. Semoga berhasil!