Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÇóÖú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


Ïà¹ØÎÊ´ð£º

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

VBµ÷ÓÃUsb7kC.dll

¸÷λ°ïæ¿´¿´
VBµ÷ÓÃUsb7kC.dll

³ÌÐòÊÇÒ»¸ö×ÀÇò·»µÄÓÃÓÚ¿ØÖÆÌ¨×ÀµÄ¿ª¹ØµÆ
Ô­ÏÈÓõÄÊÇPCµÆ¿Ø¿¨£¬ÏÖÔÚÔö¼ÓÁËÒ»¸öUSBµÄ¿ØÖÆ¿¨

´Ó33ºÅÒÔºó¾ÍÊÇUSB¿¨¿ØÖƵģ¬ÏàÓ¦µÄ33×À¶ÔÓ¦µÄÊÇUSB¿ØÖÆ¿¨µÄ1ºÅÏß· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