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 diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Zurück zum Index: Visual Basic für Fortgeschrittene

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.