Hallo Kampi u. Sauerbruch,
wieder vielen Dank für eure Antworten.
Die Beispiele sind wirklich sehr gut erklärt, sie funktionieren und das hilft mir schon weiter.
Mit "Shift u. Rotate" habe ich auch schon experimentiert, nur weiß ich noch nicht, wie ich das von "PortB.0 bis PortB.4" einschränke.
Vielen Dank für die Hilfe.MfG
HTML-Code:$regfile = "m8def.dat" $crystal = 8000000 $hwstack = 40 $swstack = 32 $framesize = 60 Ddrb = &B1111_11111 Portb = &B0000_0000 Dim A As Byte A = 1 Do Waitms 200 Portb = A Rotate A , Left , 1 Loop End






Zitieren



Lesezeichen