Navigation in der Wohnung

**Moppi** · 08.12.2019, 19:54

Was man manchmal alles so macht - finde ich nicht schlecht!

Ich habe auch mal Programme mit VB geschrieben, war aber glaub noch Version 4. 1995 bis 1997. Man kann mit VB wirklich gut solche Sachen machen. Ich habe dazumal Flughafenkarten in einen Editor geladen, als Bitmap. Dazu ein Algorithmus, um Häuser zu plazieren und zu drehen. Also Häuser für Terminalgebäude etc. So konnte ich also die Größe der Gebäude - nach Kartenvorlage - direkt anpassen und in die richtige Position drehen. Auch die Funkfeuer konnte ich so setzen, da die in den Karten angegeben waren. Auch Baumbewuchs habe ich eintragen können. Nachher sind die Daten exportiert worden, damit Dateien für den MS Flugsimulator erstellt werden konnten. Dafür hatte ich damals eine Software (ich glaub FS Designer hieß die), habe da noch ein wenig drum herum geschrieben, also eine eigene EXE- oder COM-Datei, damit ich den Vorgang automatisch von Anfang bis Ende durchlaufen lassen konnte. Das Original Tool war leider etwas eingeschränkt, ich glaube da waren nur max. 5 oder 10 Häuser möglich paar Landebahnen und Straßen. Bäume habe ich damit selber generiert (zwei Bitmaps im 90 Grad Winkel ineinandergestellt, ich glaube da musste man ein Gebäude als Grundobjekt nehmen und dann die Bitmap auf die Flächen setzen. Je nach Richtungsvektor oder so ähnlich wurden dann nur die Bitmaps dargestellt und die Wände des Gebäudes nicht). Aber der Designer erlaubte das Zusammenführen mehrerer Objektdateien, die man damit generiert hatte. Das habe ich dann ausgenutzt. Aufgrund meiner Erweiterung konnte ich dann also riesige Flächen mit Häusern per Zufallsgenerator bebauen, wie Berlin z.B.. Das war damals noch Seltenheit im MS Flugsimulator. Meist gab es ja nur ein paar Flughafengebäude bzw. mal ein markantes Gebäude in einer Stadt und das war es dann so weit. Bloß leider kann ich die alte VB Version nicht mehr installieren, so dass ich auch auf meine Programme nicht mehr zugreifen kann, die ich damit geschrieben habe.

Von daher weiß ich, was Du geleistet hast und finde das toll!
Schade ist aber, dass Du mit der Browser-Schnittstelle nicht weiter kommst!

MfG

PS:

Einmal habe ich Paderborn nachgebaut, das sah dann für den FS Designer z.B. so aus:

Code:

'******************************************************************** 
ID 1                            'Szenerie-ID
'********************************************************************
'--------------------------------------------------------------------
'Szenerie beschreiben
'--------------------------------------------------------------------
 GEO_AREA "GERMANY"


'--------------------------------------------------------------------
'Ausmaáe der Szenerie
'--------------------------------------------------------------------
include "range1.inc"


'********************************************************************
'Flughafen Paderborn-Lippstadt
'********************************************************************
ATIS 118.27,80/2,(N51,36,55),(E8,37,2),24,0,0,0,
     "Paderborn - Lippstadt … Delta ‚ € Š - Altimeter 1021 - † - ‡ Œyou have Delta ... ILS Freq 24 NAV 111.7 ..."
 
'--------------------------------------------------------------------
'Lande-/Startbahnen definieren
'--------------------------------------------------------------------
AREA_TEST       (N51,36,55),      'Position n”rdl.Breite (G,M,S)
                (E08,37,02),      'Position ”stl. L„nge  (G,M,S)
                         25       'Reichweite (max.255)


RUNWAY          (N51,36,55),      'Position n”rdl.Breite (G,M,S)
                (E08,37,02),      'Position ”stl. L„nge  (G,M,S)
                        288,      'H”he in Meter
                        239,      'Anflugkurs der Runway in Grad
                       7300,      'L„nge in Fuá
                        160,      'Breite in Fuá
                         24,      'Nummer der Bahn (1-63)
                         ' 0,      'Buchstabe L =64, R =128, C =192
             
'          Bahn-Oberfl„che:


                        ' 0,      'graues Muster
                          1,      'beton hell, m.Punkten
                        ' 2,      'beton dunkel, m.Streifen         
                        ' 3,      'grasartig


 '        Bahn-Markierungen:
          
                 1+2+4+8+16+32,   'Seitenlinien
                         '2+      'Schwellenmarkierungen
                         '4+      'Landemarkierungen
                         '8+      'Abstandsmarkierungen (breit)
                        '16+      'Mittellinie
                        '32,      'Darstellung der Beschriftung
                        ' 64,      'Abstandsmarkierungen (schmal)
          
 '         Bahn-Beleuchtung:
                 
                        ' 0,      'keine
                        ' 1,      'an den Seiten
                        ' 4,      'in der Mitte
                          5,      'an den Seiten und in der Mitte
           
 '              Bahn-Beginn:              
  
                          1,      'Schwellenmarkierung an/aus 1/0
                       1010,      'Markierung Typ1 an/aus 1010/0
                          0,      'Markierung Typ2 an/aus 1010/0
                        ' 2,      'Anflugbefeuerung MALSR
                        ' 6,      '  "  ALSF-1
                          7,      '  "  ALSF-2
                         19,      '  "  Zahl der Blitzlichter
                           
 '                Bahn-Ende:
              
                          1,      'Schwellenmarkierung an/aus 1/0
                       1010,      'Markierung Typ1 an/aus 1010/0
                          0,      'Markierung Typ2 an/aus 1010/0
                        ' 2,      'Anflugbefeuerung MALSR
                          6,      '  "  ALSF-1
                       '  7,      '  "  ALSF-2
                         11,      '  "  Zahl der Blitzlichter


 'Sichtflug-Gleitwinkelanzeigesystem 1:
 
                        ' 0,      'kein
                        ' 1,      '2 Balken
                          2,      '3 Balken
                          3,      'Winkel der Balken in Grad


 'Sichtflug-Gleitwinkelanzeigesystem 2:
 
                        ' 0,      'kein
                          1,      '2 Balken
                        ' 2,      '3 Balken
                          3       'Winkel der Balken in Grad


'--------------------------------------------------------------------
'Navigationshilfen
'--------------------------------------------------------------------


'include "navtest.inc"


 NDB                  354.0,      'Frequenz
                      30000,      'Reichweite in Meter /2048
                (N51,36,55),      'Position n”rdl.Breite (G,M,S)
                (E8, 38,25),      'Position ”stl. L„nge  (G,M,S)
                        288,      'H”he in Meter
                      "PAD",      'Kennung (max.5)
      "Paderborn-Lippstadt"       'Name (max.24)
 '--------------------------
 VOR                  108.5,      'Frequenz
                     120000,      'Reichweite in Meter
                        0.1,      'magnetische Abweichung in Grad
                (N51,36,55),      'Position n”rdl.Breite (G,M,S)
                (E8, 38,25),      'Position ”stl. L„nge  (G,M,S)
                        288,      'H”he in Meter
                      "PAD",      'Kennung (max.5)
      "Paderborn-Lippstadt",      'Name (max.24)
                          1       'DME vorhanden
 '--------------------------
 ILS                  111.7,      'Frequenz
                      50000,      'Reichweite in Meter
                          0,      'magnetische Abweichung in Grad
           (N51,36,37.8764),      'Position n”rdl.Breite (G,M,S)
           (E08,36,16.2401),      'Position ”stl. L„nge  (G,M,S)
                        288,      'H”he in Meter
                      "PAD",      'Kennung (max.5)
      "Paderborn-Lippstadt",      'Name (max.24)
                   1+64+128,      'DME + Gleitwegsender + Empfindlichkeit


                        239,      'Anflugkurs in Grad


      'Gleitwegsender:


           (N51,37,04.0557),      'Position n”rdl.Breite (G,M,S)
           (E08,37,26.3361),      'Position ”stl. L„nge  (G,M,S)
                        288,      'H”he in Meter
                          3       'Winkel in Grad




'           (N51,36,50.7359),      'Position n”rdl.Breite (G,M,S)
'           (E08,36,50.7462),      'Position ”stl. L„nge  (G,M,S)


 '--------------------------
 INNER_MARKER  (N51,37,13.3965),      'Position n”rdl.Breite (G,M,S)
               (E08,37,51.0021),      'Position ”stl. L„nge  (G,M,S)
                            288       'H”he in Meter
 MIDDLE_MARKER (N51,38,32.2371),      'Position n”rdl.Breite (G,M,S)
               (E08,41,22.4972),      'Position ”stl. L„nge  (G,M,S)
                            288       'H”he in Meter
 OUTER_MARKER  (N51,40,22.8508),      'Position n”rdl.Breite (G,M,S)
               (E08,46,18.7887),      'Position ”stl. L„nge  (G,M,S)
                            288       'H”he in Meter
 '--------------------------


'--------------------------------------------------------------------
'Bodenfl„chen
'--------------------------------------------------------------------
include "betflae.inc"
'--------------------------------------------------------------------
'Taxi Ways
'--------------------------------------------------------------------
include "txwayss.inc"
'--------------------------------------------------------------------
'Airport definieren
'--------------------------------------------------------------------
$f3os=$RefPointSecH/100000
$f3ns=$RefPointSecV/100000
$f3og=$f3os/60/60/100*100 $f3og=$f3og-0.5 $f3og=$f3og/1000*1000
$f3ng=$f3ns/60/60/100*100 $f3ng=$f3ng-0.5 $f3ng=$f3ng/1000*1000
$f4=$f3og*60*60 $f3os=$f3os-$f4
$f4=$f3ng*60*60 $f3ns=$f3ns-$f4  $f3om=$f3os/60/100*100 $f3om=$f3om-0.5 $f3om=$f3om/1000*1000


$f3nm=$f3ns/60/100*100 $f3nm=$f3nm-0.5 $f3nm=$f3nm/1000*1000
$f4=$f3om*60 $f3os=$f3os-$f4
$f4=$f3nm*60 $f3ns=$f3ns-$f4
     
AIRPORT (0~$f3ng,$f3nm,3~$f3ns),  'Position n”rdl.Breite (G,M,S)
        (0~$f3og,$f3om,3~$f3os),  'Position ”stl. L„nge  (G,M,S)
                        288,      'H”he in Meter
                        239,      'Anflugkurs der Runway in Grad
      "Paderborn-Lippstadt",      'Name (max.24)
                     118.27,      'Frequenz   COM1 in MHz
                     168.0 ,      'Frequenz   NAV1 in MHz
                          0,      'Azimutkurs NAV1 in Grad
                     173.0 ,      'Frequenz   NAV2 in MHz
                          0       'Azimutkurs NAV2 in Grad


'********************************************************************
'Geb„ude
'********************************************************************
$label=-1 $1=-1
include "tower.inc"
include "haus01.inc"
include "tank1.inc"
include "tank2.inc"
include "tank3.inc"
include "tank4.inc"
include "1hangar.inc"
include "2hangar.inc"
include "baracke.inc"
'***********************************************************
END