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 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!
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.