Hi

Also es will einfach nicht funktionieren. Habe mal das Listing gepostet, vielleicht kann jemand einen fehler erkennen. Habe jetzt einfachheitshalber mal nur mit t1 geschrieben, denn nicht mal so funktioniert es.

$regfile = "m8def.dat"
$crystal = 1000000 'ATmega8-Deklarationen 'Quarz: 16,000 MHz

Declare Sub Runter
Declare Sub Hoch
'
Ddrb = &B00111000 'Pin Pb5,4,3 Ausgang, rest Eingang
Portb = &B11000111 'Pullups der Eingänge aktiviert
Ddrd = &B00000000 'Pins von Portd=Eingänge (Drehschalter)
Portd = &B11111111 'PullUp von Pin PD0+1+rest aktivieren
'----------------------------------------------------------

Dim T1 As Byte

'----------------------------------------------------------
Do

If Portb.0 = 0 Then
T1 = 10
End If

If Portd.7 = 0 Then
T1 = 20
End If

If Portd.6 = 0 Then
T1 = 30
End If

If Portd.5 = 0 Then
T1 = 40
End If

If Portd.4 = 0 Then
T1 = 50
End If

If Portd.3 = 0 Then
T1 = 60
End If

If Portd.2 = 0 Then
T1 = 70
End If

Debounce Pinb.1 , 0 , Runter , Sub
Debounce Pinb.2 , 0 , Hoch , Sub 'Entprellter Eingabetaster

Loop
'----------------------------------------------------------
Sub Runter



Portb.3 = 1

Waitms T1 'Eingestellte Schaltzeit
Portb.3 = 0
End Sub

Sub Hoch



Portb.5 = 1
Waitms 100 'Vorschaltzeit
Portb.4 = 1
Waitms T1 'Eingestellte Schaltzeit
Portb.4 = 0
Portb.5 = 0 'Ausgänge in Leerlaufzustand schalten
End Sub


End