Und hier noch die entsprechende VisualBasic.NET-Version
Option Explicit On
Public Class Calculator
Private Sub Button_Solve_Click(sender As Object, e As EventArgs) Handles Button_Solve.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Ungültige Werte, Dödel!", MsgBoxStyle.Information, "Such a noob!")
End 'beendet die Anwendung
End If
Try
Dim Wert1 As Double = TextBox1.Text
Dim Wert2 As Double = TextBox2.Text
Dim Ergebnis As Double
If RB_Addition.Checked = True Then
Ergebnis = Wert1 + Wert2
ElseIf RB_Subtraktion.Checked = True Then
Ergebnis = Wert1 - Wert2
ElseIf RB_Multiplikation.Checked = True Then
Ergebnis = Wert1 * Wert2
ElseIf RB_Division.Checked = True Then
Ergebnis = Wert1 / Wert2
Else
MsgBox("Wähle eine Rechenoperation", MsgBoxStyle.Information)
End If
TextBox_Ergebnis.Text = Ergebnis
Catch
MsgBox("Man kann nur mit Zahlen rechnen." & vbCrLf & "Mathematik ist nicht deine Stärke, oder?",
MsgBoxStyle.Critical, "Fehler!")
' "& vbCrLf" = Zeilenwechsel "&" = "+" bei C#, Java etc.
End Try
End Sub
End Class
Alles anzeigen
Download: [Edit: Link entfernt]
Bedenke als Programmierer: Immer an den DAU denken, der - in diesem Fall - Buchstaben eingibt!