zu2:

Code:
$crystal = 4000000
Config Portb = Output
Config Portc = Input
Config Portd = Output

Dim A As Single

A = 3.1 '[etwas gerades geht auch nicht mehr - in der schule gings, aber kriege es gerad nicht mehr hin... :( ]

Do

Portd.0 = 1
Portd.1 = 0
Portd.2 = 1
Portd.3 = 0

Portb.0 = 1
Portb.1 = 0
Portd.2 = 1
Portd.3 = 0

Waitms A

Portd.0 = 1
Portd.1 = 0
Portd.2 = 0
Portd.3 = 1

Portb.0 = 1
Portb.1 = 0
Portb.2 = 0
Portb.3 = 1

Waitms A

Portd.0 = 0
Portd.1 = 1
Portd.2 = 0
Portd.3 = 1

Portb.0 = 0
Portb.1 = 1
Portb.2 = 0
Portb.3 = 1

Waitms A

Portd.0 = 1
Portd.1 = 1
Portd.2 = 1
Portd.3 = 0

Portb.0 = 1
Portb.1 = 1
Portb.2 = 1
Portb.3 = 0

Waitms A

Loop

^^^
nur leider dreht sich der motor dann nicht

wenn man A durch 3.3 oder sowas ersetzt dreht er sich...
also irgendwie funktioniert das nicht
was mach ich falsch?

zu 1

http://www.bildfaenger-film.de/extern/voll.jpg

Bitte keine Bilder mit mehr als 640 Pixel direkt einbinden da Forumstruktur sonst verschoben wird! Habe es mal geändert.
Webmaster Frank