Amtszeiten der Präsidenten

Amtszeiten der Präsidenten berechnen. Programmieren mit 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

Mehr Tipps: Binärrechner

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