Написал програмку, собрал схемку вроде работает но както туповато, и хотел чтоб включалось через 1-2 минуты после запуска двигателя, голову сломал не получаеться. выношу на общее обсуждение, Может кто чего подскажет.
Вот код:
$regfile = "attiny13.dat"
$hwstack = 8
$swstack = 16
$framesize = 16
Config Portb.1 = Output
Config Pinb.2 = Input
Config Pinb.4 = Input
Config Pinb.3 = Input
Pinb.2 = 1
Pinb.4 = 1
Pinb.3 = 1
Dim Drl As Byte
Dim Drl1 As Eram Byte
If Drl1 = 0 Then Drl = 255
Dim Pause As Byte
Config Timer0 = Pwm , Prescale = 8 , Compare B Pwm = Clear Down
Do
Do
'Waitms 1
If Pinb.3 = 0 And Pinb.4 = 0 Then
Waitms 1
Gosub Setup
Waitms 1
Incr Pwm0b
Loop Until Pwm0b = Drl1
Mr0:
Waitms 1
Pwm0b = Drl1
Drl = Drl1
Else
Pwm0b = 0
End If
Loop
Setup:
If Pwm0b > Drl1 Then Goto Mr0
For Pause = 1 To 3
Waitms 1
If Pinb.2 = 1 Then
Return
Elseif Pinb.2 = 0 Then
Next
End If
Drl = Drl1 + 10
Drl1 = Drl
Pwm0b = Drl1
Return
End
Вот схема
Отредактировано krasser (2015-04-09 14:35:41)
