AHSANUNNIDHOM

Berpacu menjadi yang terbaik

cartesian

diposting oleh ahsanunnidhom---fst10 pada 27 May 2013
di Umum - 0 komentar

Kali ini untuk mengisi blog, aku akan menjelaskan sedikit tentang cara membuat diagram cartesius yang telah dijelaskan pada perkuliahan komputasi yang diberikan oleh Bapak Soegianto,

Pembuatan diagram Cartesius ini menggunakan perangkat software delphi, berikut merupakan langkah dari pengerjaan pembuatan diagram nya :

Langkah awal adalah buka progaram delphi , kemudian dilanjutkan dengan membuat tampilan formnya cara membuat form sebagai berikut :

pilih menu file>>new>>pilih dan klik vcl forms setelah itu akan muncul form sebagai tampilan program yang akan digunakan, dalam form tersebut berikan tampilan seperti dibawah ini

untuk menampilkan seperti diatas harus mengambil dalam tool pallete menu yang ada dalam delphi kemudian cara memprogram anda dapat mengeklik dua kali pada button selanjutnya tulis programnya sebagai berikut :

Var gbr:TBitmap; // penyimpanan gambar dlm format bitmap

Delta, i, jmlkoordinat,

Tinggi, lebar, sumbux, sumbuy : integer;

 

Begin

Gbr:=tbitmap.create;

Gbr.width:=image1.width;

Gbr.height:=image1.height;

Delta:=10;

//jika digantidgscroll bar

Delta := scrollbar1.position;

Tinggi:=gbr.height;

Lebar:=gbr.width;

Sumbux:=round(tinggi/2);

Sumbuy:=round(lebar/2);

//membuat sumbu koordinat

Gbr.canvas.moveto(0,sumbux);

Gbr.canvas.lineto(lebar,sumbux);

 

Gbr.canvas.moveto(sumbuy,0);

Gbr.canvas.lineto(sumbuy,tinggi);

 

//membuat titik koordinat.

Jmlkoordinat := round (sumbuy/delta);

For i :=1 to jmlkoordinat do

  Begin

  Gbr.canvas.ellipse(sumbuy+(delta*i)-1, sumbux-3, sumbuy+(delta*i)+1, sumbux+3);

  Gbr.canvas.ellipse(sumbuy-(delta*i)-1, sumbux-3, sumbuy-(delta*i)+1, sumbux+3);

 

  Gbr.canvas.ellipse( sumbuy+3, sumbux+(delta*i)+1, sumbuy-3, sumbux+(delta*i)-1);

  Gbr.canvas.ellipse( sumbuy+3, sumbux-(delta*i)+1, sumbuy-3, sumbux-(delta*i)-1);

  End;

Image1.picture.assign(gbr);

Gbr.free

end;

 

end.

*perlu dingingat bahwa penulisan koding diatas dituliskan dibawah procedure TForm1.Button1Click

Oke untuk selanjutnya atur scrollbar dalam menu properties dibawah ini :

sebagai pengaman setelah melakukan langkah diatan dapat menyimpanya sebelum dilakukan proses running program yang sudah dibuat, setelah menyimpan dapat ditampilkan programnya :

gambar nerikut merupakan tampilan program

fungsi dari scroll adalah jika andamenggesernya maka titik dalam sumbu x dan y nya akan ikut bergeser

sekian dari aku untuk saran dan kritik yang membangun akan sangat dinanti thanks sudah membaca

Tinggalkan Komentar

Nama :
E-mail :
Web : tanpa http://
Komentar :
Verification Code :