Visual Basic İle 4 İşlem

Visual Basic ile kolay toplama çıkarma çarpma ve bölme işlemlerinin yapılmasını görelim.

Bu dersi özellikle Vb.Net'e yeni başlayan arkadaşlar için hazırladım.

Bu dersimizde VB.net'te basit toplama, çıkarma, çarpma ve bölme işlemlerini öğreneceğiz.

Formumuzda 2 textbox ve 4 adet de buton olduğunu varsayarak işlemlerimizi yapıyoruz. Yani şu şekilde:



Toplama (1.Butonumuza Çift Tıklayarak İçine Yazıyoruz)


Dim sayi1, sayi2, sonuc As Integer

        sayi1 = TextBox1.Text

        sayi2 = TextBox2.Text

        sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)

        MsgBox(sonuc)




Çıkarma (2.Butonumuza Çift Tıklayarak İçine Yazıyoruz)


Dim sayi1, sayi2, sonuc As Integer

        sayi1 = TextBox1.Text

        sayi2 = TextBox2.Text

        sonuc = Val(TextBox1.Text) - Val(TextBox2.Text)

        MsgBox(sonuc)



Çarpma (3.Butonumuza Çift Tıklayarak İçine Yazıyoruz)


Dim sayi1, sayi2, sonuc As Integer

        sayi1 = TextBox1.Text

        sayi2 = TextBox2.Text

        sonuc = Val(TextBox1.Text) * Val(TextBox2.Text)

        MsgBox(sonuc)



Bölme (4.Butonumuza Çift Tıklayarak İçine Yazıyoruz)


Dim sayi1, sayi2, sonuc As Integer

        sayi1 = TextBox1.Text

        sayi2 = TextBox2.Text

        sonuc = Val(TextBox1.Text) / Val(TextBox2.Text)

        MsgBox(sonuc)




Programın tamamının kodları şu şekilde oluyor;


Public Class Form1

    Dim sayi1, sayi2, sonuc As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        sayi1 = TextBox1.Text

        sayi2 = TextBox2.Text

        sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)

        MsgBox(sonuc)

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        sayi1 = TextBox1.Text

        sayi2 = TextBox2.Text

        sonuc = Val(TextBox1.Text) - Val(TextBox2.Text)

        MsgBox(sonuc)

    End Sub



    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        sayi1 = TextBox1.Text

        sayi2 = TextBox2.Text

        sonuc = Val(TextBox1.Text) * Val(TextBox2.Text)

        MsgBox(sonuc)

    End Sub



    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        sayi1 = TextBox1.Text

        sayi2 = TextBox2.Text

        sonuc = Val(TextBox1.Text) / Val(TextBox2.Text)

        MsgBox(sonuc)

    End Sub

End Class



AÇIKLAMA

sayi1, sayi2 ve sonuc olmak üzere integer türünde, yani sayısal değişken tanımlıyoruz. Daha sonra sayi1 değişkenini Textbox1.Text yani TextBox1'in İçindeki değere eşitliyoruz.

sayi2 değişkenini de aynı şekide TextBox2'ye eşitliyoruz.

Daha sonra sonuc değişkenimizin içine Textbox1 ile Textbox2'nin içindeki değerlerin toplamını atıyoruz. Başlarına Val ifadesini koymamızın sebebi ise, virgüllü sayı çıkmasın diyedir. Yani sayı 9,9 olursa, program onu direk olarak 10'a yuvarlar. Eğer 9,3'se mesela, program onu 9'a yuvarlar. Val ifadesini koymasanız da olur.

Daha sonra ise MsgBox'ın içine sonuc yazarak sonucu bize mesaj kutusu olarak göstermesini sağlıyoruz. Diğer işlemler için de değişen birşey yok, sadece işareti değiştiriyorsunuz.

ANLAMADIÐINIZ YER VARSA SORABİLİRSİNİZ.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Güzel paylaşım olmuş başlayanlar için fakat sanırım çıkarma işlemi böyle olacak.Çünkü aksi takdirde negatif çıktığını hatırlıyorum. Dim sayi1, sayi2, sonuc As Integer sayi1 = TextBox1.Text sayi2 = TextBox2.Text sonuc = Val(TextBox2.Text) - Val(TextBox1.Text) MsgBox(sonuc)
Arkadaşım örneğin 100 den 50'yi çıkar 50 olur Textbox1'in olduğu yere 100 değeri atanır. Textbox2'nin olduğu yerede 50 atanır senin yaptığın şekide tam tersi olur ve asıl o zaman negatif çıkar benim yaptığımda bir hata olduğunu düşünmüyorum eğer varsa açıklamasıyla birlikte yazsan daha iyi olabilirdi.
Her şey için teşekkürler.Yalnız sonuçta gelen ekranın title ayarını nasıl değiştirebilecez.Her ne kadar konudan ayrı olsa bile yeni bir vb yenisi olarak sorma ihtiyacı duydum.
bu sitedeki herkes benden daha iyi biliyor bilgisayar dali adi altindaki isleri.. :D her neyse benim sorunum su burada okuduklarimi yapabiliyorum ama tek sorun su !!!! acil bir sorun atiyorum ben bu hesap makinesini yaptim bunu kaydetmek isitoyorum ornegin kaydet masaustu kaydettigim yerde tikladigim anda acilacak kullancam upload edip paylasacam bu skeilde nasil olacak?
Sayın xthejoke ve BeginnerProof:) adlı üyeler sorduğunuz soruların bu dersle bir alakası yok bu sebebten aynı soruları foruma konu açıp sorarsanız hem cevaplarınızı bulabilirsiniz hemde başka arkadaşlarada yardımınız dokunmuş olur. Lütfen bu dersin altına sadece bu dersle ilgili anlamadığınız soruları sorarsanız sevinirim Ramazan ÖZDEMİR

Yukarı Git