¹ØÓÚVB´®¿ÚµÄÎÊÌâ
ÊÇÕâÑùµÄ£¬ÎÒÏëÓÃpc»úºÍÏÂλµ¥Æ¬»ú½øÐÐͨѶ¡£¸Õѧvb²»¾Ã£¬ÊÇÕâÑùдµÄ£º
Private Sub com_OnComm()
Select Case com.CommEvent
Case comEvReceive
text2 = com.Input
com.InBufferCount = 0
End Select
End Sub
Private Sub Command1_Click()
com.OutBufferCount = 0
com.Output = text1.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
com.CommPort = 1
com.Settings = "19200,n,8,1"
com.PortOpen = True
End Sub
È»ºóÎÒ½«µçÄԵĴ®¿ÚµÚ¶þÕëºÍµÚÈýÕë¶Ë½Ó£¬°´ÕÕ³£ÀíÕâÑùµÄ»°ÎÒÿ´Î·¢ËÍÒ»¸öÊý¾ÝÔÚtext2µÄtextÖоÃÓ¦¸ÃÄÜ¿´µ½¸Õ²Å·¢µÄÊý¾ÝÁË£¬µ«Êǽá¹ûû·´Ó¦¡£
ÏÂÀ´ÎÒÓý«Á½Ì¨µçÄÔÓô®¿ÚÏßÁ¬½Ó£¬Ö®¼äµÄÌøÏßÎÒ¶¼ÒѾȷ±£ÎÞÎ󣬻úÆ÷1ÉÏÓõÄÊǸղŵÄvb³ÌÐò£¬»úÆ÷¶þÉÏÓõÄÊÇÍøÉÏdownµÄ´®¿Úµ÷ÊÔÖúÊÖ£¬½á¹ûÊÇ£ºÎÒÓÃÎÒµÄvb³ÌÐò·¢ËÍÒ»¸öÊý¾ÝÁîһ̨»úÆ÷µÄ´®¿Úµ÷ÊÔÖúÊÖÄÜÕýÈ·ÎÞÎóµÄÊܵ½£¬¶øÎÒÓÃÁîһ̨»úÆ÷µÄ´®¿Úµ÷ÊÔÖúÊÖ·¢Êý¾ÝµÄʱºòÓÃvbµÄ»úÆ÷1¾ÓÈ»ºÁÎÞ·´Ó¦£¡£¡£¡£¡
Çë¸÷λ´ó¸ç´ó½ã°ï°ïСµÜ£¡£¡Ð¡µÜÎÒÊdzõѧ£¡£¡£¡
ͨ³£ÊÇÄã9-9µÄ½ÓÏßÎÊÌ⣺
ÕÕÏÂÃæµÄ׼ȷÎÞÎó£º
¿´¿´ÎÒ֮ǰ¸øÈ˼һظ´µÄ£¬ÎÊÌâÒ»Ñù£º
LZÌáÐÑÄãÏ ×îºÃ±ðÓÃUSBת´®¿ÚµÄͨÐÅ·½Ê½ ×îºÃÊÇÖ±½Óµç·ÉϵÄ9Õë¶Ǫ̂ʽ»úºóµÄ9Õ루ÆäʵֻҪ3Õë¾Í¿ÉÒÔ£¬2-2£¬3-3£¬5-5£©
ÎªÊ²Ã´ÄØ£¿ÒòΪתÏ£¬Èç¹ûÊ
Ïà¹ØÎÊ´ð£º
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......