Was haltet ihr davon(konnte es leider noch nicht probieren)?
Kanal 1 also PD5 müsste jetzt PB0 als tastfunktion ansteuern oder?

'-------------------------------------------------------------------------------
' Modellbauschalter 4/8Kanal
'-------------------------------------------------------------------------------
'Beschreibung:




'-------------------------------------------------------------------------------
'Konfiguration µC:
$regfile = "2313def.dat" 'AT90S2313-Deklarationen
$crystal = 3686400 'Quarz: 3.6864 MHz

'-------------------------------------------------------------------------------
'Ein- Ausgänge:
Ddrd = &B0000001 '1 Ausgang, 0 Eingang=Pin PD0-5 als Eingang / PD6 als Ausgang
Ddrb = &B11111111 '1 Ausgang, 0 Eingang=Pin PB0-7 als Ausgang



'-------------------------------------------------------------------------------
'Variablen
Dim Pulsbreite As Word
Dim SpeicherK1 as Byte
Dim SpeicherK2 as Byte
Dim SpeicherK3 as Byte
Dim SpeicherK4 as Byte
'-------------------------------------------------------------------------------




'-------------------------------------------------------------------------------
' HAUPTPROGRAMM
'-------------------------------------------------------------------------------

'Kanal 1:
_________

Do

Bitwait Pind.5 , Set

Pulsein Pulsbreite , Pind , 5 , 1 'Pulsbreite auslesen (1=High Impuls)
If Pulsbreite > 250 Then
Portb.0 = 1
Else
Portb.0 = 0




Loop

'-------------------------------------------------------------------------------

End

================================================== ==============================
'Pinbelegung µC
'================================================= ==============================
' Atmel90S2313
'PD0 = LED Alarm +---U---+
'PD1 = ResetTaster Reset +1 20+ Vcc+5V
'PD2 = Kanal 4 FREI ->PD0 +2 19+ PB7 Zusatzfunktion 3 tastend
'PD3 = Kanal 3 FREI ->PD1 +3 18+ PB6 Hupe / tastend
'PD4 = Kanal 2 x x Xtal 2 +4 17+ PB5 Zusatzfunktion 2 rastend
'PD5 = Kanal 1 x x Xtal 1 +5 16+ PB4 Zusatzfunktion 1 rastend
'PD6 = Licht vorne Kanal 4->PD2 +6 15+ PB3 Licht Boden 2 / rastend
'PB0 = Licht hinten 1 Kanal 3->PD3 +7 14+ PB2 Licht Boden 1 / rastend
'PB1 = Licht hinten 2 Kanal 2->PD4 +8 13+ PB1 Licht hinten 2 / rastend
'PB2 = Licht Boden 1 Kanal 1->PD5 +9 12+ PB0 Licht hinten 1 / rastend
'PB3 = Licht Boden 2 GND +10 11+ PD6 Licht vorne
'PB4 = Zusatzfunktion 1 +-------+
'PB5 = Zusatzfunktion 2
'PB6 = Hupe
'PB7 = Zusatzfunktion 3