مشاهده نسخه کامل
: راهنمايي براي ارتباط با يكي از پورت هاي كامپيوتر
shahabmusic
17-08-2006, 11:01
سلام.
يكي كليد دارم كه دو حالت خاموش و روشن داره ؛مي خوام اينو وصل كنم به يكي از پرت هاي كاميوتر مثل كام يا ال پي تي و از طريق ويژوال بيسيك بفهمم كه كليد خاموشه يا روشن.
لطفا كمك كنيد.
مرسي.
شهاب.
براي پورت كام از
mscomm
استفاده كن
The MSComm control provides serial communications for your application by allowing the transmission and reception of data through a serial port.
مثال
Private Sub Form_Load ()
' Buffer to hold input string
Dim Instring As String
' Use COM1.
MSComm1.CommPort = 1
' 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Tell the control to read entire buffer when Input
' is used.
MSComm1.InputLen = 0
' Open the port.
MSComm1.PortOpen = True
' Send the attention command to the modem.
MSComm1.Output = "ATV1Q0" & Chr$(13) ' Ensure that
' the modem responds with "OK".
' Wait for data to come back to the serial port.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' Read the "OK" response data in the serial port.
' Close the serial port.
MSComm1.PortOpen = False
End Sub
shahabmusic
20-08-2006, 11:59
مرسي دوست عزيز بابت جواب.
با اين كد من بايد با كدوم از پايه هاي كام ارتباط برقرار كنم ؟؟؟ چون فكر كنم پورت كام 9تا پايه داره.
chinisaz_morteza
14-11-2010, 10:30
سلام آقای شهاب موزیکشما تونستین جواب بگیرین
chinisaz_morteza
14-11-2010, 10:38
سلامشما تونستین این کار رو انجام بدین
سلام
اتصال به درگاه LPT در VB:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
(البته مقاله مذکور در مورد نسخه های جدید VB2008,2010 است.)
موفق باشید.
chinisaz_morteza
19-11-2010, 10:59
با سلام
لینکی که دادی باز نمیشه
سلام
لینک همان است و سالم است.
احتمالاً در Copy-Paste آن دقت نکرده اید و کاراکتری بیشتر یا کمتر Copy-Paste شده.
با دقت بیشتر مجدداً سعی کنید.
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
موفق باشید.
vBulletin , Copyright ©2000-2024, Jelsoft Enterprises Ltd.