Visualizza messaggio singolo
Vecchio 31 luglio 14, 17:29   #31 (permalink)  Top
trabo
User
 
Data registr.: 19-07-2014
Messaggi: 17
Citazione:
Originalmente inviato da romoloman Visualizza messaggio
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
trabo non รจ collegato   Rispondi citando