Das JavaScript zum obigen Programm findet ihr hier.

Umrechnung Dollar in Euro

Zuweisungen, Daten in Variablen übergeben
Sub txtEuro_Change()
Call berechnen	Aufruf des Subprogrammes.
End Sub
Sub txtKurs2_Change()
Call berechnen	Aufruf des Subprogrammes.
End Sub
Sub txtKurs1_Change()
Call berechnen	Aufruf des Subprogrammes.
End Sub
Sub cmdEnd_Click()
Unload Me	Programm beenden.
End Sub
Sub berechnen()
Dim kursEuroUs As Double, Euro As Double, dollar As Double, kursUsEuro As Double
kursUsEuro = Val(txtKurs2.Text)	Die Variable erhält den Wert des Textfeldes = Übergeben
	von Daten.  Val = der Inhalt der TextBox ist numerisch.
If kursUsEuro > 0 Then	Wenn der Inhalt der TextBox größer null ist, dann
kursEuroUs = 1.95583 / kursUsEuro	dividiere 1,95583 durch diesen Inhalt.
End If
	Ausgabe des Ergebnisses in zweiter TextBox = Anzeigen
txtKurs1.Text = Format$(kursEuroUs, "##0.00000")	von Daten. Format$ erzeugt aus einer Zahl einen String.
	Beispiel:  #,##0.0000 ergibt z.B. 3.123,5432.
Euro = Val(txtEuro.Text)	Val = der Inhalt der TextBox ist numerisch.
If kursEuroUs > 0 Then	Wenn der Inhalt der TextBox größer null ist, dann dividiere
lblDollar.Caption = Format$(Euro / kursEuroUs, "##0.00")	den Inhalt der TextBox2 durch den Inhalt den TextBox1,
End If	und gebe das Ergebnis in einem Label aus.
End Sub
Aufgabe: Bei Eingabe eines Euro-Betrages UND bei Eingabe des Kurses US/Euro sollen in zwei anderen
Feldern der Kurs Euro/US, sowie der umgerechnete Wert in US$ erscheinen.
	Manuelle Eingabe des Euro-Betrages in eine TextBox.
	Manuelle Eingabe des Kurses in eine TextBox.
	Label: Keine Eingabe möglich.
	TextBox: Locked = True (keine Eingabe möglich).
	CommandButton zum Beenden des Programms.
Die rechtsbündige Ausgabe in Textboxen erreicht man durch die Eigenschaften:
Multiline = True
Alignment = rechts
lblAusgabe(x).Caption = "Hallo"	Beispiele zur Anzeige von Daten (z.B. in Textfeldern).
txtUmsatz(i).Text = Str(tabkunde(i).KdUmsatz)
tabkunde(i).KdUmsatz = Val(txtUmsatz(i).Text)	Beispiel zum Übergeben von Daten in Variablen.