auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Umrechnung Dollar in Euro: Neuen Kurs berechnen

Kurs Euro Dollar Kurs Dollar Euro

Kurs und Euro veränderbar

Kurs und Dollar veränderbar

Das JavaScript zum obigen Programm findet ihr hier: Euro in Dollar berechnen

Umrechnung Dollar in Euro

Umrechnung Dollar in Euro - Neuen Kurs berechnen: Zuweisungen, Daten in Variablen übergeben

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.
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt