www.elektronik.si

[galex4]

kako pa dodat še več tipk?

program button1


dim Button_Pin as sbit at P3_2_bit
oldstate, oldstate1 as bit
Button1_Pin as sbit at p3_3_bit

main:

P1 = 255
oldstate = 0
oldstate1 = 0

while TRUE

if (Button(1, 0) <> 0) then ' detect logical one
oldstate = 1 ' update flag
end if
if (oldstate and Button(1, 1)) then ' detect one-to-zero transition
P1 = not P1 ' invert PORT2
oldstate = 0 ' update flag
end if

if (Button(1, 0) <> 0) then
oldstate1 = 1
end if

if (oldstate1 and Button(1, 1)) then
P3.5 = 0
delay_ms (500)
oldstate1 = 0
end if
wend
end.

prevede brez problema, samo kako se ve kdaj je pritisnjena ena tipka in kdaj druga če je Button(1,1) v obeh primerih enak?

program ne deluje prav razen če zbrišem ta del:

if (Button(1, 0) <> 0) then
oldstate1 = 1
end if

if (oldstate1 and Button(1, 1)) then
P3.5 = 0
delay_ms (500)
oldstate1 = 0
end if