1. Ich hab ein Taschenrechner Programmiert funktioniert aber bis jetzt nur + - * / x² dann brauch ich noch die tasten 1,2,3,4,5,6,7,8,9,0, wo wenn ich auf den button klicke die zahl dann auch im numerischen textfeld steht. und eine Taste wo ich drauf klicken kann und das ergebnis steht dann in meinem textdokument.
und vielleicht noch wie das geht wenn ich auf z.B. + klicke das dann die zahl verschwindet. ich muss immer die zahl löschen dann erst eingeben und dann auf = drücken.
wenn mir jemand helfen könnte wehre echt nett
oder wenn ihr seiten kennt für blutige anfänger
danke leute
hier der code vom rechner bis jetzt
Dim oEingabefeld As Object
Dim Zwischensumme
Dim Rechensymbol
Sub Taschenrechner
rechensymbol="keins"
BasicLibraries.LoadLibrary("Tools")
oDialog1 = LoadDialog("Standard", "RechnerDialog")
'hole Zugriff auf das Eingabefeld:
oEingabefeld = oDialog1.GetControl("Eingabefeld")
'Dialog anzeigen und ausführen:
oDialog1.Execute()
'Aufräumen:
oDialog1.Dispose()
end sub
Sub Rechne
'Zwischenspeicher für das Ergebnis der Berechnung:
Dim ergebnis
select case rechensymbol
case "plus"
ergebnis = zwischensumme + oEingabefeld.Value
case "minus"
ergebnis = zwischensumme - oEingabefeld.Value
case "mal"
ergebnis = zwischensumme * oEingabefeld.Value
case "durch"
ergebnis = zwischensumme / oEingabefeld.Value
case "wurzel"
ergebnis = zwischensumme
case "potenz"
For Zaehler = 1 To oEingabefeld.Value
ergebnis = zwischensumme * zwischensumme
Next Zaehler
case else
REM es passiert nichts, da kein Symbol gewählt
ergebnis = zwischensumme
end select
REM und alles wieder in den Ausgangszustand versetzen
rechensymbol = "keins"
zwischensumme = ergebnis
oEingabefeld.Value = zwischensumme
end sub
Sub Addiere
'Wert merken:
Zwischensumme = oEingabefeld.Value
Rechensymbol="plus"
end sub
Sub Subtrahiere
'Wert merken:
Zwischensumme = oEingabefeld.Value
Rechensymbol="minus"
end sub
Sub Multipliziere
'Wert merken:
Zwischensumme = oEingabefeld.Value
Rechensymbol="mal"
end sub
Sub Dividiere
'Wert merken:
Zwischensumme = oEingabefeld.Value
Rechensymbol="durch"
end sub
Sub Potenziere
'Wert merken:
Zwischensumme = oEingabefeld.Value
Rechensymbol="potenz"
end sub
Sub Wurzel
'Wert merken:
Zwischensumme = oEingabefeld.Value
Rechensymbol="wurzel"
end sub
Code: Alles auswählen