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
» Interception des touches quel que soit l'objet Panoramic
par Minibug Hier à 21:32

» Une copie de Panoramic Editeur
par Jean Claude Hier à 21:02

» KGF_dll - nouvelles versions
par Klaus Hier à 0:13

» Animation 3D 4 faces avec le logo de Panoramic
par Marc Hier à 0:07

» Animation 3D 2 faces avec le logo de Panoramic
par Minibug Sam 26 Mai 2018 - 20:01

» [RESOLU] pas de caractères accentués dans resource hacker
par Minibug Ven 25 Mai 2018 - 13:50

» Panoramic et la 3D.
par Pedro Alvarez Ven 25 Mai 2018 - 9:34

» Problème mathématique en 3D
par Marc Jeu 24 Mai 2018 - 18:24

» Nouvelle version 0.33
par jean_debord Jeu 24 Mai 2018 - 9:02

» Reprise du développement et de la documentation
par Fredisland Jeu 24 Mai 2018 - 7:14

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Mar 22 Mai 2018 - 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 IF END_IF : Bug ou pas bug ?

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 768
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 : 6258
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 : 768
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 : 768
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 : 1003
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 : 768
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 : 1847
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: