delphi 7, Membuat garis sederhana membentuk suatu gambar primitif menyerupai mobil

Membuat garis sederhana membentuk suatu gambar primitif menyerupai mobil pada delphi 7

assalamualaiku warrahmatullahiwabarakatu

Pada kesempatan kali ini saya akan coba share contoh program sederhana delphi yaitu pembuatan garis pada program delphi, program delphi yang saya gunakan yaitu delphi 7 pada sistem operasi windows 10 32bit, di postingan kali ini saya tidak menjelaskan bagaimana prosesn instalasi delphi7, jadi saya langsung pada proses sesuai tema yang sudah saya tentukan.

mohon maaf sebelumnya bila ada kata-kata saya yang kurang berkenan, karena saya masih baru memulai aktif menulis blog

temanya kali ini, membuat garis/data primitif menjadi gambar pada program delphi


1.langkah pertama buka program delphi 7


2.buat project baru, caranya : pilih file-new-application



3. setelah itu pilih tool button, lalu tempatkan pada form



4.ganti caption pada button menjadi "mobil", ini hanya untuk memperjelas saja, tidak berpengaruh pada program yang akan di buat




5.double klik pada button "mobil" tadi yang sudah dibuat, lalu masukan kode program berikut tepat dibawah (procedure TForm1.Button1Click(Sender: TObject);
begin)


canvas.moveto(700,100);
canvas.lineto(700,300);
canvas.MoveTo(200,220);
canvas.LineTo(200,300);
canvas.moveto(200,220);
canvas.lineto(300,170);
canvas.MoveTo(300,100);
canvas.lineto(300,170);
canvas.MoveTo(300,100);
canvas.lineto(700,100);
canvas.MoveTo(300,170);
canvas.lineto(700,170);
canvas.moveto(700,300);
canvas.LineTo(650,300);
canvas.ellipse(350,350,270,270);
canvas.ellipse(650,270,570,350);
canvas.MoveTo(200,300);
canvas.lineto(270,300);
canvas.MoveTo(570,300);
canvas.lineto(350,300);

end;


6.lakukan save project as, usahakan, dalam 1 folder hanya ada satu program/project delphi, karena pada delphi jika menyimpan banyak project pada satu folder maka akan sulit untuk membukanya kembali



7. lakukan runing project/dengan menekan f9.

8. berikut adalah hasil runing dari project yang sudah kita buat




itulah sedikit tutorial dari saya, mohon maaf jika masih banyak kekurangan, dan kurang di pahami oleh pengunjung, InsyaAllah saya akan kembali memposting tutorial lainya.


Wassalamualaikum Warrahmatullahi Wabarrakatuh








Komentar

Postingan populer dari blog ini

delphi 7, menggambar garis dengan menggunakan algoritma DDA,POLINOM, dan BRESENHAM

Delphi 7, Menggambar translasi dasar