ÇóÖú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ÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
¸÷λ°ïæ¿´¿´
VBµ÷ÓÃUsb7kC.dll
³ÌÐòÊÇÒ»¸ö×ÀÇò·»µÄÓÃÓÚ¿ØÖÆÌ¨×ÀµÄ¿ª¹ØµÆ
ÔÏÈÓõÄÊÇPCµÆ¿Ø¿¨£¬ÏÖÔÚÔö¼ÓÁËÒ»¸öUSBµÄ¿ØÖÆ¿¨
´Ó33ºÅÒÔºó¾ÍÊÇUSB¿¨¿ØÖƵģ¬ÏàÓ¦µÄ33×À¶ÔÓ¦µÄÊÇUSB¿ØÖÆ¿¨µÄ1ºÅÏß·
......