خواندن اطلاعات از طریق axMSComm

[aliramazani]

به کد بنده نگاه کنید:
اطلاعات موجود بر روی دستگاه که 152 عدد 4 رقمی است را به صورت عکس ضمیمه نشان میدهد.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim buffer As Byte() = New Byte() {2, 82, 88, 88, 56, 50, 3, 13, 10}
If Me.AxMSComm1.PortOpen Then
Me.AxMSComm1.PortOpen = False
End If
Try
Me.AxMSComm1.CommPort = 1
Me.AxMSComm1.PortOpen = True
Me.AxMSComm1.SThreshold = 1
Me.AxMSComm1.RThreshold = 2
Me.AxMSComm1.InBufferCount = 0
Me.AxMSComm1.InputLen = 2
Me.AxMSComm1.Output = buffer
'Me.olddt = DateTime.Now
'Me.myThread = New Thread(New ThreadStart(Me.processComm))
'Me.myThread.Start()
Catch generatedExceptionName As Exception
MessageBox.Show("error" + 1 & " error!")
End Try




End Sub

Private Sub AxMSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm
TextBox1.Text = AxMSComm1.CommEvent
Dim g_intSS As Byte
g_intSS = AxMSComm1.Input
lb.Items.Add(g_intSS.ToString())

End Sub
End Class

[gilsoft]

سلام دوست عزیز ...

خوب الان مشکل‌تون چیه ؟ :متفکر:

[aliramazani]

مشکل اینه که اطلاعات صحیح خوانده نمیشه