
Zitat von
Fighter-2
Hey.. kann mir dann einer sagen, wie man standartmäßig nen Befehl im
Bascom dafür schreibt?
Hallo Chris!
In etwa so:
Code:
$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 5
$framesize = 20
'PWM-Ausgang
Pwm_out Alias Portb.0
Config Portb.0 = Output
'Bremslicht Eingang (Pulldown-Widerstand nicht vergessen)
Break_light_in Alias Pinb.1
Config Pinb.1 = Input
'Normales Licht Eingang (Pulldown-Widerstand nicht vergessen)
Normal_light_in Alias Pinb.2
Config Pinb.2 = Input
'Timer0 als PWM: 9600000 / 64 / 256 / 2 = 292,9 Hz
Config Timer0 = Pwm , Compare A Pwm = Clear Down , Prescale = 64
Pwm0a = 0
Do
If Break_light_in = 1 Then
Pwm0a = 255
Else
If Normal_light_in = 1 Then
Pwm0a = 130
Else
Pwm0a = 0
End If
End If
Loop
End
Ungetestet. Vielleicht habe ich mich irgendwo vertan.
mfg
Gerold
:-)
EDIT: Prescaler falsch gesetzt
Lesezeichen