Neuigkeiten:

[13. Nov 2022] Upgrade auf SMF 2.1.

Hauptmenü

Geht es in diesem Forum noch Weiter?

Begonnen von Dragonflayer, 26. Januar 2010, 14:35:36

⏪ vorheriges - nächstes ⏩

Stiepen

Ich hatte Sowiso die Idee das Ganze im XML-Format und nur auf ausdrücklichen nutzerwunsch im sav-Format zu Speichern und laden, weil das aus vb2010 mit xml bequemer ist (ja, ich bin manchmal etwas faul)
Wer Rächtschreipfehlär findet, darf sie behalten

Jojo

Das Format ist auch nicht sonderlich schön (ein Freund von XML bin ich aber auch nicht) und sollte neu (oder überhaupt mal) definiert werden. Generell würde ich zumindest bei meinem eigenen Rewrite (wenn der jemals stattfinden sollte) sehr viele Dinge im Spiel ändern, sodass das Format dann eh komplett umgekrempelt werden müsste.

Stiepen

#17
Man müsste gucken, denn die datei darf ja auch nicht astronomisch groß werden.

Ich haber erstmal mit der Klasse "Hotel" angefangen:
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

Villeicht ist da noch etwas hinzuzufügen; ich habe erstmal nur Wohngebäude Verwendet.
ps. Spaß-ecke auf der Webseite sowie Developer-Konsole sind Genial ;) ist genial
Wer Rächtschreipfehlär findet, darf sie behalten

Jojo

Sieht auf jeden Fall besser aus als vorher, auch wenn das Hotel immer noch unrealistisch groß ist. ;P

Stiepen

Man könnte es natürlich Später so machen, dass Man selbst eine HotelKETTE mit mehreren filialen errichtet. dan könnten die hotels kleiner sein...
Wer Rächtschreipfehlär findet, darf sie behalten

Jojo

Joa, war auch irgendwann mal geplant. Das Problem, das alles sollte man sich überlegen, bevor man überhaupt eine einzige Zeile Code geschrieben hat...

Stiepen

Wer Rächtschreipfehlär findet, darf sie behalten

Jojo

Gut, dann hast du jetzt eine Lektion gelernt: Erst das Konzept, dann der Code. Das sage ich nicht einfach so. Das gehört dazu, wenn man Spaß beim Programmieren haben will, und zum profesionellen Arbeiten sowieso.

Stiepen

Mittlerweile Sieht die Hotel.vb so aus:
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
Wer Rächtschreipfehlär findet, darf sie behalten