Dark Ranger
Erfahrenes Mitglied
Tja! Das musste selber rausfinden! Du sollst ja schließlich auch etwas lernen!
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Dim a1 As Double
Dim b1 As Double
Dim n1 As Double
Dim z1 As Double
Private Sub addition_Click()
If IsNumeric(a.Text) Then
a1 = CDbl(a.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
Exit Sub
End If
If IsNumeric(b.Text) Then
b1 = CDbl(b.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
End If
ergebnis = a1 + b1
c.Text = ergebnis
End Sub
Private Sub bruchdezimalbruch_Click()
If IsNumeric(n.Text) Then
n1 = CDbl(n.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
End If
If IsNumeric(z.Text) Then
z1 = CDbl(z.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
End If
ergebnis = z1 / n1
db.Text = ergebnis
End Sub
Private Sub division_Click(Index As Integer)
If IsNumeric(a.Text) Then
a1 = CDbl(a.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
Exit Sub
End If
If IsNumeric(b.Text) Then
b1 = CDbl(b.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
End If
ergebnis = a1 / b1
c.Text = ergebnis
End Sub
Private Sub end_Click()
Unload Me
End Sub
Private Sub multiplikation_Click(Index As Integer)
If IsNumeric(a.Text) Then
a1 = CDbl(a.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
Exit Sub
End If
If IsNumeric(b.Text) Then
b1 = CDbl(b.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
End If
ergebnis = a1 * b1
c.Text = ergebnis
End Sub
Private Sub potenz_Click()
If IsNumeric(a.Text) Then
a1 = CDbl(a.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
Exit Sub
End If
If IsNumeric(b.Text) Then
b1 = CDbl(b.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
End If
ergebnis = a1 ^ b1
c.Text = ergebnis
End Sub
Private Sub subtraktion_Click(Index As Integer)
If IsNumeric(a.Text) Then
a1 = CDbl(a.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
Exit Sub
End If
If IsNumeric(b.Text) Then
b1 = CDbl(b.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
End If
ergebnis = a1 - b1
c.Text = ergebnis
End Sub
Private Sub v1hoch2_Click()
If IsNumeric(a.Text) Then
a1 = CDbl(a.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
Exit Sub
End If
ergebnis = a1 * a1
c.Text = ergebnis
End Sub
Private Sub v2hoch2_Click()
If IsNumeric(b.Text) Then
b1 = CDbl(b.Text)
Else
MsgBox ("Es handelt sich nicht um eine Zahl oder du hast nicht alle Felder ausgefüllt!")
Exit Sub
End If
ergebnis = b1 * b1
c.Text = ergebnis
End Sub
If (b.Text = 0) Then
MsgBox ("Durch 0 kann nicht geteilt werden")
Else
ergebnis = a1 / b1
c.Text = ergebnis
End If
Tstststs, ein bischen mehr Elan wenn ich bitten darf. Erstens ist noch kein Meister vom Himmel gefallen und zweitens steht vor dem Erfolg der Schweiss des Lernenshm trotzdem bleibt noch ein fehler, nämlich wenn ich für die zweite variable nichts eingebe erscheint die text box nicht alle felder sind ausgefüllt doch das programm beendet sich wieder und zeigt typen unverträglich an.
irgendwie deprimiert mich das alles