En stepmotor er enestående, fordi det kan slå et bestemt antal grader og stoppe , snarere end at dreje kontinuerligt som de fleste elmotorer gør. Motoren styres elektronisk af et eksternt kredsløb . Dette arrangement egner sig til software kontrol , om det firmware indlejret i microcontroller eller fra et eksternt program . Visual Basic kan bruges til at udvikle software, der kommunikerer med en motor controller kredsløb gennem den serielle eller parallelle port på en computer . Når porten er åben, kan dit program udøve kontrol over bevægelser af motoren. Instruktioner
1
Henvisning til SerialPort klasse i dit program. Denne samling kan bruges med Visual Basic samt andre . NET sprog . Indtast følgende erklæring i toppen af koden fil:
Import System.IO.Ports
2
Indstil portindstillingerne og åbn den serielle port. Denne kode kan indsættes i en række steder i programmet sådan på "Load " tilfælde af en form eller som svar på en knap bliver trykket . Følgende eksempel indstiller parametre til seriel port COM1 : Hej
Dim myComPort Som New SerialPort
Prøv
p Hvis ikke myComPort.IsOpen Så
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 () < br >
End If
fangst --- ( fejl )
End Prøv
3
Send styrekoderne til microcontroller knyttet til stepmotor . Forskellige kombinationer af controllere og motorer vil have forskellige lovkrav , så du skal henvise til producentens dokumentation for de specifikke koder og den form, hvori controlleren forventer at modtage dem. Som et eksempel, sender følgende kode en kommando "GO" som 8 -bit , ASCII-tegn : Hej
myComPort.Writeline ( "go" )
respons = myComPort.Readline
< br > 4
Luk porten , når du er færdig med at sende kommandoerne. Den " End Brug " erklæring frigiver ressourcer serielle port og lukker det til kommunikation. Føj denne kode til enten " FormClosing " hændelseshandler eller til en bestemt menu eller kontrol begivenhed : Hej
Brug myComPort
p Hvis myComPort.IsOpen Så
Do While ( myComPort. BytesToWrite > 0)
Loop
End If
End Brug KAYAK