Visual Basic Öğreniyorum...(Anlatımlı)

fiberoptik

18.05.2008 22:10:41

Notice: Undefined index: no_view_links in /home/mjturkiy/public_html/forum/Sources/Subs.php on line 1372

Notice: Undefined index: no_view_links in /home/mjturkiy/public_html/forum/Sources/Subs.php on line 1378

Notice: Undefined index: no_view_links in /home/mjturkiy/public_html/forum/Sources/Subs.php on line 1634

Notice: Undefined index: no_view_links in /home/mjturkiy/public_html/forum/Sources/Subs.php on line 1640
Visual Basic de Matematik İşlemleri
Sgn (İşaret Fonksiyonu) : Bir değerin pozitif, negatif veya 0 olduğunu
tespit etmek için kullanılır.
Kullanılması :
Sgn(Signumu alınacak değer)
Örnekler :

Private Sub Command1_Click()
a = -5
b = Log(a)
MsgBox b
End Sub

Hex (Hexadecimal) : Bir değerin Hexadecimal yani 16 lık sistemde
karşılığını verir.
Kullanılması :
Hex(16 lık sistemde karşılığı alınacak değer)
Örnekler :
Private Sub Command1_Click()
a = 90
b = hex(a)
MsgBox b
End Sub

Oct (Octal) : Bir değerin Octal yani 8 lık sistemde karşılığını verir.
Kullanılması :
Oct(8 lık sistemde karşılığı alınacak değer)
Örnekler :
Private Sub Command1_Click()
a = 75
b = Oct(a)
MsgBox b
End Sub

Round (Yuvarlama) : Bir değeri belirlenen hanede yuvarlatmaya yarar.
Kullanılması :
Round(Yuvarlanacak sayı, Yuvarlanacak basamak)
Örnekler :
Private Sub Command1_Click()
a = 86,254
b = Round(a,2)
MsgBox b
End Sub

Visual Basic de Grafik İşlemleri

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

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 saserin gelserin gelserin gelserin gelserin gel verilen
yarıçapta bir daire çizilmesini sağlar. Bu dairenin rengini belirleme
parametresi mevcuttur.
Kullanılması :
Circle (x1,y1),r,Renk
Örnekler :

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 :

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 :

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

Visual Basic de Dosya Dizin İşlemleri

ChDrive (Sürücü Seç) : Programın çalıştığı ve işlem yaptığı aktif
sürücüyü değiştirir. Bu kısımda aktif sürücü etkin değilse (örneğin
diskete geçiliyor ve disket sürücüsünde disket yoksa) hata oluşabilir.
Kullanılması :
Chdir "sürücü"
Örnekler :
Private Sub Command1_Click()
ChDrive "a:"
End Sub

ChDrive (Dizin Seç) : Programın çalıştığı ve işlem yaptığı aktif
dizini değiştirir. Bu kısımda aktif sürücü etkin değilse (örneğin
diskete geçiliyor ve disket sürücüsünde disket yoksa) hata oluşabilir.
Kullanılması :
Chdir "konum"
Örnekler :
Private Sub Command1_Click()
ChDir "c:\window\"
End Sub

MkDir (Dizin Oluşturma) : Verilen konumda dizin oluşturulmasını sağlar.
Kullanılması :
MkDir "dizin adı"
Örnekler :
Private Sub Command1_Click()
MkDir "c:\yedekler\"
End Sub

RmDir (Dizin Adı Değiştirme) : Verilen konumda ki dizinin silinmesini
sağlar.
Kullanılması :
RmDir "dizin adı"
Örnekler :
Private Sub Command1_Click()
RmDir "c:\yedekler\"
End Sub