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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Hier à 23:55

» KGF_dll - nouvelles versions
par pascal10000 Hier à 17:27

» Mah-Jong européen new-look
par Minibug Mar 12 Déc 2017 - 22:31

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 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

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

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 | 
 

 problème avec edit ou bien avec combo?

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

avatar

Nombre de messages : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: problème avec edit ou bien avec combo?   Ven 4 Aoû 2017 - 12:53

Bonjour à tous! Very Happy
Depuis un moment j'essaye de faire tourner un programme avec le compilateur, mais je n'y arrive pas. Donc je décortique au fur et à mesure, et je crois que je viens de trouver un problème qui vient soit de l'edit soit du combo.
Voici 2 programme que j'ai compilé:
le premier fonctionne correctement: cliquez autant de fois que vous voulez sur le bouton GO on a toujours le même résultat!
Code:
label gogogo
dim a$,c
button 1:caption 1,"G.O.":on_click 1,gogogo
edit 2:left 2,width(1)+10
text 2,"pagekni"
set_focus 2
end

gogogo:
   a$=text$(2)
   message a$
   a$=upper$(a$)
   message a$
   c=len(a$)
   message str$(c)
return

Dans le second programme, j'ai introduit un combo.
Au premier clic sur le bouton GO, ça fonctionne correctement, même si vous sélectionnez une autre donnée avec le combo. Mais à partir du second clic, rien ne va plus! Il n'y a plus que 5 caractères dans la chaine (et le dernier n'ayant rien à voir!) et la longueur de la chaine à 5 au lieu de 7.
Code:
label gogogo,choix
dim a$,c,i,f$
button 1:caption 1,"G.O.":on_click 1,gogogo
edit 2:left 2,width(1)+10
text 2,"pagekni"
combo 12:top 12,height(1)+5:text 12,"dico02_07"
restore:for i=1 to 4:read f$:item_add 12,f$:next i:f$=text$(12)+".txt"
on_click 12,choix
set_focus 2

end

gogogo:
   a$=text$(2)
   message a$
   a$=upper$(a$)
   message a$
   c=len(a$)
   message str$(c)
return

choix:
   f$=text$(12)+".txt"
return

data "dico07","dico08","dico02_08","dico02_07"

Voilà Jack, je pense que c'est un bug du compilateur qui concerne combo, mais je n'en suis pas sûr! A moins que je me sois trompé dans mon programme, le compilateur étant plus strict!
A+ Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: problème avec edit ou bien avec combo?   Ven 4 Aoû 2017 - 14:13

¶ c’est le caractère ASCII 20 : DC4 : Device Control 4
Je pense avoir trouvé ce qui ne va pas :
Si la longueur du texte de l’EDIT est
1, 2 ou 3  < --- Ok
4 , 5 , 6, 7 < --- troncature à 4 caractères + le caractère ¶ (ASCII 20)
8 et plus < --- OK

Modifier la ligne 5 pour mieux voir le problème.


Code:

label gogogo,choix
dim a$,c,i,f$
button 1:caption 1,"G.O.":on_click 1,gogogo
edit 2:left 2,width(1)+10
text 2,"abcdefghij" : ' Essayer avec 1 caractère, puis 2, puis 3 , etc        
combo 12:top 12,height(1)+5:text 12,"dico02_07"
restore:for i=1 to 4:read f$:item_add 12,f$:next i:f$=text$(12)+".txt"
on_click 12,choix
set_focus 2

end

gogogo:
   a$=text$(2)
   message a$
   a$=upper$(a$)
   message a$
   c=len(a$)
   message str$(c)
  
return

choix:
   f$=text$(12)+".txt"  
return

data "dico07","dico08","dico02_08","dico02_07"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
bignono

avatar

Nombre de messages : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: problème avec edit ou bien avec combo?   Ven 4 Aoû 2017 - 18:20

Bonjour Papydall, Smile
Merci de confirmer le problème. Et effectivement, la chaine est tronquée si elle fait 4, 5, 6 ou 7 caractères de longueur. Et le caractère ¶ apparait à la fin de la chaine tronquée.
A+ Wink Wink Wink
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: problème avec edit ou bien avec combo?   Ven 4 Aoû 2017 - 18:29

Bravo bignono, tu as trouvé un bug du compilateur sur la fonction TEXT$(N).

Je corrige cela au plus vite.

_________________
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: problème avec edit ou bien avec combo?   

Revenir en haut Aller en bas
 
problème avec edit ou bien avec combo?
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [/résolu] problème avec java à l'instalation :-/
» Problème avec Java
» [Résolu] problème avec avira
» Problème avec décodeur Tv
» problème avec Outlook

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC Le compilateur :: Le Compilateur-
Sauter vers: