servo controler aansturen met buttons

Status
Niet open voor verdere reacties.

ykostyle

Gebruiker
Lid geworden
18 apr 2009
Berichten
5
hallo ik heb net een parallax servo controler gekocht. en wil deze (in vb) met knoppen gaan aansturen naar een voorgeprogrammeerde stand. hier het manual http://www.antratek.nl/pdf/28823-PSCusbRevB-v1.2.pdf
ik heb vrijwel geen programmeer ervaring en snap ook niets van wat er in dat manual staat.
ik heb onderstaand geprobeert, maar dat werkt helaas niet:(



Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Using comPort As SerialPort = My.Computer.Ports.OpenSerialPort("COM4", baudRate:=38400, parity:=0, dataBits:=8, stopBits:=2)
comPort.DtrEnable = True
comPort.Write(Chr(0))
comPort.Write(Chr(1))
comPort.Write(ChrW(1000))
comPort.Close()
End Using

End Sub

wie wil mij helpen
 
ik heb het probleem opgelost, hier de oplossing voor als eimand die ooit zoekt:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Using comPort As SerialPort = My.Computer.Ports.OpenSerialPort("COM4", baudRate:=2400, parity:=0, dataBits:=8, stopBits:=2)
comPort.DtrEnable = True
comPort.Write("!SC" & Chr(0) & Chr(0) & Chr(750 And &HFF) & Chr(750 >> 8 And &HFF) & Chr(13))
comPort.Close()
End Using

End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan