| 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. |
| |