$regfile "m16def.dat"
$crystal = 1000000
Config Portb = Output
Config Timer1 = Timer , Prescale = 1024
Enable Interrupts
Enable Timer1
Dim A As Byte
A = 0
Start Timer1
On Timer1 Ss
Do
Loop Until A = 3
Timer1 = 47
Do
Loop Until A = 4
Timer1 = 0
Set Portb.0
Set Portb.1
Do
Loop Until A = 7
Timer1 = 47
Do
Loop Until A = 8
Reset Portb.0
Reset Portb.1
Goto Dd
End
Ss:
Incr A
Return
Dd:
Return
با سلام خدمت دوستان اول اینکه این صفحه ایجاد کردم که سوالات مربوط به برنامه نویسی بیس کام یه جا مطرح بشه .
دوم اینکه توی برنامه بالا من میخواستم LEDبا زمان دقیق یک ثانیه چشمک بزنه . طبق کلاک سیستم و مقدار PRESCALE تایمر در هر0.262144 ثانیه پر میشه پس لازمه که سه بار تا 256 و یک بار تا209 پر بشه تا یک ثانیه دقیق ایجاد بشه. حالا میخواستم راهنماییم کنید که برنامه ساده تر بشه ئ هر شصت ثانیه ای PORTB.2 چشمک بزنه.
با تشکر
$crystal = 1000000
Config Portb = Output
Config Timer1 = Timer , Prescale = 1024
Enable Interrupts
Enable Timer1
Dim A As Byte
A = 0
Start Timer1
On Timer1 Ss
Do
Loop Until A = 3
Timer1 = 47
Do
Loop Until A = 4
Timer1 = 0
Set Portb.0
Set Portb.1
Do
Loop Until A = 7
Timer1 = 47
Do
Loop Until A = 8
Reset Portb.0
Reset Portb.1
Goto Dd
End
Ss:
Incr A
Return
Dd:
Return
با سلام خدمت دوستان اول اینکه این صفحه ایجاد کردم که سوالات مربوط به برنامه نویسی بیس کام یه جا مطرح بشه .
دوم اینکه توی برنامه بالا من میخواستم LEDبا زمان دقیق یک ثانیه چشمک بزنه . طبق کلاک سیستم و مقدار PRESCALE تایمر در هر0.262144 ثانیه پر میشه پس لازمه که سه بار تا 256 و یک بار تا209 پر بشه تا یک ثانیه دقیق ایجاد بشه. حالا میخواستم راهنماییم کنید که برنامه ساده تر بشه ئ هر شصت ثانیه ای PORTB.2 چشمک بزنه.
با تشکر
