kvmjewel.blogg.se

If e.TransactionNumber = AttributeReadDeviceProcessorStatus Thenĭim bitString As String = Convert.ToString(CInt(e.Values(0)), 2).PadLeft(16, "0"c) If e.ErrorId = 0 AndAlso e.Values IsNot Nothing AndAlso e.Values.Count > 0 Then

Private Sub EthernetIPforCLXCom1_DataReceived(sender As Object, e As ) Handles EthernetIPforCLXCom1.DataReceived Private Sub ButtonSerialNumber_Click(sender As Object, e As EventArgs) Handles btnSerialNumber.ClickĪttributeReadDeviceSerialNumber = EthernetIPforCLXCom1.BeginGetAttributeSingle(1, 1, 6) Private Sub ButtonDeviceName_Click(sender As Object, e As EventArgs) Handles btnDeviceName.ClickĪttributeReadDeviceName = EthernetIPforCLXCom1.BeginGetAttributeSingle(1, 1, 7) Private Sub ButtonProductCode_Click(sender As Object, e As EventArgs) Handles btnProductCode.ClickĪttributeReadDeviceProductCode = EthernetIPforCLXCom1.BeginGetAttributeSingle(1, 1, 3) Private Sub ButtonProcessorStatus_Click(sender As Object, e As EventArgs) Handles btnProcessorStatus.ClickĪttributeReadDeviceProcessorStatus = EthernetIPforCLXCom1.BeginGetAttributeSingle(1, 1, 5) Private AttributeReadDeviceSerialNumber As UInteger Private AttributeReadDeviceName As UInteger

Private AttributeReadDeviceProcessorStatus As UInteger Code: Private AttributeReadDeviceProductCode As UInteger