gigi75
Nombre de messages : 101
Age : 51
Date d'inscription : 13/04/2013
 | | Sujet: sonar ultrason pour robot Mar 30 Avr 2013 - 22:19 | |
| Bonsoir à tous Juste pour vous dire que je commence à apprendre, j'ai réaliser un sonar à ultrason avec la fameuse carte entrés/Sortie et un detecteur ultrason, il beep de plus en plus rapidement lorsque l'on s'approche du detecteur. La valeur du détecteur est data1%. Vous savez comment je pourrais fair pour afficher la valeur de ma lecture dans ma fenêtre? Je vous le fais partager - Code:
-
labels()
constantes()
variables()
GUI()
initialisations()
end
sub labels()
label timer1, connect
end_sub
sub constantes()
dim nom_dll$ : nom_dll$ = "wrapper_K8055d.dll"
end_sub
sub variables()
dim resultat%, Data1%, Data2%, n%, point%
dim h%, CardAddr%
end_sub
sub GUI()
button 21 : caption 21,"Connect" : font_bold 21
top 21,20 : left 21,8 : width 21,80 : height 21,30
on_click 21,connect
alpha 10 : caption 10," Mon premier programme Panoramic pour vous tous, Gilles"
alpha 11 : caption 11,"Connect" : font_bold 11
top 11,20 : left 11,8 : width 11,80 : height 11,30
timer 31 : timer_off 31 : timer_interval 31,50
on_timer 31,timer1
end_sub
sub initialisations()
dll_on nom_dll$
n% = 1
end_sub
return
timer1:
timer_off 31
resultat% = dll_call1("K8055d_ResetCounter",2)
resultat% = dll_call2("K8055d_ReadAllAnalog",adr(Data1%), adr(Data2%))
beep : wait data1%*2
connect:
h% = dll_call1("K8055d_OpenDevice",CardAddr%)
timer_on 31
return Merci à tous, et du repos avec les jours feriés. Gilles | |
|
Klaus
Nombre de messages : 12294
Age : 74
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: sonar ultrason pour robot Mar 30 Avr 2013 - 22:32 | |
| Tu peux faire comme ça: - Code:
-
labels()
constantes()
variables()
GUI()
initialisations()
end
sub labels()
label timer1, connect
end_sub
sub constantes()
dim nom_dll$ : nom_dll$ = "wrapper_K8055d.dll"
end_sub
sub variables()
dim resultat%, Data1%, Data2%, n%, point%
dim h%, CardAddr%
end_sub
sub GUI()
button 21 : caption 21,"Connect" : font_bold 21
top 21,20 : left 21,8 : width 21,80 : height 21,30
on_click 21,connect
alpha 10 : caption 10," Mon premier programme Panoramic pour vous tous, Gilles"
alpha 11 : caption 11,"Connect" : font_bold 11
top 11,20 : left 11,8 : width 11,80 : height 11,30
timer 31 : timer_off 31 : timer_interval 31,50
on_timer 31,timer1
alpha 41 : top 41,60 : left 41,8
end_sub
sub initialisations()
dll_on nom_dll$
n% = 1
end_sub
return
timer1:
timer_off 31
resultat% = dll_call1("K8055d_ResetCounter",2)
resultat% = dll_call2("K8055d_ReadAllAnalog",adr(Data1%), adr(Data2%))
caption 41,str$(data1%)
beep : wait data1%*2
connect:
h% = dll_call1("K8055d_OpenDevice",CardAddr%)
timer_on 31
return Bien sûr, tu peux aussi le mettre dans un EDIT, un LIST ou tout autre objet recevant du texte. | |
|
gigi75
Nombre de messages : 101
Age : 51
Date d'inscription : 13/04/2013
| | Sujet: merci Klaus Mar 30 Avr 2013 - 22:35 | |
| | |
|
Contenu sponsorisé
| | Sujet: Re: sonar ultrason pour robot | |
| |
|
Calendrier