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
» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Aujourd'hui à 13:46

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

» source vumetre avec delphi
par Klaus Mar 5 Déc 2017 - 23:22

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 IF END_IF : Bug ou pas bug ?

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Marc



Nombre de messages : 549
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: IF END_IF : Bug ou pas bug ?   Dim 5 Nov 2017 - 19: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 : 6017
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Dim 5 Nov 2017 - 19: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 : 549
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Dim 5 Nov 2017 - 20: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 : 10243
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 - 20: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 : 549
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Dim 5 Nov 2017 - 21: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 : 881
Date d'inscription : 19/01/2014

MessageSujet: if end_if   Dim 5 Nov 2017 - 23: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 : 549
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Lun 6 Nov 2017 - 1: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 : 1771
Date d'inscription : 28/05/2007

MessageSujet: Re: IF END_IF : Bug ou pas bug ?   Mar 7 Nov 2017 - 9: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 ?
Voir le sujet précédent Voir le sujet suivant 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: