Mari Belajar Grafika Komputer dengan Visual Basic

Dalam Visual Basic kita dapat membuat program untuk menghasilkan tampilan grafis dalam form. Selain itu kita juga dapat menentukan koordinat dari tampilan grafis yang akan kita tampilkan.

Dalam kesempatan kali ini kita akan coba menggunakan fungsi-fungsi tersebut dalam mengolah grafika komputer dalam Visual Basic 6.

Beberapa fungsi yang akan kita gunakan adalah:

1. Line Method

2. Circle Method

3. Pset Method

4. Scale Method

Mari kita pelajari 1 persatu penggunaan fungsi tersebut.

1. Line Method

Line Method adalah metode yang digunakan untuk membuat garis horizontal, vetikal, atau diagonal.

Sintaks: ObjectName.Line(x1,y1)-(x2,y2),Color,[B][F]

Cara membuat (contoh):

Private Sub Form_Click()

Scale (0, 70)-(70, 0)

Line (10, 0)-(20, 45), vbBlue

Line (20, 0)-(30, 55), vbRed, B

Line (30, 0)-(40, 40), , BF

End Sub

2.    Circle Method

Circle Method adalah metode yang digunakan untuk menggambar lingkaran.

Sintaks:       ObjectName.Circle(x,y),Radius,Color

Cara membuat(contoh):

Private Sub Form_Click()

Circle (2000, 1000), 800

End Sub

3.    Pset Method

Pset Method digunakan untuk menggambar satu titik.

Sintaks:       ObjectName.Pset(x,y),Color

Cara membuat(contoh):

Private Sub Form_Click()

PSet (1000, 2000)

End Sub


4.    Scale Method

Scale Method digunakan untuk mendefinisikan sistem koordinat pada form berdasarkan basis ujung kiri atas

Sintaks:       ObjectName.Scale(x1,y1) – (x2,y2)

Sebagai contoh, lihat pada contoh Line Method:

Scale (0, 70)-(70, 0)

Untuk hasil yang lebih komplit, silahkan ketikkan listing berikut pada form anda:.

Program Grafika Komputer:

Private Sub Form_Click()

‘Deklarasi Garis’

Line (200, 300)-(500, 600)

Print “Garis”

‘Deklarasi Kotak Berwarna’

Line (3000, 100)-(3900, 450), vbBlue, BF

CurrentX = 3100

CurrentY = 200

Print “Kotak Berwarna”

‘Deklarasi Kotak’

Line (1000, 500)-(3000, 1500), , B

CurrentX = 1200

CurrentY = 600

Print “Kotak”

‘Deklarasi Lingkaran’

Circle (2000, 1000), 600

CurrentX = 1600

CurrentY = 800

Print “Lingkaran”

‘Deklarasi Titik’

PSet (2000, 1000)

Print “(2000,1000)”

CurrentX = 1000

CurrentY = 500

Print “(1000,500)”

CurrentX = 3000

CurrentY = 1500

Print “(3000,1500)”

End Sub

Listing diatas akan menghasilkan gambar berikut ini :

Selamat mencoba dan selamat belajar ya.

Semoga berguna.

10 thoughts on “Mari Belajar Grafika Komputer dengan Visual Basic

  1. sebelumnya mkasi,, dengan artikelnya.. tpi sudah sy coba,, pas di run ga ada mncul apa??
    mhon pnjelasannya..
    thans’

  2. makasih sob keren gw udah coba bisa kok cuma atu negh tugas gw bikin x = y = dengan hasil garis jadi harus coba2 dulu hahahha tapi thanks berat sob

  3. ada tidak bahan ajat tentang grafika komputer dengan menggunakan Vb, kalau ada dimana bisa saya dapatkan.

  4. Ping-balik: Membuat Grafik dengan Visual BASIC « Weblognya Bang Danu

  5. @kid : Untuk VB 2010 harap bersabar ya? Saya sedang susunkan materi yg mudah2an bermanfaat.🙂

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s