roboforum.ruТехнический форум по робототехнике. |
|
|
$regfile = "attiny2313.dat"
$crystal = 1000000
Config Portb.3 = Output
Config Pind.1 = Input
Do
If Pind.1 = 0 Then
Waitms 1
set pinb.3
Else
Reset Pinb.3
End If
Loop
dccharacter писал(а):А зачем 2 транзистора?
$regfile = "attiny2313.dat"
$crystal = 1000000
Config Timer0 = Pwm , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
Config Portb.2 = Output 'ноги для шима
Config Portb.3 = Output 'ноги для шима
Config Portb.4 = Output 'ноги для шима
Config Portd.5 = Output 'ноги для шима
Config Portd.0 = Output : Reset Portd.0 'сюда повесили кнопку
Config Pind.0 = Input
Dim Pwm As Byte
Dim I as Integer
For I = 1 to 255
Pwm = Pwm + 1
Pwm0a = Pwm
Pwm0b = Pwm
Pwm1a = Pwm
Pwm1b = Pwm
Waitms 15
Next
Pwm = 255
Pwm0a = Pwm
Pwm0b = Pwm
Pwm1a = Pwm
Pwm1b = Pwm
Wait 1
Do
If Pind.0 = 1 Then
Pwm = Pwm + 1
Pwm0a = Pwm
Pwm0b = Pwm
Pwm1a = Pwm
Pwm1b = Pwm
Waitms 50
End If
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5