کار با attiny13 در بسکام نمیشه و مشکلش هم در آخر یعنی end هست که موقع پروگرام مشکل پیدا می کنه دوستان اگر بتوانند کمک کنند خیلی ممنون می شم
با تشکر از دوستان
'------------------------------------------------------------------------------- ' ' ÈÓã Çááå ÇáÑÍãä ÇáÑÍíã ' '------------------------------------------------------------------------------- '$sim '=============================================================================== 'Project : Car Light Control 'Version : 1.0.0 'copyright : (c) 2010 Sabalan Electronics 'Date : 1389/10/01 'Company : Sabalan Electronic 'Chip type : AT tiny13 'Clock frequency : 960.000 MHz '=============================================================================== $regfile = "attiny13.dat" $crystal = 960000 $hwstack = 32 $swstack = 8 $framesize = 16 Config Pinb.0 = Input Salam Alias Pinb.0 Set Pinb.0 '------------------------ Config Pinb.1 = Input Key_light Alias Pinb.1 '------------------------ Config Pinb.2 = Input Switch Alias Pinb.2 '------------------------ Config Portb.3 = Output Up_light Alias Portb.3 '------------------------ Config Portb.4 = Output Down_light Alias Portb.4 '------------------------ Dim Up_down As Byte Const _wait = 100 Do '----------------------------------------------- ' ÇÑ ßáíÏ áÇã ÎÇãæÔ æßáíÏ ÏÓÊå (ÓáÇã) ÝÔÑÏå ÔæÏ '----------------------------------------------- If Salam = 0 Then If Switch = 0 Or Key_light = 0 Then Waitms 15 If Salam = 0 Then Set Up_light End If End If End If '=============================================================================== '------------------------------------------------------------------------ ' ÈÇ ÈÑÏÇÔÊä ÝÔÇÑ ÇÒ ÏÓÊå ÓáÇã æíÇ ÎÇãæÔ ßÑÏä ßáíÏ ÇÕáí ÑÇÛ ÎÇãæÔ ãíÔæÏ '------------------------------------------------------------------------ If Switch = 0 Or Key_light = 0 Then If Up_light = 1 Or Down_light = 1 Then Waitms _wait If Salam = 1 And Up_down = 0 Then Down_light = 0 Up_light = 0 End If End If End If '=============================================================================== '------------------------------------------------- 'ÈÇ ÑæÔä ÔÏä ßáíÏ ÇÕáí ÑÇÛ äæÑ Çííä ÑæÔä ãíÔæÏ '------------------------------------------------- If Key_light = 1 And Switch = 1 Then If Down_light = 0 And Up_light = 0 Then Waitms _wait Down_light = 1 End If End If '------------------------------------------------------- ' ÈÇ ÝÔÑÏä ßáíÏ Ñæí ÏÓÊå ÈÑ ÈÇáÇ æ Çííä ÑæÔä ãíÔæÏ '------------------------------------------------------- If Switch = 1 And Key_light = 1 And Salam = 0 And Up_down = 0 Then Waitms _wait If Salam = 0 Then If Down_light = 1 Then Down_light = 0 Up_light = 1 Set Up_down Else Up_light = 0 Down_light = 1 Set Up_down End If End If End If '--------------------------------- ' ÂãÇÏå ÏÑíÇÝÊ ÝÑãÇä ÈÚÏí ãíÑÏÏ '--------------------------------- If Salam = 1 Then Waitms _wait If Salam = 1 Then Reset Up_down End If End If Loop '=============================================================================== End 'end program '===============================================================================
$regfile = "attiny13.dat" $crystal = 9600000 $hwstack = 32 $swstack = 8 $framesize = 16
دیدگاه