Advantech PCI-1680U, User Manual

Page: 77 / 104

71 PCI-1680U/1682U User Manual
Chapter 4
S
oftware
R
equirements
2. Design graphical interfaces. Add one Button and six Text controls to Form1.
4.7.4.3 Write code
1. Write corresponding code for Button1.
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim hDevice As IntPtr
Dim status As CanStatusPar_t
Dim result As Boolean
Dim dwOutLen As Integer
Dim ov As New OVERLAPPED
'Open Can Port "CAN1".
'You can also change "CAN1" to a port's name which you
have installed.
hDevice = CreateFile("\\.\can1", GENERI
GENERIC_WRITE, 0, Nothing, OPEN_EXISTING,
FILE_ATTRIBUTE_ FILE_FLAG_OVERLAPPED, 0)
If hDevice.ToInt32 = &HFFFFFFFF Then
MsgBox("Open Error!")
Exit Sub
End If
'Get Can port status.
result = DeviceIoControl(hDevice, CAN_IOCTL_STATUS, Noth-
ing, 0, status, Len(status), dwOutLen, ov)
If Not result Then
MsgBox("GetStauts Error!")
Exit Sub
End If
TextBox1.Text = "Baud rate= " & status.baud