VisualBasic_grafik_islemle.htm
 
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


 

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol