ACF2020 spécial simulateurs de vol !

[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

[Zorro]

il manque "EndDataSection"

[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

[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.

[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...