Apollo

Sujet: Re: Apollo Mar 15 Sep 2015 - 15:32

Salut dannick
J’ai jeté un œil sur ton code :
Dans les sous-programmes :
afficher2 : , afficher3 : , afficher 4 : il manque l’instruction RETURN
Ce qui fait que
afficher3 : se poursuit en afficher4 : et afficher5 :
afficher4 : se poursuit en afficher5 :.

Cette construction n’est pas forcement fausse si tu désires effectivement que les traitements soient comme mentionnés.
Dans le cas contraire, il faut ajour RETURN à la fin de chaque sous-programme.

Remarque :
On écrit onglet et non pas onglait : j’ai rectifié toutes les apparitions de ce mot dans le code.

On veut bien tester tes programmes.
On veut bien t’aider.
On veut bien discuter avec toi.
Mais … !
Un code affiché comme tu l’as posté n’est vraiment pas encourageant à y jeter un œil !
Et pourtant, c’est un jeu d’enfant que de bien poster un code !!! On te l’a bien expliqué en long, en large et même en haut et en bas !
AVANT D’INSERRER TON CODE DANS LA PAGE Poster une réponse, ECRIT [ code]
puis colle ton code et à la fin, écrit [/code]

C’est aussi simple que ça et je ne vois pas pourquoi tu n’y arrives pas !
Je t’ai aussi expliqué comment créer ton Webdav pour y déposer tes fichiers.
Tu ne l’as visiblement pas fais.
Tes codes que tu as postés utilisent des fichiers externes que nous n’y avons pas accès pour pouvoir tester tes codes.
Comment veux-tu qu’on les teste ?
On veut (je veux) bien t’aider.
Alors, en attendant de créer ton propre webdav, je te propose de mettre tes fichiers sur le mien pour pouvoir tester tes codes.
J’ai crée pour toi un dossier spécial Dannick
• Tu te connectes sur mon webdav en cliquant sur ce lien :
Nom d'utilisateur : panoramic@papydall Mot de passe : panoramic123
• Sur la page qui s’ouvre, cherche le dossier Dannick
• Clique dessus, une autre page s’affiche avec Transférer actif
• Clique dessus
• A droite, tu vois Fichier : Choisissez un fichier
• Clique dessus
• Une boîte de dialogue s’affiche ; tu cherches ton fichier .zip (que tu as préalablement crées) puis ouvrir
• Le nom de ton fichier .zip doit s’afficher à droite de Choisissez un fichier
• En dessous, tu vois Transférer, clique dessus
• Ton fichier .zip sera tranféré sur mon webdav dans le dossier Dannick
• A partir de là, tout le monde peut télécharger à partir de mon webdav ton fichier.zip
• De cette façon, chacun peut tester tes programmes.

Voilà, c’est tout !
Essaye de nous aider pour t’aider !

Voici ton dernier code que j’ai remis en forme.
Il ne manque que les fichiers nécessaires pour pouvoir tester dans les conditions normales.
C'est à toi!

Code:: rem ============================================================================
rem EXECUTEUR
rem Par Dannick
rem ============================================================================
error_french

border_hide 0
height 0,480:width 0,640
top 0,(screen_y-510)/2:left 0,(screen_x-640)/2

dim i

label fin, i1, i2, i3, i4, i5, choix1, choix2o1, executer, afficher1, choix2o2
label choix2o3, choix2o4, choix2o5, afficher2, afficher3, afficher4, afficher5

picture 1: file_load 1,"outil7\fond.jpg":height 1,480:width 1,640
picture 2: file_load 2,"outil7\exit.jpg"
on_click 2,fin

picture 3: file_load 3,"outil7\open.jpg":height 3,24:width 3,24:on_click 3,choix1
top 3,10:left 3,50:hint 3,"choisit le logiciel à ouvrir!"

picture 4: file_load 4,"outil7\search.jpg":height 4,24:width 4,24:on_click 4,choix2o1
top 4,35:left 4,50:hint 4,"choisit la page hors ligne à ouvrir!"

edit 5:height 5,17:width 5,475:top 5,12:left 5,80:hint 5,"chemin d'acces du logiciel à ouvrir!"
edit 6:height 6,17:width 6,475:top 6,40:left 6,80:hint 6,"chemin d'acces de la page hors ligne à afficher!"

picture 7: file_load 7,"outil7\play2.jpg":height 7,24:width 7,24:on_click 7,executer
top 7,10:left 7,562:hint 7,"executer!"

picture 8: file_load 8,"outil7\play1.jpg":height 8,24:width 8,24:on_click 8,afficher1
top 8,35:left 8,562:hint 8,"afficher!"
picture 9: file_load 9,"outil7\1.jpg":top 9,20:left 9,8:height 9,460:width 9,20

button 10:height 10,70:width 10,12:top 10,346:left 10,13:caption 10,"1":hint 10,"onglet 1":on_click 10,i1
button 11:height 11,70:width 11,12:top 11,273:left 11,13:caption 11,"2":hint 11,"onglet 2":on_click 11,i2
button 12:height 12,70:width 12,12:top 12,199:left 12,13:caption 12,"3":hint 12,"onglet 3":on_click 12,i3
button 13:height 13,70:width 13,12:top 13,126:left 13,13:caption 13,"4":hint 13,"onglet 4":on_click 13,i4
button 14:height 14,70:width 14,12:top 14,53:left 14,13:caption 14,"5":hint 14,"onglet 5" :on_click 14,i5
picture 15: file_load 15,"outil7\search.jpg":height 15,24:width 15,24:on_click 15,choix2o2
top 15,35:left 15,50:hint 15,"choisit la page hors ligne à ouvrir!"
edit 16:height 16,17:width 16,475:top 16,40:left 16,80:hint 16,"chemin d'acces de la page hors ligne à afficher!"
picture 17: file_load 17,"outil7\play1.jpg":height 17,24:width 17,24:on_click 17,afficher2
top 17,35:left 17,562:hint 17,"afficher!"
hide 15:hide 16:hide 17
picture 18: file_load 18,"outil7\search.jpg":height 18,24:width 18,24:on_click 18,choix2o3
top 18,35:left 18,50:hint 18,"choisit la page hors ligne à ouvrir!"
edit 19:height 19,17:width 19,475:top 19,40:left 19,80:hint 19,"chemin d'acces de la page hors ligne à afficher!"
picture 20: file_load 20,"outil7\play1.jpg":height 20,24:width 20,24:on_click 20,afficher3
top 20,35:left 20,562:hint 20,"afficher!"
hide 18:hide 19:hide 20
picture 21: file_load 21,"outil7\search.jpg":height 21,24:width 21,24:on_click 21,choix2o4
top 21,35:left 21,50:hint 21,"choisit la page hors ligne à ouvrir!"
edit 22:height 22,17:width 22,475:top 22,40:left 22,80:hint 22,"chemin d'acces de la page hors ligne à afficher!"
picture 23: file_load 23,"outil7\play1.jpg":height 23,24:width 23,24:on_click 23,afficher4
top 23,35:left 23,562:hint 23,"afficher!"
hide 21:hide 22:hide 23

picture 24: file_load 24,"outil7\search.jpg":height 24,24:width 24,24:on_click 24,choix2o5
top 24,35:left 24,50:hint 24,"choisit la page hors ligne à ouvrir!"
edit 25:height 25,17:width 25,475:top 25,40:left 25,80:hint 25,"chemin d'acces de la page hors ligne à afficher!"
picture 26: file_load 26,"outil7\play1.jpg":height 26,24:width 26,24:on_click 26,afficher5
top 26,35:left 26,562:hint 26,"afficher!"
hide 24:hide 25:hide 26

hviewer 33:top 33,60:left 33,120:height 33,320:width 33,410:hide 33
hviewer 34:top 34,60:left 34,120:height 34,320:width 34,410:hide 34
hviewer 35:top 35,60:left 35,120:height 35,320:width 35,410:hide 35
hviewer 36:top 36,60:left 36,120:height 36,320:width 36,410:hide 36
hviewer 37:top 37,60:left 37,120:height 37,320:width 37,410:hide 37

end
rem ============================================================================
i1:
   show 4:show 6:show 8:show 33
   hide 34:hide 35:hide 35:hide 37
   for i =15 to 26
   hide i
   next i
return
rem ============================================================================
i2:
   show 15:show 16:show 17:show 34
   hide 33:hide 35:hide 36:hide 37
   hide 4:hide 6:hide 8
   for i =18 to 26
   hide i
   next i
return
rem ============================================================================
i3:
   show 18:show 19:show 20:show 35
   hide 33:hide 34:hide 36:hide 37
   hide 4:hide 6:hide 8
   hide 15:hide 16:hide 17
   for i =21 to 26
   hide i
   next i
return
rem ============================================================================
i4:
   show 21:show 22:show 23:show 36
   hide 33:hide 34:hide 35:hide 37
   hide 4:hide 6:hide 8
   hide 15:hide 16:hide 17
   hide 18:hide 19:hide 20
   for i =24 to 26
   hide i
   next i
return
rem ============================================================================
i5:
   show 24:show 25:show 26:show 37
   hide 33:hide 34:hide 35:hide 36
   hide 4:hide 6:hide 8
   hide 15:hide 16:hide 17
   hide 18:hide 19:hide 20
   hide 21:hide 22:hide 23
return
rem ============================================================================
choix1:
   open_dialog 27
   text 5,file_name$(27)
return
rem ============================================================================
choix2o1:
   open_dialog 28
   filter 28,"fichiers HTML|*.html;*.htm"
   text 6,file_name$(28)
return
rem ============================================================================
choix2o2:
   open_dialog 29
   filter 29,"fichiers HTML|*.html;*.htm"
   text 16,file_name$(29)
return
rem ============================================================================
choix2o3:
   open_dialog 30
   filter 30,"fichiers HTML|*.html;*.htm"
   text 19,file_name$(30)
return
rem ============================================================================
choix2o4:
   open_dialog 31
   filter 31,"fichiers HTML|*.html;*.htm"
   text 22,file_name$(31)
return
rem ============================================================================
choix2o5:
   open_dialog 32
   filter 32,"fichiers HTML|*.html;*.htm"
   text 25,file_name$(32)
return
rem ============================================================================
executer:
   execute text$(5)
   delete 27
return
rem ============================================================================
afficher1:
   file_load 33,text$(6)
   delete 28
return
rem ============================================================================
afficher2:
   file_load 34,text$(16)
   delete 29
return
rem ============================================================================
afficher3:
   file_load 35,text$(19)
   delete 30
rem ============================================================================
afficher4:
   file_load 36,text$(22)
   delete 31

