¹ØÓÚ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£©
ÎªÊ²Ã´ÄØ£¿ÒòΪתÏ£¬Èç¹ûÊ
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......