|
Line (Çizgi ) : Verilen koordinatlar arasına çizgi çizmek için kullanılır.
Kullanılması :
Line (x1,y1 ),(x2,y2 )
Örnekler :
Kod Alanı: |
Private Sub Command1_Click( )
x1=5
y1=100
x2=500
y2=900
Line (x1,y1 )-(x2,y2 )
End Sub |
|
Line Parametreleri:
Renk : Çizimi renklendirmek için kullanılır.
Kullanılması :
Line (x1,y1 ),(x2,y2 ),Renk
Renk kısmında Rgb(r,g,b ) komutu kullanılmıştır. Daha ileride anlatılacaktır. Şu anlık
r = Kırmızı oranı (0-255 )
g = Yeşil oranı (0-255 )
b = Mavi oranı (0-255 )
Örnekler :
Kod Alanı: |
Private Sub Command1_Click( )
x1=5
y1=100
x2=500
y2=900
Line (x1,y1 )-(x2,y2 ),rgb(200,50,50 )
End Sub |
|
B : Kare çizmek için kullanılır
Kullanılması :
Line (x1,y1 ),(x2,y2 ),,B
Örnekler :
Kod Alanı: |
Private Sub Command1_Click( )
x1=5
y1=100
x2=500
y2=900
Line (x1,y1 )-(x2,y2 ),,B
End Sub |
|
BF : İçi dolu kare çizmek için kullanılır
Kullanılması :
Line (x1,y1 ),(x2,y2 ),,BF
Örnekler :
Kod Alanı: |
Private Sub Command1_Click( )
x1=5
y1=100
x2=500
y2=900
Line (x1,y1 )-(x2,y2 ),,BF
End Sub |
|
|
Line komutundaki parametreler bir arada kullanılabilirler.
Kullanılması :
Line (x1,y1 ),(x2,y2 ),Renk,BF
Örnekler :
Kod Alanı: |
Private Sub Command1_Click( )
x1=5
y1=100
x2=500
y2=900
Line (x1,y1 )-(x2,y2 ),rgb(20,20,255 ),BF
End Sub |
|
Circle (Daire ) : Verilen koordinatları merkez kabul sayarak verilen yarıçapta bir daire çizilmesini sağlar. Bu dairenin rengini belirleme parametresi mevcuttur.
Kullanılması :
Circle (x1,y1 ),r,Renk
Örnekler :
Kod Alanı: |
Private Sub Command1_Click( )
X1 = 250
Y1 = 200
r = 180
Circle (X1, Y1 ), r, RGB(250, 20, 20 )
End Sub |
|
Pset (Nokta Koymak ) : Verilen koordinata nokta konulmasını sağlar.
Kullanılması :
Pset (x1,y1 ),Renk
Örnekler :
Kod Alanı: |
Private Sub Command1_Click( )
X1 = 250
Y1 = 200
Pset (X1,Y1 ),rgb(255,0,0 )
End Sub |
|
Point (Renk Okuma ) : Verilen koordinatlarındaki rengin okunmasını sağlar.
Kullanılması :
Renk=Point (x1,y1 )
Örnekler :
Kod Alanı: |
Private Sub Command1_Click( )
X1 = 5
Y1 = 100
X2 = 500
Y2 = 900
Line (X1, Y1 )-(X2, Y2 ), , BF
Renk = Point(50, 50 )
MsgBox Renk
End Sub |
|
|
|
|
|
|
|
|
|
|
|
|
|