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
» Calculatrice
par joeeee2017 Aujourd'hui à 20:25

» EPP_V01 éditeur pour Panoramic
par Minibug Hier à 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Hier à 21:02

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Hier à 15:58

» Planétarium virtuel.
par Pedro Alvarez Hier à 9:28

» Demande pour Jack concernant PanExpress
par Marc Mar 18 Sep 2018 - 23:56

» 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

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 | 
 

 j'ai un petit problème

Aller en bas 
AuteurMessage
RMont



Nombre de messages : 198
Age : 76
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: j'ai un petit problème   Lun 4 Déc 2017 - 18:37

bonjour a tous .
je commencerai par souhaiter a papydal  un bon rétablissement.

puis je poste ce petit code en exp pour la  cde message.
il y a 2 ou 3 ans cette écriture fonctionnait message " var% =" var%
aujourd'hui j'ai droit a :voir ce petit code
error_french
dim i%
for i%= 1 to 5
print "bonjour"
 message "i% =" i%   :' <----- expression string incorrecte
' message "i% =", i%  :' <------ expression string incorrecte:erreur dans la séquence,mauvais caractere
' message "i% ="; i%  :' <------ expression string incorrecte:erreur dans la séquence,mauvais caractere
next i%
a un moment donné j'ai besoin de connaitre la valeur d'une variable parmi d'autres c'est pourquoi je mets ce message sous cette forme.
y a-t-il moyen de faire autrement ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc

avatar

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

MessageSujet: Re: j'ai un petit problème   Lun 4 Déc 2017 - 18:48

Bonjour Rmont !

Essais ceci :

Code:
dim i%
for i%= 1 to 5
print "bonjour"
message "i% =" + STR$(i%)
next i%


Bonne soirée !
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: j'ai un petit problème   Lun 4 Déc 2017 - 18:54

En effet, Marc a raison. C'est la solution. Pourquoi ? Regarle l'aide de la commande MESSAGE. Il est indiqué que cette commande prend un seul paramètre de type chaîne de caractères, pas une liste de paramètres. Donc, il te suffit d'attacher les différents éléments de ta ligne par des opérations de concaténation de chaînes (effectuée par l'opérateur + en Panoramic), et tu obtiens une seule chaîne résultante qui est admissible comme paramètre de la commande MESSAGE.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Marc

avatar

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

MessageSujet: Re: j'ai un petit problème   Lun 4 Déc 2017 - 19:14

Bonsoir Klaus et re-bonsoir RMont !

RMont, tu peux aussi utiliser le CAPTION 0 pour afficher une chaîne de caractères. Pratique lors d'un débogage de source !

CAPTION 0, "i% =" + STR$(i%)

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



Nombre de messages : 198
Age : 76
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: j'ai un petit problème   Lun 4 Déc 2017 - 19:52

merci pour vos réponses.je vais étudier et voir si cela résout mon problème.
j'explique :
j'ai eu ce problème de variable en modifiant le code de klaus sur les stations radio en passant de 26 à 42 stations; j'ai fait les modifs nécessaires (je crois) et j'ai un message d'erreur dont je n'arrive pas a déterminer ou se trouve l'erreur.
ce message est : expression string incorrecte:dépassement d'indice ligne ...
cette ligne est dans le label change
caption dig%(n%),mid$(freq$(num%),n%,1). ...
comment faire pour trouver là ou se situe l'erreur ?
je vais essayer vos solutions .
bonne soirée
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5643
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: j'ai un petit problème   Lun 4 Déc 2017 - 20:11

Bonsoir à tous,

@Rmont,
vu le message d'erreur "expression string incorrecte:dépassement d'indice" et le code de la ligne ciblée par le message "caption dig%(n%),mid$(freq$(num%),n%,1)", je pense que tu dépasses le tableau de la variable "dig%(n%)" ou de celui de la variable "freq$(num%)".

pour savoir ce qui cloche insère cette ligne juste avant la ligne qui bloque:
Code:
message "n%="+str$(n%)+" num%="+str$(num%) : stop

Le stop te sert à mémoriser les valeurs avant le plantage.

Vérifie que la déclaration DIM des  variables dig%(n%) et freq$(num%) ai bien la grandeur de tableau voulue.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 3020
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: j'ai un petit problème   Lun 4 Déc 2017 - 20:43

Salut RMont !

Et si tu nous postais le code on pourrait peut être t'aider plus facilement ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
RMont



Nombre de messages : 198
Age : 76
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: j'ai un petit problème   Mar 5 Déc 2017 - 19:04