afficher5:
  file_load 37,text$(25)
  delete 32
return
rem ============================================================================

fin:
  terminate
return
rem ============================================================================

Sujet: apollo Mer 16 Sep 2015 - 2:06

Merci beaucoup pour tout votre aide.
lol!

Sujet: apollo-webdav Mer 16 Sep 2015 - 2:23

je viens de creer mon webdav il est maintenant disponible

Sujet: Re: Apollo Mer 16 Sep 2015 - 2:37

Bravo pour la création de ton WebDav !! Il fonctionne parfaitement et il est protégé en écriture. Très bien. Je regarderai tout ça dans les jours à venir.

Sujet: Re: Apollo Mer 16 Sep 2015 - 2:51

Salut dannick.

Tu as su créer ton webdav, bravo !
Je suis content de t’avoir aidé. Laughing

J’espère aussi que tu sauras, la prochaine fois, comment utiliser les balises [ code] … [ /code].

Edit :
Le dossier que j’ai crée pour toi sur mon webdav n’a plus sa raison d’être maintenant que tu as ton propre webdav.
Je l’ai donc supprimé.

A+

Sujet: apollo Mer 16 Sep 2015 - 3:12

silteplait teste mes codes et dit mw ceque tu en penses

Sujet: Re: Apollo Mer 16 Sep 2015 - 3:29

D’accord, Dannick, je testerai sûrement tes codes quand j’aurai le temps.
Un coup d’œil très rapide, m’a convaincu que tu as des bonnes connaissances sur Panoramic.
Comment l’as-tu découvert ? Et depuis quand tu le pratiques ?
Je me souviens que j’avais remarqué depuis plusieurs mois la présence d’un invité sur le forum depuis le Cameroun.
Et c’était toi king

En tout cas, je suis content que tu sois parmi nous.
Bonne programmation avec Panoramic !

Sujet: Re: Apollo Mer 16 Sep 2015 - 7:52

Bravo pour ton Webdav Dannick !

Je viens de tester INTELLIGENCE VIRTUEL.
Il semble qu'il s'agisse pour l'instant plus d'un menu interface qu'une intelligence proprement dite... Wink

Mais cela semble prometteur. Il y a une certaine recherche graphique et j'aime bien.
Après il faudra voir ce que tu veux faire de tout cela... drunken

Je n'ai pas encore regardé les autres programmes.

Sujet: Re: Apollo Mer 16 Sep 2015 - 9:11

Pareil que Klaus, du coup je vais y jeter plus qu'un coup d'œil dans les jours à venir

Sujet: re Mer 16 Sep 2015 - 9:51

J' ai jeter un oeil vite fait sur tes programmes.
Tu as de bonne base en Panoramic.

Continues à observer les programmes des uns et des autres
et tu verras de toi même ce que tu dois améliorer.
Je te suggère d' aller sur le "Panoramic le Mag" et de lire les articles, tu y trouveras
plein de réponses.

Sujet: Re: Apollo Mer 16 Sep 2015 - 12:06

Si je jette un coup d'œil, j'essayerais de t'aider à corriger le plus gros des fautes d'orthographe (je ne suis pas aussi callé que certains sur le forum, mais je devrais déjà pouvoir dégrossir le travail pour les correcteurs les plus experts Wink

)

si j'ai des idées d'optimisation (ce ne sera peut être pas nécessaire) je te le dirais

Sujet: Re: Apollo Mer 16 Sep 2015 - 14:35

Je viens de tester "androo.bas" dans le dossier "intelligence virtuelle 2"

Il semble que tu as préparé un menu. L'interface est superbe, bravo.
On voit bien que tu connais déjà Panoramic.

En priorité: il faut que tu changes ta façon d'accéder à une image (FILE_LOAD) car j'ai été obligé de changer tous les chemins d'accès.
Par exemple en ligne 28 tu écris: file_load 1,"outils2\facess.bmp" . Chez toi çà marche, mais pas chez moi.
Pourquoi, parce que j'ai dézipé "apollo" sur mon bureau. De ce fait les images sont toutes dans le dossier C:\Users\JeanClaude\Desktop\Apollo <= ça c'est le chemin pour aller vers le dossier outils2.

Pour éviter que l'on soit obligé de tout changer, il faut que tu écrives en ligne 9 ceci: dim rep$ : rep$="\Users\JeanClaude\Desktop\Apollo\"
Chez toi tu dois changer la valeur de rep$ avec ton chemin à toi.
Ensuite tu dois ajouter ceci rep$+ devant tout les noms de fichier des images
Exemple ligne 28: file_load 1,"outils2\facess.bmp" doit être remplacé par file_load 1,rep$+"outils2\facess.bmp"

De cette manière, nous les panoramiciens, pourrons adapter facilement ton programme: on aura juste à changer rep$ en ligne 9.
c'est valable pour toi, si tu changes la place de ton dossier "apollo".

J'espère que mes explications sont assez claires.

En tous cas, bravo pour ton interface graphique, elle a beau "look".

A+

Sujet: Re: Apollo Mer 16 Sep 2015 - 20:36

Salut Dannick

J’ai regardé ton programme androo
Je l’ai remis en forme à ma manière car je considère que la présentation visuelle du code est aussi importante que le fond.
Un code bien présenté (indentation des blocs, séparation des sous-programmes, aération des séquences, etc..) donne envi d’y jeter un œil. C’est du bon sens, mais je n’impose nullement ma vision !
Je suis aussi de l’avis de Jean Claude en ce qui concerne le chemin d’accès au répertoire.
J’ai donc fait ce que t’a suggéré Jean Claude.

Deux petites remarques :
1) Tu utilises

Code:: i = 1
while i > 0
   for j = -1 to 1 step 2
   for k = 1 to 26
   sprite_y_position 20,sprite_y_position(20)-(k*j)
   sprite_y_position 21,sprite_y_position(21)-(k*j)
   sprite_y_position 22,sprite_y_position(22)-(k*j)
   sprite_y_position 23,sprite_y_position(23)-(k*j)
   sprite_y_position 24,sprite_y_position(24)+(k*j)
   sprite_y_position 25,sprite_y_position(25)+(k*j)
   sprite_y_position 26,sprite_y_position(26)+(k*j)
   sprite_y_position 27,sprite_y_position(27)+(k*j)
   pause 30
   next k
   next j
End_wile

Comme la variable de contrôle i ne se modifie pas (elle vaut toujours 1), le bloc d’instructions entre while et end_while est toujours exécuté.
Tu peux donc te passer de while et ça devient

Code:: for j = -1 to 1 step 2
   for k = 1 to 26
   sprite_y_position 20,sprite_y_position(20)-(k*j)
   sprite_y_position 21,sprite_y_position(21)-(k*j)
   sprite_y_position 22,sprite_y_position(22)-(k*j)
   sprite_y_position 23,sprite_y_position(23)-(k*j)
   sprite_y_position 24,sprite_y_position(24)+(k*j)
   sprite_y_position 25,sprite_y_position(25)+(k*j)
   sprite_y_position 26,sprite_y_position(26)+(k*j)
   sprite_y_position 27,sprite_y_position(27)+(k*j)
   pause 30
   next k
   next j

2) Je préfère PAUSE N à WAIT N
En effet WAIT N arrête l’exécution du programme pendant N millisecondes ; les actions en attente ne sont pas exécutés.
Alors que PAUSE N arrête l’exécution du programme pendant N millisecondes ; les actions en attente sont exécutés.

Je ne peux que t'encourager à poursuivre : tu as le bagage nécessaire pour ça.
Tu es très jeune et ton avenir est devant toi.
Fais-toi plaisir, programme en Panoramic Laughing

Voici ton programme que j'ai remis en forme.
Remarque : C'est un gout personnel et tu n'es pas obligé à me suivre. bounce

Code:: rem ============================================================================
rem Androo.bas
rem Par Dannick
rem ============================================================================
   error_french
' numero des objets systemes '
' 1=scene2d;2= ;3= ;4= ;5= ;6= ;7= ;9= ;10= ;11= ;12= ;13= ;14= ;15= ;16= ;17= ;18= ;19= ;20= ;21= ;22= ;23= ;24= ;25= ;26= ;27= ;28= ; '
' 29= ;30= ;31= ;32= ;33= ;34= ;35= ;36= ;37= ;38= ;39= ;40= ;41= ;42= ;43= ;44= ;45= ;46= ;47= ;48= ;49= ;50= ;51= ;52= ;53= ;54= ;55= ;56= ;57= ;58= ; '
' 59= ;60= ;61= ;62= ;63= ;64= ;65= ;66= ;67= ;68= ;69= ;70= ;71= ;72= ;73= ;74= ;75= ;76= ;77= ;78= ;79= ;80= ;81= ;82= ;83= ;84= ;85= ;86= ;87= ;88= '
' 89= ;90= ;91= ;92= ;93= ;94= ;95= ;96= ;97= ;98= ;99= ;100= ; '
rem ============================================================================
dim hy,lx,fin
dim i,j,k,l,m,z,n,o,p,r
dim rep$ : rep$ = "C:\Users\acer\Desktop\Apollo\utilitaires\Intelligence_Virtuelle\" : ' Chemin à adapter
' les variable p et r sont non utilisées

label exit, barre1, barre1_2, barre2, barre2_2, barre3, barre3_2,barre4,barre4_2
label menu, menu2, menu1o1,menu1o2,menu1o3,menu1o4

hy = screen_y : lx = screen_x
' fenëtre
height 0,595 : width 0,815 : top 0,hy/6 : left 0,lx/6 : border_hide 0
' création de la scene2d
scene2d 1 : height 1,595 : width 1,815 : file_load 1,rep$ + "outils2\facess.bmp"

button 2 : caption 2,"X" : height 2,20 : width 2,20 : left 2,667 : top 2,62 : on_click 2,exit
button 4 : caption 4,"1" : height 4,16 : width 4,16 : left 4,47 : top 4,105 : on_click 4,barre1
button 5 : caption 5,"2" : height 5,16 : width 5,16 : left 5,47 : top 5,315 : hide 5 : on_click 5,barre1_2
button 6 : caption 6,"3" : height 6,16 : width 6,16 : left 6,655 : top 6,513 : on_click 6,barre2
button 7 : caption 7,"4" : height 7,16 : width 7,16 : left 7,655 : top 7,305 : hide 7 : on_click 7,barre2_2
button 8 : caption 8,"5" : height 8,16 : width 8,16 : left 8,140 : top 8,130 : on_click 8,barre3
button 9 : caption 9,"6" : height 9,16 : width 9,16 : left 9,560 : top 9,130 : hide 9 : on_click 9,barre3_2
button 10: caption 10,"7": height 10,16: width 10,16: left 10,560: top 10,498 : on_click 10,barre4
button 11: caption 11,"8": height 11,16: width 11,16: left 11,140: top 11,498 : hide 11: on_click 11,barre4_2

button 66: height 66,25 : width 66,40 : caption 66,"menu": top 66,558 : left 66,90 : on_click 66,menu
button 67: height 67,20 : width 67,20 : caption 67,"(X)" : top 67,150 : left 67,150 : on_click 67,menu2 : hide 67
button 68: height 68,20 : width 68,20 : caption 68,"(1)" : top 68,210 : left 68,192 : on_click 68,menu1o1
button 69: height 69,20 : width 69,20 : caption 69,"(4)" : top 69,210 : left 69,445 : on_click 69,menu1o4
button 70: height 70,20 : width 70,20 : caption 70,"(2)" : top 70,210 : left 70,280 : on_click 70,menu1o2
button 71: height 71,20 : width 71,20 : caption 71,"(3)" : top 71,210 : left 71,365 : on_click 71,menu1o3

' bouttons du menu
button 72: height 72,20 : width 72,20 : caption 72,"(1.1)" : top 72,335 : left 72,210 : on_click 72,menu2
button 73: height 73,20 : width 73,20 : caption 73,"(4.1)" : top 73,335 : left 73,260 : on_click 73,menu2
button 74: height 74,20 : width 74,20 : caption 74,"(4.2)" : top 74,335 : left 74,320 : on_click 74,menu2
button 75: height 75,20 : width 75,20 : caption 75,"(1.2)" : top 75,335 : left 75,370 : on_click 75,menu2
button 76: height 76,20 : width 76,20 : caption 76,"(1.3)" : top 76,335 : left 76,420 : on_click 76,menu2
button 77: height 77,20 : width 77,20 : caption 77,"(1.4)" : top 77,335 : left 77,470 : on_click 77,menu2
button 78: height 78,20 : width 78,20 : caption 78,"(3.1)" : top 78,335 : left 78,520 : on_click 78,menu2

' mise en place des sprites
sprite 1 : sprite_file_load 1,rep$ + "outils2\Start1.bmp" : sprite_position 1,5,5
sprite 2 : sprite_file_load 2,rep$ + "outils2\Start2.bmp" : sprite_position 2,760,5

edit 3 : height 3,20 : width 3,702 : top 3,10 : left 3,58 : text 3,"Bonjour!!!!!!!"
sprite 4 : sprite_file_load 4,rep$ + "outils2\pointer.bmp" : sprite_position 4,-5,533
sprite 5 : sprite_file_load 5,rep$ + "outils2\pointer2.bmp" : sprite_position 5,705,533
sprite 6 : sprite_file_load 6,rep$ + "outils2\barre d info.bmp" : sprite_position 6,45,550
sprite 7 : sprite_file_load 7,rep$ + "outils2\bg.bmp"
sprite 8 : sprite_file_load 8,rep$ + "outils2\barre def.bmp" : sprite_position 8,715,55
sprite 9 : sprite_file_load 9,rep$ + "outils2\barre1.bmp" : sprite_position 9,5,85
sprite 10 : sprite_file_load 10,rep$ + "outils2\down.bmp" : sprite_position 10,47,88
sprite 11 : sprite_file_load 11,rep$ + "outils2\up_barre.bmp" : sprite_position 11,15,100 : sprite_hide 11
sprite 12 : sprite_file_load 12,rep$ + "outils2\up.bmp" : sprite_position 12,47,335 : sprite_hide 12
sprite 13 : sprite_file_load 13,rep$ + "outils2\barre2.bmp" : sprite_position 13,615,530
sprite 14 : sprite_file_load 14,rep$ + "outils2\up.bmp" : sprite_position 14,655,530
sprite 15 : sprite_file_load 15,rep$ + "outils2\downbarre.bmp" : sprite_position 15,628,294 : sprite_hide 15
sprite 16 : sprite_file_load 16,rep$ + "outils2\down.bmp" : sprite_position 16,655,285 : sprite_hide 16
sprite 17 : sprite_file_load 17,rep$ + "outils2\barre de gestion.bmp" : sprite_position 17,5,60
sprite 18 : sprite_file_load 18,rep$ + "outils2\relier.bmp" : sprite_position 18,112,125
sprite 19 : sprite_file_load 19,rep$ + "outils2\relier2.bmp" : sprite_position 19,115,148
sprite 20 : sprite_file_load 20,rep$ + "outils2\barre3.bmp" : sprite_position 20,120,87
sprite 21 : sprite_file_load 21,rep$ + "outils2\droite.bmp" : sprite_position 21,125,130
sprite 22 : sprite_file_load 22, rep$ + "outils2\barrrer.bmp" : sprite_position 22,128,88.5:sprite_hide 22
sprite 23 : sprite_file_load 23,rep$ + "outils2\gauche.bmp" : sprite_position 23,590,130:sprite_hide 23
sprite 24 : sprite_file_load 24,rep$ + "outils2\barre4.bmp" : sprite_position 24,575,452
sprite 25 : sprite_file_load 25,rep$ + "outils2\droite.bmp" : sprite_position 25,110,498:sprite_hide 25
sprite 26 : sprite_file_load 26, rep$ + "outils2\barrrer2.bmp" : sprite_position 26,116,450:sprite_hide 26
sprite 27 : sprite_file_load 27,rep$ + "outils2\gauche.bmp" : sprite_position 27,575,498
sprite 28 : sprite_file_load 28,rep$ + "outils2\plat.bmp" : sprite_x_position 28,137:sprite_y_position 28,130:sprite_hide 28
sprite 30 : sprite_file_load 30,rep$ + "outils2\Folder-def-closed.bmp": sprite_x_position 30,180:sprite_y_position 30,160
sprite 31 : sprite_file_load 31,rep$ + "outils2\executeur.bmp" : sprite_x_position 31,200:sprite_y_position 31,300
sprite 32 : sprite_file_load 32,rep$ + "outils2\mp3.bmp" : sprite_x_position 32,255:sprite_y_position 32,300
sprite 33 : sprite_file_load 33,rep$ + "outils2\video.bmp" : sprite_x_position 33,310:sprite_y_position 33,300
sprite 34 : sprite_file_load 34,rep$ + "outils2\e-mail.bmp" : sprite_x_position 34,360:sprite_y_position 34,300
sprite 35 : sprite_file_load 35,rep$ + "outils2\Folder-def-closed.bmp": sprite_x_position 35,265:sprite_y_position 35,160
sprite 36 : sprite_file_load 36,rep$ + "outils2\Folder-Network.bmp" : sprite_x_position 36,350:sprite_y_position 36,160
sprite 37 : sprite_file_load 37,rep$ + "outils2\Folder-Music.bmp" : sprite_x_position 37,430:sprite_y_position 37,160
sprite 38 : sprite_file_load 38,rep$ + "outils2\Folder-Prefs.bmp" : sprite_x_position 38,505:sprite_y_position 38,420
sprite 39 : sprite_file_load 39,rep$ + "outils2\Folder-Apps.bmp" : sprite_x_position 39,180:sprite_y_position 39,160
sprite 40 : sprite_file_load 40,rep$ + "outils2\executeur.bmp" : sprite_position 40,25,120 : sprite 41:sprite_file_load 41,rep$ + "outils2\mp3.bmp":sprite_position 41,25,170
sprite 42 : sprite_file_load 42,rep$ + "outils2\video.bmp" : sprite_position 42,25,220 : sprite 43:sprite_file_load 43,rep$ + "outils2\e-mail.bmp":sprite_position 43,640,320
sprite 44 : sprite_file_load 44,rep$ + "outils2\archiveur.bmp" : sprite_position 44,640,370 : sprite 45:sprite_file_load 45,rep$ + "outils2\cacheur.afficheur.bmp":sprite_position 45,640,420
sprite 46 : sprite_file_load 46,rep$ + "outils2\navigateur.bmp" : sprite_position 46,640,470
sprite 47 : sprite_file_load 47,rep$ + "outils2\archiveur.bmp" : sprite_x_position 47,410:sprite_y_position 47,300
sprite 48 : sprite_file_load 48,rep$ + "outils2\cacheur.afficheur.bmp": sprite_x_position 48,460:sprite_y_position 48,300
sprite 49 : sprite_file_load 49,rep$ + "outils2\navigateur.bmp" : sprite_x_position 49,510:sprite_y_position 49,300

for k = 40 to 46 : sprite_hide k : next k
for i = 68 to 78 : hide i : next i
for i = 30 to 39 : sprite_hide i : next i
for i = 47 to 49 : sprite_hide i : next i

sprite 50:sprite_file_load 50,rep$ + "outils2\down.bmp":sprite_x_position 50,105:sprite_y_position 50,50
sprite 51:sprite_file_load 51,rep$ + "outils2\down.bmp":sprite_x_position 51,127:sprite_y_position 51,67
sprite 52:sprite_file_load 52,rep$ + "outils2\down.bmp":sprite_x_position 52,149:sprite_y_position 52,67
sprite 53:sprite_file_load 53,rep$ + "outils2\down.bmp":sprite_x_position 53,171:sprite_y_position 53,67
sprite 54:sprite_file_load 54,rep$ + "outils2\down.bmp":sprite_x_position 54,193:sprite_y_position 54,67
sprite 55:sprite_file_load 55,rep$ + "outils2\down.bmp":sprite_x_position 55,215:sprite_y_position 55,67
sprite 56:sprite_file_load 56,rep$ + "outils2\down.bmp":sprite_x_position 56,235:sprite_y_position 56,67
sprite 57:sprite_file_load 57,rep$ + "outils2\down.bmp":sprite_x_position 57,259:sprite_y_position 57,67
sprite 58:sprite_file_load 58,rep$ + "outils2\down.bmp":sprite_x_position 58,281:sprite_y_position 58,67
sprite 59:sprite_file_load 59,rep$ + "outils2\down.bmp":sprite_x_position 59,303:sprite_y_position 59,67
sprite 60:sprite_file_load 60,rep$ + "outils2\down.bmp":sprite_x_position 60,325:sprite_y_position 60,67
sprite 61:sprite_file_load 61,rep$ + "outils2\down.bmp":sprite_x_position 61,347:sprite_y_position 61,67
sprite 62:sprite_file_load 62,rep$ + "outils2\down.bmp":sprite_x_position 62,369:sprite_y_position 62,67
sprite 63:sprite_file_load 63,rep$ + "outils2\down.bmp":sprite_x_position 63,391:sprite_y_position 63,67
sprite 64:sprite_file_load 64,rep$ + "outils2\down.bmp":sprite_x_position 64,413:sprite_y_position 64,67
sprite 65:sprite_file_load 65,rep$ + "outils2\down.bmp":sprite_x_position 65,435:sprite_y_position 65,67
sprite 66:sprite_file_load 66,rep$ + "outils2\down.bmp":sprite_x_position 66,457:sprite_y_position 66,67
sprite 29:sprite_file_load 29,rep$ + "outils2\down.bmp":sprite_x_position 29,479:sprite_y_position 29,67
sprite 67:sprite_file_load 67,rep$ + "outils2\down.bmp":sprite_x_position 67,501:sprite_y_position 67,67
sprite 68:sprite_file_load 68,rep$ + "outils2\down.bmp":sprite_x_position 68,523:sprite_y_position 68,67
sprite 69:sprite_file_load 69,rep$ + "outils2\down.bmp":sprite_x_position 69,545:sprite_y_position 69,67
sprite 70:sprite_file_load 70,rep$ + "outils2\down.bmp":sprite_x_position 70,567:sprite_y_position 70,67
sprite 71:sprite_file_load 71,rep$ + "outils2\down.bmp":sprite_x_position 71,589:sprite_y_position 71,67
sprite 72:sprite_file_load 72,rep$ + "outils2\down.bmp":sprite_x_position 72,611:sprite_y_position 72,67

if mouse_x_position(1) = 127 and mouse_y_position(1)= 67 then cursor_point 1
i = 1
while i > 0
   for j = -1 to 1 step 2
   for k = 1 to 26
   sprite_y_position 20,sprite_y_position(20)-(k*j)
   sprite_y_position 21,sprite_y_position(21)-(k*j)
   sprite_y_position 22,sprite_y_position(22)-(k*j)
   sprite_y_position 23,sprite_y_position(23)-(k*j)
   sprite_y_position 24,sprite_y_position(24)+(k*j)
   sprite_y_position 25,sprite_y_position(25)+(k*j)
   sprite_y_position 26,sprite_y_position(26)+(k*j)
   sprite_y_position 27,sprite_y_position(27)+(k*j)
   pause 30
   next k
   next j
end_while

end
rem ============================================================================
exit:
   terminate
return
rem ============================================================================
barre1:
   sprite_show 11 : sprite_show 12 : sprite_show 40
   sprite_show 41 : sprite_show 42 : show 5
return
rem ============================================================================
barre1_2:
   sprite_hide 11 : sprite_hide 12 : sprite_hide 40
   sprite_hide 41 : sprite_hide 42 : hide 5
return
rem ============================================================================
barre2:
   sprite_show 15 : sprite_show 16 : sprite_show 43
   sprite_show 44 : sprite_show 45 : sprite_show 46 : show 7
return
rem ============================================================================
barre2_2:
   sprite_hide 15 : sprite_hide 16 : sprite_hide 43
   sprite_hide 44 : sprite_hide 45 : sprite_hide 46 : hide 7
return
rem ============================================================================
barre3:
   sprite_show 22 : sprite_show 23 : show 9
return
rem ============================================================================
barre3_2:
   sprite_hide 22 : sprite_hide 23 : hide 9
return
rem ============================================================================
barre4:
   sprite_show 26 : sprite_show 25 : show 11
return
rem ============================================================================
barre4_2:
   sprite_hide 26 : sprite_hide 25 : hide 11
return
rem ============================================================================
menu:
   sprite_show 28 : show 67
   for n = 68 to 71 : show n : next n
   sprite_show 30
   for o = 35 to 39 : sprite_show o : next o
return
rem ============================================================================
menu1o1:
   show 72
   for i = 75 to 77 : show i : next i
   sprite_show 31 : sprite_show 34
   for k = 47 to 48 : sprite_show k : next k
   return
rem ============================================================================
menu1o2:
' ???
return
rem ============================================================================
menu1o3:
   show 78 : sprite_show 49
return
rem ============================================================================
menu1o4:
   show 73 : show 74 : sprite_show 32 : sprite_show 33
return
rem ============================================================================
menu2:
   sprite_hide 28 : hide 67
   for i = 68 to 78 : hide i : next i
   for i = 30 to 39 : sprite_hide i : next i
   for i = 47 to 49 :sprite_hide i : next i
return
rem ============================================================================

Sujet: Re: Apollo Mer 16 Sep 2015 - 20:53

Papydall a écrit:: Je ne peux que t'encourager à poursuivre : tu as le bagage nécessaire pour ça.
Tu es très jeune et ton avenir est devant toi.
Fais-toi plaisir, programme en Panoramic

OUI, c'est certain tu as les possibilités.
Et surtout, tu as des idées très intéressantes.
Je t'encourage à regarder comment Papydall a restructuré ton code, sans changer ton programme.

Travaille bien à l'école et programme quand tu as du temps, tu vas allez loin.

A+

Sujet: Re: Apollo Mer 16 Sep 2015 - 21:04

@Papydall:
tu écris:

Citation :: Deux petites remarques :
1) Tu utilises

Code:
i = 1
while i > 0
for j = -1 to 1 step 2
for k = 1 to 26
sprite_y_position 20,sprite_y_position(20)-(k*j)
sprite_y_position 21,sprite_y_position(21)-(k*j)
sprite_y_position 22,sprite_y_position(22)-(k*j)
sprite_y_position 23,sprite_y_position(23)-(k*j)
sprite_y_position 24,sprite_y_position(24)+(k*j)
sprite_y_position 25,sprite_y_position(25)+(k*j)
sprite_y_position 26,sprite_y_position(26)+(k*j)
sprite_y_position 27,sprite_y_position(27)+(k*j)
pause 30
next k
next j
End_wile

Comme la variable de contrôle i ne se modifie pas (elle vaut toujours 1), le bloc d’instructions entre while et end_while est toujours exécuté.
Tu peux donc te passer de while et ça devient

Je ne suis pas d'accord avec toi. Cette boucle while ne se termine jamais, et me programme boucle donc sans fin, et c'est la raison de la "pause 30". Ce que tu proposes, est un passage unique, ce qui n'est pas du tout la même chose.

Il faudrait expliquer à Dannik d'utiliser un timer et placer ce code dans la routine évènement du timer, revenant ainsi à un programme évènementiel Windows normal.

Sujet: Re: Apollo Mer 16 Sep 2015 - 23:10

Salut Klaus

Tu as parfaitement raison et je me sens Embarassed

Comment, j’ai pu imaginer une telle erreur de logique !
Je suis désolé, dannick : ta logique du while … end_while est correcte.
Oublie ma remarque et une fois de plus merci à Klaus qui veille à tout.

Sujet: apollo Jeu 17 Sep 2015 - 2:21

Salut à tous.

C' est juste pour vous rappeller que j attand toujours vos propositions pour apollo

Sujet: apollo Jeu 17 Sep 2015 - 2:25

Comment faire si je voudrai créer des applications que j enregistrerais en .apl et qui ne pourrons etre ouvert que par apollo?
Un peu comme les .APK qui ne s ouvres que sur des android. Question

Sujet: apollo Jeu 17 Sep 2015 - 2:32

comment pouras je faire pour prograamer un exploratoeur des fichiers se trouvant dans les disque dure? Question

Sujet: Re: Apollo Jeu 17 Sep 2015 - 3:07

Citation :: Comment faire si je voudrai créer des applications que j enregistrerais en .apl et qui ne pourrons etre ouvert que par apollo?
Un peu comme les .APK qui ne s ouvres que sur des android.

Je ne vois pas de solution réellement utilisable à ce problème. En fait, un programme Panoramic doit porter l'extension EXE pour être reconnu par Windows comme un exécutable. Tu peux le renommer avec une autre extension, mais il ne sera plus exécutable. Si quelqu'un a une meilleure idée, je suis preneur aussi...

Citation :: comment pouras je faire pour prograamer un exploratoeur des fichiers se trouvant dans les disque dure?

Là, il y a une solution:

Code:: dim f$
memo 10 : width 10,400 : height 10,400 : bar_both 10
' la boucle de recherche ne marche que dans le dossier par défaut actuel.
' c'est pourquoi il faut faire un dir_change pour imposer le dossier
' dans lequel tu veux chercher
' dir_change "C:\MonDossier\MonSousDossier\"
f$ = file_find_first$
while f$<>"_"
item_add 10,f$
f$ = file_find_next$
end_while
file_find_close

Sujet: Re: Apollo Jeu 17 Sep 2015 - 7:46

Citation :: Comment faire si je voudrai créer des applications que j enregistrerais en .apl et qui ne pourrons etre ouvert que par apollo?
Un peu comme les .APK qui ne s ouvres que sur des android.

Comme l'a dit Klaus, c'est la seul solution envisageable.
Après tu peux très bien aussi créer des liens avec des boutons qui lancent des applications directement par une ligne du type EXECUTE_WAIT par exemple. Comme cela tu peux lancer toutes les applications qui sont déjà installer sur ton PC. Mais je ne suis pas sûr que c'est ce que tu cherche !

Si cela t'intéresses, j'avais fais une barre de lancement que tu peux retrouver sur mon WEBDAV.
Et voici le lien de discussion sur le forum : https://panoramic.1fr1.net/t2433-barre-de-lancement

Sujet: Re: Apollo Jeu 17 Sep 2015 - 9:12

ou alors tu triches. dans ton programme, tu renommes avant le fichier apo en .exe et tu vérifies que l'ordinateur a eu le temps de faire la modification puis tu le lance et en revenant dans ton programme, tu renommes aussitôt le fichier exe en .apo
Ca permet de donner l'impression de lancer un fichier apo en contournant la difficulté.

Sujet: Re: Apollo Jeu 17 Sep 2015 - 9:48

Justement, ça ne marche pas, Jicehel. On ne peut pas renommer un fichier qui est en cours d'exécution. Pour cela, il faut attendre que le programme s'arrête...

Sujet: Re: Apollo Jeu 17 Sep 2015 - 10:21

Oui, mais on le renomme avant qu'il soit utilisé dans ton programme.
Tu attends que le nom ait changé
On le lance le programme
A la fin de son traitement, on attend qu'il soit fermé et on le renomme de nouveau.

Sujet: Re: Apollo Ven 18 Sep 2015 - 18:56

j’interviens a ce poste pour vous donner
une p'tite précision en ce qui concerne
les fichier .apk; en réalité ces fichiers sont
des équivalents à des zip c'est à dire des fichiers
compressés
je parle des fichier apk ce qui sont servis pour les téléphones!

» apollo-à Klaus