PANORAMIC V0.9.13

salut
le rem sur la ligne du sub_menu (au début de ligne)
ça affiche le menu

@+

salut Georges

ta raison sa fonctionne on voi le menu

mes le problème c'est on peut pas mêtre autre chose

la dernière ligne du code apparei pas quand tu click sur exécuter

on ne voi pas (Le Record de Décembre)

Code:

rem demo:sub_menu 36 : caption 36,"Le Record de Décembre" : parent 36, 2

A+

salut

oui, tu as raison.
Il se pourrait qu'il y ait une limitation sur le main_menu d'un premier abord.

Panoramic pourra certainement nous éclairer.

Georges
@+

Bon, il y a pas mal de choses intéressantes dans ce post.

Je n'aurai pas le temps de tout regarder en détail avant la fin du mois (je suis en vacances), mais pour résumé, les points suivants sont notés:

1 - Le label non déclaré etiq ne provoque pas d'erreur dans le code de JL35.
Il y a manifestement un bug dans PANORAMIC.

Code:

ERROR_FRENCH
LABEL erreur, tst
ON_ERROR_GOTO erreur
tst:
PRINT "Programme de test"
GOTO etiq
etiq:
END

erreur:
PRINT STR$(error_line), STR$(error_number)
PRINT ERROR_TYPE$
WHILE INKEY$ = "": END_WHILE
END

2 - Voir comment un EDIT peut déterminer qu'un ENTER a été tapé et éventuellement, faire un "ON_ENTER N,label", voire une nouvelle sorte d'EDIT.

3 - Accepter l'apostrophe comme un début de remarques (comme rem). Tout à fait d'accord.

4 - L'erreur "More IF than END_IF" arrive alors qu'il y a une commande ERROR_FRENCH.
Là, je ne peux pas faire grand chose dans l'immédiat.
En effet, toutes les erreurs de "structure":

More END_IF than IF
More IF than END_IF
More ELSE than IF
More ELSE than END_IF
More NEXT than FOR
More FOR than NEXT
More END_WHILE than WHILE
More WHILE than END_WHILE
More UNTIL than REPEAT
More REPEAT than UNTIL
More END_SELECT than SELECT
More SELECT than END_SELECT

sont détectées par un module de PANORAMIC qui teste la structure du source AVANT d'exécuter la première ligne du source.
Ainsi, le libellé de ces erreurs est en anglais car la commande ERROR_FRENCH n'a pas encore été exécutée quand l'erreur arrive.
J'aurai du le dire. Cela sera écrit dans la documentation.

5 - Un ENDIF coloré en bleu est une anomalie, mais je n'arrive pas à le reproduire. La version de l'EDITOR ne colore que END_IF et non ENDIF.

6 - Limitation du nombre d'objets.

Citation :

je réussi pas a terminé mon menu il semble avoir une limite
il apparei une fenêtre qui me dit

(47) OBJECT nomber Out of Range Line:45

je sais que mon menu va être assez lourd mes jai pas le choix de le faire comme sa

Aie, aie, aie, il y a effectivement toujours une limitation au nombre d'objets système non visibles:
OPEN_DIALOG, SAVE_DIALOG, MAIN_MENU, SUB_MENU, SOUND.

Je comptais permettre un nombre illimités d'objets non visibles plus tard car je voulais sortir rapidement une version complète (avant mes vacances ...) et pour me simplifier la tâche, j'ai fait une impasse sur ce type d'objets car j'avais tenu le raisonnement suivant:
- Pour OPEN_DIALOG et SAVE_DIALOG, une limitation à 40 n'est pas gênante car je doute de l'utilité de mettre plus de 40 boîtes de dialogue dans une application.
- Pour MAIN_MENU, à moins d'avoir plus de 40 FORM ayant chacune un menu, il n'y a pas de soucis.
- Vouloir mettre plus de 40 sons différents, cela pourrait se concevoir peut-être dans un jeu, mais comme les collisions ne sont toujours pas codées dans PANORAMIC, je doute que quelqu'un réalise un jeu à plus de 40 sons différents.
- Faire un menu à 40 sous-menu est exceptionnel... Et c'est là où je me suis trompé. Car début l'a fait !
En effet, c'est très gênant: une limitation à 40 sous-menus restreint vraiment l'utilisation des menus. J'avais sous-estimé cette possibilité...

Je vais sortir une nouvelle version qui corrige tout cela, début septembre ou au plus tard mi-septembre.

bonjour panoramic

c'est pas évident de savoir a l'avant que quelquun va faire
un menu à plus de 40 sous-menu je pense être un des seul a avoir autan de sub_menu

merci pour ta réponse
est bonne vacances

Dans la remarque que j'avais fait, il s'agissait de END IF en 2 mots, qui sont 2 commandes du basic, aussi il y a un coloriage. Il n'y a aucun problème à ce sujet, vu que j'avais regardé, si je l'avait écrit sans "_". Le seul reproche que je fais, est qu'une erreur a été commise, sur la ligne précédente, qui était une autre erreur, l'instruction CAPTION avec un texte entre guillemets n'était pas correcte vu que les guillemets de fin de texte n'étaient pas présentent. Le saut à la ligne n'étant pas pris en compte, le END_IF suivant, n'a pas été reconnu. Ce qui voudrai dire qu'un texte peut s'écrire sur plusieurs lignes (je pense à cela maintenant, et je n'ai pas encore fait l'essai).
Pour ce qui est des erreurs en anglais, j'ai retrouvé dans le forum, un post sur la liste des codes erreurs. Cela facilite la compréhension, par contre la ligne en cause, n'est pas toujours présente.
Pourquoi, chez moi, l'instruction BEEP ne marche pas, ce n'ai pas un problème de son, vu que TERMINATE en fait. (j'ai un ordi d'occasion de 2001 avec je crois un windows 2000, mais je l'ai reçu avec XP familiale Est-ce une raison?)
Il y a d'autres erreurs, je ferais un poste plus tard, à ce sujet. Je suis pris par mon programme et Panoramic n'aime pas ouvrir 2 fenêtres d'editeur en même temps. Je ferais des copies de codes plus tard.
Merci pour ton travail.

Merci pour cette clarification.

salut comos70,

Un petit tuyau concernant BEEP et TERMINATE.

Si un son est joué après un terminate, je pense que PANORAMIC n'y est pour rien. Si ton code ce termine par TERMINATE avec absolument rien derriere, même pas un RETURN, alors tu n'auras pas de son. Je pense que c'est Windows qui envoi le son. Maintenant, dans tous mes codes j'ai un label "fin" qui se trouve complètement en fin de code et ce label contient uniquement TERMINATE, et pour sortir j'utilise GOTO fin ,Du coup plus de son quand on quitte.
Quant au BEEP, sauf erreur , le son qui est joué n'est pas le même, et pour ma part il fonctionne normalement.

A+

Pour confirmer ce que je viens d'écrire, essai ce petit code, tu comprendras de suite

Code:

beep
wait 1000

terminate
return

tu recommences sans RETURN après TERMINATE. CQFD.

A+

Jean Claude, j'ai essayé ton code:
beep ne fonctionne pas, et pour terminate c'est compris.
D'ailleurs, j'y pense, avec justbasic, beep ne fonctionnait pas non plus.

Salutation

j'ai mis panoramic sur une clé usb pour voir sur un eeepc et essayé l'instruction BEEP.
cela fonctionne. Ce n'est pas une instruction majeure. Mais pourquoi, cela ne fonctionne pas sur mon pc. Il me semble que tous mes codex sont à jour.
Y a t-il un dll qui manque? Celà est hors de mes compétences.
A plus

Je ne sais pas non plus pourquoi.
A+

salut debut

En attendant le déblocage de la limitation des objets systèmes de menu, je te propose une astuce pour continuer ton menu.

Essaye le code suivant et dis-moi ce que tu en pense.

Code:

label men2,men3,men4,men5,men6,men7,men8,men9,men10,quit
label soleil,data01
dim i,nom$
full_space 0
caption 0,"Météorologie
error_french
rem Creation of a menu
main_menu 1

sub_menu 2 : caption 2,"Soleil" : parent 2, 1
sub_menu 3 : caption 3,"Neige" : parent 3, 1
sub_menu 4 : caption 4,"Pluie" : parent 4, 1
sub_menu 5 : caption 5,"Vent" : parent 5, 1
sub_menu 6 : caption 6,"Humidité" : parent 6, 1
sub_menu 7 : caption 7,"Température Maximum" : parent 7, 1
sub_menu 8 : caption 8,"Température Minimum" : parent 8, 1
sub_menu 9 : caption 9,"Orage" : parent 9, 1
sub_menu 10 : caption 10,"Version" : parent 10, 1
sub_menu 11 : caption 11,"Quitter" : parent 11,1
for i=1 to 10 : list i+11 : hide i+11 : next i
on_click 2,men2
on_click 3,men3
on_click 4,men4
on_click 5,men5
on_click 6,men6
on_click 7,men7
on_click 8,men8
on_click 9,men9
on_click 10,men10
on_click 11,quit
on_click 12,soleil
end
men2:
for i=1 to 10 : hide i+11 : next i : clear 12
color 12,210,210,210 : width 12,150 : height 12,350 : show 12
restore : gosub data01
for i=1 to 26
read nom$
item_add 12,nom$
next i
return
men3:
message "EN CONSTRUCTION"
return
men4:
message "EN CONSTRUCTION"
return
men5:
message "EN CONSTRUCTION"
return
men6:
message "EN CONSTRUCTION"
return
men7:
message "EN CONSTRUCTION"
return
men8:
message "EN CONSTRUCTION"
return
men9:
message "EN CONSTRUCTION"
return
men10:
message "EN CONSTRUCTION"
return
soleil:
hide 12
nom$ = "Vous avez clicker sur : " + item_index$(12)
print_locate 120,400 : print nom$
wait 3000 : cls
return

data01:
data "Les_Annuels","Les mois de Janvier","Les mois de Février","les mois de Mars"
data "Les mois d'Avril","Les mois de Mai","Les mois de Juin","Les mois de Juillet"
data "Les mois d'Août","Les mois de Septembre","Les mois d'Octobre","Les mois de Novembre"
data "Les mois de Décembre","Le record Annuel","Le record de Janvier","Le record de Février"
data "Le record de Mars","Le record d'Avril","Le record de Mai","Le record de Juin"
data "Le record de Juillet","Le record d'Août","Le record de Septembre","Le record d'Octobre"
data "Le record de Novembre","Le record de Décembre"
return
quit:
terminate

Georges
@+

salut Georges

jai Essayer ton code qui semble fonctionné assez bien
c'est une autre façon de faire que je trouve original

je vais pouvoir continué avec se code

en même temp je vais essayer de tou comprendre ton code je pense quil y a des possibilité avec la couleur de fon que je pense utilisé

merci
A+

Salut

Pas de problème.
Une autre possibilité est par exemple de récupérer les sous-menus dans des fichiers et les stoqués dans des tableaux au lieu des DATA.

Bonne prog

Georges
@+

Pour cosmos70:
BEEP est un son purement Windows, qui n'utilise aucune DLL et qui n'a besoin d'aucun codec.

ok, j'avais compris après coup, me rappelant que sur windows 98, j'avais modifié les sons des évènements windows. Il faudrait seulement savoir (s'il s'agit bien d'un son wav ), quel est le son qui est choisi, et l'emplacement comme windows\system32 ou Media .... Je ne sais pas comment est fait l'appel de la fonction (d'ailleurs en quel langage est codé Panoramic?) Enfin finalement peut importe, j'ai seulement pris l'habitude d'aller au bout de mes idées, mais il y a tellement plus important!.
Merci pour ton intervention.
à +