Code:
Sub Motor(m As Byte)
Select Case M
Case 1
Portd.5 = 0
Waitms 300
Porta.6 = 0
Porta.7 = 1
Portd.5 = 1

Case 2
Portd.5 = 0
Waitms 300
Porta.6 = 1
Porta.7 = 0
Portd.5 = 1

Case 3
Portd.5 = 0
Porta.7 = 0
Porta.6 = 0
End Select
End Sub

Hmm, also funktioniert hat die Ansteuerung auf diese Weise schon oft. Wenn ich dann einfach die Funktion aufrufe, kann ja eigentlich ja auch nichts mehr schiefgehen. Aber grundsätzlich bedeutet doch =1, dass ein output high ist?!