Thema Datum  Von Nutzer Rating
Antwort
10.01.2013 14:38:44 Louisa M.
**
Solved
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
Rot Taschenrechner programmieren
12.01.2013 16:14:28 Gast80163
NotSolved

Ansicht des Beitrags:
Von:
Gast80163		 Datum:
12.01.2013 16:14:28		 Views:
1134		 Rating:
     
Antwort:
  Ja
Thema:
Taschenrechner programmieren 
Option Explicit

Private Sub CB_Berechnen_Click()
  
  Dim Zahl1#, Zahl2#, Ergebnis#
  
  If IsNumeric(Trim(TB_Zahl1.Text)) = False _
  Or IsNumeric(Trim(TB_Zahl2.Text)) = False _
  Then
      MsgBox "Bitte numerische Werte eingeben!", vbExclamation, "Achtung!"
      Exit Sub
  End If
  
  Zahl1 = CDbl(Trim(TB_Zahl1.Text))
  Zahl2 = CDbl(Trim(TB_Zahl2.Text))
  
  If Zahl2 = 0# And OB_Division.Value = True Then
      MsgBox "Division durch Null!", vbCritical, "Achtung!"
      Exit Sub
  End If
  
  If OB_Addition.Value = True Then
      Ergebnis = Zahl1 + Zahl2
      TB_Rechenart.Text = "ADDITION"
  ElseIf OB_Subtraktion.Value = True Then
      Ergebnis = Zahl1 - Zahl2
      TB_Rechenart.Text = "SUBTRAKTION"
  ElseIf OB_Multiplikation.Value = True Then
      Ergebnis = Zahl1 * Zahl2
      TB_Rechenart.Text = "MULTIPLIKATION"
  ElseIf OB_Division.Value = True Then
      Ergebnis = Zahl1 / Zahl2
      TB_Rechenart.Text = "DIVISION"
  Else
      MsgBox ("Rechenart auswählen!"), vbExclamation, "Achtung!"
      Exit Sub
  End If
  
  TB_Ergebnis.Text = Format(Ergebnis, "standard")
  
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
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
Rot Taschenrechner programmieren
12.01.2013 16:14:28 Gast80163
NotSolved