Dim Reader As New DataNetRFID.SR918X ------------ Dim Stat = Reader.TcpConnectReader("192.168.1.200", 100) If Stat = DataNetRFID.ReturnValue.SUCCESS_RETURN Then Dim V1 As Integer, V2 As Integer, SN As String = "" Stat = Reader.GetFirmwareVersion(255, V1, V2) StStat.Text = "Reader Connect Successfully" StVersion.Text = String.Format("Firmware Version : {0}.{1}", V1, V2) Stat = Reader.GetSerialNo(255, SN) StSN.Text = String.Format("Reader Serial NO : {0}", SN) SetEnable(True) GroupBox1.Enabled = False GetANt() GetTCP() Else StStat.Text = "Reader Connection Failed!" End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)