Pages

Grafika Komputer dengan Visual Basic 6

Jumat, 04 Februari 2011



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 

0 komentar:

Poskan Komentar

Ayo gan Komentarnya jangan lupa,,,biar tambah semangat yang upload Film dan Game dan berita juga update artikelnya, kalau ada link yang mati laporkan juga disini ya...

 
gamers holic dan security web dan aneka ragam © 2011 | Designed by Bingo Cash, in collaboration with Modern Warfare 3, VPS Hosting and Compare Web Hosting
Related Posts Plugin for WordPress, Blogger...