Thema Datum  Von Nutzer Rating
Antwort
10.01.2013 14:38:44 Louisa M.
**
Solved
Blau Taschenrechner programmieren
10.01.2013 14:41:54 Gast89815
NotSolved
10.01.2013 17:48:35 Gast70309
Solved
10.01.2013 19:03:27 Gast47415
NotSolved
10.01.2013 22:08:20 Gast25127
NotSolved
10.01.2013 22:31:46 Gast95635
NotSolved
12.01.2013 16:14:28 Gast80163
NotSolved

Ansicht des Beitrags:
Von:
Gast89815		 Datum:
10.01.2013 14:41:54		 Views:
1129		 Rating:
     
Antwort:
  Ja
Thema:
Taschenrechner programmieren

Hier ist das Programm mit "if then else"

Option Explicit
Dim Zahl1 As Double
Dim Zahl2 As Double
Dim Ergebnis As Double


Private Sub CB_Berechnen_Click()

On Error GoTo Fehler

Zahl1 = CDbl(TB_Zahl1.Text)
Zahl2 = CDbl(TB_Zahl2.Text)

If IsNumeric(TB_Zahl1.Text) And IsNumeric(TB_Zahl2.Text) Then
TB_Ergebnis = (TB_Zahl1.Text) + (TB_Zahl2.Text)


If OB_Addition.Value = True Then
    Ergebnis = Zahl1 + Zahl2
    TB_Rechenart.Text = "ADDITION"
    TB_Ergebnis.Text = Format(Ergebnis, "standard")
ElseIf OB_Subtraktion.Value = True Then
    Ergebnis = Zahl1 - Zahl2
    TB_Rechenart.Text = "SUBTRAKTION"
    TB_Ergebnis.Text = Format(Ergebnis, "standard")
ElseIf OB_Multiplikation.Value = True Then
    Ergebnis = Zahl1 * Zahl2
    TB_Rechenart.Text = "MULTIPLIKATION"
    TB_Ergebnis.Text = Format(Ergebnis, "standard")
ElseIf OB_Division.Value = True Then
    Ergebnis = Zahl1 / Zahl2
    TB_Rechenart.Text = "DIVISION"
    TB_Ergebnis.Text = Format(Ergebnis, "standard")
Else

    If Zahl2 = 0 Then
        MsgBox ("Bitte eine Zahl größer 0 eingeben!!")
        CB_Neu_Click
    
    Else
        MsgBox ("Rechenart auswählen!!")
        CB_Neu_Click
    End If
End If

Exit Sub
Fehler:
MsgBox " Bitte Werte eingeben!", vbCritical, "Fehler 1"


End Sub

Private Sub CB_Ende_Click()

    End
    
End Sub

Private Sub CB_Neu_Click()

TB_Zahl1.Text = ""
TB_Zahl2.Text = ""
TB_Ergebnis.Text = ""
TB_Zahl1.SetFocus
TB_Rechenart.Text = ""



End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.01.2013 14:38:44 Louisa M.
**
Solved
Blau Taschenrechner programmieren
10.01.2013 14:41:54 Gast89815
NotSolved
10.01.2013 17:48:35 Gast70309
Solved
10.01.2013 19:03:27 Gast47415
NotSolved
10.01.2013 22:08:20 Gast25127
NotSolved
10.01.2013 22:31:46 Gast95635
NotSolved
12.01.2013 16:14:28 Gast80163
NotSolved