[13. Nov 2022] Upgrade auf SMF 2.1.
Zitat von: Jojo am 04. Juli 2011, 20:55:06bei github oder so ein Repository an[zu]legen, um den Code (bzw auch die unterschiedlichen Versionen) besser verwalten zu können[,]bin ich noch nicht weiter Nachgegangen, werde das aber Gleich mal machen.
Public Class Hotelkette
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...
End Class
Public Structure structureTime
Dim Year As Integer
Dim Month As Integer
Dim Day As Integer
Dim Hour As Integer
Dim Minute As Integer
End Structure
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 __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
Dim BelegtBis As structureTime
Dim ImBau As Boolean
Dim BauenBis As structureTime
Dim BesucherTyp As GuestType
End Structure
Public Enum GuestType
SinglePerson = 1 'Relativ Anspruchslos; Kiosk, NormalEinzelBett [0-2 Sterne]
Family = 2 'Will Schwimmbad, Kiosk, Extrem Hungrig, ZweibettZimmer - am Liebsten Normale [1-4 Sterne]
Geschäftsperson = 3 'Will Konferenzraum, LuxusEinzelbett-Zimmer im 5-Sterne-Hotel gelegentlich auch Suiten [2-5 Sterne]
Terrorist = 4 'Will Zimmer direkt neben Kinos etc.; wenn der nachfolger Einzieht, Explodieren alle Angrenzenden+diesem Raum zu Leeren Räumen & Gäste wollen Geld zurück
ÄlteresEhepaar = 5 'Will Gesellschaftsraum; bevorzugt Stock 1-10 [0-3 Sterne]
End Enum
#End Region
#Region "Propertys"
#End Region
#End Region
End Class