4 İşlem Programı - Visual Basic

ads

ads

Visual Basic derslerimize bir süreliğine yoğunluktan dolayı ara vermiştik. Vb.Net derslerimize kaldığımız yerden devam ediyoruz. Bu dersimizde   yeni başlayanlar için basit bir  4 işlem yapan  program yazımını  anlatacağız. 

Toplama, çıkarma, bölme, çarpma işlemlerini işleyeceğiz.

Form'a gerekli olan araçlarımız:

* 2 tane textBox ekleyin
* 4 tane button ekleyin

Aşağıdaki resimdeki gibi tasarlayabilirsiniz.

1 - )  Toplama butonuna çift tıklayın ve aşağıdaki kodları yazın.

Dim sayi1, sayi2, sonuc As Integer
        sayi1 = TextBox1.Text
        sayi2 = TextBox2.Text
        sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)
        MsgBox(sonuc)

2 - )  Çıkarma Butonuna çift tıklayarak aşağıdaki kodları yazın.

Dim sayi1, sayi2, sonuc As Integer
        sayi1 = TextBox1.Text
        sayi2 = TextBox2.Text
        sonuc = Val(TextBox1.Text) - Val(TextBox2.Text)
        MsgBox(sonuc)

3 - ) Çarpma Butonuna  çift  tıklayın ve aşağıdaki kodu yazın.

Dim sayi1, sayi2, sonuc As Integer
        sayi1 = TextBox1.Text
        sayi2 = TextBox2.Text
        sonuc = Val(TextBox1.Text) * Val(TextBox2.Text)
        MsgBox(sonuc)

4 - ) Bölme butonuna çift tıklayın ve aşağıdaki kodu yazın.

Dim sayi1, sayi2, sonuc As Integer
        sayi1 = TextBox1.Text
        sayi2 = TextBox2.Text
        sonuc = Val(TextBox1.Text) / Val(TextBox2.Text)
        MsgBox(sonuc)

Kodların açıklaması

İnteger türünde  sayi1, sayi2 ve sonuç ile beraber  sayısal değişken tanımladık.  Sornasında sayi1 değişkenini  TextBox1'e  eşitledik.   Sayi2 değişkenini ise   aynı işlemlerle TexBox2 ile eşitliyoruz. 

Devamında sonuç değişkeninin  içine Textbox1 ile Textbox2'nin içindeki değerlerin tümünü atama işlemini gerçekleştiriyoruz. Kodlarımızın en başına  eklediğimiz  Val ifadesi eklememizin  nedeni ise, virgüllü sayı çıkmaması içindir.  Örnek:  sayı 99,99 olduğunu varsayalım, program bu değeri  ototmatikmen 100'e çevirir. 

Kodlamamızın devamında, MsgBox'ın içine  yazdığımız kelime ile işlem sonucunda bize   mesaj olarak bildirmesi içindir. 

ads