کار با 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
(درس و مشق فعالیتمو تو انجمن کم کرده)
دیدگاه