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 Hier à 23:03

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

» Pour faire plaisir à Marc37.
par Marc Hier à 21:46

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

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 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 | 
 

 j'ai un petit problème

Aller en bas 
AuteurMessage
RMont



Nombre de messages : 191
Age : 75
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



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



Nombre de messages : 632
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 : 191
Age : 75
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 : 5174
Age : 63
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 : 2522
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 : 191
Age : 75
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 : 191
Age : 75
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 : 2522
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 : 688
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 : 191
Age : 75
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 : 10575
Age : 68
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 : 6148
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 Personalisation de Dossier sous Windows 7
» Petit problème d'accès au Mediacenter par PC en wifi
» Petit problème
» un petit problème avec la lumière sur une loco

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: