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 | 
 

 j'ai un petit problème

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



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

MessageSujet: j'ai un petit problème   Lun 4 Déc 2017 - 20: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 : 549
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: j'ai un petit problème   Lun 4 Déc 2017 - 20: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 : 10243
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 - 20: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 : 549
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: j'ai un petit problème   Lun 4 Déc 2017 - 21: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 : 184
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: j'ai un petit problème   Lun 4 Déc 2017 - 21: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 : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: j'ai un petit problème   Lun 4 Déc 2017 - 22: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 : 2408
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: j'ai un petit problème   Lun 4 Déc 2017 - 22: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 : 184
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: j'ai un petit problème   Mar 5 Déc 2017 - 21: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 : 184
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: j'ai un petit problème   Mar 5 Déc 2017 - 21: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 : 2408
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: j'ai un petit problème   Mar 5 Déc 2017 - 21: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 : 606
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: j'ai un petit problème   Mar 5 Déc 2017 - 23: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 : 184
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: j'ai un petit problème   Mer 6 Déc 2017 - 20: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 : 10243
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 - 21: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 : 6017
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: j'ai un petit problème   Mer 6 Déc 2017 - 21: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
Voir le sujet précédent Voir le sujet suivant 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 online!
» Petit problème d'accès au Mediacenter par PC en wifi
» Petit problème

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: