ÇóÖúVB¶ÁοرíµÄ°æ±¾ºÅΪʲôû·´Ó¦
Çë½Ì¸÷λ´óϺ£¬Ð¡µÜ¸Õ½Ó´¥VBÓë485µÄͨѶ֪ʶ£¬ÏÖÔÚÎÒ×öÁ˸ö¼òµ¥µÄVB³ÌÐò£¬¶ÁοرíµÄ°æ±¾ºÅ¡£Î¿رíÍùÀ´Í¨Ñ¶¶¼ÒÔASCIIÂëʵÏÖ¡£Î¿رíͨѶÐÒéÀï¶Á°æ±¾ºÅµÄÃüÁîΪ¡°&0000+»Ø³µ¡±£¬Î¿رíÓ¦»Ø¸´¡°!00007.2+»Ø³µ¡± ¡£ÏÖÔÚÎÒÔÚVBÀïÌí¼ÓÁËÁ½¸öÎı¾¿òText1ºÍText2,·Ö±ðÓÃÀ´·¢ËͺͽÓÊÜÃüÁîÄÚÈÝ£¬ÁíÍâÌí¼ÓÁËÁ½¸öÃüÁî°´Å¥Command1ºÍCommand2,·Ö±ðÓÃÀ´·¢ËͺͽÓÊÕÃüÁî¡£ÎÒÔÚText1Îı¾¿òÖÐÊäÈë¡°&0000¡±½Ó×ŵã»÷Command1·¢ËÍÃüÁ¿ÉÊǵã»÷Command2ȴûÓнÓÊÕµ½·µ»ØÊý¾Ý£¬Çë½Ì¸÷λ´óϺÎÊÌâµ½µ×³öÔÚÄĶù£¿ÎҵijÌÐòÈçÏ£º
Private Sub Command1_Click()
MSComm1.Output = Text1 + Chr(13)
End Sub
Private Sub Command2_Click()
Text2 = MSComm1.Input
End Sub
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 1
MSComm1.InputMode = comInputModeText
MSComm1.InputLen = 0
MSComm1.PortOpen = True
If MSComm1.PortOpen Then
Shape1.FillColor = vbGreen
Label1 = "ͨѶÕý³£"
Else
Shape1.FillColor = vbRed
Label1 = "ͨѶʧ°Ü"
End If
End Sub
Private Sub MSComm1_OnComm()
Tex
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÎÒÓÐ×Ô¶¯Éú³ÉÐòÁкŵijÌÐò£¬µ«ÊÇÔõô¸ú´ò°üºóµÄ°²×°³ÌÐò½áºÏÔÚÒ»Æð£¬ÔÚ°²×°Ê±ÌáʾÓû§ÊäÈëÐòÁкţ¬ÕýÈ·ºóÔÙ¼ÌÐø°²×°£¿£¿£¿
·½·¨1£ºÄã¿ÉÒÔÔÚÔËÐгÌÐòºóÊäÈëÐòÁкÅ×¢²á£¬ºÜ¶àÈí¼þ¶¼ÊÇÕâÑùµÄ¡£
·½·¨2£ºÊ¹ÓÃSetu ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......