En stepper motor er unikt ved at det kan slå et bestemt antall grader og stoppe , snarere enn å snu fortløpende som de fleste elektriske motorer gjør. Motoren styres elektronisk av en ekstern krets . Dette arrangement gir seg til programvare -kontroll , enten det er fastvare innleiret i mikrokontrollenheten , eller fra et eksternt program . Visual Basic kan brukes til å utvikle programvare som kommuniserer med en motors regulator -krets gjennom den serielle eller parallelle port på en datamaskin. Når porten er åpen , kan programmet utøve kontroll over bevegelsene til motoren. Instruksjoner
en

Reference den SerialPort klassen i programmet. Denne forsamlingen kan brukes med Visual Basic , samt andre . NET språk . Skriv inn følgende uttalelse på toppen av koden filen:

Importen System.IO.Ports
2

Sett portinnstillingene og åpne seriell port . Denne koden kan være satt inn i en rekke steder i det program som for de " belastning" tilfelle av en form eller i respons til en knapp blir presset . Følgende eksempel setter parametrene for seriell port COM1 : en

Dim myComPort som ny SerialPort

Prøv
p Hvis ikke myComPort.IsOpen Deretter

myComPort.PortName = " COM1 "

myComPort.BaudRate = 1200

myComPort.Parity = Parity.None

myComPort.DataBits = 8

myComPort.StopBits = StopBits . En

myComPort.Handshake = Handshake.None

myComPort.ReadTimeout = 3000

myComPort.WriteTimeout = 5000

myComPort.Open ( )

End If

Catch --- ( feil )

End Prøv
3

Send styrekodene til mikrokontrolleren festet til stepper motor . Ulike kombinasjoner av kontrollerne og motorer vil ha ulike kode krav , så du må se i produsentens dokumentasjon for de spesifikke koder og i hvilken form kontrolleren forventer å motta dem . Som et eksempel , sender følgende kode en kommando " GO" som 8 -bits , ASCII-tegn : en

myComPort.Writeline ( " GO ")

response = myComPort.Readline

4

Lukk porten når du er ferdig med å sende kommandoer . "End hjelp " statement frigjør ressurser av seriell port og lukker den til kommunikasjon. Legg denne koden til enten " FormClosing " hendelsesbehandleren eller til en bestemt meny eller kontroll hendelse : en

hjelp myComPort
p Hvis myComPort.IsOpen Deretter

Mens ( myComPort. BytesToWrite > 0 )

Loop

End If

End hjelp