Kolay Bir Hesap Makinesi Yapmak

Bu dersimizde textbox1 ve textbox2'ye girilen sayıların toplamını combobox1'deki işlem seçildiğinde sonucu listbox'a yazdırmayı öğrenelim.

Bu dersimizde textbox1 ve textbox2'ye girilen sayıların toplamını combobox1'deki işlem seçildiğinde sonucu listbox'a yazdırmayı öğrenelim.


Public Class Form1

    Dim listsayac As Long



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

        listsayac = listsayac + 1



        If ComboBox1.Text = "Çarpma İşlemi" Then

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

            ListBox1.Items.Add(listsayac & ".sonuç" & " " & "=" & ListBox1.Text)

            TextBox1.Text = ""

            TextBox2.Text = ""

            ListBox1.Text = ""

            ComboBox1.Text = ">>Seçenekler<<"

        End If



        If ComboBox1.Text = "Toplama İşlemi" Then

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

            ListBox1.Items.Add(listsayac & ".sonuç" & " " & "=" & ListBox1.Text)

            TextBox1.Text = ""

            TextBox2.Text = ""

            ListBox1.Text = ""

            ComboBox1.Text = ">>Seçenekler<<"

        End If

        If ComboBox1.Text = "Bölme İşlemi" Then

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

            ListBox1.Items.Add(listsayac & ".sonuç" & " " & "=" & ListBox1.Text)

            TextBox1.Text = ""

            TextBox2.Text = ""

            ListBox1.Text = ""

            ComboBox1.Text = ">>Seçenekler<<"

        End If

        If ComboBox1.Text = "Çıkarma İşlemi" Then

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

            ListBox1.Items.Add(listsayac & ".sonuç" & " " & "=" & ListBox1.Text)

            TextBox1.Text = ""

            TextBox2.Text = ""

            ListBox1.Text = ""

            ComboBox1.Text = ">>Seçenekler<<"

        End If

        If ComboBox1.Text = "% 20 sini Alma" Then

            ListBox1.Text = (Val(TextBox1.Text) + Val(TextBox2.Text)) * 0.8

            ListBox1.Items.Add(listsayac & ".sonuç" & " " & "=" & ListBox1.Text)

            TextBox1.Text = ""

            TextBox2.Text = ""

            ListBox1.Text = ""

            ComboBox1.Text = ">>Seçenekler<<"

        End If

    End Sub



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

        MsgBox("Teşekkürler", MsgBoxStyle.Information, "Bildiri")

        MsgBox("Bir Osman Sınav Klasiğidir!")

        End

    End Sub



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

        ListBox1.Items.Clear()



    End Sub



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

        ListBox1.Items.Remove(ListBox1.SelectedItem)

    End Sub



End Class

  • Etiketler;
Yusuf Göksu Coşkun
Lefke Avrupa Üniversitesi - Bilgisayar Mühendisliği
Yorum Yaz

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

Yukarı Git