Delphi - Membuat Garis dengan PaintBox

10:23 AM Posted by AaEzha van Ilmi

Baiklah, kali ini kita akan belajar membuat Grafik menggunakan Delphi :)
Untuk selanjutnya, penulis jelaskan dalam bentuk gambar aja yah.

  1. New Project
  2. Masukkan
    -- 1 TLabel (Standard Palette)
    -- 2 TButton (Standard Palette)
    -- 1 TPaintBox (System Palette)
    hasilnya seperti ini
  3. Ubah
    -- Caption form
    -- Caption Label
    -- Caption Button
    hasilnya seperti ini
  4. Selanjutnya akan masuk ke proses CODING
  5. Dobel klik tombol "Tutup", dan tulis kode:
    close
  6. Dobel klik tombol "Proses", lalu tulis kode:
    canvas.MoveTo(150,50);
    canvas.LineTo(300,50);
  7. Lalu coba jalankan dengan menekan tombol "F9", dan tekan tombol "Proses".
  8. Sampai disini ada pertanyaan?
    Kalau tidak, cobalah buat seperti ini:

Hihihi..nih kunci jawabannya.
Ganti kode pada langkah ke-6 dengan kode berikut:
canvas.MoveTo(100,100);
canvas.LineTo(300,100);
canvas.LineTo(200,50);
canvas.LineTo(100,100);
Lalu, tekan F9 lagi deh.

Nah, selesai deh.
Klik tombol "Tutup" pada aplikasinya.
Kemudian simpan :)

Penulis sudahi dulu yah.
Sampai ketemu di tutorial selanjutnya.
Jangan lupa follow akun twitter penulis di @AaEzha
dan Like Facebook-nya juga yah..

0 komentar:

Post a Comment

Silahkan tinggalkan komentar sehingga saya bisa mengunjungi kembali blog/website kawan :)

Terima kasih.