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
» quel est ce comportement de Panoramic_editor
par Minibug Aujourd'hui à 8:42

» bug BORDER_HIDE : bloque la commande full_space
par silverman Aujourd'hui à 1:19

» Découpe dans une image
par JL35 Hier à 22:00

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par papydall Hier à 18:57

» Pour faire plaisir à jjn4.
par Pedro Alvarez Hier à 8:13

» Pour faire plaisir à Marc37.
par Marc Jeu 22 Fév 2018 - 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Jeu 22 Fév 2018 - 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

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 | 
 

 ON_CLICK

Aller en bas 
AuteurMessage
Froggy One

avatar

Nombre de messages : 400
Date d'inscription : 06/01/2012

MessageSujet: ON_CLICK   Lun 10 Nov 2014 - 18:01

Je suis désolé, cette question doit arriver sur le forum pour la 115ème fois, mais j'esaaie de tester une réponse dans une boucle...
Code:
label test
dim nbmots
nbmots=3
data "papa","maman","jouet"
dim i:dim a$:dim mot$(nbmots):for i=1 to nbmots:read mot$(i):next i
dim alea
rem alea=int(1+rnd(nbmots))
' Premier exercice: on écrit le mot lentement,
' il faut le reconnaître parmi ceux de la liste
alpha 100:top 100,50:left 100,240:font_size 100,14
rem caption 100,"#######"

  for i=1 to nbmots
    alpha 100+i:font_size 100+i,12
    top 100+i,350 :left 100+i,50+i*100
    caption 100+i,mot$(i)
  next i

alea=int(1+rnd(nbmots))

  for i=1 to len(mot$(alea))
    a$=a$+mid$(mot$(alea),i,1):wait 1000:caption 100,a$
  next i
  
for i=1 to nbmots:on_click 100+i,test:next i

END

test:
  if number_click-100=alea
     message "BRAVO !!!"
  end_if
RETURN


... et ça foire !!!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
papydall

avatar

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

MessageSujet: Re: ON_CLICK   Lun 10 Nov 2014 - 18:38

Le code fonctionne bien.
Où est le problème ?

Suggestion :
Tu peux modifier le s/p test comme ceci pour donner une autre chance

Code:
 test:
  if number_click-100=alea
     message "BRAVO !!!"
  else
     message "Essaye encore !!!
  end_if
RETURN
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Klaus

avatar

Nombre de messages : 10576
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: ON_CLICK   Lun 10 Nov 2014 - 18:40

Et comme ça, ça marche mieux ?
Code:
label test
dim nbmots
nbmots=3
data "papa","maman","jouet"
dim i:dim a$:dim mot$(nbmots):for i=1 to nbmots:read mot$(i):next i
dim alea
rem alea=int(1+rnd(nbmots))
' Premier exercice: on écrit le mot lentement,
' il faut le reconnaître parmi ceux de la liste
alpha 100:top 100,50:left 100,240:font_size 100,14
rem caption 100,"#######"

  for i=1 to nbmots
    alpha 100+i:font_size 100+i,12
    top 100+i,350 :left 100+i,50+i*100
    caption 100+i,mot$(i)
  next i

for i=1 to nbmots:on_click 100+i,test:next i

alea=int(1+rnd(nbmots))

  for i=1 to len(mot$(alea))
    a$=a$+mid$(mot$(alea),i,1):wait 1000:caption 100,a$
  next i
 
message "étape suivante..."

END

test:
  if number_click-100=alea
    message "BRAVO !!!"
  end_if
RETURN
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Froggy One

avatar

Nombre de messages : 400
Date d'inscription : 06/01/2012

MessageSujet: Re   Lun 10 Nov 2014 - 21:47

Oui, c'est plus rapide ! merci à vous deux !! bonne soirée !!!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Contenu sponsorisé




MessageSujet: Re: ON_CLICK   

Revenir en haut Aller en bas
 
ON_CLICK
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» ON_CLICK sur HVIEWER

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: