PANORAMIC V0.9.13

La version V 0.9.13 de PANORAMIC_EDITOR est disponible au téléchargement .

Voici ses caractéristiques :

- version complète (plus aucune limitation en nombre d'objets système, d'objets 3D, de variables, de labels, ...)

- PANORAMIC_EDITOR peut être appelé avec le nom du fichier source passé en paramètre.
 
- 2 mots-clés pour cocher ou décocher les objets système CHECK et OPTION:
MARK_ON : coche un CHECK ou un OPTION
MARK_OFF : décoche un CHECK ou un OPTION
 
- 4 mots-clés pour gérer les erreurs:
ON_ERROR_GOTO label : en cas d'erreur, un branchement sur "label" sera effectué
ERROR_LINE : variable système donnant le numéro de la ligne du source qui a causé l'erreur
ERROR_NUMBER : variable système donnant le numéro de l'erreur (son code)
ERROR_TYPE$ : variable système donnant une description de l'erreur (son type)
 
- 2 mots-clés pour changer la langue de description des erreurs:
ERROR_FRENCH : choisit le français comme langue des erreurs
ERROR_ENGLISH : choisit l'anglais comme langue des erreurs (c'est l'option par défaut)

Je teste la dernière version, je boucle dans le petit test ci-dessous (test d'erreur sur 'etiq' non déclaré), sans affichage de l'erreur:

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

Oui, et si on met la ligne 3 en commentaire, on a bien l'erreur 56 "Label non valide" signalée à la ligne 6 et en français dans le texte!
Eh bien, je prends note, je vais regarder pourquoi et je corrigerai ce problème.
Et voila déjà une raison pour sortir la V 0.9.14 !

Merci, ce n'est pas vital, le reste a l'air de fonctionner.

je pense que sais un grand jour pour panoramic

une version complète (plus aucune limitation en nombre d'objets système, d'objets 3D, de variables, de labels, ...)

quan je vais avoir le temps je vais pouvoir la testé

encore bravo panoramic pour le travaille que tu fait

bonne journée a toi

Salut à tous,

Question à JL35 et proposition à PANORAMIC:

GOTO etiq
etiq:
END

Je ne peus pas tester ton test, il plante
dans ton test ON_ERROR_GOTO, Tu fais un GOTO etiq avant END ???. Il y a 2 END et pas de TERMINATE ???

PANORAMIC, tu cherches des raisons de sortir la V.0.9.14, en voila une qui me tiens à coeur (vu que je programme plutot Buisiness que 3D): Avoir une commande du style ON_ENTER 1,finde saisie, pour un EDIT. Dans un premier temps est-ce faisable?

A+

Effectivement la syntaxe de mon test est un peu farfelue, mais le but était de tester rapidement l'affichage des erreurs avec les nouvelles commandes, et ce sont ces commandes-là qui plantent (enfin, qui bouclent quelque part).
Si on met un rem devant le ON_ERROR il y a bien affichage de l'erreur de label.

A ce propos, ce serait bien que l'éditeur admette l'apostrophe au même titre que le Rem en début de commentaire, comme dans les autres basics. A chaque fois je me fais avoir...

Citation :

Avoir une commande du style ON_ENTER 1,finde saisie, pour un EDIT.

J'ai bien compris ton besoin. Je vais regarder comment un EDIT pourrait déterminer qu'un ENTER a été tapé.

Citation :

A ce propos, ce serait bien que l'éditeur admette l'apostrophe au même titre que le Rem en début de commentaire, comme dans les autres basics.

Très bonne idée. Je l'ajoute dans ma "to do list" qui est ENOORME !

Si ons continuent comme çà, Tu vas être obligé de prendre une année sabatique pour satisaire nos "désiratas"

Mais je suis telement content d'avoir enfin trouvé le logiciel de programmation qui me convient que je n'ais pas envie de te lacher.....

A+

Salut

Je suis entièrement d'accord avec toi Jean-Claude. Je trouve Panoramic excellent.

@+

J'ai pas l'intention de raconter ma vie, à longeur de temps. Celà n'intéresse que moi, mais pour une fois je vais vous raconter un problème qui m'ai arrivé et qui peut être important pour quelqu'un. Depuis deux jours, je suis bloqué sur mon programme avec une erreur en anglais, alors que celles-ci ont étées francisées par ERROR_FRENCH, et qui est:
(6) More IF than END_IF.
Je ne comprenais pas s'il s'agissait d'un dépassement du nombre d'instruction qui normalement n'avait plus lieu d'être, ou d'une erreur sur cette instruction.
J'ai regardé chaque ligne, voir si chaque IF sur une ligne avait THEN, les groupes de lignes, avec sont END_IF, qui si on oubli "_" visualise quand même en bleu, vu que ce sont deux instructions basic. J'étais 54 instructions de IF ...
Aujourd'hui, j'ai pu récupérer ma box en échange de l'autre qui était en panne, et mon imprimante wifi devenant opérationelle, j'ai donc imprimé mon scrip. Et là, j'ai trouvé: A la fin d'une série d'instructions précédentes sur la même ligne, en dépassement de l'éditeur panoramic, il y avait un caption xxx,"avec un texte, mais dont le guillemet n'était pas été mis. Aussi panoramic n'a pas pris en compte le changement de ligne, et n'ayant pas de numéro de ligne surligné sur l'erreur, je ne la voyais pas (le programme faisant actuellemnt plus de 900 lignes. Il faut dire que pour faciliter le débogage du programme, j'ai une un objet FORM supplémentaire avec pour chaque variable, un alpha du nom de chaque variable, et edit pour la visualiser, du genre:


rem FORME DE DEBOGAGE (à la suite des objets, avant END
FORM 36:width 36,520:height 36,1200:color 36,255,230,230 :caption 36,"débogage"
border_hide 36
h%=10:a%=37

alpha a%:top a%,h%:caption a%,"a%" :width a%,40:height a%,15:parent a%,36:font_bold a%
a%=a%+1: edit a%:top a%,h%:width a%,50:height a%,15:parent a%,36:left a%,45:font_bold a%: h%=h%+20

a%=a%+1:alpha a%:top a%,h%:caption a%," b% " :width a%,40:height a%,15:parent a%,36:font_bold a%
a%=a%+1: edit a%:top a%,h%:width a%,50:height a%,15:parent a%,36:left a%,45:font_bold a%: h%=h%+20

etc... etc... avec copier/coller, celà va assez vite.

et sous programme:

debo:
z%=38
text z%,str$( a% ) :z%=z%+2
text z%,str$( b% ) :z%=z%+2

etc... etc... répéter autant de fois qu'il y a de variable, avec le nom de celui-ci
return

Aussi, chaque fois que j'ai un problème, il suffit de faire: gosub debo et les variables sont visualisées.
Surtout si l'un d'entre vous à mieu, qu'il le dise.

Merci de me lire. A vous

salut cosmos70

si j'ai bien compris, tu créé des objets systèmes pour gérer des erreurs?
ou bien est-ce autre chose.

le GOSUB est engagé automatique ou par commande dans ton progs.
Je ne suis pas sur d'avoir saisie la finalité de l'opération.

georges
@+

bonjour panoramic

jai un problème avec la dernière version

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

je vais attendre plus tard

merci est bonne journée

Code:

label quit
full_space 0
caption 0,"Météorologie

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,"Les Annuels" : parent 11, 2
sub_menu 12 : caption 12,"Les mois de Janvier" : parent 12, 2
sub_menu 13 : caption 13,"Les mois de Février" : parent 13, 2
sub_menu 14 : caption 14,"Les mois de Mars" : parent 14, 2
sub_menu 15 : caption 15,"Les mois de Avril" : parent 15, 2
sub_menu 16 : caption 16,"Les mois de Mai" : parent 16, 2
sub_menu 17 : caption 17,"Les mois de Juin" : parent 17, 2
sub_menu 18 : caption 18,"Les mois de Juillet" : parent 18, 2
sub_menu 19 : caption 19,"Les mois de Août" : parent 19, 2
sub_menu 20 : caption 20,"Les mois de Septembre" : parent 20, 2
sub_menu 21 : caption 21,"Les mois de Octobre" : parent 21, 2
sub_menu 22 : caption 22,"Les mois de Novembre" : parent 22, 2
sub_menu 23 : caption 23,"Les mois de Décembre" : parent 23, 2
sub_menu 24 : caption 24,"Le Record Annuel" : parent 24, 2
sub_menu 25 : caption 25,"Le Record de Janvier" : parent 25, 2
sub_menu 26 : caption 26,"Le Record de Février" : parent 26, 2
sub_menu 27 : caption 27,"Le Record de Mars" : parent 27, 2
sub_menu 28 : caption 28,"Le Record de Avril" : parent 28, 2
sub_menu 29 : caption 29,"Le Record de Mai" : parent 29, 2
sub_menu 30 : caption 30,"Le Record de Juin" : parent 30, 2
sub_menu 31 : caption 31,"Le Record de Juillet" : parent 31, 2
sub_menu 32 : caption 32,"Le Record de Août" : parent 32, 2
sub_menu 33 : caption 33,"Le Record de Septembre" : parent 33, 2
sub_menu 34 : caption 34,"Le Record de Octobre" : parent 34, 2
sub_menu 35 : caption 35,"Le Record de Novembre" : parent 35, 2
sub_menu 36 : caption 36,"Le Record de Décembre" : parent 36, 2








end

quit:
terminate
return

Salut DEBUT,

Effectivement, j'ai tester ton code, il y a une limite dans ce cas. Si on met un rem à la derniere ligne, il fonctionne.

PANORAMIC va sûrement nous dire ce qui se passe.

A+

salut Jean Claude

jai testé avec un rem sa na rien changé

Panoramic va sûrement arangé sa plus tard
avec tou le travaille quil a faire fau lui laissé le temp

A+

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