Wahr- oder Falschwert ausgeben

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.

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:

Ausgabe im Direktfenster

Ergebnisse in Textboxen anzeigen:

Ergebnisse in Textboxen anzeigen Ergebnisse in Textboxen anzeigen Ergebnisse in Textboxen anzeigen Ergebnisse in Textboxen anzeigen

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!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.