Hallo,
ich habe deinen Tip schon in das Pogramm eingebaut... wo ich das noch mit dem timer hatte, hatte ich nur an dem 1. pin der 1.spule die spannung. jetzt wechselt die spannung schon auf der ersten spule pin1 und pin2 von -7 auf +7V, aber auf der zweitenspule habe ich immer 0V.
so sieht das poramm nach deinen änderungen jetzt aus... aber motor dreht halt nicht....
Code:
$regfile = "m8515.dat"
$crystal = 16000000
$baud = 19200
Dim A As Byte
Config Porta = Output
Declare Sub Write_port
Do
Config Pina.0 = Output
Cw Alias Porta.0
Cw = 1
Config Pinc.2 = Output
Ena Alias Porta.2
Ena = 1
Config Pinb.1 = Output
Tog Alias Porta.1
Tog = 1
Waitms 100
Tog = 0
Waitms 100
Loop
Sub Write_port
Porta.0 = A.1
Porta.1 = A.2
Porta.2 = A.3
End Sub
End
Gruß Dennis
Lesezeichen