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

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

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

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

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

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

mscom32.ocx

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

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

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

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

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

Private Sub Form_Load()

    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()

    s = MSComm1.Input

    If Len(Trim$(s)) > 0 Then

        Text1.Text = Text1.Text + s + vbCrLf

    End If

End Sub

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

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

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

آقا Ruhollah جالب بود .
:D

سلام
در اینجا طول 12 را برای چی معین میکنیم و در ضمن اگر بخواهیم اطلاعاتی را روی پورت بفرستیم چیکار میکنیم

mscomm1.output = "amir"
--------------------
نیازی به معین کردن طول هم برای خواندن نیست

اگه بخوایم با پرت پرینتر کار کنیم چه طوری هستش ؟ ممنون اگه این هم توضیح بدین

یه فایل DLL می خوای به نام IO.DLL با اون می تونی راحت کار کنی

میشه در موردش بیشتر توضیح بدید ؟ یا یک مثال بذارید ؟

نقل قول:

---

نوشته شده توسط r_o_o_z_y

اگه بخوایم با پرت پرینتر کار کنیم چه طوری هستش ؟ ممنون اگه این هم توضیح بدین

---

این یه sample هست.

تشکر فراوان از روح الله عزیز موفق باشی./

اگر جوابشو گرفتید ایتجا هم بذارید منم نیاز دارم
مرسی