ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[Âà¶K] MSComm ±±¨î¶µ½d¨Ò

[Âà¶K] MSComm ±±¨î¶µ½d¨Ò

¤U­±³o­Ó²³æªº¨Ò¤l¡A¥i¥Ü½d¥Î¼Æ¾Ú¾÷¶i¦æ°ò¥»ªº§Ç¦C³q°T¡G
Private Sub Form_Load ()
   ' Àx¦s¿é¤J¦r¦êªº¼È¦s°Ï
   Dim Instring As String
   ' ¨Ï¥Î COM1.
   MSComm1.CommPort = 1
   ' ³s½u³t«× 9600 baud¡BµL¦P¦ìÀˬd¡B¸ê®Æ¦ì¤¸ 8¡B°±¤î¦ì¤¸ 1
   MSComm1.Settings = "9600,N,8,1"
   ' §i¶D±±¨î¶µ·í¨Ï¥Î Input ®É¡AŪ¨ú¾ã­Ó¼È¦s°Ï
   MSComm1.InputLen = 0
   ' ¶}±Ò§Ç¦C³s±µ°ð
   MSComm1.PortOpen = True
   ' ±N attention «ü¥O°e¨ì¼Æ¾Ú¾÷
   MSComm1.Output = "ATV1Q0" & Chr$(13) ' ½T©w
   ' ¼Æ¾Ú¾÷¦^À³ "OK" ªº°T®§

   ' µ¥«Ý¸ê®Æ¶Ç¦^¨ì§Ç¦C³s±µ°ð
   Do
      DoEvents
   Buffer$ = Buffer$ & MSComm1.Input
   Loop Until InStr(Buffer$, "OK" & vbCRLF)   ' ±q§Ç¦C³s±µ°ðŪ¨ú "OK" ¦^À³¸ê®Æ
   ' Ãö³¬§Ç¦C³s±µ°ð
   MSComm1.PortOpen = False
End Sub
µ{¦¡¤H­û

¸É¥R»¡©ú¡A­Y¬Oªì¨B±µÄ² RS232 ³q°Tªº¤H¥i¥H¥ý¸ÕÂù¾÷¤¬³q¡A©ÎªÌ³æ¾÷¤¬³q¡A
±µªk¦p¤U¡A
PCÂù¾÷¹ï³s
±µ½u¤è¦¡ ±NPC 1ªºrs-232²Ä2¸}±µ¨ì PC 2ªºrs-232²Ä3¸}  TX--->RX
                 ±NPC 1ªºrs-232²Ä3¸}±µ¨ì PC 2ªºrs-232²Ä2¸}  RX---->TX
                 ±NPC 1ªºrs-232²Ä5¸}±µ¨ì PC 2ªºrs-232²Ä5¸}  GND<---->GND
³æ¾÷¬Û³s®É  ±NPC ªºrs-232²Ä3¸}±µ¨ì PC ªºrs-232²Ä2¸}  ²Ä5¸}¬O¥»¨­gnd¤£¥Î±µ

­YÁÙ¬O¤£¤F¸Ñ¡A¥i¥H¨ìºô¸ô¤W·j´M¤@¤U¬ÛÃö¸ê®Æ¡C
µ{¦¡¤H­û

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD