خطای کانتر 1 در بسکام

[espadana]

سلام.من هر وقت میخوام با کانتر 1 کار کنم بسکام اونو نمیشناسه یعنی وقتی مینویسم:
enable counte1. خطای اون رو مینویسه
unkouwn interrupts source(counter1
با atmega16 هم هست.ممنون میشم راهنماییم کنید.

[sadmonew]

سلام مهندس
ای کاش اول انجمن رو سرچ میکردین بعد تاپیک میزدی؟!
--------------------------------------------------------------
با یکی دوخط از برنامه خیلی سخت میشه گفت که مشکل چیه!
این لینک ها رو نگاه کن.
1- http://www.qsl.net/p/pa3ckr/bascom%2...pts/index.html
2- BASCOM-AVR

[espadana]

سلام.مهندس من به تازگی کار با بسکام رو شروع کردم توی انجمن هم سرچ کردم چیزی گیر نیاوردم.اصل برنامه اینه:
Config Timer1 = Counter , Edge = Rising
Enable Interrupts
Enable Counter1
On Counter1 Show
Counter1 = 65535
Dim A As WORD
Do
Loop
End
SHOW:
Counter1 = 65535
Incr A
Cls : Lcd A
Return
برنامه از پی دی اف های آقای فهیمی هست.
ممنون میشم راهنماییم کنید.

[Pixar]

سلام.مهندس من به تازگی کار با بسکام رو شروع کردم توی انجمن هم سرچ کردم چیزی گیر نیاوردم.اصل برنامه اینه:
Config Timer1 = Counter , Edge = Rising
Enable Interrupts
Enable Counter1
On Counter1 Show
Counter1 = 65535
Dim A As WORD
Do
Loop
End
SHOW:
Counter1 = 65535
Incr A
Cls : Lcd A
Return
برنامه از پی دی اف های آقای فهیمی هست.
ممنون میشم راهنماییم کنید.

سلام به شما دوست گرامی :

شکل صحیح برنامهء شما باید بصورت زیر باشه :

[PHP]Config Timer1 = Counter , Edge = Rising
Enable Interrupts

Counter1 = 65535
On Ovf1 Show
Enable Ovf1

Dim A As WORD
Do

Loop

End

SHOW:
Counter1 = 65535
Incr A
Cls : Lcd A

Return[/PHP]

[espadana]

سلام مهندس.ممنون از راهنماییت.یه سوال دیگه هم برام پیش اومده که اگر لطف کنی جواب بدی ممنون میشم.
اگر چندتا کلید spst رو به یک پورت وصل کرده باشیم و بخواهیم هر وقت هر سه تا and شد یک led روشن بشه و اگر یکی از آنها not شد led خاموش بشه باید چه دستوراتی بنویسم؟؟؟؟

البته من یه برنامه نوشتم که اینکارو میکرد ولی وقتی یکی از پایه ها رو not میکردم و دوباره وصل کردم دیگه led روشن نشد>>>>

[Pixar]

سلام مهندس.ممنون از راهنماییت.یه سوال دیگه هم برام پیش اومده که اگر لطف کنی جواب بدی ممنون میشم.
اگر چندتا کلید spst رو به یک پورت وصل کرده باشیم و بخواهیم هر وقت هر سه تا and شد یک led روشن بشه و اگر یکی از آنها not شد led خاموش بشه باید چه دستوراتی بنویسم؟؟؟؟

البته من یه برنامه نوشتم که اینکارو میکرد ولی وقتی یکی از پایه ها رو not میکردم و دوباره وصل کردم دیگه led روشن نشد>>>>

سلام :

برنامه یا شماتیک کارتون رو بذارید تا بتونم بهتر راهنمایی کنم ....

[espadana]

سلام.
مهندس برنامه به این صورت هست که اگر sw2 و sw3 و sw4 یک شد led روشن بشه و اگر یکی از اونه صفر شد led خاموش بشه.
یا اگر پوش باتن به تنهایی فشرده شد ال ای دی toggle بشه.
شرمنده که سوالم آماتوریه.با کدویژن راحت میشه نوشتش ولی بسکام............
ممنون میشم راهنماییم کنید.

[Pixar]

سلام.
مهندس برنامه به این صورت هست که اگر sw2 و sw3 و sw4 یک شد led روشن بشه و اگر یکی از اونه صفر شد led خاموش بشه.
یا اگر پوش باتن به تنهایی فشرده شد ال ای دی toggle بشه.
شرمنده که سوالم آماتوریه.با کدویژن راحت میشه نوشتش ولی بسکام............
ممنون میشم راهنماییم کنید.

سلام :

ببین این برنامه که برات نوشتم همون چیزی هست که مدّ نظرته یا نه ... از ضمیمه دانلود کن

[سنجری]

با سلام .
با تشکر ازpixar
فکر می کنم این فایل را قرار بدی مشکل شما رفع میشود .ضمنا به پورت portb.0 وکلید مربوطه نیازی نیست من با پروتوس تست کردم


$regfile = "m8def.dat"
$crystal = 8000000

Config Portb = Input
Config Portd.0 = Output
Config Debounce = 5

Led Alias Portd.0
Sw1 Alias Pinb.1
Sw2 Alias Pinb.2
Sw3 Alias Pinb.3

Do

If Sw1 = 1 And Sw2 = 1 And Sw3 = 1 Then

Set Led

Else

Reset Led

End If

Loop

End

ضمنا شما می توانید سه کلید را بصورت سری به هم وصل کرده سپس به میکرو متصل کنید واز یک پورت استفاده کنید و الی آخر ...

[espadana]

سلام.واقعا دستتون درد نکنه کارم.هردو برنامه کار رو میندازه.بازم متشکرم.

[Pixar]

سلام.واقعا دستتون درد نکنه کارم.هردو برنامه کار رو میندازه.بازم متشکرم.