KiP Taschenrechner (verbessert ^^)

BF-IR
Verfügbare Informationen zu "KiP Taschenrechner (verbessert ^^)"

  • Qualität des Beitrags: 0 Sterne
  • Beteiligte Poster: moddok
  • Forum: BF-IR
  • Forenbeschreibung: build your Future
  • aus dem Unterforum: Gelöste Aufgaben
  • Antworten: 1
  • Forum gestartet am: Donnerstag 28.09.2006
  • Sprache: deutsch
  • Link zum Originaltopic: KiP Taschenrechner (verbessert ^^)
  • Letzte Antwort: vor 17 Jahren, 6 Monaten, 18 Tagen, 4 Stunden, 58 Minuten
  • Alle Beiträge und Antworten zu "KiP Taschenrechner (verbessert ^^)"

    Re: KiP Taschenrechner (verbessert ^^)

    moddok - 06.10.2006, 09:12

    KiP Taschenrechner (verbessert ^^)
    viel spaß

    allerdings fehtl noch das kram mit dem leerzeichen...


    wer sich das teil nimmt, postet bitte ein kleines danke :)

    mfg

    Code:
    Option Explicit
    Dim zahl1 As Double, zahl2 As Double, ergebnis As Double

    Private Sub cmd_division_Click()
    'Eingabe
    zahl1 = txt_zahl1
    zahl2 = txt_zahl2
    'Verarbeitung
    lbl_zeichen = "/"
    'wenn zahl2 = 0 dann
    If zahl2 = 0 Then
        txt_ergebnis = "Geht nicht!"
    Else
        ergebnis = zahl1 / zahl2
        txt_ergebnis = ergebnis
    'Ausgabe
    txt_ergebnis = ergebnis
    lbl_hallo = "Hier ist das Ergebnis"
    End If
    End Sub


    Private Sub cmd_ende_Click()
    End
    End Sub

    Private Sub cmd_löschen_Click()
    txt_zahl1 = "0"
    txt_zahl2 = "0"
    txt_ergebnis = ""
    lbl_zeichen = ""
    lbl_hallo = "Bitte die unvorstellbaren Zahlen eintragen"
    End Sub

    Private Sub cmd_multiplikation_Click()
    'Eingabe
    zahl1 = txt_zahl1
    zahl2 = txt_zahl2
    'Verarbeitung
    lbl_zeichen = "*"
    ergebnis = zahl1 * zahl2
    'Ausgabe
    txt_ergebnis = ergebnis
    lbl_hallo = "Hier ist das Ergebnis"
    End Sub

    Private Sub cmd_rechnen_Click()
    'Eingabe
    zahl1 = txt_zahl1
    zahl2 = txt_zahl2
    'Verarbeitung
    lbl_zeichen = "+"
    ergebnis = zahl1 + zahl2
    'Ausgabe
    txt_ergebnis = ergebnis
    lbl_hallo = "Hier ist das Ergebnis"
    End Sub

    Private Sub cmd_subtraktion_Click()
    'Eingabe
    zahl1 = txt_zahl1
    zahl2 = txt_zahl2
    'Verarbeitung
    lbl_zeichen = "-"
    ergebnis = zahl1 - zahl2
    'Ausgabe
    txt_ergebnis = ergebnis
    lbl_hallo = "Hier ist das Ergebnis"
    End Sub



    Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken



    Weitere Beiträge aus dem Forum BF-IR



    Ähnliche Beiträge wie "KiP Taschenrechner (verbessert ^^)"

    Soli Party 2 - Dominick Horstmann (Mittwoch 14.05.2008)
    Wie man die Gilde verbessert. - Jean-Clochard Lebensquell (Donnerstag 15.02.2007)
    Forum verbessert :D - -Rox- (Samstag 12.05.2007)
    Taschenrechner - PeterKallus (Mittwoch 06.09.2006)
    Taschenrechner - W33DH34D (Freitag 23.09.2005)
    KIP - Kiste (Freitag 06.10.2006)
    Was soll verändert werden was soll verbessert werden? - mordok (Freitag 13.04.2007)
    Taschenrechner - birthday pony (Dienstag 20.12.2005)
    Taschenrechner - weichwurst (Montag 16.01.2006)
    Was kann verbessert werden?? - evans13 (Montag 25.04.2005)