Erzeuge ein Element vom Typ Form. Erzeuge im vorhandenen Form eine Textfeld mit dem Namen Ausgabe für die Zahlenausgabe.
Erzeuge im vorhandenen Form zehn CommandButtons mit dem Namen 0 bis 9 und die Buttons -, +, = und C.
Definiere die globalen Variablen mit den Namen iZust, bAusgabeLeeren und iWert.
Setze die globalen
Variablen bei der Definition auf folgende Startwerte:
Die
Variable iZust soll auf den Wert 0 gesetzt werden.
Die
Variable bAusgabeLeeren soll auf den Wert false
gesetzt werden.
Die Variable iWert soll auf den Wert 0
gesetzt werden.
Portiere die
Funktionalität der Funktion mit dem Namen B0_Click() von
Visual Basic nach Javascript:
Visual Basic |
Javascript |
Private Sub
B0_Click() |
function
B0_Click() |
Wenn auf den Button 0 geklickt wird, soll die Funktion B0_Click() aufgerufen werden.
Erzeuge eine gleichartige Funktionalität für die Buttons 1 bis 9.
Erzeuge die
Funktionalität für den Button C. Die zu portierende
Funktion lautet in Visual Basic:
Private Sub
Clear_Click()
iWert = 0
Ausgabe.Text = ""
iZust =
0
End Sub
Erzeuge die Funktionalität für den Button -. Zur Umwandlung einer Zeichenkette in eine ganze Zahl verwende die Funktion parseInt(). Zur Umwandlung in eine Kommazahl verwende die Funktion parseFloat().
Visual Basic |
Javascript |
Private Sub
Minus_Click() |
function
Minus_Click() |
Erzeuge die Funktionalität für den Button + analog der Funktionalität für den Button -. Die Variable iZust muß in diesem Fall auf den Wert 1 gesetzt werden.
Erzeuge die
Funktionalität für den Button IstGleich. Die zu
portierende Funktion lautet in Visual Basic:
Private
Sub IstGleich_Click()
If (iZust = 1) Then
iWert = iWert +
CInt(Ausgabe.Text)
End If
If (iZust = 2) Then
iWert = iWert
- CInt(Ausgabe.Text)
End If
Ausgabe.Text = CStr(iWert)
iZust
= 0
bAusgabeLeeren = True
End Sub
Wenn auf den Button = geklickt wird, soll die Funktion IstGleich_Click() aufgerufen werden.