[syntax=basic4gl]Dim Kierunek as Byte
Kierunek = 0
Dim Ile_krokow as Word
Dim Max_krokow as Word 'będzie można obrócić wał 65535 obrotów
Do
If Przycisk_1 = 0 then Kierunek = 1 'ustawi sterowanie w lewo
If Przycisk_2 = 0 then Kierunek = 2 'ustawi sterowanie w prawo
Loop
End
Przerwanie:
If Kierunek = 1 And Ile_krokow < Max_krokow Then
'tu sterowanie uzwojeniami silnika o jeden krok w przód
Incr Ile_krokow
End if
If Kierunek = 2 And Ile_krokow > 0 Then
'tu sterowanie uzwojeniami silnika o jeden krok wstecz
Decr Ile_krokow
End if
'***********************************************************************
'*** poniższa linia kodu sprawi że jeśli osiągniesz max ilość kroków ***
'******** w jedną stronę lub zejdziesz z nimi do zera w drugą **********
'************** to silnik już się więcej nie obróci ********************
'****** dodana na wszelki wypadek ponieważ dwa warunki z góry **********
'******* i tak po osiągnięciu skrajnych wartości ilości kroków *********
'***** już nie pozwolą na włączenie silnika więc zmienna kierunek *****
'*********** mogła by mieć wartość Bit a nie Byte **********************
'***********************************************************************
If Ile_krokow = Max_krokow OR Ile_krokow = 0 Then Kierunek = 0
Return[/syntax]
Coś niejasne to pisz...Statystyki: Napisane przez matrix — 11 maja 2016, o 08:03
]]>