Vernier LabPro - Manual (Page 89)

Revision Date: 08/02/02
LabPro Technical Manual D-2
Private Sub Form_Load() your forms load event
LabPro.PortOpen = True opens the Comm port
LabPro.Settings = "38400,N,8,1" sets the proper settings for LabPro
End Sub
Private Sub cmdCollect_Click() your button's click event
LabPro.Output = "s{0}" + vbCrLf reset LabPro (clears RAM)
LabPro.Output = "s{1,3,1}" + vbCrLf set up channel 3 for collection
LabPro.Output = "s{3,1,-1}" + vbCrLf take sample every second, re-arms, and
fires again
End Sub
Private Sub cmdStop_Click() your button's click event
lstInput.Additem LabPro.Input adds the data to your listbox
LabPro.Output = "s{0}" + vbCrLf tells LabPro to stop collecting
End Sub
Private Sub Form_Unload(Cancel As Integer) your forms unload event
LabPro.PortOpen = False closes the Comm port
End Sub
Example 3: Distance and Velocity Non-Realtime Data Collection
In this example we AutoID the probe, set up SONIC 1, and send a command to collect 100 points in metric
units ( a point every 0.1 seconds). The onComm() event is called whenever data is transferred and is used
to update the listbox with new data.
Create a standard .exe file
Open the Project menu and click on Components, add a Microsoft Comm Control
Name the Comm Control LabPro
Add a command button and name it cmdCollect
Add a listbox and name it lstInput
Add the following code to your form:
Private Sub Form_Load() your forms load event
LabPro.PortOpen = True opens the Comm port
LabPro.Settings = "38400,N,8,1" sets the proper settings for LabPro
End Sub
Private Sub cmdcollect_Click() your button's click event
LabPro.Output = "s{0}" + vbCrLf reset LabPro (clear RAM)
LabPro.Output = "s{1,11,4,1}" + vbCrLf sets up SONIC 1 and returns velocity
and distance
LabPro.Output = "s{3,0.1,100}" + vbCrLf take sample every 0.1 second
(100 samples)
LabPro.Output = "g" + vbCrLf "get" data command
End Sub
Private Sub labpro_OnComm() your Comm port's communication event
lstInput.AddItem LabPro.Input adds the data to your listbox
End Sub
Private Sub Form_Unload(Cancel As Integer) your forms unload event
LabPro.PortOpen = False closes the Comm port
End Sub
Example 4: Digital Output
In this example we set up Channel 31 and send a command to light up LEDs connected to DIG/SONIC1.
Every 0.5 second, the command is sent.
Create a standard .exe file
Open the Project menu and click on Components, add a Microsoft Comm Control
Name the Comm Control LabPro
Add a command button and name it cmdSend
Add the following code to your form: