Erklärung:
ALs erstes werden 4 Schaltflächen errichtet:
Plus
Minus
geteilt
Mal
----------
danach werden 4 Textfelder errichtet
(können auch nur 3 Textfelder sein...also Eingabe 1,Eingabe2 und Text3.Text):
Eingabe 1
Eingabe 2
Eingabe 3
Text 4
-----------
Der ersten Schaltfläche gebt ihr den namen Plus
Der zweiten Schaltfläche Minus
Der dritten Schaltfläche geteilt
Der Vierten Schaltfläche Mal
--------------------------------------------------------
anfang des Codes:
Public ErsteZahl As Single, ZweiteZahl As Single, DritteZahl As Single, Ergebnis As Single
-----------------------------------
'es wird nur durch 2 Zahlen Geteilt
Private Sub Geteilt_Click()
ErsteZahl = Val(Eingabe.Text)
ZweiteZahl = Val(Eingabe2.Text)
Ergebnis = ErsteZahl / ZweiteZahl
Eingabe3.Visible = False
'wird versteckt
Text4.Text = Ergebnis
End Sub
-----------------------------------
'es werden nur 2 Zahlen mal genommen
Private Sub mal_Click()
ErsteZahl = Val(Eingabe.Text)
ZweiteZahl = Val(Eingabe2.Text)
DritteZahl = Val(Eingabe3.Text)
Ergebnis = ErsteZahl * ZweiteZahl
Eingabe3.Visible = False
'wird versteckt
Text4.Text = Ergebnis
End Sub
-----------------------------------
'es werden 3,oder 2zahlen plus genommen
Private Sub Minus_Click()
ErsteZahl = Val(Eingabe.Text)
ZweiteZahl = Val(Eingabe2.Text)
DritteZahl = Val(Eingabe3.Text)
Ergebnis = ErsteZahl - ZweiteZahl - DritteZahl
Text4.Text = Ergebnis
End Sub
-----------------------------------
'es werden 3,oder 2zahlen minus genommen
Private Sub Plus_Click()
ErsteZahl = Val(Eingabe.Text)
ZweiteZahl = Val(Eingabe2.Text)
DritteZahl = Val(Eingabe3.Text)
Ergebnis = ErsteZahl + ZweiteZahl + DritteZahl
Text4.Text = Ergebnis
End Sub
Wer will kann auch noch 2 Weitere Schaltflächen errichten..
Löschen & Beenden
Private Sub löschen_Click()
Eingabe.Text = ""
Eingabe2.Text = ""
Eingabe3.Text = ""
Text4.Text = ""
Eingabe3.Visible = True
'geteilt wird wieder angezeigt
End Sub
--------------------------------
Private Sub Ende_Click()
End
End Sub
das wars :D
bei fragen per pn melden..