Advantech PCI-1682U Bedienungsanleitung PDF herunterladen (Seite 77)

71 PCI-1680U/1682U User Manual

Chapter 4 Software Requirements

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", GENERIC_READ +

GENERIC_WRITE, 0, Nothing, OPEN_EXISTING,

FILE_ATTRIBUTE_NORMAL + 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

1 2 ... 72 73 74 75 76 77 78 79 80 81 82 ... 103 104

Keine Kommentare

Advantech PCI-1682U Bedienungsanleitung Seite 77