چگونگی شناسائی اتوماتیک پورت comو خواص آن در vb.net

[morteza_rk]

ممنون بهنام جان. میرم که تست کنم. چقدر ریزه کاری داشت و من نمی دونستم!

[morteza_rk]

آقا این مخ منو کار گرفته! هر کاری می کنم نمیشه ، یعنی هرچی که می فرستم همونو می خونه. نه چیزی که از میکرو میاد.

باید بعد از \r\n محتویات متغیر رو خالی کنی تا خود داده جدید توش بشینه.

این روش مال زبان سی نیست؟ منکه بلد نیستم توی بیسیک اجراش کنم!

ولی وقتی کد TextBox2.Text += DataReceived میذرام توی یک دکمه ی دیگه درست کار می کنه ، البته اول همون چیزی که خودش می فرسته رو می خونه و بعدش چیزی که از میکرو میاد.

ولی وقتی TextBox2.Text += DataReceived میذارم توی تابع ReadSerialData همون چیزی رو که می فرسته می خونه. مگر اینکه خیلی تند دکمه ی ارسال رو بزنم تا یه چیزایی بخونه.

کد اینه :

[PHP]

Imports System
Imports System.IO.Ports

Public Class Form1

Dim i As Byte = 0
Dim Entr As Char = Chr(13)
Dim portnames() As String
Dim serialdata As String = ""

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If SerialPort1.IsOpen = False Then

TextBox1.Text = "Opening port..."
SerialPort1.Open()
SerialPort1.Write("mrk" + Entr)
'SerialPort1.Close()

End If

End Sub

Private Delegate Sub SerialWork(ByVal Serial As System.IO.Ports.SerialPort)
Private Delegate Sub SetReadSerialData(ByVal data As String)
Dim DataReceived As String = ""

Private Sub SerialWorkProcedure(ByVal Serial As System.IO.Ports.SerialPort)
If SerialPort1.IsOpen Then
Dim _DataReceived As String = SerialPort1.ReadExisting()
ReadSerialData(_DataReceived)
End If
End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim SW As New SerialWork(AddressOf SerialWorkProcedure)
SW.BeginInvoke(SerialPort1, Nothing, Nothing)
End Sub

Private Sub ReadSerialData(ByVal data As String)
If Me.InvokeRequired Then
Try
Dim RSD As New SetReadSerialData(AddressOf ReadSerialData)
Me.Invoke(RSD, data)
Catch generatedExceptionName As Exception
End Try
Else
'inja dade vojud darad!
DataReceived += data
TextBox2.Text += DataReceived
data = ""
DataReceived = ""
SerialPort1.Close()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'TextBox2.Text += DataReceived
'DataReceived = ""
'SerialPort1.Close()
End Sub

End Class
[/PHP]

[morteza_rk]

راستی این چه پیغامی خطاییه؟ آقا این رسما پدر منو در آورده.

[behnam6500]

برنامه درسته

چیزی که باعث میشه برات درست کار نکنه اینه که در مکانهای نا مناسب پورت میبندی!!!!

مثل این:

'inja dade vojud darad!
DataReceived += data
TextBox2.Text += DataReceived
data = ""
DataReceived = ""
SerialPort1.Close()

شما یه کاری بکن

زمانیکه برنامه داره با پورت کار میکنه و یا این احتمال وجود داره که دستگاه داده میفرسته، پورت باید باز باشه.

برای راحتی کارت در لود فرم، پورت رو باز کن و در رخداد closing اون رو ببند.

اون خطا هم به خاطر میتونه باشه که پورت بسته شده ولی چون یک thread در پردازشهای cpu بهش اختصاص داده شده بوده تو عملکردش اختلال به وجود میاد و پردازشش متوقف میشه!

[morteza_rk]

ممنون

میرم ببینم می تونم کاری کنم یا نه؟! خدائیش اولش اصلا فکر نمی کردم که انقدر پیچیده بشه موضوع.

[morteza_rk]

بالاخره بعداز یه مدت تونستم از طریق Delegate با پورت سریال کار کنم که نتیجه ی راهنمائی های دوستان خوبم ama_trig و بهنام جان هست. البته یه 10 روز وقتم رو گرفت ، ولی یادم رفت اینجا بذارم. تا الان که یهو یادم اومد.

دوتا برنامه نوشتم یکی برای VB.NET و یکی هم برای #C ، و به عنوان نتیجه گیری این تاپیک اینجا میذارم.