kip96 писал(а):И всё же, начните с даташита!
У тини 13 нет 4 Мгц! Есть один генератор на 9.6Мгц и делитель на 8 (можно получить 1.2 Мгц),Ещё собака на 128кГц (что-то вроде этого, сам уже не помню)
Как Вы таймеры будете изучать? Надо почитать сначала, какие таймеры есть. А может собаку использовать. У неё собственный не зависимый таймер. В старых версиях Баскома нельзя было выставить большой делитель на собаку, хотя Тини 13 позволяла. Благо Баском позволяет напрямую обращаться к регистрам. Так и выкрутился из положения.
В баскоме стоит по умолчанию для attiny13.
Сделал пока так:
Спойлер
Код: Выделить всё
$regfile = "attiny13.dat"
$crystal = 4000000
$hwstack = 0
$swstack = 0
$framesize = 0
Config Portb.1 = Output : Set Pinb.4
Config Portb.3 = Output
Config Portb.0 = Output
Config Portb.4 = Input
Dim I As Integer
Dim K As Integer
K = 0
Nach:
Do
If Pinb.4 = 0 Then
Portb.3 = 1
If Portb.1 = 0 Then
Portb.1 = 1
Goto Nach
Else
If K = 0 Then
Waitms 100
Portb.0 = 1
Wait 2
Portb.0 = 0
K = 1
Goto Nach
End If
End If
I = 0
While I < 10
Waitms 400
If Pinb.4 = 1 Then
Portb.3 = 0
If Portb.0 = 1 Then
Portb.0 = 0
Else
Portb.1 = 0
K = 0
End If
Goto Nach
End If
I = I + 1
Wend
If Pinb.4 = 0 Then
Portb.0 = 1
Portb.3 = 1
End If
Else
Portb.3 = 0
End If
Loop
Return
Работает как и хотелось. Даташит перечитал.
Спасибо за наводку, буду про собаку читать.
свершилось мне сказали что к чему))) Спасибо)
