danke für das mitwirken, hab dadurch schon einiges verbessern können!!!

das mit den endtastern hab ich mir anfangs auch überlegt!

da aber das nur eine nachrüstung von so sstandraad rolos sind die in der scheibe liegn und nur durch ein seil mechanisch betätigt werden ist es technisch bisschen schwieriger zu realisieren.

sicherer ist sicher der motor & inkrementierungsscheibe! bekomme die motoren noch von einem freund aus technischen geräten gratis zu verfügunggestellt.

hab mir das mit den kommentaren und den schleifen noch mal angeschaut und eventuell auch ein bisschen verbessert

Code:
$regfile = "m8def.dat"
$baud = 9600
$crystal = 8000000

Config Pinb.1 = Input
Config Pinb.2 = Output
Config Int0 = Rising

Do

Abfrage:                         'hier wird abgefragt ob eine taste gedrückt ist
If Pinb.1 = 1 Then            ' wenn pinb.1 gedrückt dann in die Rauf routine
Goto Rauf
Else
Portb.2 = 0
Goto Abfrage
End If

Rauf:
Pinb.2 = 1                            'motor fährt rauf
Incr Irq0
If Irq0 > 800 Then
Portb.2 = 0                 'wenn 800 impulse ereicht sind dann stop TIRQ0
Else
Goto Rauf

Loop
habs mal compeliert
4 fehler
you can not write to a pin register // hab doch pinb.2 als ausgang definiert?!
Invalid datatype?!
wrong datatype (irq0) // das es probleme mit diesem zähler gibt hab ich mir schon gedacht

hat noch wer tipps übrig
+
mfg
piri


[edit zeilenumbruch]