Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

taschenrechner
Autor: Arrowhead
Datum: 16.04.05 15:00
ich will nun die zahl 1 mit der zahl 2 addieren können dann auf start drücken und das ergebnis erscheint in der lblAusgabe und anschliessend vom ergebnis eine neue zahl, welche ich in die txtZahl2 eingeben muss subtrahieren. Code: Option Explicit Private Sub Beenden_Click() End End Sub Private Sub Start_Click() If OptAdd.Value = True Then lblAusgabe.Caption = Val(txtZahl1.Text) + Val(txtZahl2.Text) End If If OptSub.Value = True Then lblAusgabe.Caption = Val(txtZahl1) - Val(txtZahl2) End If If OptMult.Value = True Then lblAusgabe.Caption = Val(txtZahl1) * Val(txtZahl2) End If If OptDiv.Value = True Then Dim Ergebnis As Single If txtZahl2.Text = "0" Then MsgBox "Division durch Null ist unzulässig!" Exit Sub End If Ergebnis = Val(txtZahl1.Text) / Val(txtZahl2.Text) lblAusgabe.Caption = Format(Ergebnis, "0.00") End If If OptAdd.Value = False And OptSub.Value = False And OptMult.Value = False And OptDiv.Value = False Then MsgBox ("Wählen Sie zuerst eine Operation aus!") End Sub than u

taschenrechner	820	Arrowhead	16.04.05 15:00
Re: taschenrechner	477	hehe	16.04.05 15:09

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen