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
» Découpe dans une image
par JL35 Aujourd'hui à 23:03

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par Marc Aujourd'hui à 21:51

» Pour faire plaisir à Marc37.
par Marc Aujourd'hui à 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Aujourd'hui à 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Hier à 22:44

» KGF_dll - nouvelles versions
par Klaus Hier à 22:30

» Mah-Jong anglais
par jjn4 Hier à 14:22

» Partie fractionnaire d'un flottant
par silverman Hier à 14:19

» bug CREATE_HIDE : corruption de form
par silverman Hier à 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Hier à 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Hier à 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

» Ludothèque Panoramic
par jjn4 Mar 20 Fév 2018 - 15:42

» Calculus
par Ouf_ca_passe Mar 20 Fév 2018 - 9:06

» 6 (en analyse):confusion de variable locale entre SUB et FNC
par Jack Mar 20 Fév 2018 - 8:18

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 IF END_IF : Bug ou pas bug ?

Aller en bas 
AuteurMessage
Marc



Nombre de messages : 632
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 : 6148
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



Nombre de messages : 632
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 : 10575
Age : 68
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



Nombre de messages : 632
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 : 929
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



Nombre de messages : 632
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 : 1804
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.free-boards.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: