مشکل برنامه نویسی در بسکام

[bmvali]

سلام بر دوستان
یه برنامه ای تو بسکام می خواستم بنویسم که اگر یه ورودی 2ثانیه به 5ولت متصل شه یه پورت روشن شه و اگر 5 ثانیه شد پورت دوم و اگر 10 ثانیه شد پورت سوم روشن شه
البته یه کارایی کردم ولی درست نشد و خطای کامپایل داد.
اگه کسی میتونه کمک کنه


$regfile = "M16DEF.DAT"
$crystal = 1000000
Config Porta = Input
Config Portb = Output
Dim G As Byte

Man:
Do
While Porta.0 = 1
G = 1
Incr G
Waitms 500

If G = 4
Then Goto Led1
If G = 10
Then Goto Led2
If G =20
Then Goto Led3

Wend
Loop



Led1:

Set Portb.0
Waitms 500
Reset Portb.0
Waitms 500
Set Portb.0
Waitms 500
Reset Portb.0
Waitms 500
Set Portb.0
Waitms 500
Reset Portb.0
Waitms 500
Goto Man

Led2:
Set Portb.1
Waitms 500
Reset Portb.1
Waitms 500
Set Portb.1
Waitms 500
Reset Portb.1
Waitms 500
Set Portb.1
Waitms 500
Reset Portb.1
Waitms 500
Goto Man

Led3:
Set Portb.2
Waitms 500
Reset Portb.2
Waitms 500
Set Portb.2
Waitms 500
Reset Portb.2
Waitms 500
Set Portb.2
Waitms 500
Reset Portb.2
Waitms 500
Goto Man

[Doloop]

سلام

الان شما چطوری تشخیص میدید ک ورودی چند ثانیه به 5 ولت وصل شده؟
برای این برنامه نیازه از تایمر استفاده بشه تا زمان اتصال به 5 ولت تشخیص داده بشه بعد ب توجه به زمان پورت مورد نظر فعال بشه

[bmvali]

بله دقیقا من مشکلم همینجاست که دقیقا نمیدونم چجوری برنامه شمردن رو بنویسم از کانتر استفاده کنم یا تایمر؟

[Doloop]

کانتر زیر مجموعه واحد تایمر هست
مگا 16 دقیق یادم نیست ولی فکر کنم دوتا تایمر داره ( تایمر صفر و تایمر یک)

نمونه برنامه برای راه انداختن تایمر تو خود Help بسکام هست تو نت هم سرچ کنی زیاده

ConfigTimer0=Counter, Edge = Rising

Tcnt0 = 0
 
 Do
 Print Tcnt0
 LoopUntil Tcnt0 >= 10
 'when 10 pulses are count the loop is exited
 'or use the special variable TIMER0
 Timer0= 0
 

ConfigTimer0=Timer, Prescale = 1
 
 'The TIMER is started now automaticly
 'You can STOP the timer with the following statement :
 StopTimer0
 
 'Now the timer is stopped
 'To START it again in the last configured mode, use :
 StartTimer0
 
 'Again you can access the value with the tcnt0 register
 Print Tcnt0
 'or
 PrintTimer0

این یه نمونه راه اندازی تایمر هست البته من از تو نت قسمت دستورات تایمر رو براتون کپی کردم
سرچ کنید خیلی راحت پیدا میکنید

موفق باشید

[bmvali]

$regfile = "M16DEF.DAT"
$crystal = 4000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Porta = Input
Config Portb = Output
Dim San As Byte
Config Timer1 = Timer , Prescale = 64
Enable Interrupts
Enable Timer1

If Pinb.0 = 1 Then Start Timer1
San = 0
On Timer1 P

Do
Locate 1 , 1 : Lcd San
Loop
End
P:
Incr San


If San > 10 Then : Toggle Portb.0 : San = 0 : End If
If San < 11 Then : Toggle Portb.1 : San = 0 : End If

Return

دوستان این کد رو نوشتم اما عمل نمی کنه میشه کمک کنید مشکلش پیدا شه!