با سلام خدمت دوستان
من یک پروژه درست کردم که در ان led ماژول چشمک میزنه ولی میکرو عمل نمیکنه فیوز بیتی ها را روی 8 قرار دادم ولی باز هم کار نکرد
کد:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Dim Kod As String * 13
Config Portb.0 = Output
Config Portb.1 = Output
'--------------------------------------
Do
Input , Kod
If Val(kod) = 0002890755 Then
Toggle Portb.0
Toggle Portb.1
End If
Waitms 50
Kod = ""
Loop
End
من یک پروژه درست کردم که در ان led ماژول چشمک میزنه ولی میکرو عمل نمیکنه فیوز بیتی ها را روی 8 قرار دادم ولی باز هم کار نکرد
کد:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Dim Kod As String * 13
Config Portb.0 = Output
Config Portb.1 = Output
'--------------------------------------
Do
Input , Kod
If Val(kod) = 0002890755 Then
Toggle Portb.0
Toggle Portb.1
End If
Waitms 50
Kod = ""
Loop
End
دیدگاه