PDA

View Full Version : تبدیل رشته به عدد



leilast
سه شنبه 10 شهریور 1388, 14: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)