Arkadaşlar merhaba , dün VB derslerinden ilk adım olan hesapmakinesi yapmaya başladım, ancak sadece bölme işlemini doğru yapıyor diğer işlemlerin sonucu sürekli 0 işin içinden çıkamadım bi yardım ederseniz.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c As Double
Dim d As String
a = TextBox1.Text
b = TextBox2.Text
d = ComboBox1.Text
Select Case d
Case "topla"
c = a + b
Case "çıkar"
c = a - b
Case "çarp"
c = a * b
Case "Böl"
c = a / b
End Select
TextBox3.Text = c
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c As Double
Dim d As String
a = TextBox1.Text
b = TextBox2.Text
d = ComboBox1.Text
Select Case d
Case "topla"
c = a + b
Case "çıkar"
c = a - b
Case "çarp"
c = a * b
Case "Böl"
c = a / b
End Select
TextBox3.Text = c
End Sub
End Class
