| Novembre 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | | | 1 | 2 | 3 | | 4 | 5 | 6 | 7 | 8 | 9 | 10 | | 11 | 12 | 13 | 14 | 15 | 16 | 17 | | 18 | 19 | 20 | 21 | 22 | 23 | 24 | | 25 | 26 | 27 | 28 | 29 | 30 | |  Calendrier |
|
|
| | ALLO ! |  |
|
+3Yannick Jean Claude Froggy One 7 participants | | Auteur | Message |
|---|
Froggy One
Nombre de messages : 598
Date d'inscription : 06/01/2012
| | Sujet: ALLO ! Mar 1 Oct 2013 - 15:19 | |
| Bon sang que les choses vont vite ! J'ai à peine le temps d'envisager un annuaire que Jean Claude l'a déjà fini ! Et moi je n'ai pas beaucoup de temps ces semaines-ci pour programmer alors, tant pis, je vous présente un truc pas fini, en fait, une feuille de saisie de n° de téléphone, si ça peut servir... - Allo:
Caption 0,"Mon annuaire 1.0 Saisis un n° de téléphone"
left 0,223
top 0,200
width 0,550
height 0,492
edit 1 : left 1,02 : top 1,02
width 1,164 : font_size 1,18
button 2
left 2,30
top 2,80
width 2,32
height 2,32
caption 2,"03"
button 3
left 3,30
top 3,120
width 3,32
height 3,32
caption 3,"06"
button 4
left 4,30
top 4,160
width 4,32
height 4,32
caption 4,"09"
button 5
left 5,70
top 5,80
width 5,32
height 5,32
caption 5,"27"
button 6
left 6,70
top 6,120
width 6,32
height 6,32
caption 6,"59"
button 7
left 7,70
top 7, 160
width 7,32
height 7,32
caption 7,"NON"
button 8 : left 8,30 : top 8,200 : width 8,32:height 8,32
caption 8,"OK"
dim i,ii,iii,bttnlarg,nbc,nbCol,nbLin,ref,id,c$
nbCol=10:nbLin=10:bttnlarg=24
nbc=nbCol*nbLin : dim indexref(nbc)
dim gridnum : gridnum=nbc+1
grid gridnum:grid_column gridnum,1+nbCol:grid_row gridnum,1+nbLin
left gridnum,170:top gridnum,40
grid_column_width gridnum,bttnlarg
height gridnum,(1+nbLin)*(2+bttnlarg):width gridnum,(1+nbCol)*(2+bttnlarg)
for iii=2 to 1+nbCol
for ii=2 to 1+nbLin
c$="0"+str$(ii-2+(iii-2)*nbCol)
grid_write gridnum,iii,ii,right$(c$,2)
' id=ii+(iii-1)*nbCol:ref=number_objects+1+id:indexref(id)=ref
' button ref:width ref,bttnlarg:caption ref,str$(id)
' left ref,130+iii*bttnlarg:top ref,50+ii*bttnlarg
next ii
next iii
' PROGRAMME
dim aff$,x,y
label touche,annule,bureau,dept,web,mobile,fixe,OK
on_click gridnum,touche
on_click 8,OK
on_click 7,annule
on_click 6,bureau
on_click 5,dept
on_click 4,web
on_click 3,mobile
on_click 2,fixe
end
touche:
x=grid_x_to_column(gridnum,mouse_x_position(gridnum))
y=grid_y_to_row(gridnum,mouse_y_position(gridnum))
aff$=aff$+grid_read$(gridnum,y,x)+"."
text 1,aff$
return
annule:
aff$=left$(aff$,len(aff$)-3) : text 1,aff$
return
bureau:
aff$="59." : text 1,aff$
return
dept:
aff$=aff$+"27." : text 1,aff$
return
web:
aff$="09." : text 1,aff$
return
mobile:
aff$="06." : text 1,aff$
return
fixe:
aff$="03." : text 1,aff$
return
OK:
Caption 0,"Et maintenant saisis un nom..."
return
Vous aurez remarqué qu'il ne se passe plus rien après un clic sur le bouton OK, et que j'ai utilisé un GRID. C'est que j'avais oublié comment gérer le clic sur toute une série de boutons, j'ai retrouvé l'astuce depuis mais je n'ai pas encore codé le reste... | |
| | | | Jean Claude
Nombre de messages : 5950
Age : 70
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: ALLO ! Mar 1 Oct 2013 - 18:59 | |
| Ou as-tu vu que j'avais fini mon carnet d'adresse ?  Que neni  Je le construis en même temps que je fais le tutoriel, ce qui me permet de bien me placer dans la peau du programmeur. Le plus difficile étant de se placer dans la peau d'un vrai débutant de chez débutant. Je vois dans le tien, que tu abordes la saisie du n° de téléphone en premier et que cette saisie est assistée pour l'utilisateur. J'ai hâte de voir la suite. A+ | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Mar 1 Oct 2013 - 19:07 | |
| @ froggy one, Tu peux réduire à dix chiffres avec une sub de vérification après chaque clic bouton qui ajoute le point après une paire.....  | |
| | | | papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: ALLO ! Mar 1 Oct 2013 - 20:51 | |
| Salut Froggy One Tu as dis ‘ALLO’. Je te réponds ‘ papydall est à l’écoute’. Comme je n’aime pas trop les LABEL, GOSUB, RETURN et comme je préfère les SUB, END_SUB, j’ai pris la liberté de modifier ton code pour (selon ma propre opinion) une meilleure structure et une bonne lisibilité du programme. Il n’y a aucune modification de « l’esprit » du programme. Mais je n’impose absolument rien. A chacun sa façon de coder. Il est à rappeler que PANORAMIC n’autorise pas l’appel à une SUB par ON_CLICK, ON_... mais seulement l’appel à un sous-programme défini par un LABEL et terminé par un RETURN. J’ai dû donc utiliser un seul LABEL clic et dans ce sous-programme, je teste quel objet a été cliqué pour appeler la SUB adéquate. Mais la façon avec laquelle tu as codé ton programme est tout à fait correcte. Ce n’est qu’une façon comme une autre et chacun est son propre chef. Alors, si ça te convient, c’est tant mieux, sinon … - Veuillez cliquer:
rem ============================================================================
rem ALLO.BAS par Froggy One, mis en forme par Papydall
rem ============================================================================
Run()
end
rem ============================================================================
SUB Run()
Init() : GUI()
END_SUB
rem ============================================================================
SUB Init()
label clic
dim bttnlarg,nbc,nbCol,nbLin,ref,id,c$,gridnum,aff$
nbCol = 10 : nbLin = 10 : bttnlarg = 24
nbc = nbCol * nbLin
dim indexref(nbc)
gridnum = nbc+1
Caption 0,"Mon annuaire 1.0 Saisis un n° de téléphone"
END_SUB
rem ============================================================================
SUB GUI()
dim_local i,ii,iii
left 0,223 : top 0,200 : width 0,550 : height 0,492
edit 1 : left 1,02 : top 1,02 :width 1,164 : font_size 1,18
button 2 : left 2,30 : top 2,80 : width 2,32 : height 2,32 : caption 2,"03"
button 3 : left 3,30 : top 3,120 : width 3,32 : height 3,32 : caption 3,"06"
button 4 : left 4,30 : top 4,160 : width 4,32 : height 4,32 : caption 4,"09"
button 5 : left 5,70 : top 5,80 : width 5,32 : height 5,32 : caption 5,"27"
button 6 : left 6,70 : top 6,120 : width 6,32 : height 6,32 : caption 6,"59"
button 7 : left 7,70 : top 7,160 : width 7,32 : height 7,32 : caption 7,"NON"
button 8 : left 8,30 : top 8,200 : width 8,32 : height 8,32 : caption 8,"OK"
grid gridnum : grid_column gridnum,1+nbCol : grid_row gridnum,1+nbLin
left gridnum,170 : top gridnum,40 : grid_column_width gridnum,bttnlarg
height gridnum,(1+nbLin)*(2+bttnlarg) : width gridnum,(1+nbCol)*(2+bttnlarg)
for iii=2 to 1+nbCol
for ii=2 to 1+nbLin
c$="0"+str$(ii-2+(iii-2)*nbCol)
grid_write gridnum,iii,ii,right$(c$,2)
' id=ii+(iii-1)*nbCol:ref=number_objects+1+id:indexref(id)=ref
' button ref:width ref,bttnlarg:caption ref,str$(id)
' left ref,130+iii*bttnlarg:top ref,50+ii*bttnlarg
next ii
next iii
on_click gridnum,clic
for i = 2 to 8 : on_click i,clic : next i
END_SUB
rem ============================================================================
clic:
if clicked(gridnum) > 0 then touche()
if clicked(2) > 0 then fixe()
if clicked(3) > 0 then mobile()
if clicked(4) > 0 then web()
if clicked(5) > 0 then dept()
if clicked(6) > 0 then bureau()
if clicked(7) > 0 then annule()
if clicked(8 )> 0 then ok()
return
rem ============================================================================
SUB touche()
dim_local x,y
x = grid_x_to_column(gridnum,mouse_x_position(gridnum))
y = grid_y_to_row(gridnum,mouse_y_position(gridnum))
aff$ = aff$+grid_read$(gridnum,y,x)+"."
text 1,aff$
END_SUB
rem ============================================================================
SUB annule()
aff$ = left$(aff$,len(aff$)-3) : text 1,aff$
END_SUB
rem ============================================================================
SUB bureau()
aff$ = "59." : text 1,aff$
END_SUB
rem ============================================================================
SUB dept()
aff$ = aff$+"27." : text 1,aff$
END_SUB
rem ============================================================================
SUB web()
aff$ = "09." : text 1,aff$
END_SUb
rem ============================================================================
SUB mobile()
aff$="06." : text 1,aff$
END_SUB
rem ============================================================================
SUB fixe()
aff$ = "03." : text 1,aff$
END_SUB
rem ============================================================================
SUB OK()
Caption 0,"Et maintenant saisis un nom..."
END_SUB
rem ============================================================================
| |
| | | | Froggy One
Nombre de messages : 598
Date d'inscription : 06/01/2012
| | Sujet: Re Mer 2 Oct 2013 - 8:39 | |
| Waow ! voilà un matin comme je les aime ! Merci pour toutes ces réponses. @ Papydall : c'est vrai que if clicked()>0 est une bonne astuce. Je suis reparti sur des touches, c'est plus joli mais ma façon de faire oblige à cliquer deux fois pour que le programme reconnaisse l'appui sur OK. Qu'en penses-tu ? - annuaire:
Caption 0,"Mon annuaire 1.0" left 0,223 top 0,200 width 0,550 height 0,492 edit 1 left 1,30 top 1,40 button 2 left 2,30 top 2,80 width 2,32 height 2,32 caption 2,"03" button 3 left 3,30 top 3,120 width 3,32 height 3,32 caption 3,"06" button 4 left 4,30 top 4,160 width 4,32 height 4,32 caption 4,"09" button 5 left 5,70 top 5,80 width 5,32 height 5,32 caption 5,"27" button 6 left 6,70 top 6,120 width 6,32 height 6,32 caption 6,"59" button 7 left 7,70 top 7, 160 width 7,32 height 7,32 caption 7,"NON" button 8 : left 8,30 : top 8,200 : width 8,32:height 8,32 caption 8,"OK" dim i,ii,iii,blarg,nbc,nbCol,nbRow,ref,id nbCol=10:nbRow=10:blarg=32 nbc=nbCol*nbRow : dim indexref(nbc) for iii=1 to nbCol for ii=1 to nbRow id=ii+(iii-1)*nbCol:ref=number_objects+1+id:indexref(id)=ref button ref:width ref,blarg:caption ref,str$(id) left ref,130+iii*blarg:top ref,50+ii*blarg next ii next iii ' PROGRAMME caption 0,"Saisis un n° de téléphone" dim aff$,x,y label annule,bureau,dept,web,mobile,fixe,OK while clicked(  <>1 on_click 7,annule on_click 6,bureau on_click 5,dept on_click 4,web on_click 3,mobile on_click 2,fixe for i=1 to nbc if clicked(indexref(i))=1 aff$=aff$+str$(i)+"." : text 1,aff$ end_if next i end_while end annule: if aff$<>"" aff$=left$(aff$,len(aff$)-3) : text 1,aff$ end_if return bureau: aff$="59." : text 1,aff$ return dept: aff$=aff$+"27." : text 1,aff$ return web: aff$="09." : text 1,aff$ return mobile: aff$="06." : text 1,aff$ return fixe: aff$="03." : text 1,aff$ return OK: Caption 0,"Et maintenant saisis un nom..." return
@ Ygeronimi : en effet, c'est très astucieux, je vais y penser ! @ Jean Claude : désolé, je lis plutôt en diagonale en ce moment. Je vais en parler à l'orthoptiste !  Le pire c'est que je dois maintenant ETEINDRE mon PC pour commencer une journée laborieuse... @+ et merci encore. | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Mer 2 Oct 2013 - 10:31 | |
|  Tu as une boucle sans fin avant le end, tu ne peux plus quitter par la croix. while... | |
| | | | Froggy One
Nombre de messages : 598
Date d'inscription : 06/01/2012
| | Sujet: RE Mer 2 Oct 2013 - 10:45 | |
| En fait j'avais un on_click 8,OK dans la boucle (on_click 8,OK puis on_click 7...) mais cliquer dessus m'envoie une erreur non corresponding while à la ligne du ss prg OK:
??? | |
| | | | Mumu
Nombre de messages : 176
Localisation : 45
Date d'inscription : 20/12/2012
| | Sujet: Re: ALLO ! Mer 2 Oct 2013 - 10:53 | |
| @ Froggy One
N'as tu pas un timer dans ton prog ?
J'ai eu exactement le même problème et n'ai pu le résoudre qu'en virant le timer et en le remplaçant par une sub | |
| | | | Jicehel
Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: ALLO ! Mer 2 Oct 2013 - 11:36 | |
| Ça c'est par ce que vous n’arrêtez pas vos timers pendant le traitement... Mélanger les boucles et l’évènementiel oblige à adopter une certaine gymnastique et on a tous du mal au départ, mais ça vaut le coup de prendre les bonnes habitudes. | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Mer 2 Oct 2013 - 11:53 | |
| un autre petit bout de code: - Code:
-
dim x%,obj%,clic%,sep%
label Clic
font_name 0,"Arial"
alpha 1 : top 1,10:left 1,10:caption 1,"Numéro :"
Edit 2 : top 2,30:left 2,10 :width 2,90
alpha 3 : top 3,60:left 3,10:caption 3,"(...)"
combo 4 : top 4,80:left 4,10:width 4,35:on_click 4,Clic
for x%=1 to 10
obj%=x%+4
button obj%
top obj%,80
if obj%=5:left obj%,left(obj%-1)+40:else:left obj%,left(obj%-1)+25:end_if
height obj%,20
width obj%,20
caption obj%,str$(x%-1)
on_click obj%,Clic
cursor_point obj%
next x%
remp_combo()
end
sub remp_combo()
dim_local i%
for i%=0 to 9: item_add 4,"0"+str$(i%):next i%
item_add 4,"27" :item_add 4,"59"
end_sub
Clic:
clic%=number_click
if clic% <=4
select clic%
case 4: indicatif()
end_select
else
numero()
end_if
return
sub indicatif()
dim_local a$,b%
if text$(2)=""
text 2,"("+text$(4)+") "
else
if message_warning_yes_no("Vous avez déjà noté un indicatif !")=1
a$=text$(2):b%=len(a$)
if len(a$)>5
a$=right$(a$,b%-5)
else
a$=""
end_if
text 2,"("+text$(4)+") "+a$
end_if
end_if
end_sub
sub numero()
dim_local a$,b%
a$=text$(2):b%=len(a$)
if b%<17
if b%>=4
a$=a$+str$(clic%-5)
if sep%=1
a$=a$+"."
sep%=0
else
sep%=sep%+1
end_if
text 2,a$
end_if
else
message "Validez pour entrer le nom du contact."
end_if
end_sub ce code est pour te donner des idées donc il est incomplet...il manque des boutons etc... | |
| | | | Invité
Invité
| | Sujet: Re: ALLO ! Mer 2 Oct 2013 - 14:34 | |
| Voici une variante: - voir:
- Code:
-
Caption 0,"Mon annuaire 1.0" :left 0,223 :top 0,200:width 0,550:height 0,492
edit 1 :left 1,30:top 1,40
button 2 :left 2,30:top 2,80:width 2,32:height 2,32:caption 2,"03"
button 3:left 3,30:top 3,120:width 3,32:height 3,32:caption 3,"06"
button 4:left 4,30:top 4,160:width 4,32:height 4,32:caption 4,"09"
button 5:left 5,70:top 5,80:width 5,32:height 5,32:caption 5,"27"
button 6:left 6,70:top 6,120:width 6,32:height 6,32:caption 6,"59"
button 7:left 7,70:top 7, 160:width 7,32:height 7,32:caption 7,"NON"
button 8 : left 8,30 : top 8,200 : width 8,32:height 8,32:caption 8,"OK"
' memo 500:left 500,width(0):width 0,660:width 500,100:height 500,500
dim i,ii,iii,blarg,nbc,nbCol,nbRow,ref,id
label clic
nbCol=10:nbRow=10:blarg=32
nbc=nbCol*nbRow : dim indexref(nbc)
for iii=1 to nbCol
for ii=1 to nbRow
id=ii+(iii-1)*nbCol:ref=number_objects+1+id:indexref(id)=ref
button ref:width ref,blarg:caption ref,str$(id)
left ref,130+iii*blarg:top ref,50+ii*blarg
' item_add 500,ref :' voir à quoi ça correspond
on_click ref,clic
next ii
next iii
' PROGRAMME
caption 0,"Saisis un n° de téléphone"
dim aff$,x,y
on_click 7,clic
on_click 6,clic
on_click 5,clic
on_click 4,clic
on_click 3,clic
on_click 2,clic
end :' ==================================
clic:
caption 0,number_click
if number_click > 7 then num()
select number_click
case 2:fixe()
case 3:mobile()
case 4:web()
case 5:dept()
case 6:bureau()
case 7:annule()
end_select
return
sub num()
text 1, text$(1)+ "."+caption$(number_click)
return
sub annule()
if aff$<>""
aff$=left$(aff$,len(aff$)-3) : text 1,aff$
end_if
end_sub
sub bureau()
aff$="59." : text 1,aff$
end_sub
sub dept()
aff$=aff$+"27." : text 1,aff$
end_sub
sub web()
aff$="09." : text 1,aff$
end_sub
sub mobile()
aff$="06." : text 1,aff$
end_sub
sub fixe()
aff$="03." : text 1,aff$
end_sub
subOK()
Caption 0,"Et maintenant saisis un nom..."
end_sub
La différence entre clicked() et number_clcik: Pour clicked, l'objet n'a pas besoin d'être "label_lisé" c'est à dire pas de on_click obligatoire, ce qui n'est pas le cas avec number_click, qui ne sera pas reconnu si il n'y a pas on_click N,L Mais avec number_click, il n'est pas nécessaire d'avoir une boucle pour tester l'appui d'une touche. Le code est une reprise, mais je ne sais pas vraiment comment tu veux le construire. Tu remarqueras que je n'ai pas utilisé la variable aff$ |
| | | | Jicehel
Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: ALLO ! Mer 2 Oct 2013 - 15:45 | |
| Pour le on_clic, la structure avec un timer a été utilisée dans l'exemple de traitement des potentiomètre que j'avais publié (Bon dans cet exemple on gère 2 fois le clic, une fois pour activer le potentiomètre et une fois pour le relacher, mais le traitement reste identique) : - Code:
-
label clic,clic2, affiche
dim s : s=1
dim x : x=12
dim k
dim h_boutton : h_boutton = 20
dim l_potentiometre(2) : l_potentiometre(1) = 100 : l_potentiometre(2) = 100
dim h_potentiometre(2) : h_potentiometre(1) = 450 : h_potentiometre(2) = 450
scene2D 1 : left 1,100 : top 1,0 : width 1,l_potentiometre(1) : height 1,h_potentiometre(1)
file_load 1,"fader.bmp"
scene2D 2 : left 2,300 : top 2,0 : width 2,l_potentiometre(2) : height 2,h_potentiometre(2)
file_load 2,"general.bmp"
sprite_target_is s
sprite 1 : sprite_file_load 1,"Bout_off.bmp" : sprite_position 1,h_boutton,x
on_click 1,clic
timer 3 : timer_interval 3,10 : on_timer 3,affiche : timer_off 3
end
clic:
timer_on 3
on_click 1,clic2
return
clic2:
timer_off 3
on_click 1,clic
return
affiche:
k = mouse_y_position(s)
if k < (h_potentiometre(1)-1.5*h_boutton) and k > 1.5*h_boutton+top(s) then x= k - 1.5*h_boutton : sprite_position 1, 21,x
caption 0,x
return | |
| | | | Froggy One
Nombre de messages : 598
Date d'inscription : 06/01/2012
| | Sujet: Re Mer 2 Oct 2013 - 16:14 | |
| OK, et grand merci à tous ! Je ne savais pas que je pouvais mettre le on-click dans la boucle fabriquant les boutons, ni utiliser le clicked avec autant d'aisance ! | |
| | | | Froggy One
Nombre de messages : 598
Date d'inscription : 06/01/2012
| | Sujet: Re Mar 8 Oct 2013 - 19:07 | |
| Comme je n'ai pas trop de temps, je me contente de ceci : - numéroteur:
Caption 0,"Saisie du numéro"
left 0,223:top 0,200:width 0,550:height 0,492
edit 1:left 1,30:top 1,40:width 1,132:font_size 1,16
button 2:left 2,30:top 2,80:width 2,32:height 2,32:caption 2,"03"
button 3:left 3,30:top 3,120:width 3,32:height 3,32:caption 3,"06"
button 4:left 4,30:top 4,160:width 4,32:height 4,32:caption 4,"09"
button 5:left 5,70:top 5,80:width 5,32:height 5,32:caption 5,"27"
button 6:left 6,70:top 6,120:width 6,32:height 6,32:caption 6,"59"
button 7:left 7,70:top 7, 160:width 7,32:height 7,32:caption 7,"NON"
button 8:left 8,30:top 8,200:width 8,32:height 8,32:caption 8,"OK"
dim a$,i,ii,iii,blarg,nbc,nbCol,nbRow,ref,id
nbCol=10:nbRow=10:blarg=32
nbc=nbCol*nbRow : dim indexref(nbc) : label touche
for iii=1 to nbCol
for ii=1 to nbRow
id=ii+(iii-1)*nbCol:ref=number_objects+1+id:indexref(id)=ref
button ref:width ref,blarg
a$=str$(id)
if len(a$)=1
a$="0"+a$
end_if
caption ref,a$
left ref,130+iii*blarg:top ref,50+ii*blarg
on_click ref,touche
next ii
next iii
' BANDEAU
main_menu 210:sub_menu 211:parent 211,210:caption 211,"Options"
sub_menu 212:parent 212,211:caption 212,"Indicatif région"
' PROGRAMME
caption 0,"Saisis un n° de téléphone"
dim aff$,x,y
label annule,bureau,dept,web,mobile,fixe,OK
label chg_dept
on_click 212,chg_dept
on_click 8,OK
on_click 7,annule
on_click 6,bureau
on_click 5,dept
on_click 4,web
on_click 3,mobile
on_click 2,fixe
end
touche:
a$=caption$(number_click)
if val(a$)<>100
aff$=aff$+a$+"."
text 1,aff$
else
' ICI TOUCHE PANIC ...
message "Petit(e) rigolo(te) !!!"
end_if
return
annule:
if aff$<>""
aff$=left$(aff$,len(aff$)-3) : text 1,aff$
end_if
return
bureau:
aff$="59." : text 1,aff$
return
dept:
aff$=aff$+"27." : text 1,aff$
return
chg_dept:
a$=message_input$("Options","Saisis le nouvel indicatif",caption$(5))
caption 5,a$
return
web:
aff$="09." : text 1,aff$
return
mobile:
aff$="06." : text 1,aff$
return
fixe:
aff$="03." : text 1,aff$
return
OK:
Caption 0,"Le numéro est dans le clipboard...":beep
wait 1000
Caption 0,"Saisis un n° de téléphone"
clipboard_string_copy aff$
return
... qui va coller le n° dans le clipboard (à suivre). | |
| | | | mindstorm
Nombre de messages : 685
Age : 55
Localisation : charente
Date d'inscription : 13/02/2013
| | Sujet: Re: ALLO ! Mar 8 Oct 2013 - 22:27 | |
| bonsoir a tous @ jichel pourrais tu developper tes propos sur les timer ? j'ai un gros probleme avec sur mon robot et je dois cliquer sur espace pour arreter ça rotation. je suis bloqué  merci | |
| | | | Jicehel
Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: ALLO ! Mar 8 Oct 2013 - 23:02 | |
| Pour le timer: en début de procédure de traitement, tu l’arrêtes et tu fais ton sous programme.
Quand le sous programme est terminé, juste avant le return, tu remets en route le timer.
Si tu as plusieurs timer, ça peut être dur à gérer, donc dans ce cas, mieux vaut n'utiliser qu'un seul timer et incrémenter une variable (compteur) pour déclencher certains événement que lorsque la variable a atteint la valeur désirée. Dans ce cas, tu execute la procédure puis tu remets la variable à 0 ... | |
| | | | mindstorm
Nombre de messages : 685
Age : 55
Localisation : charente
Date d'inscription : 13/02/2013
| | Sujet: Re: ALLO ! Mer 9 Oct 2013 - 12:21 | |
| Merci jicehel
je vais voir tout ca ce soir
| |
| | | | Contenu sponsorisé
| | Sujet: Re: ALLO ! | |
| |
| | | | | | ALLO ! | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
