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

Comments

comments