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 sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!
Nutzen Sie unsere Suchfunktion:
Nach oben
Sitemap
Impressum
Datenschutz