Написал программу индкации передачи МКПП на attiny2313 в BASCOM-AVR:

$regfile = "attiny2313.dat"
$crystal = 8000000
Config Portd = Output
Config Pinb.0 = Input
Config Pinb.1 = Input
Config Pinb.2 = Input
Config Pinb.3 = Input
Config Pinb.4 = Input
Config Pinb.5 = Input
Do
If Pinb.0 = 0 Then
Portd = &H01
Waitms 10
Portd = &H02
Waitms 10
Portd = &H04
Waitms 10
Portd = &H08
Waitms 10
Portd = &H10
Waitms 10
Portd = &H30
Waitms 10
Portd = &H31
Waitms 10
Portd = &H33
Waitms 200
Portd = &H23
Waitms 10
Portd = &H03
Waitms 10
Portd = &H2
Waitms 10
Portd = &H00
Waitms 50
Portd = &H01
Waitms 10
Portd = &H40
Waitms 10
Portd = &H08
Waitms 10
Portd = &H00
Waitms 50
Portd = &H01
Waitms 10
Portd = &H40
Waitms 10
Portd = &H08
Waitms 10
Portd = &H00
Waitms 50
Portd = &H01
Waitms 10
Portd = &H40
Waitms 10
Portd = &H08
Waitms 10
End If
If Pinb = &B111111 Then
Portd = &H01
Waitms 10
Portd = &H02
Waitms 10
Portd = &H04
Waitms 10
Portd = &H08
Waitms 10
Portd = &H10
Waitms 10
Portd = &H20
Waitms 10
End If
If Pinb.1 = 0 Then
Portd = &H01
Waitms 10
Portd = &H02
Waitms 10
Portd = &H06
Waitms 50
End If
If Pinb.2 = 0 Then
Portd = &H01
Waitms 10
Portd = &H03
Waitms 10
Portd = &H43
Waitms 10
Portd = &H53
Waitms 10
Portd = &H5B
Waitms 10
End If
If Pinb.3 = 0 Then
Portd = &H01
Waitms 10
Portd = &H03
Waitms 10
Portd = &H47
Waitms 10
Portd = &H4F
End If
If Pinb.4 = 0 Then
Portd = &H01
Waitms 10
Portd = &H01
Waitms 10
Portd = &H02
Waitms 10
Portd = &H06
Waitms 10
Portd = &H46
Waitms 10
Portd = &H66
Waitms 10
End If
Loop
End

как сделать так, чтобы анимация передач, кроме нейтрали, заднего хода не повторялась(анимированно появлялась цифра и замирала)?

прилагаю проект в Proteus и прошивку


 Desktop.zip   15,33 Кб
  4 раз скачано



такие схемы я уже встречал, только у них нет исходников. а я хочу еще добавить туда: положение ручника, открытые двери
Раздел: МК для начинающих