PDA

نسخه کامل مشاهده نسخه کامل : راهنمايي براي ارتباط با يكي از پورت هاي كامپيوتر



shahabmusic
17-08-2006, 11:01
سلام.
يكي كليد دارم كه دو حالت خاموش و روشن داره ؛مي خوام اينو وصل كنم به يكي از پرت هاي كاميوتر مثل كام يا ال پي تي و از طريق ويژوال بيسيك بفهمم كه كليد خاموشه يا روشن.
لطفا كمك كنيد.

مرسي.
شهاب.

HAW3D
19-08-2006, 12:08
براي پورت كام از
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
سلامشما تونستین این کار رو انجام بدین

_H2_
17-11-2010, 17:00
سلام
اتصال به درگاه LPT در VB:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

(البته مقاله مذکور در مورد نسخه های جدید VB2008,2010 است.)
موفق باشید.

chinisaz_morteza
19-11-2010, 10:59
با سلام
لینکی که دادی باز نمیشه

_H2_
20-11-2010, 09:19
سلام
لینک همان است و سالم است.
احتمالاً در Copy-Paste آن دقت نکرده اید و کاراکتری بیشتر یا کمتر Copy-Paste شده.
با دقت بیشتر مجدداً سعی کنید.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
موفق باشید.