Visual Basic İle 4 İşlem - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

KarakıZ · 11 Ocak 2012, 19:33

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:

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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)

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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)

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

Kaynak; sanalkurs.net

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Visual Basic	PySSyCaT	Bilgisayar Sözlüğü	0	24 Ocak 2016 21:52
Visual Basic	Cry	Bilgisayar Donanımı	0	19 Eylül 2011 17:48
Visual basic 6.0 Full	Satuk	Visual Basic	0	15 Nisan 2010 02:36

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.