noisiv 1
noisiv
Manwe Work 1
Manwe Work
mavzermete 1
mavzermete
darkbey42 1
darkbey42
xranzei 1
xranzei
Bvural41 1
Bvural41
PrimeAC 1
PrimeAC
Payidar2 1
Payidar2
Fethi Polat 1
Fethi Polat
Wizard' 1
Wizard'
shrpnl 1
shrpnl
Queinn 1
Queinn
Hikaye Ekle

Visual Basic'de Grafik İşlem Dersi 2

  • Konuyu başlatan Konuyu başlatan ßyMesMes
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 0
  • Görüntüleme Görüntüleme 532

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Line komutundaki parametreler bir arada kullanılabilirler.
Kullanılması :
Line (x1,y1 ),(x2,y2 ),Renk,BF

Örnekler :
line5.gif


Kod:
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 :
circle2.gif


Kod:
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 :
pset1.gif


Kod:
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:
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
 

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Geri
Üst