leilast
سه شنبه 10 شهریور 1388, 15:16 عصر
سلام
این تابع مربوط به ارتباط با دستگاه RFID هست.در این تابع بر اساس مقادیری که در فیلدهایcombobox1.combobox2,combobox3 داده میشه ,داده کارت خوانده میشود ,منطق برنامه درسته ولی در هنگام اجرا در تبدیلات رشته ها به اعداد و بر عکس error میده.
اگر ممکنه جایی رو که ایراد داره بهم بگین تا درستش کنم
[code] (http://www.barnamenevis.org/forum/C#%E2%80%8Eode)
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim i, j As Integer
If ComboBox1.Items.ToString = "Reserved" Then
For i = ComboBox2.Items.ToString To j = (" " & ComboBox2.Items.ToString & " " + " " & ComboBox3.Items.ToString & " ")
Next
If i + j <= 4 Then
Gen2Read(handelcom, 0, ComboBox2.Items.ToString, ComboBox3.Items.ToString, data_tag(i), 255)
ListBox1.Items.Add(" " & Hex(data_tag(i) & " "))
Else
ListBox1.Items.Add("read tag failed")
End If
ElseIf ComboBox1.Items.ToString = "EPC" Then
For i = ComboBox2.Items.ToString To j = (" " & ComboBox2.Items.ToString & " " + " " & ComboBox3.Items.ToString & " ")
Next
If i + j <= 8 Then
Gen2Read(handelcom, 1, ComboBox2.Items.ToString, ComboBox3.Items.ToString, data_tag(i), 255)
ListBox1.Items.Add(" " & Hex(data_tag(i) & " "))
Else
ListBox1.Items.Add("read tag failed")
End If
ElseIf ComboBox1.Items.ToString = "TID" Then
For i = ComboBox2.Items.ToString To j = (" " & ComboBox2.Items.ToString & " " + " " & ComboBox3.Items.ToString & " ")
Next
If i + j <= 4 Then
Gen2Read(handelcom, 2, ComboBox2.Items.ToString, ComboBox3.Items.ToString, data_tag(i), 255)
ListBox1.Items.Add(" " & Hex(data_tag(i) & " "))
Else
ListBox1.Items.Add("read tag failed")
End If
Else
For i = ComboBox2.Items.ToString To j = (" " & ComboBox2.Items.ToString & " " + " " & ComboBox3.Items.ToString & " ")
Next
If i + j <= 14 Then
Gen2Read(handelcom, 2, ComboBox2.Items.ToString, ComboBox3.Items.ToString, data_tag(i), 255)
ListBox1.Items.Add(" " & Hex(data_tag(i) & " "))
Else
ListBox1.Items.Add("read tag failed")
End If
End If
end sub
[code/] (http://www.barnamenevis.org/forum/C#%E2%80%8Eode)
این تابع مربوط به ارتباط با دستگاه RFID هست.در این تابع بر اساس مقادیری که در فیلدهایcombobox1.combobox2,combobox3 داده میشه ,داده کارت خوانده میشود ,منطق برنامه درسته ولی در هنگام اجرا در تبدیلات رشته ها به اعداد و بر عکس error میده.
اگر ممکنه جایی رو که ایراد داره بهم بگین تا درستش کنم
[code] (http://www.barnamenevis.org/forum/C#%E2%80%8Eode)
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim i, j As Integer
If ComboBox1.Items.ToString = "Reserved" Then
For i = ComboBox2.Items.ToString To j = (" " & ComboBox2.Items.ToString & " " + " " & ComboBox3.Items.ToString & " ")
Next
If i + j <= 4 Then
Gen2Read(handelcom, 0, ComboBox2.Items.ToString, ComboBox3.Items.ToString, data_tag(i), 255)
ListBox1.Items.Add(" " & Hex(data_tag(i) & " "))
Else
ListBox1.Items.Add("read tag failed")
End If
ElseIf ComboBox1.Items.ToString = "EPC" Then
For i = ComboBox2.Items.ToString To j = (" " & ComboBox2.Items.ToString & " " + " " & ComboBox3.Items.ToString & " ")
Next
If i + j <= 8 Then
Gen2Read(handelcom, 1, ComboBox2.Items.ToString, ComboBox3.Items.ToString, data_tag(i), 255)
ListBox1.Items.Add(" " & Hex(data_tag(i) & " "))
Else
ListBox1.Items.Add("read tag failed")
End If
ElseIf ComboBox1.Items.ToString = "TID" Then
For i = ComboBox2.Items.ToString To j = (" " & ComboBox2.Items.ToString & " " + " " & ComboBox3.Items.ToString & " ")
Next
If i + j <= 4 Then
Gen2Read(handelcom, 2, ComboBox2.Items.ToString, ComboBox3.Items.ToString, data_tag(i), 255)
ListBox1.Items.Add(" " & Hex(data_tag(i) & " "))
Else
ListBox1.Items.Add("read tag failed")
End If
Else
For i = ComboBox2.Items.ToString To j = (" " & ComboBox2.Items.ToString & " " + " " & ComboBox3.Items.ToString & " ")
Next
If i + j <= 14 Then
Gen2Read(handelcom, 2, ComboBox2.Items.ToString, ComboBox3.Items.ToString, data_tag(i), 255)
ListBox1.Items.Add(" " & Hex(data_tag(i) & " "))
Else
ListBox1.Items.Add("read tag failed")
End If
End If
end sub
[code/] (http://www.barnamenevis.org/forum/C#%E2%80%8Eode)