Points aéronautiques de la France
Points aéronautiques de la France
Excusez moi par mon mauvais français.
Je suis débutant à la programmation et malgré j'ai PureBasic depuis , je crois, 10 années je me considére aussi an débutant avec Pure.
Le simple programme je vous joins, il a un erreur que je ne peux pas détecter.
En plus, je veux ajouter une autre écran pour présenter des boutons de les points que restent.
Description du logiciel:
Très simple. Il lit un fichier de texte, "fijosFR.txt", 1306 registres avec le nom et des coordonnées géographiques de tous les points aéronautiques de la France.
L'erreur:
Il montre 1120 boutons et après que j'appuie sur un bouton pour la prémiere fois, le bouton 1 disparait.
Comme est possible presénter une autre écran avec les boutons que manquent et les changer á ma choix?
Merci bien ! Gracias
https://mega.nz/#F!6hBlzSoa
Je suis débutant à la programmation et malgré j'ai PureBasic depuis , je crois, 10 années je me considére aussi an débutant avec Pure.
Le simple programme je vous joins, il a un erreur que je ne peux pas détecter.
En plus, je veux ajouter une autre écran pour présenter des boutons de les points que restent.
Description du logiciel:
Très simple. Il lit un fichier de texte, "fijosFR.txt", 1306 registres avec le nom et des coordonnées géographiques de tous les points aéronautiques de la France.
L'erreur:
Il montre 1120 boutons et après que j'appuie sur un bouton pour la prémiere fois, le bouton 1 disparait.
Comme est possible presénter une autre écran avec les boutons que manquent et les changer á ma choix?
Merci bien ! Gracias
https://mega.nz/#F!6hBlzSoa
Re: Points aéronautiques de la France
Hola..
Ton lien demande une clé... Donc on ne peut rien tester.
Ensuite dans ce que tu dis, je pense que tu as un soucis de boucle.
Pour ouvrir plusieurs fenêtres tu as pas mal d'exemples sur le forum.
En voilà un ici :https://www.purebasic.fr/french/viewtop ... es#p172370
Ton lien demande une clé... Donc on ne peut rien tester.
Ensuite dans ce que tu dis, je pense que tu as un soucis de boucle.
Pour ouvrir plusieurs fenêtres tu as pas mal d'exemples sur le forum.
En voilà un ici :https://www.purebasic.fr/french/viewtop ... es#p172370
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Re: Points aéronautiques de la France
Bonjour:
J'essaye un autre lien et j'étudierai comme faire deux fênetres.
Merci
https://www.dropbox.com/sh/tlfh7gz9nofi ... xZVVa?dl=0
J'essaye un autre lien et j'étudierai comme faire deux fênetres.
Merci
https://www.dropbox.com/sh/tlfh7gz9nofi ... xZVVa?dl=0
Re: Points aéronautiques de la France
Bonjour,
J'ai juste commenté les 2 lignes TextGadget() et le problème disparait.
cage
J'ai juste commenté les 2 lignes TextGadget() et le problème disparait.
cage
Code : Tout sélectionner
StartDrawing(WindowOutput(0))
Repeat
SetGadgetFont(#PB_Default,FontID(2))
Event=WaitWindowEvent()
If Event = #PB_Event_Gadget
Value = GetGadgetData(EventGadget())
ind$=Left(Messages.s(Value-1),5)
dat$=Right(Messages.s(Value-1),Len(Messages.s(Value-1))-5)
;TextGadget(0, 956-(Len(ind$)*7),920,250, 50, ind$)
SetGadgetFont(#PB_Default,FontID(3))
;TextGadget(1, 956-(Len(dat$)*7),970, 1900, 50, dat$)
EndIf
Until Event = #PB_Event_CloseWindow
StopDrawing()
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 6.00 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Gérard sur le forum Anglais
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Gérard sur le forum Anglais
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr
Re: Points aéronautiques de la France
C'est vrai mais ensuite je n'aurai pas résultat.
En suivant votre orientation, je crois que le probléme c'est à la seconde ligne TextGadget() parce que si je l'elimine, le nom du point est presenté. Maintenant, il faut des données de ce point.
Merci.
En suivant votre orientation, je crois que le probléme c'est à la seconde ligne TextGadget() parce que si je l'elimine, le nom du point est presenté. Maintenant, il faut des données de ce point.
Merci.
Re: Points aéronautiques de la France
Dropbox marche pas.
Poste ton code direct ici entre balises [code];le code[/code].
Ou bien précise ta demande étape par étape.
Poste ton code direct ici entre balises [code];le code[/code].
Ou bien précise ta demande étape par étape.
Re: Points aéronautiques de la France
L'erreur se produit parce que à la ligne 43, on trouve un textegadget ayant un identifiant identique au premier bouton, comme il y a 1120 boutons, il faut que le premier textegadget aie un identifiant supérieur.euseluli a écrit :Il montre 1120 boutons et après que j'appuie sur un bouton pour la prémiere fois, le bouton 1 disparait.
Code : Tout sélectionner
Repeat
SetGadgetFont(#PB_Default,FontID(2))
Event=WaitWindowEvent()
If Event = #PB_Event_Gadget
Value = GetGadgetData(EventGadget())
ind$=Left(Messages.s(Value-1),5)
dat$=Right(Messages.s(Value-1),Len(Messages.s(Value-1))-5)
TextGadget(1121, 956-(Len(ind$)*7),920,250, 50, ind$)
SetGadgetFont(#PB_Default,FontID(3))
TextGadget(1122, 956-(Len(dat$)*7),970, 1900, 50, dat$)
EndIf
Until Event = #PB_Event_CloseWindow
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Un homme doit être poli, mais il doit aussi être libre !
Re: Points aéronautiques de la France
Il fonctionne.
Merci beaucoup !
Merci beaucoup !