مشکل با میکروسوئیچ ، bascom

[ali1373]

سلام بر دوستان میکرویی!
حقیقتش من رو برد برد یک مدار درست کردم که هر بار میکروسوئیچ و میزنم به عدد روی LCD یه دونه اضافه بشه ، ولی در عمل کار نمی کنه:unh: یعنی قبل از این که دکمه رو بزنم عدد اضافه میشه! راستی با بسکام هم کار می کنم! برنامه رو میذارم اگه ممکنه کمکم کنید ، خیلی ممنون از همگی:wink:





$regfile = "m16def.dat"
$crystal = 1000000
Config Portb = Input
Config Porta = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2_
, Db7 = Porta.3 , Rs = Porta.4 , E = Porta.5
Dim A As Byte
A = 0
Cls
LCD A
Main:
Do
Debounce PinA.7 , 1 , Switch
Loop
Switch:
Incr A
Cls
Lcd A
Goto Main
End

[morteza_rk]

سلام دوست خوبم

شما کد زیر رو امتحان کن ببین چی میشه!؟


$regfile = "m16def.dat"
$crystal = 1000000

Config Portb = Input

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2_
, Db7 = Porta.3 , Rs = Porta.4 , E = Porta.5

Dim A As Byte
A = 0

Cls
LCD A

Do
Debounce Pinb.1 , 0 , Switch , Sub
Loop

End

Switch:
Incr A
Cls
Lcd A
return

[morteza_rk]

البته یادم رفت که بگم قسمت سخت افزار کلید هم باید به شکل زیر باشه :

You can see links before reply