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

[روح اله معینی زاده]

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

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

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

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

[(سیدشریفی)]

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

[linux]

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 را برای چی معین میکنیم و در ضمن اگر بخواهیم اطلاعاتی را روی پورت بفرستیم چیکار میکنیم

[amirsadeghi]

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

[r_o_o_z_y]

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

[amirsadeghi]

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

[real_vbp]

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

[parandeh1383]

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

این یه sample هست.

[mortez maya]

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

[m_zi]

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