Page 3 sur 3
Re: ACF2020 spécial simulateurs de vol !
Publié : mer. 08/janv./2020 16:38
par PhM
Marc,
J'avais trouvé en me basant sur l'exemple de la doc. voici ma version :
Code : Tout sélectionner
If CatchImage(0, ?Image_Start, ?Image_End - ?Image_Start) ; L'image de fond
ImageGadget(15, 60, 90, ImageWidth(0), ImageHeight(0), ImageID(0)); ImageGadget classeur VAC affichée
EndIf
DataSection
Image_Start: ; inclusion de l'image dans ACF2020.exe
IncludeBinary "vac2.png"
Image_End:
LA VERSION 1.0 EST DISPONIBLE SUR LE MÊME LIEN
Je vais faire un peu de ménage sur le listing et, comme promis, je place le source en ligne au plus vite.
Merci à tous pour tous vos conseils avisés qui m'ont permis de réaliser ce petit utilitaire.
Philippe
Re: ACF2020 spécial simulateurs de vol !
Publié : mer. 08/janv./2020 19:29
par Zorro
il manque "EndDataSection"
le listing source !
Publié : jeu. 09/janv./2020 10:05
par PhM
Et comme promis, le listing source !
Code : Tout sélectionner
; =================================================================================================================
; ACF2020
; =================================================================================================================
; Cartes VAC, METAR et situation des VENTS en direct des aéroports civils métropolitains
;
; Philippe Mijon janvier 2020 version 1.0
; Développer avec PureBasic 5.71LTS (x64) sous W7 x64
;
; =================================================================================================================
Ici, car ne rentre pas dans la fenêtre code du message (+60000 caractères) :
https://mijon.pagesperso-orange.fr/Pure ... CF2020.zip
Re: ACF2020 spécial simulateurs de vol !
Publié : jeu. 09/janv./2020 13:49
par Marc56
C'est bien, clair et propre
Plutôt que 6 tableaux, j'aurais utilisé une structure, cela permet ensuite de manipuler les "fiches" plus facilement (ajouter/supprimer/trier).
La lecture des données vers une structure est quasi identique.
Code : Tout sélectionner
airportsFR = 424
Structure Type_airportsFR
OACI.s
cod.s
vil.s
lat.s
lon.s
alt.s
EndStructure
Dim airportsFR.Type_airportsFR(airportsFR)
Restore base_donnees
For i = 1 To airportsFR -1
With airportsFR(i)
Read.s \OACI
\cod = \OACI
Read.s \vil
Read.s \lat
Read.s \lon
Read.s \alt
EndWith
Next
; Test
i = 10
Debug "OACI #" + i + " " + airportsFR(i)\OACI
Debug "Altitude: " + airportsFR(i)\alt
Gain de temps et facilité: l'éditeur de PB affiche automatiquement en popup les éléments d'une structure quand on tape l' \ ce qui permet de ne pas en oublier.
De plus, comme tu n'as pas besoin d'un numéro d'indice de tableau, tu peux aussi utiliser les Listes à la place des tableaux.
Re: ACF2020 spécial simulateurs de vol !
Publié : jeu. 09/janv./2020 15:03
par PhM
Salut Marc,
Merci pour l'appréciation...
Je documente beaucoup mes listings, surtout pour moi-même car, en général, tu ne t'y retrouves plus après quelques temps.
Je n'ai jamais utilisé Structure, la prochaine fois, je me pencherai sur cette facilité.
Je suis reparti sur un programme plus ambitieux, à suivre...