AMELIORATION DE PANORAMIC

Bonjour à tous,
J'ai lu dans ce forum l'idée très intéressante de redéfinir les mots clefs du basic en français. A ce sujet, il existe (existait précisement) un basic très complet, puissant et performant. Il s'agit du langage de développement de la base de donnée 4D version 4 si je ne m'abuse.

Dans cette version, il y avait des commendes très intéressantes comme [au cas ou:]
Dans la version panoramic du basic, il manque les tableau à N dimensions (mais ce n'est pas fondamental).
Par contre le traitement de [if] pose problème quand il faut sortir de la condition avant [end_if], ce qui arrive souvent. Il est désagréable de devoir utiliser une variable de contrôle pour contourner le problème.

Questions:
1/Pourquoi ne maîtrisons nous pas le format de sauvegarde (bas ou txt) La sauvegarde au format Texte se fait automatiquement mais pas toujours ou alors avec un délais que je ne m'explique pas.

2/ Je n'ai pas trouvé de fonction pas à pas avec un traçage du déroulement dans le code pour debuger. Existe t'elle cette fonction?

En tout cas BRAVO pour le développement de ce Basic.

Harzonis a écrit:

En tout cas BRAVO pour le développement de ce Basic.

Merci pour cet encouragement, et bienvenue.
Je suis "Jack", le créateur de Panoramic.
J'aime découvrir les impressions de nouveaux utilisateurs car les "nouveaux" n'ont pas d'à-priori, ne sont pas formatés à Panoramic et font donc des remarques importantes pour moi.

Citation :

J'ai lu dans ce forum l'idée très intéressante de redéfinir les mots clefs du basic en français.

Tu as pu voir aussi que cela n'a pas soulevé l'enthousiasme et après avoir fait une version en français, je n'ai pas continué. Vu le nombre de francophones dans le monde et donc d'utilisateurs potentiels d'un langage de programmation en français, il n'est pas impossible que je sorte une version française, mais ce n'est pas ma priorité. Je n'arrive même pas à faire face aux demandes fréquentes d'amélioration ou de corrections de bugs, faute de temps.
Tu cites 4D, mais il y a aussi WinDev il me semble, qui "parle français".

Citation :

il manque les tableau à N dimensions (mais ce n'est pas fondamental).

C'est vrai et un jour je les intègrerai. Panoramic est un langage en perpétuelle évolution depuis 10 ans ...

Citation :

le traitement de [if] pose problème quand il faut sortir de la condition avant [end_if], ce qui arrive souvent. Il est désagréable de devoir utiliser une variable de contrôle pour contourner le problème.

Je ne comprends pas ta remarque.
Pour sortir d'un IF, il y a par exemple GOTO. Pourquoi une variable ?
Le IF ou THEN ou ELSE n'empile rien en interne de Panoramic. Il n'y a aucun risque de saturation d'une pile d'adresse de retour car il n'y en a pas.

Citation :

Pourquoi ne maîtrisons nous pas le format de sauvegarde (bas ou txt)

Ils sont absolument identiques. J'ai mis un format TXT sous Android et sous MAC pour qu' il n'y ait aucun problème pour visualiser/modifier le source par les éditeurs de texte classique.

Citation :

Je n'ai pas trouvé de fonction pas à pas avec un traçage du déroulement dans le code pour debuger. Existe t'elle cette fonction?

Cette fonctionnalité existe, c'est TRACE_ON pour commencer le traçage et TRACE_OFF pour l'arrêter. Mais elle ne fait pas du pas à pas, mais indique les numéros de ligne. Des points d'arrêts peuvent être obtenus en plaçant des commandes STOP à différents endroits du source.

Merci jack pour vos réponses détaillées.
Ce basic m'a surpris par sa facilité de prise en main. Mes remarques sont très à la marge de l'essentiel.

J'ai réalisé un programme de "fourmi Langton" histoire de me remettre en selle. (j'ai diffusé le programme ici). Le processus m’intéresse plus que l'affichage.

Pour infos, je me suis aperçu d'un bug sur la commande Inkeys que j'ai branché sur un stop. Il arrive parfois de façon aléatoire ou après avoir redimensionné la fenêtre ou après un milliers d’itérations que l'appuie d'une touche au clavier ne provoque pas d'interruption.

Bonne continuation

Bonsoir et bienvenu Harzonis.

Je me suis retenu de répondre jusqu'à présent. Je que je dis retient rarement l'attention.

Mais je vais toutefois dire qu'il serait intéressant d'avoir quelques commandes supplémentaire. Pour l'une d'elle, on en a déjà parlé il y a un bon moment.

Ce sont:

GO_NEXT
GO_END_IF
GO_UNTIL
GO_END_WHILE

combien de fois j'ai regretté de ne pas avoir un go_next pour sauter les lignes jusqu'à next, et je il me semble qu'il en est de même avec les conditions.

Bonsoir à tous,

cosmos a écrit:

combien de fois j'ai regretté de ne pas avoir un go_next pour sauter les lignes jusqu'à next, et je il me semble qu'il en est de même avec les conditions.

.

Dans ce cas précis, EXIT_FOR ne fait-il pas l'affaire ?
Serte on sort de la boucle après le NEXT, mais cela dépend de la condition qui a été définie pour sortir, ou allez à l'item suivant, je ne vois pas bien l'intérêt.

A+

Citation :

aller à l'item suivant, je ne vois pas bien l'intérêt.

Réaliser cela est tout simple: entourer le reste des lignes jusqu'au NEXT ou END_WHILE etc, d'un IF...END_IF. Et hopp ! On exécute ou non ces lignes, en fonction d'une condition. Nul besoin d'un GOTO_END_IF ou similaire ! Il faut se plonger un peu dans la logique de la programmation structurée - on n'est plus avec un des anciens Basic MicroSoft sous DOS !

Klaus a écrit:

 Il faut se plonger un peu dans la logique de la programmation structurée - on n'est plus avec un des anciens Basic MicroSoft sous DOS !

Très bien dit ! J’approuve.

Jean Claude a écrit:

Dans ce cas précis, EXIT_FOR ne fait-il pas l'affaire ?
Serte on sort de la boucle après le NEXT, mais cela dépend de la condition qui a été définie pour sortir, ou allez à l'item suivant, je ne vois pas bien l'intérêt.

Tu taquinais Dannick sur l’orthographe.
Eh bien, c’est à mon tour maintenant.
Certes (pour certainement et avec un C au début et un S à la fin, s’il-vous-plait !), ta serte  (des pierres précieuses) que vient-elle faire dans une boucle (sauf s’il s’agissait d’une boucle d’oreilles !) ?

Ne t'en fait pas Jean Claude, je t'en trouverai d'autres perles  

Personnellement, je ne pense pas qu'un BASIC puisse ne pas être en anglais et ça ne me gêne pas du tout. Je ne pense pas non plus qu'il manque des mots-clé a priori ; il faut dire que je ne suis qu'un codeur d'un dimanche sur deux et encore
Par contre, ce qui m'aiderait moi bibi perso et peut-être pas vous, ce serait de pouvoir taper plus qu'une lettre dans la fenêtre de droite quand je cherche une fonction dans l'aide. J'écrirai peut-être un post à ce sujet. Bonne journée !

Citation :

Par contre, ce qui m'aiderait moi bibi perso et peut-être pas vous, ce serait de pouvoir taper plus qu'une lettre dans la fenêtre de droite quand je cherche une fonction dans l'aide

Cette fonction est implantée dans GPP !

Merci de cette précision.Je suis impardonnable...    
Il me reste un petit bout de week-end pour charger la toute dernière version et retourner y voir de plus près !!!

Le dernière version date un peu mais je travaille sur la suivante...

Je corrige quelques bugs et j'améliore l'option RECHERCHE-REMPLACEMENT.

Concernant l'aide, après l'avoir utilisé je la trouve perfectible dans le sens où toutes les infos ne sont pas mentionnées comme sur la page d'aide de Panoramic. Je vais devoir améliorer cela aussi....

C'est vrai que GPP est un tel programme que dès que l'on touche à quelque chose, il y a des modifications à apporter partout. D’où le décalage entre les déclarations de mise à jour et les vrais mises à disposition du programme !

Bonsoir
en panne avec ADSL
Rėponse avec le portable de mon fils je ne n'est que 50Mg gratuit sur avec ma Box.
Aller à next ne veux pas dire quitter la bouclé avant la fin, mais éviter une partie du code.
Klaus, je suis certain que toi même en avait parlé. Je suis pas en position pour en parler maintenant. Si systématiquement on me rembart j'aime autant laisser tomber. Je verrais dans une semaine j'espère la suite.

Je vois ce que tu veux, Cosmos70.
Bien sûr tu sais comment contourner le problème.
Personnellement, je propose ceci (pour un exemple très simple de traitements dans une boucle FOR / NEXT)

Code:

dim i
label next_iter
' Solution 1
for i = 1 to 9
    ' debut traitement
    if i = 5 then goto next_iter : ' sauter les lignes jusqu'au NEXT
    print i ; " ---> ";
    print "Le carré est " ; i*i ;
    print "    Le cube est  " ; i*i*i
    ' suite traitement
next_iter:
next i
print string$(50,"=")
' Solution 2
for i = 1 to 9
    ' debut traitement
    if i <> 5
       print i ; " ---> ";
       print "Le carré est " ; i*i ;
       print "    Le cube est  " ; i*i*i
    ' suite traitement
    end_if
next i
print string$(50,"=")
' Solution 3
for i = 1 to 9
    ' debut traitement
    if i = 5
       ' Ne rien faire
    else
       print i ; " ---> ";
       print "Le carré est " ; i*i ;
       print "    Le cube est  " ; i*i*i
    ' suite traitement
    end_if
next i
print string$(50,"=")

Je préfère la solution 2, mais il y en d'autres (autant de solutions que des codeurs !)

EDIT : Certains langages de programmation connaissent l’instruction continue qui continue l’exécution avec la valeur suivante de la boucle (FOR ou WHILE ou REPEAT)

Mais je vais toutefois dire qu'il serait intéressant d'avoir quelques commandes supplémentaire. Pour l'une d'elle, on en a déjà parlé il y a un bon moment.

Ce sont:

GO_NEXT
GO_END_IF
GO_UNTIL
GO_END_WHILE

combien de fois j'ai regretté de ne pas avoir un go_next pour sauter les lignes jusqu'à next, et je il me semble qu'il en est de même avec les conditions.[/quote]
=======================
Bonjour, de telle instructions, si pratiques soient-elles ne sont pas propices à l'écriture d'un code bien structuré. Je n'utilise jamais la commande "GOTO" par exemple. Je ne suis pas un spécialiste de la programmation structurée, mais l'utilisation de GOSUB et de SUB permettant une bonne structuration du code est amplement suffisant. Pour ma part je persiste et signe sur le développement et le perfectionnement du test à choix multiple. Il n'est pas indispensable puisqu'on peut sortir avant "end_if" (merci papydall)

Harzonis a écrit:

Pour ma part je persiste et signe sur le développement et le perfectionnement du test à choix multiple. Il n'est pas indispensable puisqu'on peut sortir avant "end_if" (merci papydall)

Panoramic dispose de structure de test à  choix multiple SELECT / CASE / END_SELECT
Je t’ai déjà répondu sur ce post

A+

papydall a écrit:

Harzonis a écrit:

Pour ma part je persiste et signe sur le développement et le perfectionnement du test à choix multiple. Il n'est pas indispensable puisqu'on peut sortir avant "end_if" (merci papydall)

Panoramic dispose de structure de test à  choix multiple SELECT / CASE / END_SELECT
Je t’ai déjà répondu sur ce post

A+

===================
Oui, c'est exact mais la variable d'aiguillage est une valeur numérique entière et non n'importe quelle variable. Exemple:
au_cas_ou:
z$= "toto": gosub label1
z$="tata" and px(3,2,n)= 1: gosub label2
z$= "pp" or artc$ (i,4,j,7)= "mouton": gosub label5
fin_cas
====================

Je suis tout-à-fait d’accord avec toi : la structure SELECT / CASE /END_SELECT n’est pas parfaitement parfaite.
Elle souffre de beaucoup d’insuffisances : le contenu de la variable doit nécessairement être numérique et de type entier.
Elle ne gère pas un intervalle ; il n’y a pas de CASE_ELSE ; elle n’accepte pas une opération arithmétique, etc.
Mais elle a le mérite d’exister et on fait avec ce dont on dispose.

Le langage Delphi (Delphi 6, très certainement) qui est à la base de Panoramic, contient une instruction de ce genre:

Code:

case N of
  1: begin
      ...
      end;
  17: begin
        ...
        end;
  else begin
        ...
        end;
end;

N est une valeur "ordinale" ce qui revient à un entier 32 bits. Cela peut être quelque chose qui ressemble à une chaîne de caractères, comme 'A' représentant la valeur 65, mais 'AB"' est impossible. En Delphi, il y a une clause ELSE optionnelle.

La construction SELECT...CASE..END_SELECT de Panoramic est certainement implémentée en s'appuyant sur cette base Delphi. Ceci explique pourquoi seules des valeurs entières sont autorisées, rien d'autre.

Je peu me tromper, mais de mémoire, et il y a longtemps, Jack a déjà répondu à une demande similaire. Il n'y aura certainement pas d'évolution de Panoramic dans ce domaine.

Klaus a écrit:

Le langage Delphi (Delphi 6, très certainement) qui est à la base de Panoramic, contient une instruction de ce genre:

Code:

case N of
  1: begin
      ...
      end;
  17: begin
        ...
        end;
  else begin
        ...
        end;
end;

N est une valeur "ordinale" ce qui revient à un entier 32 bits. Cela peut être quelque chose qui ressemble à une chaîne de caractères, comme 'A' représentant la valeur 65, mais 'AB"' est impossible. En Delphi, il y a une clause ELSE optionnelle


La construction SELECT...CASE..END_SELECT de Panoramic est certainement implémentée en s'appuyant sur cette base Delphi. Ceci explique pourquoi seules des valeurs entières sont autorisées, rien d'autre.

Je peu me tromper, mais de mémoire, et il y a longtemps, Jack a déjà répondu à une demande similaire. Il n'y aura certainement pas d'évolution de Panoramic dans ce domaine.

=================
Merci pour cette précision, je ne connaissais pas Delphi. Mais encore une fois je vous accorde que cette instruction est un point de détail. On la reconstruit parfaitement avec le structure If .....end_if dès lors où comme me l'a confirmé Jack, l'instruction if n'empile rien et on peut faire un "Return" avant "end_if". Dans mon esprit les choses se présentent comme une nourrice en plomberie où chaque sorties commandés par un robinet est la condition d'un test, et on ne peut sortir (faire return) que par un robinet à la fois. A moins... A moins que ce basic ne soit quantique ou que j'abuse de l’hydromel. A l'occasion, vous seriez les bien-venus.
Encore merci pour cet échange. Et bonne continuation.

J’ai utilisé durant deux décennies Turbo Pascal (MSDOS oblige !)
Delphi (Delphi 7) qui est le successeur de Turbo pascal, je l’utilise occasionnellement.

La structure CASE … OF … END de turbo Pascal compare la valeur    d'une variable de type entier ou caractère (et de manière générale de type intervalle,  à tout un tas d'autres valeurs constantes.
Panoramic, tout comme Turbo Pascal ne permet de comparer une variable qu’à des constantes.
Mais Panoramic ne connaissant pas le type intervalle, il est parfois difficile de s’en sortir.
Aussi il manque à Panoramic le ELSE de Turbo pascal.

Voici un code en Turbo Pascal utilisant la structure CASE

Code:

Program exemple_case ;
Var age:integer ;
BEGIN
   Write('Entrez votre âge : ') ;
   Readln(age) ;
   Case age of
     18     : writeln('La majorité, pile-poil !') ;
     0..17  : writeln('Venez à moi, les petits enfants…') ;
     60..99 : writeln('Les infirmières vous laisse jouer sur l''ordinateur à votre âge ?!!!')
     Else writeln('Vous êtes d''un autre âge...') ;
   End ;
END.

Remarquez l'utilisation de l'intervalle 0..17 et 60..99 qui n'est pas autorisée en Panoramic.

En Panoramic, ça donne

Code:

dim age
input_mark_on
input "Entrez votre âge ";age

if age = 18
   print "La majorité, pile-poil !"
else
   if (age >= 0) and (age <= 17)
      print "Venez à moi, les petits enfants ..."
   else
      if (age >= 60) and (age <= 99)
         print "Les infirmières vous laisse jouer sur l''ordinateur à votre âge ?!!!"
      else
         print "Vous êtes d''un autre âge..."
      end_if
   end_if
end_if
end

@Harzonis
J’aime ta comparaison avec la plomberie.

papydall a écrit:

J’ai utilisé durant deux décennies Turbo Pascal (MSDOS oblige !)
Delphi (Delphi 7) qui est le successeur de Turbo pascal, je l’utilise occasionnellement.

La structure CASE … OF … END de turbo Pascal compare la valeur    d'une variable de type entier ou caractère (et de manière générale de type intervalle,  à tout un tas d'autres valeurs constantes.
Panoramic, tout comme Turbo Pascal ne permet de comparer une variable qu’à des constantes.
Mais Panoramic ne connaissant pas le type intervalle, il est parfois difficile de s’en sortir.
Aussi il manque à Panoramic le ELSE de Turbo pascal.

Voici un code en Turbo Pascal utilisant la structure CASE

Code:

Program exemple_case ;
Var age:integer ;
BEGIN
   Write('Entrez votre âge : ') ;
   Readln(age) ;
   Case age of
     18     : writeln('La majorité, pile-poil !') ;
     0..17  : writeln('Venez à moi, les petits enfants…') ;
     60..99 : writeln('Les infirmières vous laisse jouer sur l''ordinateur à votre âge ?!!!')
     Else writeln('Vous êtes d''un autre âge...') ;
   End ;
END.

Remarquez l'utilisation de l'intervalle 0..17 et 60..99 qui n'est pas autorisée en Panoramic.

En Panoramic, ça donne

Code:

dim age
input_mark_on
input "Entrez votre âge ";age

if age = 18
   print "La majorité, pile-poil !"
else
   if (age >= 0) and (age <= 17)
      print "Venez à moi, les petits enfants ..."
   else
      if (age >= 60) and (age <= 99)
         print "Les infirmières vous laisse jouer sur l''ordinateur à votre âge ?!!!"
      else
         print "Vous êtes d''un autre âge..."
      end_if
   end_if
end_if
end

@Harzonis
J’aime ta comparaison avec la plomberie.

===============
Un algorithme comme une un reseau de plomberie gère du flux. L'analogie me tombe de source. Il y a beaucoup de // entre la technologie, la physique et les sciences sociales par exemple. la résitance au changement c'est la même loi que l'extra courant de rupture dans un solénoïde pour le faire osciller. C'est à peine tiré par les cheveux.
Je n'ai pas votre dextérité en codage (ni en plomberie d'ailleurs). Pour votre démonstration d'imbrication des IF, passé deux imbrication, j'ai besoin de dessiner l'algorithme. Mais je comprend bien l'idée. Turbo Pascal est plus élégant pour les choix multiple.

Code:

rem ============================================================================
rem         A la manière du Basic d autrefois
rem ============================================================================
dim operation$
font_bold 0
print "=============================="
print "A - Faire une Addition"
print "S - Faire une Soustraction"
print "M - Faire une Multiplication"
print "D - Faire une Division"
print "=============================="
print : print

input_mark_on : ' pour afficher le ?
repeat
    input "Entrez votre choix (A,S,M,D) " ; operation$
    operation$ = upper$(operation$)
until (operation$ = "A") or (operation$ = "S") or (operation$ = "M") or (operation$ = "D")

print
select asc(operation$) : ' On transforme le caractère en son équivalent ASCCI qui est un entier
   case 65 : print "Vous avez choisis l'Addition"
   case 83 : print "Vous avez choisis la Soustraction"
   case 77 : print "Vous avez choisis la Multiplication"
   case 68 : print "Vous avez choisis la Division"
end_select
rem ============================================================================

[quote="papydall"][code]
rem ============================================================================
rem         A la manière du Basic d autrefois
rem ============================================================================
dim operation$
font_bold 0
print "=============================="
print "A - Faire une Addition"
print "S - Faire une Soustraction"
print "M - Faire une Multiplication"
print "D - Faire une Division"
print "=============================="
print : print

input_mark_on : ' pour afficher le ?
repeat
   input "Entrez votre choix (A,S,M,D) " ; operation$
   operation$ = upper$(operation$)
until (operation$ = "A") or (operation$ = "S") or (operation$ = "M") or (operation$ = "D")

print
select asc(operation$) : ' On transforme le caractère en son équivalent ASCCI qui est un entier
  case 65 : print "Vous avez choisis l'Addition"
  case 83 : print "Vous avez choisis la Soustraction"
  case 77 : print "Vous avez choisis la Multiplication"
  case 68 : print "Vous avez choisis la Division"
end_select
rem ================================================================
Oui je suis d'accord. Il y a assez d'outil dans ce basic pour répondre à toutes les situations.

@Harzonis

Pourquoi tu cites toujours (à l’aide des balises [ quote ]  [ /quote ] ) le message auquel tu veux répondre ?
Généralement, on introduit une citation (un court extrait du message) pour le mettre en valeur ou pour y répondre ou commenter, etc.
Ça prend beaucoup de place sur le Forum et ça n’apporte pas plus d’infos.

Pour info :
Tu peux cacher un texte, une image, un code, etc. en utilisant les balises [ spoiler ]   … [ /spoiler ].
Comme pour toutes les balises, il ne doit pas y avoir d’espaces entre les balises.
Aussi, toute balise ouverte, doit être fermée par le caractère /.

Deux syntaxes pour les balises spoiler :
1 / [ spoiler=un texte explicatif] …. [ /spoiler ]

Ça donne

Bonne soirée:

2 / [ spoiler ] … [ /spoiler ]

Ça donne

Spoiler:

Pour visualiser ce qui est caché, cliquer sur Bonne soirée ou sur spoiler ci-dessus.