bonjour et bonsoir a tous.
merci pour vos réponses (je me suis fait un pense-bête pour mes prochaines recherches avec message).
mais malgré cela ,je n'ai pas résolu mon problème de variable .j'ai vu ou cela coince mais je n'ai pas trouvé la cause
donc voici le code modifié de 26 a 42 stations .
ou est mon erreur ?


' radios version klaus
' je passe de 26 stations a 42
     ' radios.bas
    
error_french
DIM Station$(42) , url$(42) , Freq$(42) , url1$ , num% , res% , WB% , n%, aff%
DIM obj% , cont% , dig%(6) , chaine% , but%(4)

LABEL change , exit, what, choice

 DATA "France-Inter" , "87_80" , "france-inter/"
 DATA "Générations" , "88_20" , "generations/"
 DATA "Nostalgie" , "90_40" , "nostalgie/"
 DATA "Chante-France" , "90_90" , "chante-france/"
 DATA "Contact-Fm" , "91_40" , "contact-fm/"
 DATA "Cherie-Fm" , "91_70" , "cherie/"
 DATA "France-Musique" , "92_00" , "france-musique/"
 DATA "france-culture" , "93_50" , "france-culture/"
 DATA "Orient-Fm" , "94_30" , "orient/"
 DATA "Galaxie FM France" , "95_30" , "galaxie/"
 DATA "Puls Radio" , "95_40" , "puls/"
 DATA "Jazz" , "95_70" , "jazz/"
 DATA "Skyrock" , "96_00" , "skyrock/"
 DATA "Voltage" , "96_90" , "voltage/"
 DATA "Rire et chanson" , "97_40" , "rire-et-chanson/"
 DATA "Metropolys" , "97_60" , "metropolys/"
 DATA "FG DJ Radio" , "98_20" , "fg-dj/"
 DATA "Vibration FM" , "98_70" , "vibration/"
 DATA "Latina" , "99_00" , "latina/"
 DATA "France Maghreb 2 France" , "99_50" , "maghreb-2/"
 DATA "NRJ" , "100_30" , "nrj-france/"
 DATA "Alouette France" , "100_30" , "alouette/"
 DATA "Fun Radio" , "101_90" , "fun/"
 DATA "Oui FM" , "102_30" , "oui-fm"
 DATA "MFM Radio France" , "102_70" , "mfm/"
 DATA "Gold FM" , "103_30" , "gold-fm/"
 DATA "Virgin" , "103_50" , "virgin/"
 DATA "RFM" , "103_90" , "rfm/"
 DATA "Hit West France" , "104_10" , "hit-west/"
 DATA "RTL" , "104_30" , "rtl/"
 DATA "Europe 1" , "104_70" , "europe/"
 DATA "Radio FIP" , "105_10" , "fip/"
 DATA "France-Info" , "105_50" , "france-info/"
 DATA "RTL2" , "105_90" , "rtl2/"
 DATA "Beur FM France"  , "106_70" , "beur/"
 DATA "France-Bleu" , "107_10" , "france-bleu/"
 DATA "RFI France" , "107_90" , "rfi/"
 DATA "Radio Meuh France" , "109_10" , "meuh/"
 DATA "Enjoy Radio" , "109_20" , "enjoy/"
 DATA "La Grosse Radio France" , "109_30" , "la-grosse/"
 DATA "Africa-1-France" , "109_40" , "africa-1-france/"
 DATA "Swigg Radio" , "109_50" , "ado/"

FOR n%=1 TO 42 : READ Station$(n%) : READ url$(n%) : READ Freq$(n%) : NEXT n%

BORDER_HIDE 0 : LEFT 0,5 : TOP 0,5 : HEIGHT 0,105 : WIDTH 0,355 : FONT_SIZE 0,10 : FONT_BOLD 0 : FONT_COLOR 0,0,255,0 : COLOR 0,0,0,0 : obj%=obj%+1

CONTAINER obj% : PARENT obj%,0 : CAPTION obj%," RADIO et FREQUENCE " : LEFT obj%,10 :TOP obj%,7 : WIDTH obj%,310 : HEIGHT obj%,84 : cont%=obj% : obj%=obj%+1

FOR n%=1 to 6                                            
  DIGIT1 obj% : PARENT obj%,cont% : LEFT obj%,(n%*30)-10 : TOP obj%,40 : WIDTH obj%,20 : HEIGHT obj%,34 : COLOR obj%,0,255,0 : CAPTION obj%,"" : dig%(n%)=obj% : obj%=obj%+1
NEXT n%

ALPHA obj% : PARENT obj%,cont% : LEFT obj%,20 : TOP obj%,17 : chaine%=obj% : obj%=obj%+1

