Hesap Makinesi Yapmak

Bu dersimizde if yapısıyla hesap makinesi yapmaya ne dersiniz?

Bu dersimizde if yapısıyla hesap makinesi yapmaya ne dersiniz?

17 tane button ve 1 tane textbox koymalısınız ve komutları düzgün yerleştirmelisiniz.


Public Class Form1

    Dim sayi1, sayi2, sonuc As Double

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub



    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        TextBox1.Text = ""

    End Sub



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

        TextBox1.Text = TextBox1.Text + "1"



    End Sub



    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox1.Text = TextBox1.Text + "2"



    End Sub



    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TextBox1.Text = TextBox1.Text + "3"



    End Sub



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

        TextBox1.Text = TextBox1.Text + "4"



    End Sub



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

        TextBox1.Text = TextBox1.Text + "5"



    End Sub



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

        TextBox1.Text = TextBox1.Text + "6"



    End Sub



    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox1.Text = TextBox1.Text + "7"



    End Sub



    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox1.Text = TextBox1.Text + "8"



    End Sub



    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox1.Text = TextBox1.Text + "9"



    End Sub



    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TextBox1.Text = TextBox1.Text + "0"



    End Sub



    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        TextBox1.Text = TextBox1.Text + "00"



    End Sub



    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        sayi1 = TextBox1.Text

        TextBox1.Text = ""

        Label1.Text = "+"





     







    End Sub



    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        sayi2 = TextBox1.Text

        If Label1.Text = "+" Then

            sonuc = sayi1 + sayi2

        ElseIf Label1.Text = "-" Then

            sonuc = sayi1 - sayi2

        ElseIf Label1.Text = "*" Then

            sonuc = sayi1 * sayi2

        ElseIf Label1.Text = "/" Then

            sonuc = sayi1 / sayi2

        End If

        TextBox1.Text = sonuc

    End Sub



    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        sayi1 = TextBox1.Text

        TextBox1.Text = ""

        Label1.Text = "-"



    End Sub



    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        sayi1 = TextBox1.Text

        TextBox1.Text = ""

        Label1.Text = "*"



    End Sub



    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        sayi1 = TextBox1.Text

        TextBox1.Text = ""

        Label1.Text = "/"



    End Sub



    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        End

    End Sub

End Class

  • Etiketler;
Yorum Yaz

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

Birinci buttona tıklandığında 1 göstersin 9 buttona tıklandığında 2 göstersin Buttonların yeri karışık önemli değil okadar 1 tane label ekliyoruz Button 15 + buttonu Button 13 - buttonu Button 14 * buttonu Button 18 / buttonu 17 button çıkıştır 16.button = dir
biraz daha geliştirip keychar la yapsaydın daha güzel olurdu benim eklediğim hesap makinesi prograına bak anlarsın ne demek istediğimi...
haklsın
Kullandıgınız Visual Basic sürümü Nedir ? Sizin Paylaştıgınız Derslerin Bir Çogunu Yapamıyorum Bendeki Visual Basic sürümü İle Acaba Kullandıgınız Visual Basic sürümünü Benle Paylaşmanız Mümkün Müdür ?
bn yaptum hesab makinesi ama hesab makinasın da "c" normalde siler bn ise sayıların hepsini degilde sayıları tek tek silmesini istiyorum ve bunun kodunu bulamadım yazdıgım program Microsoft Visual Studio 2008 yardımcı olursanız sevinirim

Yukarı Git