[ Pobierz całość w formacie PDF ]
.ÿþCoders' cityNasza pasja to programowanie!FAQ Szukaj Użytkownicy Grupy RejestracjaArchiwum starego forum RSS & Panel/SideBarProfil Zaloguj siÄ™, by sprawdzić wiadomoÅ›ci ZalogujPotrzebujÄ™ szybkiej odpowiedzi na moje pytanie.Skrócony regulaminSterowanie portem LPTForum Coders' city Strona Główna -> Visual BasicZobacz poprzedni temat :: Zobacz nastÄ™pny tematAutor Wiadomośćzibi11WysÅ‚any: Wto Lut 06, 2007 12:41 pm Temat postu: Sterowanie portem LPTWitajcie jak sterować portem LPTDoÅ‚Ä…czyÅ‚: 08 Sty 2007tak żeby można byÅ‚o sterować dwoma silnikami krokowymiPosty: 22Lpt ma port 0-7 8 pinów, do sterowania silnika wystarczy czterypozostaÅ‚e cztery chciaÅ‚em wykorzystać do sterowania drugim silnikiemale jak to zroić jednoczeÅ›nie???tak aby jakoÅ› podzielić port na dwa??? 0-3 jeden silnik 4-7 drugiTO do sterowania jednego silnikaPrivate Sub cmdkoniec_Click()xx = sld.ValueLabel1 = xxFor i = 1 To xxOut PortAddress1, 0krok = krok + 1If krok = 5 Thenkrok = 1Out PortAddress, 0End Ifstep 'wykonanie krokuNext iEnd SubPrivate Sub step()' system sterowania peÅ‚no krokowyIf krok = 1 ThenOut PortAddress, 10End IfIf krok = 2 ThenOut PortAddress, 6End IfIf krok = 3 ThenOut PortAddress, 5End IfIf krok = 4 ThenOut PortAddress, 9End IfSleep 3End Subschemat_307.jpgOpis:Nazwa pliku: schemat_307.jpgPobierzWielkość pliku: 50.55 KBPobierano: 164 raz(y)pinout.gifOpis:Nazwa pliku: pinout.gifPobierzWielkość pliku: 6.41 KBPobierano: 125 raz(y)Powrót do górySilniki Sterowania Rolety WyÅ›wietlacze Do PrzemysÅ‚u Twój Inteligentny Dom Falowniki-atrakcyjne cenyNapÄ™dy: Somfy Elero Mobilus i Wizualizacja procesów komfortowy, oszczÄ™dny, Zimowa Promocja Falownikówinne Najniższe ceny w Polsce przemysÅ‚owych port RS-232, bezpieczny automatyka domu - w LG/LS Falowniki,silniki - sprawdzsklep.andrzejczak.eu RS-422, RS-485, LAN Twoich rÄ™kach ! naswww.wyswietlacze-reklama.pl www.agea.pl www.falowniki.zawex.plTomek SWysÅ‚any: Wto Lut 06, 2007 1:44 pm Temat postu:Jesli uzyjemy bity od 0-3 do sterowania 4 uzwojeniami silnika ADoÅ‚Ä…czyÅ‚: 10 Gru 2005Bity 4-7 uzyjemy do sterowania silnikiem BPosty: 1161Dim A as Byte,B as Byte,X as ByteA =1 'wartosci 1,2,4,8B=16 'wartosci 16,32,64,128X =A And BOut 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óryzibi11WysÅ‚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 2007Posty: 22Powrót do góryhicksWysÅ‚any: Wto Lut 06, 2007 10:50 pm Temat postu:ModeratorTomku (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 jaDoÅ‚Ä…czyÅ‚: 25 Maj 2005Posty: 940SkÄ…d: ONS-WrocÅ‚awPowrót do góryTomek SWysÅ‚any: Wto Lut 06, 2007 11:37 pm Temat postu:Masz racje hicks moj blad :PDoÅ‚Ä…czyÅ‚: 10 Gru 2005Rozne predkosci obrotowe nie powinny miec wplywu na prawidlowe dzialanie silnikow.Posty: 1161Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)Const Lewo As Boolean = TrueConst Prawo As Boolean = FalseConst PortAddress As Integer = &H378 '0378-037FDim A%, B%, A1%, B1%Private Sub Silnik_A(Kierunek As Boolean)If Kierunek ThenA = A * 2If A = 16 Then A = 1ElseA = A \ 2If A = 0 Then A = 8End IfA1 = AOut PortAddress, A1 Or B1End SubPrivate Sub Silnik_B(Kierunek As Boolean)If Kierunek ThenB = B * 2If B = 256 Then B = 16ElseB = B \ 2If B = 8 Then B = 128End IfB1 = BOut PortAddress, A1 Or B1End SubPrivate Sub Form_Load()A = 1B = 16Timer1.Interval = 1000Timer2.Interval = 300End SubPrivate Sub Timer1_Timer()Silnik_B LewoEnd SubPrivate Sub Timer2_Timer()Silnik_A PrawoEnd SubNa forum elektroda poszukaj wiecej informacji na temat ukladu sterujacego.Silnik podczas gdy przez uzwojenie nie plynie juz prad wytarza bardzowysokie chwilowe napiecie wsteczne przed ktorym nalezy sie bronic odpowiednimi diodami.Silnik mozesz sterowac jeszcze w inny sposob poprzezpolkroki 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óryWyÅ›wietl posty z ostatnich: Wszystkie Posty Najpierw StarszeWszystkie Posty Najpierw StarszeWszystkie czasy w strefie CET (Europa)Forum Coders' city Strona Główna -> Visual BasicStrona 1 z 1Możesz pisać nowe tematyMożesz odpowiadać w tematachNie możesz zmieniać swoich postówNie możesz usuwać swoich postówNie możesz gÅ‚osować w ankietachMożesz dodawać zaÅ‚Ä…czniki na tym forumMoż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 oprogramowaniu | [ Pobierz caÅ‚ość w formacie PDF ]
zanotowane.pl doc.pisz.pl pdf.pisz.pl centka.pev.pl
.ÿþCoders' cityNasza pasja to programowanie!FAQ Szukaj Użytkownicy Grupy RejestracjaArchiwum starego forum RSS & Panel/SideBarProfil Zaloguj siÄ™, by sprawdzić wiadomoÅ›ci ZalogujPotrzebujÄ™ szybkiej odpowiedzi na moje pytanie.Skrócony regulaminSterowanie portem LPTForum Coders' city Strona Główna -> Visual BasicZobacz poprzedni temat :: Zobacz nastÄ™pny tematAutor Wiadomośćzibi11WysÅ‚any: Wto Lut 06, 2007 12:41 pm Temat postu: Sterowanie portem LPTWitajcie jak sterować portem LPTDoÅ‚Ä…czyÅ‚: 08 Sty 2007tak żeby można byÅ‚o sterować dwoma silnikami krokowymiPosty: 22Lpt ma port 0-7 8 pinów, do sterowania silnika wystarczy czterypozostaÅ‚e cztery chciaÅ‚em wykorzystać do sterowania drugim silnikiemale jak to zroić jednoczeÅ›nie???tak aby jakoÅ› podzielić port na dwa??? 0-3 jeden silnik 4-7 drugiTO do sterowania jednego silnikaPrivate Sub cmdkoniec_Click()xx = sld.ValueLabel1 = xxFor i = 1 To xxOut PortAddress1, 0krok = krok + 1If krok = 5 Thenkrok = 1Out PortAddress, 0End Ifstep 'wykonanie krokuNext iEnd SubPrivate Sub step()' system sterowania peÅ‚no krokowyIf krok = 1 ThenOut PortAddress, 10End IfIf krok = 2 ThenOut PortAddress, 6End IfIf krok = 3 ThenOut PortAddress, 5End IfIf krok = 4 ThenOut PortAddress, 9End IfSleep 3End Subschemat_307.jpgOpis:Nazwa pliku: schemat_307.jpgPobierzWielkość pliku: 50.55 KBPobierano: 164 raz(y)pinout.gifOpis:Nazwa pliku: pinout.gifPobierzWielkość pliku: 6.41 KBPobierano: 125 raz(y)Powrót do górySilniki Sterowania Rolety WyÅ›wietlacze Do PrzemysÅ‚u Twój Inteligentny Dom Falowniki-atrakcyjne cenyNapÄ™dy: Somfy Elero Mobilus i Wizualizacja procesów komfortowy, oszczÄ™dny, Zimowa Promocja Falownikówinne Najniższe ceny w Polsce przemysÅ‚owych port RS-232, bezpieczny automatyka domu - w LG/LS Falowniki,silniki - sprawdzsklep.andrzejczak.eu RS-422, RS-485, LAN Twoich rÄ™kach ! naswww.wyswietlacze-reklama.pl www.agea.pl www.falowniki.zawex.plTomek SWysÅ‚any: Wto Lut 06, 2007 1:44 pm Temat postu:Jesli uzyjemy bity od 0-3 do sterowania 4 uzwojeniami silnika ADoÅ‚Ä…czyÅ‚: 10 Gru 2005Bity 4-7 uzyjemy do sterowania silnikiem BPosty: 1161Dim A as Byte,B as Byte,X as ByteA =1 'wartosci 1,2,4,8B=16 'wartosci 16,32,64,128X =A And BOut 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óryzibi11WysÅ‚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 2007Posty: 22Powrót do góryhicksWysÅ‚any: Wto Lut 06, 2007 10:50 pm Temat postu:ModeratorTomku (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 jaDoÅ‚Ä…czyÅ‚: 25 Maj 2005Posty: 940SkÄ…d: ONS-WrocÅ‚awPowrót do góryTomek SWysÅ‚any: Wto Lut 06, 2007 11:37 pm Temat postu:Masz racje hicks moj blad :PDoÅ‚Ä…czyÅ‚: 10 Gru 2005Rozne predkosci obrotowe nie powinny miec wplywu na prawidlowe dzialanie silnikow.Posty: 1161Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)Const Lewo As Boolean = TrueConst Prawo As Boolean = FalseConst PortAddress As Integer = &H378 '0378-037FDim A%, B%, A1%, B1%Private Sub Silnik_A(Kierunek As Boolean)If Kierunek ThenA = A * 2If A = 16 Then A = 1ElseA = A \ 2If A = 0 Then A = 8End IfA1 = AOut PortAddress, A1 Or B1End SubPrivate Sub Silnik_B(Kierunek As Boolean)If Kierunek ThenB = B * 2If B = 256 Then B = 16ElseB = B \ 2If B = 8 Then B = 128End IfB1 = BOut PortAddress, A1 Or B1End SubPrivate Sub Form_Load()A = 1B = 16Timer1.Interval = 1000Timer2.Interval = 300End SubPrivate Sub Timer1_Timer()Silnik_B LewoEnd SubPrivate Sub Timer2_Timer()Silnik_A PrawoEnd SubNa forum elektroda poszukaj wiecej informacji na temat ukladu sterujacego.Silnik podczas gdy przez uzwojenie nie plynie juz prad wytarza bardzowysokie chwilowe napiecie wsteczne przed ktorym nalezy sie bronic odpowiednimi diodami.Silnik mozesz sterowac jeszcze w inny sposob poprzezpolkroki 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óryWyÅ›wietl posty z ostatnich: Wszystkie Posty Najpierw StarszeWszystkie Posty Najpierw StarszeWszystkie czasy w strefie CET (Europa)Forum Coders' city Strona Główna -> Visual BasicStrona 1 z 1Możesz pisać nowe tematyMożesz odpowiadać w tematachNie możesz zmieniać swoich postówNie możesz usuwać swoich postówNie możesz gÅ‚osować w ankietachMożesz dodawać zaÅ‚Ä…czniki na tym forumMoż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 oprogramowaniu | [ Pobierz caÅ‚ość w formacie PDF ]