FOR n%=1 TO 4 : BUTTON obj% : LEFT obj%,321 : TOP obj%,n%*22-13 : WIDTH obj%,21 : HEIGHT obj%,21 : FONT_SIZE obj%,16 : FONT_BOLD obj% : but%(n%)=obj% : obj%=obj%+1 : NEXT n%
CAPTION but%(1),"+" : ON_CLICK but%(1),change : CAPTION but%(2),"-" : ON_CLICK but%(2),change : CAPTION but%(3),"?" : ON_CLICK but%(3),what : CAPTION but%(4),"X" : ON_CLICK but%(4),exit

DLL_ON "C:\users\roger\documents\langage-panoramic\dll_klaus\kgf.dll"
WB% = DLL_CALL1("WB_Create",HANDLE(0))
res% = DLL_CALL5("WB_Locate",WB%,10,50,0,0)

TRIGGER_CLICK but%(1)

END

change:
IF NUMBER_CLICK=but%(1) THEN num%=num%+1 : IF num%=43 THEN num%=1
IF NUMBER_CLICK=but%(2) THEN num%=num%-1 : IF num%<1 THEN num%=42

FOR n%=LEN(Freq$(num%)) TO 1 STEP -1
  message "n%= "+str$(n%)+" num%= "+str$(num%) : stop
  CAPTION dig%(n%),MID$(Freq$(num%),n%,1)
NEXT n%
CAPTION chaine%,Station$(num%)+" - (Chaine "+STR$(num%)+"/42)"
url1$=url$(num%)
res% = DLL_CALL2("WB_Url",WB%,ADR(url1$))
RETURN

exit:
TERMINATE
    
what:
IF OBJECT_EXISTS(99)=0
form 99
BORDER_HIDE 99 : LEFT 99,LEFT(0)+WIDTH(0) : TOP 99,TOP(0) : HEIGHT 99,105 : WIDTH 99,200 : FONT_SIZE 99,10 : FONT_BOLD 99 : FONT_COLOR 99,0,255,0 : COLOR 0,0,0,0
LIST 100 : PARENT 100,99 : FULL_SPACE 100 : COLOR 100,0,0,0 : FONT_COLOR 100,0,255,0
ON_CLICK 100,choice
FOR n%=1 TO 42
ITEM_ADD 100,Station$(n%)
NEXT n%
aff% = 1
RETURN
END_IF
IF aff%=1
HIDE 99
aff% = 0
ELSE
SHOW 99
aff% = 1
END_IF
RETURN
    
choice:
num% = ITEM_INDEX(100)
FOR n%=LEN(Freq$(num%)) TO 1 STEP -1 : CAPTION dig%(n%),MID$(Freq$(num%),n%,1) : NEXT n%
CAPTION chaine%,Station$(num%)+" - (Chaine "+STR$(num%)+"/42)"
url1$=url$(num%)
res% = DLL_CALL2("WB_Url",WB%,ADR(url1$))
RETURN
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
RMont



Nombre de messages : 198
Age : 76
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: j'ai un petit problème   Mar 5 Déc 2017 - 19:16

je m'excuse pour ce code passé comme cela mais,il y quelques jours je signalais ce problème de balises donc je relance mon sos

a l'ouverture de la boite de dialogue toutes les icones sont en couleur très pâles.
lorsque comme maintenant ou pour répondre a un message j'ai beau cliquer sur
aligné a g ,centre,dte  les balises ne se mettent pas en place.
y a  t-il une solution?.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 3020
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: j'ai un petit problème   Mar 5 Déc 2017 - 19:44

Salut Rmont !

Merci pour ton code. Wink
Il y 2 erreurs :

La première est en ligne 50.
Tu dois inverser la lecture de tes variables car sinon elles ne contiennent pas les bons éléments
FOR n%=1 TO 42 : READ Station$(n%) : READ Freq$(n%) : READ url$(n%) : NEXT n%

La seconde est en ligne 82.
Ton url n'était pas complète. donc pas d'accès aux radios correspondantes.
url1$="http://www.ecouterradioenligne.com/"+url$(num%)

J’espère que cela va t'aider ! Surtout n'hésites pas à demander si besoins...
Bon courage et à bientôt  Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
pascal10000

avatar

Nombre de messages : 703
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: j'ai un petit problème   Mar 5 Déc 2017 - 21:54

rmont
erreur à la ligne 82

1er message  N%=13  Num%=1

2eme "     "    Stop at line 82 cotinué ou pas?

3eme Expression incorecte    

arret complet du poste

pour ma part je reste dans ma version!!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
RMont



Nombre de messages : 198
Age : 76
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: j'ai un petit problème   Mer 6 Déc 2017 - 18:13

bonjour a tous.
merci pour vos réponses
mais :je dirais  mais  car j'ai simplement repris le code modifié par klaus et j'ai
seulement rajouté 16 stations et modifié en conséquence la 1er ligne des dim en mettant 42 a la place de 26 ainsi que les autres lignes contenant ces valeurs.
 
 j'ai toujours ce problème avec les balises qui ne se mettent pas en place.
je mets le problème ( les radios ) comme résolu sauf pour les balises.
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: j'ai un petit problème   Mer 6 Déc 2017 - 19:14

Alors, essaie cette version:
Code:
 ' radios.bas
DIM nRadios% : nRadios% = 42
DIM Station$(nRadios%) , url$(nRadios%) , Freq$(nRadios%)
DIM url1$ , num% , res% , WB% , n%, aff%, i%
DIM obj% , cont% , dig%(6) , chaine% , but%(4)

LABEL change , exit, what, choice, FinData

DATA "France-Inter"            , "http://www.ecouterradioenligne.com/france-inter/"    , " 87_80"       
DATA "Générations"            , "http://www-ecouterradioenligne.com/generations/"    , " 88_20"
DATA "Nostalgie"              , "http://www.ecouterradioenligne.com/nostalgie/"      , " 90_40"             
DATA "Chante-France"          , "https://www.chantefrance.com/player/"                , " 90_90"
DATA "Contact-Fm"              , "http://www.ecouterradioenligne.com/contact-fm/"      , " 91_40"           
DATA "Cherie-Fm"              , "http://www.ecouterradioenligne.com/cherie/"          , " 91_70"
DATA "France-Musique"          , "http://www.ecouterradioenligne.com/france-musique/"  , " 92_00"   
DATA "france-culture"          , "http://www.ecouterradioenligne.com/france-culture/"  , " 93_50"
DATA "Orient-Fm"              , "http://www.ecouterradioenligne.com/orient/"          , " 94_30"               
DATA "galaxie FM France"      , "http://www.ecouterradioenligne.com/galaxie/"        , " 95_30"   
DATA "Puls Radio"              , "http://www.ecouterradioenligne.com/puls/"            , " 95_40"                 
DATA "Jazz"                    , "http://www.ecouterradioenligne.com/jazz/"            , " 95_70"
DATA "Skyrock"                , "http://www.ecouterradioenligne.com/skyrock/"        , " 96_00"                 
DATA "Voltage"                , "http://www.ecouterradioenligne.com/voltage/"        , " 96_90"
DATA "Rire et chanson"        , "http://www.ecouterradioenligne.com/rire-et-chanson/" , " 97_40" 
DATA  "Metropolys"            , "http://www.ecouterradioenligne.com/metropolys/"      , " 97_60"
DATA "FG DJ Radio"            , "http://www.ecouterradioenligne.com/fg-dj/"          , " 98_20"               
DATA "Vibration FM"            , "http://www.ecouterradioenligne.com/vibration/"      , " 98_70"
DATA "Latina"                  , "http://www.ecouterradioenligne.com/latina/"          , " 99_00"                   
DATA "France Maghreb 2 France" , "http://www.ecouterradioenligne.com/maghreb-2/"      , " 99_50"
DATA "NRJ"                    , "http://www.ecouterradioenligne.com/nrj-france/"      , "100_30"                 
DATA "Alouette France"        , "http://www.ecouterradioenligne.com/alouette/"        , "100_30"
DATA "Fun Radio"              , "http://www.ecouterradioenligne.com/fun/"            , "101_90"                 
DATA "Oui FM"                  , "http://player.ouifm.fr/rock/"                        , "102_30"
DATA "MFM Radio France"        , "http://www.ecouterradioenligne.com/mfm/"            , "102_70"           
DATA "Gold FM"                , "http://www.ecouterradioenligne.com/gold-fm/"        , "103_30"     

ON_ERROR_GOTO FinData
FOR n%=1 TO nRadios% : READ Station$(n%) : READ url$(n%) : READ Freq$(n%) : NEXT n%
FinData:
OFF_ERROR_GOTO

BORDER_HIDE 0 : LEFT 0,5 : TOP 0,5 : HEIGHT 0,105 : WIDTH 0,355 : FONT_SIZE 0,10 : FONT_BOLD 0 : FONT_COLOR 0,0,255,0 : COLOR 0,0,0,0 : obj%=obj%+1

