Hesap Makinesi Yapmak

[alimania]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

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