Autor Thema: Geht es in diesem Forum noch Weiter?  (Gelesen 13699 mal)

Stiepen

  • Newbie
  • *
  • Beiträge: 43
    • Kilobytes Softwares
Re: Geht es in diesem Forum noch Weiter?
« Antwort #15 am: 04. Juli 2011, 20:15:38 »
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

  • Saga-Games
  • *****
  • Beiträge: 245
    • Saga-Games
Re: Geht es in diesem Forum noch Weiter?
« Antwort #16 am: 04. Juli 2011, 20:20:37 »
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

  • Newbie
  • *
  • Beiträge: 43
    • Kilobytes Softwares
Re: Geht es in diesem Forum noch Weiter?
« Antwort #17 am: 04. Juli 2011, 20:28:34 »
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
« Letzte Änderung: 04. Juli 2011, 20:33:40 von Stiepen »
Wer Rächtschreipfehlär findet, darf sie behalten

Jojo

  • Saga-Games
  • *****
  • Beiträge: 245
    • Saga-Games
Re: Geht es in diesem Forum noch Weiter?
« Antwort #18 am: 04. Juli 2011, 20:39:23 »
Sieht auf jeden Fall besser aus als vorher, auch wenn das Hotel immer noch unrealistisch groß ist. ;P

Stiepen

  • Newbie
  • *
  • Beiträge: 43
    • Kilobytes Softwares
Re: Geht es in diesem Forum noch Weiter?
« Antwort #19 am: 04. Juli 2011, 20:48:54 »
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

  • Saga-Games
  • *****
  • Beiträge: 245
    • Saga-Games
Re: Geht es in diesem Forum noch Weiter?
« Antwort #20 am: 04. Juli 2011, 20:54:12 »
Joa, war auch irgendwann mal geplant. Das Problem, das alles sollte man sich überlegen, bevor man überhaupt eine einzige Zeile Code geschrieben hat...

Stiepen

  • Newbie
  • *
  • Beiträge: 43
    • Kilobytes Softwares
Re: Geht es in diesem Forum noch Weiter?
« Antwort #21 am: 04. Juli 2011, 20:55:52 »
ich lern ja auch noch... :)
Wer Rächtschreipfehlär findet, darf sie behalten

Jojo

  • Saga-Games
  • *****
  • Beiträge: 245
    • Saga-Games
Re: Geht es in diesem Forum noch Weiter?
« Antwort #22 am: 04. Juli 2011, 21:05:52 »
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

  • Newbie
  • *
  • Beiträge: 43
    • Kilobytes Softwares
Es geht weiter...
« Antwort #23 am: 05. Juli 2011, 20:23:09 »
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