En stegmotor är unikt genom att det kan vända ett visst antal grader och stoppa , snarare än att vända kontinuerligt som de flesta elmotorer gör . Motorn styrs elektroniskt av en extern krets . Detta arrangemang lämpar sig för programvarustyrning , oavsett om det inbyggda programvaran är inbäddad i mikrokontroller eller från ett externt program . Visual Basic kan användas för att utveckla programvara som kommunicerar med en motors styrenhet kretsen genom seriell eller parallell port på en dator . När porten är öppen , kan ditt program utöva kontroll över rörelser motorn . Instruktioner
1
Reference den SerialPort klassen i ditt program . Denna enhet kan användas med Visual Basic och andra . NET språk . Skriv följande uttalande på toppen av koden filen :
Import System.IO.Ports
2
Ställ portinställningarna och öppna den seriella porten . Denna kod kan införas i ett antal ställen i programmet så att " Load " händelse av en form eller som svar på en knapp trycks . Följande exempel ställer in parametrarna för seriell port COM1 :
Dim myComPort Som New SerialPort
Prova
p Om inte myComPort.IsOpen Sedan
myComPort.PortName = " COM1 "
myComPort.BaudRate = 1200
myComPort.Parity = Parity.None
myComPort.DataBits = 8
myComPort.StopBits = stoppbitar . En
myComPort.Handshake = Handshake.None
myComPort.ReadTimeout = 3000
myComPort.WriteTimeout = 5000
myComPort.Open ( )
End If
Catch --- ( fel ) katalog
End Försök
3
Skicka styrkoderna till mikrokontroller bifogas stegmotor . Olika kombinationer av styrsystem och motorer kommer att ha olika kod krav så du måste hänvisa till tillverkarens dokumentation för specifika koder och den form i vilken den registeransvarige förväntar sig att få dem . Som ett exempel , skickar följande kod ett kommando " GO " som 8 - bitars , ASCII-tecken :
myComPort.Writeline ( " GO " ) katalog
svar = myComPort.Readline
4
Stäng porten när du är klar skickar kommandon . Den " End Använda " uttalande frigör de resurser den seriella porten och stänger det till kommunikation . Lägg denna kod till antingen " FormClosing " händelsehanterare eller till en viss meny eller kontroll händelse :
Använda myComPort
p Om myComPort.IsOpen Sedan
Do While ( myComPort. BytesToWrite > 0 ) katalog
Loop
End If
End Använda Addera
