' benutzerdefinierter Datentyp (UDT)
Public Type SpielerType
    Vorname As String * 20
    Nachname As String * 30
    PunkteScore As Long
    LetztesSpiel As Date
    Spielstein(7) As Boolean
    Einsatz As Double
End Type
 
 
Public Function GetSpieler(ByVal Nummer As Long) As SpielerType
' Funktion zum Lesen
Dim FF1 As Integer
If Nummer > 0 Then
    FF1 = FreeFile
    Open "C:\DateiSpieler" For Random As FF1 Len = Len(GetSpieler)
    Get FF1, Nummer, GetSpieler
    Close FF1
End If
End Function
 
 
Public Sub PutSpieler(ByRef Nummer As Long, ByVal Spieler As SpielerType)
' Sub zum Speichern
Dim FF1 As Integer
FF1 = FreeFile
Open "C:\DateiSpieler" For Random As FF1 Len = Len(Spieler)
If Nummer = 0 Then
    ' Neuer Spieler
    Nummer = (LOF(FF1) / Len(Spieler)) + 1
End If
Put FF1, Nummer, Spieler
Close FF1
End Sub
 
 
Private Sub MeinSpiel()
Dim Spieler As SpielerType
Dim SpielerNummer As Long
 
' Neuen Spieler hinzufügen.
SpielerNummer = 0
Spieler.Vorname = "Reiner"
Spieler.Nachname = "Zufall"
Spieler.PunkteScore = 0
Spieler.LetztesSpiel = Date
Spieler.Einsatz = 0
Spieler.Spielstein(0) = False
Spieler.Spielstein(1) = False
Spieler.Spielstein(2) = False
Spieler.Spielstein(3) = False
Spieler.Spielstein(4) = False
Spieler.Spielstein(5) = False
Spieler.Spielstein(6) = False
Spieler.Spielstein(7) = False
 
' Spieler speichern.
PutSpieler SpielerNummer, Spieler
 
' Spieler einlesen.
Spieler = GetSpieler(SpielerNummer)
 
End Sub