[13. Nov 2022] Upgrade auf SMF 2.1.
Public Class Hotel
#Region "deklarationen"
#Region "Vars"
Private __Gebäude(105, 100) As Room 'U1-U4=0-3 E=4 O1-O100=5-105
Private __Pannen As Integer = 0
Private __Sterne As Integer = 0
Private __Datetime As structureTime
Private __Money As Int64 'Niemand wird mehr als 9.223.372.036.854.775.807 € bzw. 9.223.372.036.854.775.808 € Schulden haben...
Private __Name As String = ""
#End Region
#Region "Enum"
Public Enum RoomType
Freies_Feld = -1 'Hier ist nichts
Leer = 0 'Ein Leerer Raum
Einfach1 = 1 'Einfaches Einzelzimmer
Einfach2 = 2 'Einfaches Doppelzimmer
Luxus1 = 3 'Luxus-einzelzimmer
Luxus2 = 4 'Luxus-Doppelzimmer
Suite = 5
End Enum
#End Region
#Region "Structure"
Public Structure Room
Dim Type As RoomType
Dim Belegt As Boolean
End Structure
Public Structure structureTime
Dim Year As Int16
End Structure
#End Region
#Region "Propertys"
#End Region
#End Region
End Class