| 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.
|
Sub txtEuro_Change()
Call berechnen
End Sub
|
Aufruf des Subprogrammes. |
Sub txtKurs2_Change()
Call berechnen
End Sub
|
Aufruf des Subprogrammes. |
Sub txtKurs1_Change()
Call berechnen
End Sub
|
Aufruf des Subprogrammes. |
Sub cmdEnd_Click()
Unload Me
End Sub
|
Programm beenden. |
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
kursEuroUs = 1.95583 / kursUsEuro
End If
|
Wenn der Inhalt der TextBox größer null ist, dann dividiere 1,95583 durch diesen Inhalt. |
| txtKurs1.Text = Format$(kursEuroUs, "##0.00000") |
Ausgabe des Ergebnisses in zweiter TextBox = Anzeigen 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
lblDollar.Caption = Format$(Euro / kursEuroUs, "##0.00")
End If
End Sub
|
Wenn der Inhalt der TextBox größer null ist, dann dividiere den Inhalt
der TextBox2 durch den Inhalt den TextBox1, und gebe das Ergebnis in einem Label aus. |
|
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. |
zurück