| 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 |
| |
zurück