| Feldvariablen, Array |
| |
| |
| Private Sub txtJahr_Change() | |
| Call rechne | Modul aufrufen: ändert sich der Wert der TextBox, |
| End Sub | wird sofort berechnet. |
| |
| Private Sub vscJahr_Change() | Die TextBox erhält den Wert des Scrollbalkens |
| txtJahr.Text = vscJahr.Value | (Initialisierung bei Form_Load). |
| Call rechne | Modul aufrufen: ändert sich der Wert des Scrollbalkens, |
| End Sub | wird sofort berechnet. |
| |
| Private Sub txtJahr_KeyUp(KeyCode As Integer, Shift As Integer) |
| Select Case Chr(KeyCode) | In die TextBox dürfen nur Zahlen eingegeben werden |
| Case "0" To "9" | können. |
| vscJahr.Value = Val(txtJahr.Text) | Der Scrollbalken erhält den Wert der TextBox. |
| Case Chr(vbKeyBack) | |
| Case Else | |
| KeyCode = 0 | |
| End Select | |
| End Sub | |
| |
| Private Sub txtJahr_Click() | |
| txtJahr.Text = "" | Bei Klick in die TextBox wird der alte Wert gelöscht. |
| lblPresident.Caption = "" | |
| End Sub | |
| |
| Private Sub Form_Load() | Das Array muss entsprechend den Amtszeiten der |
| Dim a$, b$, c$, d$, e$, f$, g$, h$ | Präsidenten geladen werden: |
| a = "Theodor Heuss" | |
| b = "Heinrich Lübke" | |
| c = "Gustav Heinemann" | |
| d = "Walter Scheel" | |
| e = "Karl Carstens" | |
| f = "Richard v. Weizsäcker" | |
| PräsidentenFeld(0) = a | Array 0 mit Namen a laden. |
| PräsidentenFeld(1) = a | Array 1 mit Namen a laden. |
| PräsidentenFeld(2) = b | Array 2 mit Namen b laden, und so weiter... |
| txtJahr.Text = Year(Now) | Das aktuelle Jahr wird in TextBox geladen. |
| vscJahr.Value = txtJahr.Text | Scrollbalken erhält Wert der TextBox. |
| End Sub | |
| |
| |
| Inhalt des Moduls | |
| Option Explicit | Deklarationsteil: |
| Const AnzahlPräsidenten = 11 | Konstante: von Null bis Zehn macht Elf. |
| Public PräsidentenFeld(0 To AnzahlPräsidenten) | Array setzen. |
| Public PräsidentenNr As Long, Jahr As Long | |
| |
| Public Sub rechne() | Prozedur für das Formular: |
| Jahr = Val(frmPres.txtJahr.Text) | Die Variable Jahr erhält den Wert der TextBox. |
| frmPres.Caption = "Präsident" | Die Prozedur zur Ermittlung des Präsidenten wird aufgerufen. |
| frmPres.lblTitel.Caption = "Der Präsident heißt:" | Die Amtszeit eines Präsidenten beträgt fünf Jahre. |
| PräsidentErmitteln Jahr | Es wird also der Array-Nummer folgendes Ergebnis |
| End Sub | zugewiesen: Wert der TextBox minus Amtsbeginn |
| geteilt durch die Amtszeit (5). |
| |
| Private Sub PräsidentErmitteln(Jahr As Long) | |
| With frmPres | |
| If Jahr >= 1949 And Jahr <= Year(Now) Then |
| PräsidentenNr = (Jahr - 1949) \ 5 |
| .lblPresident.Caption = PräsidentenFeld(PräsidentenNr) |
| Else |
| .lblPresident.Caption = "" |
| End If |
| End With | |
| End Sub | |
| |
zurück