Visual Basic + silnik krokowy

[zibi11]

wysyła na lpt dane silnik krokowy obraca sie bardzo wolno
ale to przełączanie
jest z tego co obserwuje za wolne
jak to przyspieszyć interval ustawiłem na minimum


Private Sub Timer1_Timer()
xx = xx + 1



If RED = 1 Then Out &H378, 5
If RED = 2 Then Out &H378, 9
If RED = 3 Then Out &H378, 10
If RED = 4 Then Out &H378, 6


If xx = 4 Then
xx = 0
End Sub

[iNTELL]

Co to jest za zmienna RED ??
Możesz wrzucić cały program ??

[zibi11]

sory na cyć xx
Private Sub Timer1_Timer()
Dim xx as integer

xx = xx + 1

If xx = 1 Then Out &H378, 5
If xx = 2 Then Out &H378, 9
If xx = 3 Then Out &H378, 10
If xx = 4 Then Out &H378, 6


If xx = 4 Then
xx = 0
End Sub


To w sumie cały kod należy dodać module i to do niego

Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

[iNTELL]

Słuchaj, a Ty podłączyłeś ten silnik bezpośrednio pod port LPT czy z poszczególnego pinu LPT sterujesz tranzystorami, a dopiero później pod tranzystory podpiąłeś silnik ??

[zibi11]

No chyba mnie nie masz za >>>>>>>>>>>>>>>>

[tdolata]

[quote="zibi11"]wysyła na lpt dane silnik krokowy obraca sie bardzo wolno
ale to przełączanie
jest z tego co obserwuje za wolne
jak to przyspieszyć interval ustawiłem na minimum

Sprawdź dobrze co ile ms występuje zdarzenie od timera. Czy to przypadkiem nie będzie 10ms (mimo ustawienia 1ms). Wiele kompilatorów po Win tak ma (Builder, Delphi).
Poza tym częstotliwość "odpalenia" timera mocno zależy od obciążenia procesora i priorytetu procesu.