CONTAINER obj% : PARENT obj%,0 : CAPTION obj%," RADIO et FREQUENCE " : LEFT obj%,10 :TOP obj%,7 : WIDTH obj%,310 : HEIGHT obj%,84 : cont%=obj% : obj%=obj%+1

FOR n%=1 to 6                                             
  DIGIT1 obj% : PARENT obj%,cont% : LEFT obj%,(n%*30)-10 : TOP obj%,40 : WIDTH obj%,20 : HEIGHT obj%,34 : COLOR obj%,0,255,0 : CAPTION obj%,"" : dig%(n%)=obj% : obj%=obj%+1
NEXT n%

ALPHA obj% : PARENT obj%,cont% : LEFT obj%,20 : TOP obj%,17 : chaine%=obj% : obj%=obj%+1

FOR n%=1 TO 4 : BUTTON obj% : LEFT obj%,321 : TOP obj%,n%*22-13 : WIDTH obj%,21 : HEIGHT obj%,21 : FONT_SIZE obj%,16 : FONT_BOLD obj% : but%(n%)=obj% : obj%=obj%+1 : NEXT n%
CAPTION but%(1),"+" : ON_CLICK but%(1),change : CAPTION but%(2),"-" : ON_CLICK but%(2),change : CAPTION but%(3),"?" : ON_CLICK but%(3),what : CAPTION but%(4),"X" : ON_CLICK but%(4),exit

DLL_ON "kgf.dll"
WB% = DLL_CALL1("WB_Create",HANDLE(0))
res% = DLL_CALL5("WB_Locate",WB%,10,50,0,0)

TRIGGER_CLICK but%(1)

END

change:
  IF NUMBER_CLICK=but%(1) THEN num%=num%+1 : IF num%=(nRadios%+1) THEN num%=1
  IF NUMBER_CLICK=but%(2) THEN num%=num%-1 : IF num%<1 THEN num%=nRadios%
  FOR n%=LEN(Freq$(num%)) TO 1 STEP -1 : CAPTION dig%(n%),MID$(Freq$(num%),n%,1) : NEXT n%
  CAPTION chaine%,Station$(num%)+" - (Chaine "+STR$(num%)+"/nRadios%)"
  url1$=url$(num%)
  res% = DLL_CALL2("WB_Url",WB%,ADR(url1$))
RETURN

exit:
  TERMINATE
 
what:
  IF OBJECT_EXISTS(99)=0
    form 99
    BORDER_HIDE 99 : LEFT 99,LEFT(0)+WIDTH(0) : TOP 99,TOP(0) : HEIGHT 99,105 : WIDTH 99,200 : FONT_SIZE 99,10 : FONT_BOLD 99 : FONT_COLOR 99,0,255,0 : COLOR 0,0,0,0
    LIST 100 : PARENT 100,99 : FULL_SPACE 100 : COLOR 100,0,0,0 : FONT_COLOR 100,0,255,0
    ON_CLICK 100,choice
    FOR n%=1 TO nRadios%
      ITEM_ADD 100,Station$(n%)
    NEXT n%
    aff% = 1
    RETURN
  END_IF
  IF aff%=1
    HIDE 99
    aff% = 0
  ELSE
    SHOW 99
    aff% = 1
  END_IF 
  RETURN
 
choice:
  num% = ITEM_INDEX(100)
  FOR n%=LEN(Freq$(num%)) TO 1 STEP -1 : CAPTION dig%(n%),MID$(Freq$(num%),n%,1) : NEXT n%
  CAPTION chaine%,Station$(num%)+" - (Chaine "+STR$(num%)+"/nRadios%)"
  url1$=url$(num%)
  res% = DLL_CALL2("WB_Url",WB%,ADR(url1$))
  RETURN
 

Le nombre de stations est paramétrable dans une variable nRadios% au début du code. Il suffit d'ajouter des lignes de DATA, correctement formatées. J'ai réarrangé les DATA de sorte que chaque station soit définie sur une ligne séparée. C'est bien plus lisible ainsi. Il n'y a plus qu'à ajouter les DATA...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



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

MessageSujet: Re: j'ai un petit problème   Mer 6 Déc 2017 - 19:58

Salut RMont,
C'est un peu hs, mais concernant les balises du forum, c'est bizarre que ça ne marche pas chez toi, est-ce que tu fais bien comme il faut:
- sélectionner à la souris la zone de texte à enrichir
- puis, cliquer l'icône de la balise en question
?
à tout hasard.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: j'ai un petit problème   

Revenir en haut Aller en bas
 
j'ai un petit problème
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Un petit problème avec mon GPS!
» Petit problème de couleur
» petit problème couleur
» Petit problème avec un groupe
» petit problème avec la gestion d'une taille

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: