Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Umrechnen

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428
BeitragVerfasst am: 14.04.2010, 00:57    Titel: Umrechnen Antworten mit Zitat
http://wiki.openstreetmap.org/wiki/Slippy_map_tilenames

Wie könnte man das Kompatibel zu freebasic machen....ich meine die Umrechnungsart.


Code:

dim as double longitude, latitude, Pi, zoom,xtile,ytile,n,sec
longitude = 12.13972222222222
latitude = 49.115
Pi = 3.14159265
zoom = 16
n = 2 ^ zoom
xtile = ((longitude + 180) / 360) * n


das gibt mir schon mal den x Wert zurück.
Jetzt benötige ich aber noch den ytile.

traurig
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
BeitragVerfasst am: 14.04.2010, 10:57    Titel: Antworten mit Zitat
Code:
Dim As Double longitude, latitude, Pi, d2r, xtile, ytile, sec
Dim As Integer zoom, n
longitude = 12.13972222222222
latitude = 49.115
Pi = 3.14159265
d2r = Pi / 180.0
zoom = 16
n = 2 ^ zoom
xtile = ((longitude + 180.0) / 360.0) * n
?xtile

'p.Y = (float)((1.0 - Math.Log(Math.Tan(lat * Math.PI / 180.0) + 1.0 / Math.Cos(lat * Math.PI / 180.0)) / Math.PI) / 2.0 * (1 << zoom))

ytile = ((1 - Log(Tan(latitude * d2r) + 1 / Cos(latitude * d2r)) / Pi) / 2 * n)
?ytile

Sleep

nach http://oms.wff.ch/calc.htm sollte dies richtig sein!
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Andy19312



Anmeldungsdatum: 22.10.2005
Beiträge: 428
BeitragVerfasst am: 14.04.2010, 14:34    Titel: Antworten mit Zitat
Danke dir Volta, funktionuckelt
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz