1 800 642-6446 Toll-free
1 585 657-6151 In New York
VelmexControls
Velmex
|
BiSlide
|
XSlide
Download
Download Driver
How To
Add To Your Project
Call From Your Project
Driver Functions
LoadDriver
ReleaseDriver
DriverTerminalShowState
PortOpen
PortClose
PortIsOpen
PortSendCommands
PortReadReply
PortCountChars
PortSearchForChars
PortClear
PortRemoveChars
MotorPosition
PortWaitForChar
PortWaitForCharWithMotorPosition
DriverResetFunctions
Example Code
Examples
VXM Driver Documentation - Visual C 6 - Examples
All functions assume you followed directions in the "How To Add To Your Project"
Examples
Minimal Code
WITHOUT
Wait
Below is the MINIMUM amount of code to make a motor move.
Option Explicit
Public VXM As ClsVxmDriverVb6
Public AppPath As String
Private Sub Form_Load()
Set VXM = New ClsVxmDriverVb6
AppPath = App.Path
Dim DriverLoaded As Long
DriverLoaded = VXM.LoadDriver(AppPath + "\Driver\VxmDriver.dll")
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
VXM.DriverTerminalShowState 0 'Use 0 to hide Terminal if was shown earlier
VXM.PortClose 'Close the port in case still open
VXM.ReleaseDriver
Set VXM = Nothing
End Sub
Private Sub CmdMoveMotor_Click()
VXM.PortOpen 1, 9600
VXM.PortSendCommands "F,C,I1M400,I1M-400,R"
VXM.PortClose
End Sub
Minimal Code
WITH
Wait
Below is the MINIMUM amount of code to make a motor move if you want your code to wait for the VXM program to finish before your code continues.
Option Explicit
Public VXM As ClsVxmDriverVb6
Public AppPath As String
Private Sub Form_Load()
Set VXM = New ClsVxmDriverVb6
AppPath = App.Path
Dim DriverLoaded As Long
DriverLoaded = VXM.LoadDriver(AppPath + "\Driver\VxmDriver.dll")
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
VXM.DriverTerminalShowState 0 'Use 0 to hide Terminal if was shown earlier
VXM.PortClose 'Close the port in case still open
VXM.ReleaseDriver
Set VXM = Nothing
End Sub
Private Sub CmdMoveMotorWait_Click()
VXM.PortOpen 1, 9600
VXM.PortSendCommands "F,C,I1M400,I1M-400,R"
VXM.PortWaitForChar "^", 0
VXM.PortClose
End Sub