das mit den 4 schraubklemmen interessiert mich...
leider kriege ich das nicht zum laufen.
was stimmt da nicht?

=== SCHNIPP ===

'$input.BAS
$crystal = 16000000

$baud = 9600
Dim S As String * 10
Dim Ws As Word
Dim Tastenabfrage As Byte
Dim Selected As Byte
Dim I As Byte
Dim Ch As String * 1

Config Pina.7 = Input
Porta.7 = 1

Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pind.5 = Output

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Pwm1a = 0
Pwm1b = 0
Tccr1b = Tccr1b Or &H02 'Prescaler = 8


Print
Print "**********************************"
Print "Neustart"
Print "**********************************"



Do
Portb.0 = 1
Portb.1 = 0
Portd.5 = 1
Pwm1a = 1023
Print "LED1 an, LED2 aus"

Wait 1

Portb.0 = 0
Portb.1 = 1
Portd.5 = 1
Pwm1a = 1023
Print "LED2 an, LED1 aus"

Wait 1

Loop
End

=== SCHNAPP ===