Citazione:
Originalmente inviato da romoloman prova a cambiare il codice in questo modo: Codice: sub function controlla_gpio() as integer
dim count as long
count=0
'semplice procedura di debouncing....
while ((gpio.0=1))
delay_ms(1)
count=count+1
wend
if (count>200) then
result=1
else
result=0
end if
end sub tieni presente che il cambio effetto ce l'hai sul rilascio del pulsante....
ps non sono sicuro di long... ma count deve essere dichiarato in modo da supportare un valore di almeno 65000 (unsigned integer ??)
Non ho il mikrobasic sottomano... |
provato, mikrobasic non mi riconosce il comando long...
grazie per l'aiuto che mi dai