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

Wahr- oder Falschwert ausgeben

Wahr- oder Falschwert ausgeben: WAHR, FALSCH, Direktfenster
Dim a%, b%, c%, d%, x$ Deklarationsteil.
Private Sub Form_Load()
txt1.MaxLength = 1: txt2.MaxLength = 1 Beim Laden des Formulars werden die Textlängen auf
txt3.MaxLength = 1: txt4.MaxLength = 1 eine Stelle begrenzt.
End Sub
Private Sub cmdRechne1_Click() Ausgabemöglichkeit 1:
a = Val(txt1.Text): b = Val(txt2.Text)
c = Val(txt3.Text): d = Val(txt4.Text)
lblAusgabe.Caption = ""
x = (6 * c >= 8 * d) And (a ^ 2 + b ^ 2 <= c) Or (c * d <> a * b)
lblAusgabe.Caption = x Wahr- / Falsch-Ausgabe.
End Sub
Private Sub cmdRechne2_Click() Ausgabemöglichkeit 2:
If x = (6 * c >= 8 * d) And (a ^ 2 + b ^ 2 <= c) Or (c * d <> a * b) Then
lblAusgabe.Caption = "Waaaahr" Wahr-Ausgabe.
Else
lblAusgabe.Caption = "Faaalsch" Falsch-Ausgabe.
End If
End Sub
Private Sub txt1_GotFocus()
txt1.Text = "": txt2.Text = "" Wenn die erste Textbox den Fokus erhält, werden alle
txt3.Text = "": txt4.Text = "" Inhalte gelöscht.
End Sub
Ausgabe im Direktfenster:
Aufgabe: Folgende Gleichung in VB-gerechte Schreibweise in den Quellcode übertragen und die Ergebnisse durch
Eingabe verschiedener Werte in Textboxen eintragen. Wahr-, Falsch-Ausgabe in einem Label.
Gleichung: 6c mindestens so groß wie 8d und a^2 + b^2 höchstens gleich c oder c * d ungleich a * b

Mehr Tipps: If Then Else programmieren

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