Visual Basic Dersleri - 4
1 sayfadaki 1 sayfası
Visual Basic Dersleri - 4
VİSUAL BASİC 6’DA MATEMATİKSEL İŞLEMLER
Profesyonel programcılık aslında iyi bir matematik ve algoritma bilgisini gerektiren bir iştir ama en azından standart işlemleri bilmemiz gerekir.
Toplama : +
Vb’de iki sayı aşağıdaki gibi toplanır.
Dim Sayı1 As Integer
Dim Sayı2 As Integer
Dim Toplam As Integer
Toplam = Sayı1 + Sayı2
Gördüğünüz gibi önce değişkenleri tanımladık ve sonra sayı1 ve sayı2 aslı değişkenleri toplatıp Toplam değişkenine atadık.Bu örneği daha anlamlı bir hale getirelim.
Basit Hesap Makinesi:
Önce formu ağaşıdaki gibi hazırlayın.3 Adet Lable,3 Adet TextBox ve 4 adet CommandButton bize gereken malzemeler.
Şimdi Properties panelinden nesnelerin özelliklerini resimde gördügünüz gibi isimlerini verip konumlandırın
Label nesnelerinin önce Caption özelliklerini sırasıyla şekildeki gibi Sayı1, Sayı2 ve Toplam olarak değiştirin Autosize özelliğini True yapın.TextBox nesnelerininde Height: 300 ve Width : 1500 olarak ayarladıktan sonra. sırasıyla seçerek Text özelliklerini silin.Nesnelerin Name özelliklerini değiştirmeyin!
Şimdi Project penceresinden ViewCode butonunu kullanarak kod penceresini açın.General kısmındayız.Değişkenleri şu şekilde tanımlayın.
Dim S1 As Integer
Dim S2 As Integer
Dim Toplam As Integer
Daha sonra General yazan kısımdan Command1’i Seçin ve şunları yazın.
Sayı1 = Text1.Text
Sayı2 = Text2.Text
Toplam = Sayı1 + Sayı2
Text3.Text = Toplam
Command2’yi seçin ve şunalrı yazın
Sayı1 = Text1.Text
Sayı2 = Text2.Text
Toplam = Sayı1 - Sayı2
Text3.Text = Toplam
Comman3’ü seçin ve şunları yazın
Sayı1 = Text1.Text
Sayı2 = Text2.Text
Toplam = Sayı1 * Sayı2
Text3.Text = Toplam
Comman4’ü seçin ve şunları yazın
Sayı1 = Text1.Text
Sayı2 = Text2.Text
Toplam = Sayı1 / Sayı2
Text3.Text = Toplam
Kodları incelediğinizde sadece matematiksel işleçlerin değişmiş olduğunu görürsünüz.Şimdi programı çalıştırın sayı1 ve sayı2 yi girip bir işlem butonuna basın.Gördüğünüz gibi VB2de matematiksel işleçleri kullanmak zor değil.
GEOMETRİK HESAPLAMALAR VE İLERİ DÜZEY İŞLEMLER
Abs(x) x’in mtlak değerini verir.
Atn(x) x’in radyan cinsinden arktanjantını verir
Cos(x) x açısının kosinüsünü verir.Açı radyan cinsinden olmalıdır.
Exp(x) x kuvvete yükseltilen y sabitini verir.
Rnd(x) 0 ile 1 arasında rasgele bir sayı verir.
Sgn(x) x 0 dan küçükse -1, 0 ve 0 dan büyükse +1 değerini verir.
Sin(x) x açısının sinüsünü verir.X açısı radyan cinsinden olmalıdır.
Aqr(x) x’in karekökünü verir.
Str(x) Bir sayısal değeri dizilime(yazı gibi) çevirir.
Val(x) Bir dizilimi sayısal değere çevirir.
Tan(x) x açısının tanjantını verir.x açısı radyan cinsinden olmalıdır.
X^y : X in y kadar üssünü alır.
xy : x’i tamsayı olarak y’ye böler
x Mod y : Kalanlı bölme için kullanılır.
Yazdığınız formüllerin önce hesaplanması için işlemleri parantez içine alın.
örnek:
Toplam = (x*16) / (y+ ^ 4
Profesyonel programcılık aslında iyi bir matematik ve algoritma bilgisini gerektiren bir iştir ama en azından standart işlemleri bilmemiz gerekir.
Toplama : +
Vb’de iki sayı aşağıdaki gibi toplanır.
Dim Sayı1 As Integer
Dim Sayı2 As Integer
Dim Toplam As Integer
Toplam = Sayı1 + Sayı2
Gördüğünüz gibi önce değişkenleri tanımladık ve sonra sayı1 ve sayı2 aslı değişkenleri toplatıp Toplam değişkenine atadık.Bu örneği daha anlamlı bir hale getirelim.
Basit Hesap Makinesi:
Önce formu ağaşıdaki gibi hazırlayın.3 Adet Lable,3 Adet TextBox ve 4 adet CommandButton bize gereken malzemeler.
Şimdi Properties panelinden nesnelerin özelliklerini resimde gördügünüz gibi isimlerini verip konumlandırın
Label nesnelerinin önce Caption özelliklerini sırasıyla şekildeki gibi Sayı1, Sayı2 ve Toplam olarak değiştirin Autosize özelliğini True yapın.TextBox nesnelerininde Height: 300 ve Width : 1500 olarak ayarladıktan sonra. sırasıyla seçerek Text özelliklerini silin.Nesnelerin Name özelliklerini değiştirmeyin!
Şimdi Project penceresinden ViewCode butonunu kullanarak kod penceresini açın.General kısmındayız.Değişkenleri şu şekilde tanımlayın.
Dim S1 As Integer
Dim S2 As Integer
Dim Toplam As Integer
Daha sonra General yazan kısımdan Command1’i Seçin ve şunları yazın.
Sayı1 = Text1.Text
Sayı2 = Text2.Text
Toplam = Sayı1 + Sayı2
Text3.Text = Toplam
Command2’yi seçin ve şunalrı yazın
Sayı1 = Text1.Text
Sayı2 = Text2.Text
Toplam = Sayı1 - Sayı2
Text3.Text = Toplam
Comman3’ü seçin ve şunları yazın
Sayı1 = Text1.Text
Sayı2 = Text2.Text
Toplam = Sayı1 * Sayı2
Text3.Text = Toplam
Comman4’ü seçin ve şunları yazın
Sayı1 = Text1.Text
Sayı2 = Text2.Text
Toplam = Sayı1 / Sayı2
Text3.Text = Toplam
Kodları incelediğinizde sadece matematiksel işleçlerin değişmiş olduğunu görürsünüz.Şimdi programı çalıştırın sayı1 ve sayı2 yi girip bir işlem butonuna basın.Gördüğünüz gibi VB2de matematiksel işleçleri kullanmak zor değil.
GEOMETRİK HESAPLAMALAR VE İLERİ DÜZEY İŞLEMLER
Abs(x) x’in mtlak değerini verir.
Atn(x) x’in radyan cinsinden arktanjantını verir
Cos(x) x açısının kosinüsünü verir.Açı radyan cinsinden olmalıdır.
Exp(x) x kuvvete yükseltilen y sabitini verir.
Rnd(x) 0 ile 1 arasında rasgele bir sayı verir.
Sgn(x) x 0 dan küçükse -1, 0 ve 0 dan büyükse +1 değerini verir.
Sin(x) x açısının sinüsünü verir.X açısı radyan cinsinden olmalıdır.
Aqr(x) x’in karekökünü verir.
Str(x) Bir sayısal değeri dizilime(yazı gibi) çevirir.
Val(x) Bir dizilimi sayısal değere çevirir.
Tan(x) x açısının tanjantını verir.x açısı radyan cinsinden olmalıdır.
X^y : X in y kadar üssünü alır.
xy : x’i tamsayı olarak y’ye böler
x Mod y : Kalanlı bölme için kullanılır.
Yazdığınız formüllerin önce hesaplanması için işlemleri parantez içine alın.
örnek:
Toplam = (x*16) / (y+ ^ 4
eeisahin- admin
- Mesaj Sayısı : 409
Teknolojiyle aran nasıl : geçinip gidiyoruzz
Kayıt tarihi : 03/03/07
Similar topics
» Visual Basic Dersleri - 5
» Visual Basic Dersleri - 6
» Visual Basic Dersleri - 1
» Visual Basic Dersleri - 2
» Visual Basic Dersleri - 3
» Visual Basic Dersleri - 6
» Visual Basic Dersleri - 1
» Visual Basic Dersleri - 2
» Visual Basic Dersleri - 3
1 sayfadaki 1 sayfası
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz