Membuat Lingkaran Dengan Visual Basic 6

http://www.youtube.com/watch?v=yQHPU8mZeHk
Lingkaran dalam Visual Basic dapat dibuat dengan menggunakan perintah:
Circle(x,y), Radius, Warna
Contoh 1:
[sourcecode]
Private Sub Form_Paint()
Circle (1500, 1500), 1000, vbRed
End Sub
[/sourcecode]
circle 1
akan menghasilkan sebuah lingkaran dengan warna merah.
contoh 2:
[sourcecode]
Private Sub Form_Paint()
Const PI = 3.141592
FillStyle = vbFSSolid
FillColor = vbBlue
Circle (ScaleWidth / 2 + 200, ScaleHeight / 2 – 200), 1500, vbBlack, -(PI * 2), -(PI / 2)
FillColor = vbCyan
Circle (ScaleWidth / 2, ScaleHeight / 2), 1500, vbBlack, -(PI / 2), -(PI * 2)
End Sub
[/sourcecode]
akan menghasilkan gambar seperti dibawah ini.
circle 2
Demikian semoga bermanfaat.
— Rohmadi —
Sumber: Buku Panduan Bahasa Pemrograman Windows dan Internet Microsoft Visual Basic 6.0
karya Mico Pardosi

You may also like...

1 Response

Leave a Reply

Your email address will not be published. Required fields are marked *