Programm ohne Formular

Programm ohne Formular via InputBox, Modul Programmierung
Const pmax = 5 Max. Anzahl Personen.
Private Type person Typdeklaration für Strukturvariable.
name As String * 20 Max. 20 Zeichen.
jahr As Integer
student As Boolean Nur Wahr oder Falsch-Wert möglich.
End Type
Dim persList1(1 To pmax) As person Array aus Strukturvariablen deklarieren.
Dim pos% Datensatznummer.
Dim titel$
Sub eingeben() InputBox an Speicher.
titel = "Eingabe der " & Str$(pos) & ".ten Person!"
persList1(pos).name = InputBox("Namen eingeben!", titel, persList1(pos).name)
persList1(pos).jahr = Val(InputBox("Jahr eingeben!", titel, persList1(pos).jahr))
persList1(pos).student = InputBox("Student ? (True/False)", titel, persList1(pos).student)
End Sub
Private Sub Main() Programmstart mit "Endlosschleife"
ma1:
For pos = 1 To pmax Array füllen.
Call eingeben Ruft die InputBox nicht nur zur Eingabe, sondern auch
Next pos zur Ausgabe auf!
If MsgBox("Programm beenden", 36) = 6 Then Exit Sub Else GoTo ma1
End Sub

Mehr Tipps: Steuerelementefelder ansprechen

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