FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» PanExpress : l'éditeur Panoramic avec création d'objet
par Marc Aujourd'hui à 1:24

» Demande pour Jack concernant PanExpress
par Marc Hier à 23:56

» Calculatrice
par joeeee2017 Hier à 9:35

» EPP_V01 éditeur pour Panoramic
par Jean Claude Hier à 8:51

» Planétarium virtuel.
par Jean Claude Lun 17 Sep 2018 - 18:14

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Orbites de l’ensemble de Mandelbrot
par Jean Claude Lun 10 Sep 2018 - 21:08

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

» Plantage lors de l'exécution de EXIT_SUB
par Jack Lun 3 Sep 2018 - 18:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 IF END_IF : Bug ou pas bug ?

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 864
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: IF END_IF : Bug ou pas bug ?   Dim 5 Nov 2017 - 17:47

Bonjour à tous !

Y aurait-il un bug ?

Ce  programme -que j'ai réduit à sa plus simple expression- ne fonctionne pas avec le mot THEN à rechercher :

Code:
DIM c$

IF INSTR(c$,"THEN")>0
   BEEP
END_IF

END

Alors que celui-ci fonctionne :
Code:
DIM c$

IF INSTR(c$,"TON")>0
   BEEP
END_IF

END

... Et celui-ci fonctionne bien avec le mot THEN à rechercher :
Code:
DIM c$

IF INSTR(c$,"THEN")>0 THEN BEEP

END


Avec Panoramic version 0.9.28i12

Qu'en pensez-vous ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6326
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Dim 5 Nov 2017 - 17:57

Salut Marc,
Certes, on peut sans doute dire que c'est un bug, mais c'est un peu tiré par les cheveux, dans la mesure où THEN est un mot-clé de Panoramic, alors l'interpréteur doit se mélanger un peu les pinceaux...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc

avatar

Nombre de messages : 864
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Dim 5 Nov 2017 - 18:17

Salut JL35 !

Merci pour ta réponse.

J'ai fait plusieurs essais avec différents mot-clés du langage Panoramic : pas de problème.

Seul ce mot semble produire un dysfonctionnement.

Autres essais :

IF INSTR(c$,"THEN ")>0 THEN BEEP => OK

IF INSTR(c$," THEN ")>0 THEN BEEP => pas OK (33) Not correct logical expression

IF INSTR(c$," THEN")>0 THEN BEEP => OK

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Dim 5 Nov 2017 - 18:41

C'est un bug, c'est certain. Et c'est à Jack de voir ça... Mais il me semble que le problème avait déjà été souevé il y a quelques années, sans pour autant trouver une solution explicite. Peut-être cette fois ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Marc

avatar

Nombre de messages : 864
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Dim 5 Nov 2017 - 19:36

Merci à tous pour vos réponses !

J'ai contourné le problème en remplaçant l'expression " THEN " par une variable :

a$=" THEN "
IF INSTR(c$,a$)>0 THEN BEEP

Les essais que je viens de faire semblent concluants.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Pedro Alvarez

avatar

Nombre de messages : 1175
Date d'inscription : 19/01/2014

MessageSujet: if end_if   Dim 5 Nov 2017 - 21:09

Bonsoir.

@Marc37.
Code:

a$=" THEN "
IF INSTR(c$,a$)>0 THEN BEEP

peut être utilisé sans variable, comme suit:

Code:
IF INSTR(c$," "+"then ")>0 THEN BEEP
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc

avatar

Nombre de messages : 864
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Dim 5 Nov 2017 - 23:08


Merci Pedro !

Avec CHR$(32), ça fonctionne aussi :

IF INSTR(c$,CHR$(32)+"THEN ")>0 THEN BEEP

ou

IF INSTR(c$," THEN"+CHR$(32))>0 THEN BEEP

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jack
Admin
avatar

Nombre de messages : 1912
Date d'inscription : 28/05/2007

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Mar 7 Nov 2017 - 7:44

Je confirme qu'il y a un bug dans l'analyse de THEN.
L'analyseur est perturbé quand le mot-clé THEN est à l'intérieur d'une expression de type chaîne de caractères qui vient après un IF.

_________________
username : panoramic@jack-panoramic password : panoramic123
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.1fr1.net
Contenu sponsorisé




MessageSujet: Re: IF END_IF : Bug ou pas bug ?   

Revenir en haut Aller en bas
 
IF END_IF : Bug ou pas bug ?
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» IF-THEN-END_IF ???

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: A l'aide!-
Sauter vers: