Private Sub CANframes_Tick(sender As System.Object, e As System.EventArgs) Handles CANframes.Tick Dim retval As Short Dim msg As Lawicel.CANUSB.CANMsg Dim buffer As String = "" If (bOpen) Then retval = Lawicel.CANUSB.canusb_Read(h, msg) While (retval = Lawicel.CANUSB.ERROR_CANUSB_OK) If msg.id = 522 Then byteres = BitConverter.GetBytes(msg.data) End If If msg.id = 420 Then Readbyte1 = BitConverter.GetBytes(msg.data) End If If msg.id = 421 Then Readbyte2 = BitConverter.GetBytes(msg.data) End If If msg.id = 422 Then Readbyte3 = BitConverter.GetBytes(msg.data) End If If msg.id = 423 Then Readbyte4 = BitConverter.GetBytes(msg.data) End If If msg.id = 450 Then Readbyte11 = BitConverter.GetBytes(msg.data) End If If msg.id = 460 Then Readbyte12 = BitConverter.GetBytes(msg.data) End If If msg.id = 461 Then Readbyte13 = BitConverter.GetBytes(msg.data) End If If msg.id = 462 Then Readbyte14 = BitConverter.GetBytes(msg.data) End If If msg.id = 463 Then Readbyte15 = BitConverter.GetBytes(msg.data) End If If msg.id = 150 Then readvar7 = BitConverter.GetBytes(msg.data) End If If msg.id = 151 Then readvar8 = BitConverter.GetBytes(msg.data) End If If msg.id = 152 Then readvar9 = BitConverter.GetBytes(msg.data) End If If msg.id = 153 Then readvar10 = BitConverter.GetBytes(msg.data) End If If msg.id = 154 Then readvar11 = BitConverter.GetBytes(msg.data) End If If msg.id = 162 Then readvar1 = BitConverter.GetBytes(msg.data) End If If msg.id = 164 Then readvar2 = BitConverter.GetBytes(msg.data) End If If msg.id = 165 Then readvar3 = BitConverter.GetBytes(msg.data) End If If msg.id = 166 Then readvar4 = BitConverter.GetBytes(msg.data) End If If msg.id = 167 Then readvar5 = BitConverter.GetBytes(msg.data) End If If msg.id = 168 Then readvar6 = BitConverter.GetBytes(msg.data) End If If msg.id = 177 Then readvar16 = BitConverter.GetBytes(msg.data) End If If msg.id = 202 Then readvar12 = BitConverter.GetBytes(msg.data) End If If msg.id = 216 Then readvar13 = BitConverter.GetBytes(msg.data) End If If msg.id = 217 Then readvar14 = BitConverter.GetBytes(msg.data) End If If msg.id = 218 Then readvar15 = BitConverter.GetBytes(msg.data) End If If msg.id = 223 Then readvar17 = BitConverter.GetBytes(msg.data) End If If msg.id = 224 Then readvar18 = BitConverter.GetBytes(msg.data) End If If msg.id = 773 Then readwatchdog = BitConverter.GetBytes(msg.data) End If retval = Lawicel.CANUSB.canusb_Read(h, msg) End While End If If UpdateTimer.Enabled = False Then UpdateTimer.Enabled = True End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)