Bonjour
j'essaie de travailler en ce moment sur une serrure codée.
le problème est qu'avec le programme que j'utilise sous picaxe 18, je bute sur un problème de reconnaissance de code.
certain codes sont reconnus et déclenche la led verte ainsi que l'ouverture du solénoid mais avec d'autres je n'ai aucun déclenchement et toujours led rouge.
j'ai verifier a l'ohmètre mon clavier pour ecarter tout problème "hard" mais tout est normal, il s'agit bien d'un problème de programmation
voici le code
je tourne en rond et ne trouve pas d'explication. le code me paraissant correct.
????
je travaille à partir de ce doc
http://www.picaxe.com/docs/chi008.pdf
j'essaie de travailler en ce moment sur une serrure codée.
le problème est qu'avec le programme que j'utilise sous picaxe 18, je bute sur un problème de reconnaissance de code.
certain codes sont reconnus et déclenche la led verte ainsi que l'ouverture du solénoid mais avec d'autres je n'ai aucun déclenchement et toujours led rouge.
j'ai verifier a l'ohmètre mon clavier pour ecarter tout problème "hard" mais tout est normal, il s'agit bien d'un problème de programmation
voici le code
Code:
' Keypad Lock For PICAXE-18
symbol key_pos = b1
symbol key_value = b2
init:
let key_pos = 0
scan:
let key_value = 0
let pins = %00010001
gosub key_test
let key_value = 3
let pins = %00010010
gosub key_test
let key_value = 6
let pins = %00010100
gosub key_test
let key_value = 9
let pins = %00011000
gosub key_test
goto scan
key_test:
if pin0 = 1 then add1
if pin1 = 1 then add2
if pin2 = 1 then add3
return
add3: let key_value = key_value + 1
add2: let key_value = key_value + 1
add1: let key_value = key_value + 1
sound 6,(60,50) ‘(continued overleaf)
let key_pos = key_pos + 1
if key_pos = 1 then test1
if key_pos = 2 then test2
if key_pos = 3 then test3
if key_pos = 4 then test4
test4:
if key_value = 2 then open
goto reset
test3:
if key_value = 4 then continue
goto reset
test2:
if key_value = 5 then continue
goto reset
test1:
if key_value = 6 then continue
goto reset
open: let pins = %10100000
wait 5
goto reset
reset:
let key_pos = 0
continue:
return
????
je travaille à partir de ce doc
http://www.picaxe.com/docs/chi008.pdf
Last edited: