Delphi-PRAXiS
Seite 5 von 5   « Erste     345   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Muss einen Kompass programmieren... (https://www.delphipraxis.net/103629-muss-einen-kompass-programmieren.html)

Namenloser 22. Nov 2007 14:39

Re: Muss einen Kompass programmieren...
 
Omg, der quelltext ist ja ein monster.^^
Wieso nicht einfach die Unit Math einbinden?
Dort gibt es die Funktion ArcTan bzw ArcTan2. Du brauchst dann nur Arctan(y2-y1,x2-x1) aufzurufen, wobei y2/x2 die Y bzw X-Koordinate des Mittelpunktes des Kompasses, y1 und x1 die Position des Mauszeigers, sind, um den Winkel zwischen beiden im Bogenmaß zu erhalten. Dann bewegst du den Stift auf dem canvas per MoveTo zum Mittelpunkt des Kreises und zeichnest per LineTo zum Punkt (X=cos(winkel)*radius; Y=sin(winkel)*radius).

MCXSC 22. Nov 2007 15:00

Re: Muss einen Kompass programmieren...
 
Und wieso nicht einfach den Code von static_cast nehmen? Der ist relativ kurz und verständlich. Zwar funktionieren die Kompasse nur über ein TImage, aber besser als würde er einen Code kopieren, den er nichtmal im Ansatz erklären kann.^^

volcano57 23. Nov 2007 12:47

Re: Muss einen Kompass programmieren...
 
ACH ja noch eine allgemeine frage...

bleibt dieses thema hier noch ne weile online oder wird das irgendwie gelöscht?

wenn ja wie lange bleibt das denn noch hier...?

Aurelius 23. Nov 2007 12:51

Re: Muss einen Kompass programmieren...
 
Das wird nicht gelöscht, da ja vielleicht andere das selbe Problem haben wie du und dann diesen Thread als Hilfe nutzen können.

volcano57 23. Nov 2007 12:52

Re: Muss einen Kompass programmieren...
 
also kann ich das froum bei der suche jederzeit wiederfinden?

Aurelius 23. Nov 2007 13:13

Re: Muss einen Kompass programmieren...
 
Ja

Lill Jens 23. Nov 2007 13:15

Re: Muss einen Kompass programmieren...
 
Zitat:

Zitat von volcano57
also kann ich das froum bei der suche jederzeit wiederfinden?

Jep ;)


*Edit* Ups war wohl einer schneller...


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:17 Uhr.
Seite 5 von 5   « Erste     345   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz