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

vbÖÐMScommͨÐÅ·µ»Ø³ö´í

ÔÚVBµ÷ÓÃMScomm¿Ø¼þÖУ¬ÎªÊ²Ã´µ±½ÓÊÕµ½ÊýֵΪ 0 µÄÖµ²»½ÓÊÕÄØ£¬
ÀýÈç½ÓÊÕµ½Ê®Áù½øÖÆ 0a 20 10 00 ºóÔÚÏÂÃæµÄ¸³ÖµÖÐÖ»ÊÕµ½Ç°Èýλ
Buffer = MSComm1.Input
¼´ Buffer ֵΪ 0a 20 10

»òÕß½ÓÊÕµ½Ê®Áù½øÖÆ 0a 20 00 10 ºóÔÚÏÂÃæµÄ¸³ÖµÖÐÖ»ÊÕ²»µ½ÊýֵΪ 0 µÄ±äÁ¿
Buffer = MSComm1.Input
¼´ Buffer ֵΪ 0a 20 10

´ÓÉÏÃæ¿ÉÒÔ¿´³ö½ÓÊÕ³ö´í£¬ÇëÎÊÓÐʲôÊôÐÔÒªÉèÖòÅÄÜÕýÈ·½ÓÊÕÄØ
VB code:
MSComm1.RThreshold = 1 'Èô Rthreshold ÊôÐÔÉèÖÃΪ 0£¨È±Ê¡Öµ£©Ôò²»²úÉú OnComm ʼþ,Èç¹ûÉèÖà Rthreshold Ϊ 1£¬½ÓÊÕ»º³åÇøÊÕµ½Ã¿Ò»¸ö×Ö·û¶¼»áʹ MSComm ¿Ø¼þ²úÉú OnComm ʼþ¡£


MSComm1.RTSEnable = True 'È·¶¨ÊÇ·ñʹ Request To Send (RTS) ÏßÓÐЧ¡£Ò»°ãÇé¿öÏ£¬ÓɼÆËã»ú·¢ËÍ Request To Send Ðźŵ½Áª½ÓµÄµ÷ÖÆ½âµ÷Æ÷£¬ÒÔÇëʾÔÊÐí·¢ËÍÊý¾Ý¡£
'µ± RTSEnable ÉèÖÃΪ True£¬¶Ë¿Ú´ò¿ªÊ±£¬Request To Send ÏßÉèÖÃΪ¸ßµçƽ£¬¶Ë¿Ú¹Ø±Õʱ£¬ÉèÖÃΪµÍµçƽ¡£
'Request To Send ÏßÓÃÔÚ RTS/CTS Ó²¼þÎÕÊÖ¡£RTSEnable ÊôÐÔÔÊÐíÊÖ¶¯¼ì²â Request To Send ÏßÒÔÈ·¶¨Æä״̬¡£

MSComm1.SThreshold = 1 'ÔÚ MSComm ¿Ø¼þÉèÖà CommEvent ÊôÐÔΪ comEvSend ²¢²úÉú OnComm ʼþ֮ǰ£¬ÉèÖò¢·µ»Ø´«Ê仺³åÇøÖÐÔÊÐíµÄ×îС×Ö·ûÊý¡£
'ÈôÉèÖà Sthreshold ÊôÐÔΪ 0£¨È±Ê¡Öµ£©£¬Êý¾Ý´«Êäʼþ²»»á²úÉú OnComm ʼþ¡£
'ÈôÉèÖà Sthreshold ÊôÐÔΪ 1£¬µ±´«Ê仺³åÇøÍêÈ«¿Õʱ£¬MSComm ¿Ø¼þ²úÉú OnComm ʼþ¡£
'Èç¹ûÔÚ´«Ê仺³åÇøÖеÄ×Ö·ûÊýСÓÚ value£¬CommEvent ÊôÐÔÉèÖÃΪ comEvSend£¬²¢²úÉú OnComm ʼþ¡£
'comEvSend ʼþ½öµ±×Ö·ûÊýÓë Sthreshold ½»²


Ïà¹ØÎÊ´ð£º

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

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

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

VBµ÷ÓÃË®¾§±¨±íDesign ƽ·²ÌáʾMemoryFullÎÊÌâ

  ¸÷λ´óϺ£º
        ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......

vb.net ´´½¨accessÊý¾Ý±íʵÏÖÒ»Êý¾Ý¿â¶à¸öÊý¾Ý±í£¿

Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