İstenilen koordinatlar arasında daire çizmek için kullanılır.
Circle(Xbaslangıç,Ybaslangıç),Yarı çap, çizgi rengi
Örnek 1
Private Sub Command1_Click()
DrawWidth = 3
Circle (1000, 1000), 1000
End Sub
Örnek 2
Private Sub Command1_Click()
DrawWidth = 3
Circle (1000, 1000), 1000, RGB(125,32,14)
End Sub
Örnek 3
Private Sub Command1_Click()
DrawWidth = 3
Circle (1000, 1000), 1000, QBColor(2)
End Sub
Örnek 4
Private Sub Command2_Click()
Cls
Dim i, j
For j = 1 To 15
For i = 750 To 3550 Step 200
Circle (i + 2000, 2500), Qbcolor(j)
Next
Next
End Sub
Örnek 5
Private Sub Command15_Click()
Dim a, b, xort, yort
DrawWidth = 3
xort=scalewidth/2
yort=scaleheight/2
b = 500
For a = 0 To 15
Circle (xort,yort), b, QBColor(a) '16 ana renk için
b = b + 1000
Next
End Sub
Örnek 6
Private Sub Form_Load()
Show
Cls
Dim x, y
DrawWidth = 2
x = ScaleWidth / 2
y = ScaleHeight / 2
Circle (x, y), x / 2
End Sub
‘Bu örneği Form_Resize yordamına yazarsak formun boyutu değiştiği anda oda değişir.
Örnek 7
Aslında Circle deyiminin alacağı iki üç parametre daha vardır. 4. parametredeki rakam 0 olursa tam çember 6 olursa da çemberin bir kısmı çizilir. 4. parametre 0-6 arasında değer alabilir.
Private Sub Command1_Click()
DrawWidth = 4
Circle (2500, 2500), 1000, RGB(255, 0, 0), 1 ‘NOT=rakam değiştirilerek denemeler yapılır.
End Sub
Örnek 8
5. parametredeki rakam 6.27 olursa tam çember 0-6.27 arasında rakam alırsa 5.parametrenin tersi işlem yapar.
Private Sub Command1_Click()
DrawWidth = 4
Circle (2500, 2500), 1000, RGB(255, 0, 0), 0, 6.27
End Sub
Örnek 9
7.parametredeki rakam 0-1 arasında olursa çember enine basıklaşır. 1 den büyük rakam verirsek bu sefer dikine basıklaşır.
Private Sub Command1_Click()
DrawWidth = 4
Circle (2500, 2500), 1000, RGB(255, 0, 0), 0, , 0.4 ‘NOT = denemeler yap
End Sub
Örnek 10
Private Sub Form_Resize()
Cls
Dim x As Integer
Dim y As Integer
DrawWidth = 3
x = ScaleWidth / 2
y = ScaleHeight / 2
Circle (x, y), x / 2, RGB(0, 0, 255)
Line (x - x / 2,y)-(x + x / 2,y)
Line (x, y+ x / 2)-(x, y- x / 2)
End Sub |
