åçæºçé讯åè°å¶è§£è°å¨å·®ä¸å¤ç
MSComm æ§ä»¶ç¤ºä¾
ä¸é¢è¿ä¸ªç®åçä¾åæ¼ç¤ºäºç¨è°å¶è§£è°å¨è¿è¡åºæ¬ç串è¡é讯ï¼
Private Sub Form_Load ()
' ä¿åè¾å
¥å串çç¼å²åº
Dim Instring As String
' ä½¿ç¨ COM1ã
MSComm1.CommPort = 1
' 9600 æ³¢ç¹ï¼æ å¥å¶æ ¡éªï¼8 ä½æ°æ®ï¼ä¸ä¸ªåæ¢ä½ã
MSComm1.Settings = "9600,N,8,1"
' å½è¾å
¥å ç¨æ¶ï¼
' åè¯æ§ä»¶è¯»å
¥æ´ä¸ªç¼å²åºã
MSComm1.InputLen = 0
' æå¼ç«¯å£ã
MSComm1.PortOpen = True
' å° attention å½ä»¤éå°è°å¶è§£è°å¨ã
MSComm1.Output = "ATV1Q0" & Chr$(13) ' ç¡®ä¿
' è°å¶è§£è°å¨ä»¥"OK"ååºã
' çå¾
æ°æ®è¿åå°ä¸²è¡ç«¯å£ã
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' ä»ä¸²è¡ç«¯å£è¯» "OK" ååºã
' å
³é串è¡ç«¯å£ã
MSComm1.PortOpen = False
End Sub
注æ MSComm æ§ä»¶å¯ä»¥éç¨è½®è¯¢æäºä»¶é©±å¨çæ¹æ³ä»ç«¯å£è·åæ°æ®ãè¿ä¸ªç®åçä¾å使ç¨äºè½®è¯¢æ¹æ³ãå
³äºäºä»¶é©±å¨æ¹æ³çä¾å请åé
OnComm äºä»¶ç帮å©ã
温馨提示:答案为网友推荐,仅供参考