خواندن اطلاعات از پورت سریال

**روح اله معینی زاده** · دوشنبه 25 اسفند 1382, 16:39 عصر

با سلام خدمت تمامی دوستان گرامی

آیا کسی با پورت سریال کار کرده است؟

می خواهم بدانم چگونه می شود از آن پورت اطلاعات دریافت کرد؟ یا اینکه تشخیص داد که آیا از آن پورت اطلاعاتی می آید یا خیر؟

با احترام - خدانگهدار

**(سیدشریفی)** · چهارشنبه 27 اسفند 1382, 10:50 صبح

تا آنجا که من میدانم در خود وی بی تابعی برای این کار وجود ندارد پس باید دنبال فایلهای دی ال ال یا کنترلهای اکتیوایکس باشید
:roll:

**linux** · چهارشنبه 27 اسفند 1382, 11:01 صبح

mscom32.ocx

**روح اله معینی زاده** · چهارشنبه 27 اسفند 1382, 11:58 صبح

با سلام خدمت دوستان گرامی

با تشکر از دوستان که راهنمایی کردند. بالاخره خودم روشش رو یاد گرفتم. من می خواستم بارکد ارسالی توسط بارکدخوان را که یک عدد بود، بخوانم و بارکدخوان هم به پورت سریال وصل بود.

برای این کار یک TextBox و Microsoft Comm Control و Timer به فرم اضافه کردم.

TextBox: برای نمایش عدد بارکد
Microsoft Comm Control: برای اتصال به پورت و خواندن از آن
Timer: برای چک کردن دوره ای مولفه Microsoft Comm Control که آیا کارت کشیده شده یا نه

کد زیر را برای آماده کردن خواندن از پورت نوشتم

Private Sub Form_Load&#40;&#41;

    If MSComm1.PortOpen = False Then MSComm1.PortOpen = True

    ' 12 is the length of barcode

    MSComm1.InputLen = 12

    Timer1.Enabled = True

End Sub

و کد زیر نیز برای نوشتن داده های خوانده شده توسط بارکدخوان در TextBox

Private Sub Timer1_Timer&#40;&#41;

    s = MSComm1.Input

    If Len&#40;Trim$&#40;s&#41;&#41; > 0 Then

        Text1.Text = Text1.Text + s + vbCrLf

    End If

End Sub

در پایان یادآور می شوم متغیر s از نوع رشته ای می باشد و باید در سطح فرم تعریف شود، یعنی در خارج از کدهای قسمتی که در بالا نوشته ام.

امیدوارم مفید فایده واقع شده باشد.

با احترام- خدانگهدار