ارتباط با پورت سریال ؟

[HAMIDNASR]

چه کدی برای ارسال و دریافت داده ها از پورت com1 باید نوشت؟
داده ها از جنس رشته ASCII هستند و به صورت فایل COMMA DELIMITED ذخیره میشوند.

[sarami]

میتونین از ActiveX های آماده برای ارتباط با پورت سریال استفاده کنین.برای نمونه MSComm activeX میتونه گزینه ی خوبی باشه

[ehsan_g]

همونطوریکه آقای صرامی گفتند استفاده از mscomm32.ocx بهترین روش هست که اول باید اون رو ریجستر کنی وبعد در برنامه یا فرم مربوطه اون راصدا بزنی


dim comp as mscomm32
comp.commport=1 (com1=1,com2=2
comp.setings="9600,N,8,1"
comp.portopen=true
comp.output="123"
comp.portopen=false

[HAMIDNASR]

احسان عزیز
ضمن تشکر، من از منوی Tools \ Refrences برای فعال کردن MSCOMM32 اقدام کردم ولی آنرا پیدا نکردم.
آیا در Lib بخصوصی باید دنبالش بگردم؟

[ehsan_g]

سلام
اگه ویژوال بیسیک رو نصب کرده باشی این فایل رو می تونی داخل کتابخانه هاش پیدا کنی
من اون رو برای شما ارسال می کنم
5003

[sajjad_kochekian]

خيلي وقت كه از تاريخ اين تاپيك مي گذره ولي
من مي خواستم از آن استفاده كنم ولي خطا ميده

63617

[Fatollah_ghazi]

با سلام لطفا" نحوه استفاده اون رو هم با يك مثال توضيح بديد.

[sajjad_kochekian]

دوستان كسي نيست كمك كنه؟ :متعجب:

[mazoolagh]

این رو امتحان کنین و خبرش رو بدین:



dim comp as mscom
set comp = new mscom

[stabesh]

سلام
من اینا رو پیدا کردم
http://www.yes-tele.com/mscomm.html
http://www.yes-tele.com/access.html
http://www.mev.co.uk/pages/Support/VB-Baud.html
http://www.pencomdesign.com/support/relay_software/vba_software_example.htm
http://www.pcreview.co.uk/forums/thread-977988.php
http://support.microsoft.com/default.aspx?scid=kb;en-us;194922
http://mc-computing.com/Languages/SerialIO.htm
http://bytes.com/topic/access/answers/198981-rs232-data-access-database-general-approach
http://www.excelforum.com/excel-programming/331696-access-rs232-port-with-vba.html
http://www.tek-tips.com/viewthread.cfm?qid=560230&page=1
http://www.tek-tips.com/viewthread.cfm?qid=1173322&page=429

[sajjad_kochekian]

این رو امتحان کنین و خبرش رو بدین:



dim comp as mscom
set comp = new mscom


اين يكي جواب نداد
64503

[mehdi_fiz]

سلام دوست عزیز
من خودم از ین کد استفاده می کنم
Dim comp As MSComm
Set comp = New MSComm
comp.CommPort = 5

If comp.PortOpen = False Then
comp.PortOpen = True
End If

comp.Settings = "115200,n,8,1"
comp.Handshaking = comNone

موفق باشید

[mazoolagh]

اين يكي جواب نداد
64503

روش درسته و شما همون set رو کم داشتین فقط ظاهرا اسم کمپوننت mscomm درست هست که من mscom نوشته بودم

[sajjad_kochekian]

دوست عزيز كدام خط از com اطلاعات را دريافت ميكنه؟

[Fatollah_ghazi]

با سلام
ميشه يه نمونه كوچيك بزاريد .و آيا ميشه از اين پورت جهت برنامه باسكول استفاده كرد؟