Coders' city
Nasza pasja to programowanie!
FAQ Szukaj Użytkownicy Grupy Rejestracja
Archiwum starego forum RSS & Panel/SideBar
Profil Zaloguj się, by sprawdzić wiadomości Zaloguj
Potrzebuję szybkiej odpowiedzi na moje pytanie... Skrócony regulamin
Sterowanie portem LPT
Forum Coders' city Strona Główna -> Visual Basic
Zobacz poprzedni temat :: Zobacz następny temat
Autor Wiadomość
zibi11
Wysłany: Wto Lut 06, 2007 12:41 pm Temat postu: Sterowanie portem LPT
Witajcie jak sterować portem LPT
Dołączył: 08 Sty 2007
tak żeby można było sterować dwoma silnikami krokowymi
Posty: 22
Lpt ma port 0-7 8 pinów, do sterowania silnika wystarczy cztery
pozostałe cztery chciałem wykorzystać do sterowania drugim silnikiem
ale jak to zroić jednocześnie???
tak aby jakoś podzielić port na dwa??? 0-3 jeden silnik 4-7 drugi
TO do sterowania jednego silnika
Private Sub cmdkoniec_Click()
xx = sld.Value
Label1 = xx
For i = 1 To xx
Out PortAddress1, 0
krok = krok + 1
If krok = 5 Then
krok = 1
Out PortAddress, 0
End If
step 'wykonanie kroku
Next i
End Sub
Private Sub step()
' system sterowania pełno krokowy
If krok = 1 Then
Out PortAddress, 10
End If
If krok = 2 Then
Out PortAddress, 6
End If
If krok = 3 Then
Out PortAddress, 5
End If
If krok = 4 Then
Out PortAddress, 9
End If
Sleep 3
End Sub
schemat_307.jpg
Opis:
Nazwa pliku: schemat_307.jpg
Pobierz
Wielkość pliku: 50.55 KB
Pobierano: 164 raz(y)
pinout.gif
Opis:
Nazwa pliku: pinout.gif
Pobierz
Wielkość pliku: 6.41 KB
Pobierano: 125 raz(y)
Powrót do góry
Silniki Sterowania Rolety Wyświetlacze Do Przemysłu Twój Inteligentny Dom Falowniki-atrakcyjne ceny
Napędy: Somfy Elero Mobilus i Wizualizacja procesów komfortowy, oszczędny, Zimowa Promocja Falowników
inne Najniższe ceny w Polsce przemysłowych port RS-232, bezpieczny automatyka domu - w LG/LS Falowniki,silniki - sprawdz
sklep.andrzejczak.eu RS-422, RS-485, LAN Twoich rękach ! nas
www.wyswietlacze-reklama.pl www.agea.pl www.falowniki.zawex.pl
Tomek S
Wysłany: Wto Lut 06, 2007 1:44 pm Temat postu:
Jesli uzyjemy bity od 0-3 do sterowania 4 uzwojeniami silnika A
Dołączył: 10 Gru 2005
Bity 4-7 uzyjemy do sterowania silnikiem B
Posty: 1161
Dim A as Byte,B as Byte,X as Byte
A =1 'wartosci 1,2,4,8
B=16 'wartosci 16,32,64,128
X =A And B
Out PortAddress, X
Funkcja And laczysz te wartosci i wysylasz przy kazdej zmianie ustawienia jednego z silnikow.Nie wiem co to za uklad na schemacie, jesli to sterownik
(bufor) to powinno dzialac.
Powrót do góry
zibi11
Wysłany: Wto Lut 06, 2007 10:45 pm Temat postu:
Ok a co przy różnych prędkościach obrotowych silników??
Dołączył: 08 Sty 2007
Posty: 22
Powrót do góry
hicks
Wysłany: Wto Lut 06, 2007 10:50 pm Temat postu:
Moderator
Tomku (jeśli mogę się tak do Ciebie zwracać) miałeś na myśli chyba operator Or, a nie And... W Twoim przykladzie na port wysyłasz 0, bo 1 And 16 =
0.
_________________
Moje portfolio Oto ja
Dołączył: 25 Maj 2005
Posty: 940
Skąd: ONS-Wrocław
Powrót do góry
Tomek S
Wysłany: Wto Lut 06, 2007 11:37 pm Temat postu:
Masz racje hicks moj blad :P
Dołączył: 10 Gru 2005
Rozne predkosci obrotowe nie powinny miec wplywu na prawidlowe dzialanie silnikow.
Posty: 1161
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Const Lewo As Boolean = True
Const Prawo As Boolean = False
Const PortAddress As Integer = &H378 '0378-037F
Dim A%, B%, A1%, B1%
Private Sub Silnik_A(Kierunek As Boolean)
If Kierunek Then
A = A * 2
If A = 16 Then A = 1
Else
A = A \ 2
If A = 0 Then A = 8
End If
A1 = A
Out PortAddress, A1 Or B1
End Sub
Private Sub Silnik_B(Kierunek As Boolean)
If Kierunek Then
B = B * 2
If B = 256 Then B = 16
Else
B = B \ 2
If B = 8 Then B = 128
End If
B1 = B
Out PortAddress, A1 Or B1
End Sub
Private Sub Form_Load()
A = 1
B = 16
Timer1.Interval = 1000
Timer2.Interval = 300
End Sub
Private Sub Timer1_Timer()
Silnik_B Lewo
End Sub
Private Sub Timer2_Timer()
Silnik_A Prawo
End Sub
Na forum elektroda poszukaj wiecej informacji na temat ukladu sterujacego.Silnik podczas gdy przez uzwojenie nie plynie juz prad wytarza bardzo
wysokie chwilowe napiecie wsteczne przed ktorym nalezy sie bronic odpowiednimi diodami.Silnik mozesz sterowac jeszcze w inny sposob poprzez
polkroki co zwiekszy jego dokladnosc (zmniejszy skok)
Dla przykladu na silnik A wysylasz ciag wartosci 1,3,2,6,4,12,8,9...
Powrót do góry
Wyświetl posty z ostatnich: Wszystkie Posty Najpierw Starsze
Wszystkie Posty Najpierw Starsze
Wszystkie czasy w strefie CET (Europa)
Forum Coders' city Strona Główna -> Visual Basic
Strona 1 z 1
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Możesz dodawać załączniki na tym forum
Możesz pobierać pliki z tego forum
| Darmowe programy i porady Jelcyna | VB4all | Promocje.biz | Tansze zakupy w Helionie | Skróć długi link | Mambo & Joomla Templates | Mapa strony | Ranking stron o
programowaniu |