VB´®¿ÚͨÐÅÎÊÌ⣬¼±£¡£¡£¡£¡
ÏÖÓеç×Ó³Óһ̨£¬Ê¹Óô®¿ÚÓë¼ÆËã»ú½øÐÐͨѶ¡£±àдVB³ÌÐòÀ´·ÃÎÊ´®¿Ú£¬´ïµ½¶ÁÈ¡µç×Ó³ÓÉÏÏÔʾµÄÊý¾Ý¡£¸Ãµç×Ó³ÓΪBL-4100SÐÍÒÇ±í£¬Êä³öΪRS-232±ê×¼½Ó¿Ú£¬²¨ÌØÂÊΪ2400¡¢ÎÞУÑ飬Êý¾Ý¸ñʽΪ£º1 Æðʼλ 8 Êý¾Ý루°üÀ¨Ð£Ñ飩1 ֹͣλ ¡£
ÏÖÔÚÏëÔÚµçÄÔÖÐÿ¸ôÒ»¶¨µÄʱ¼ä¼ä¸ô¼Ç¼µç×Ó³ÆÊý¾Ý£¬ÒÔÊ®½øÖÆÐÎʽÏÔʾÔÚÎı¾ÖУ¬¼Ç¼ÐÎʽΪ£º£¨Ê±¼ä£¬ÖÊÁ¿£©
ÒÔǰ¸ù±¾Ã»ÓÐѧ¹ýVB£¬ÏÖÔÚÓöµ½Õâ¸öÎÊÌ⣬ËùÒÔ¾ÍÔÚÍøÉÏËÑÁËÒ»¸ö³ÌÐò£¬Ïë×Ô¼ºÏÈÊÔ×ÅÀí½âÏÂVBÖйØÓÚ´®¿ÚͨѶµÄÎÊÌ⣬³ÌÐòÈçÏ£º
Option Explicit
Dim strss As String
Private Sub Command1_Click() '¿ªÊ¼½ÓÊÕ
Label1.Caption = " "
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
If MSComm1.PortOpen = False Then
MSComm1.CommPort = 1 '´®¿ÚºÅ£¬
MSComm1.Settings = "2400,n,8,1 " '´®¿ÚµÄÊôÐÔ
MSComm1.InputLen = 0
MSComm1.RThreshold = 10
MSComm1.InputMode = comInputModeText
MSComm1.PortOpen = True '´ò¿ªÍ¨ÐÅ
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......
¸÷λ¸ßÊÖ£¬Ð¡µÜÏëдһ¸ö³ÌÐò£¬¶ÁÈ¡·þÎñÆ÷ÉϵÄÒ»¸ö¹²ÏíÎļþ£¬µ±Õâ¸öÎļþ±»Ð޸ĺ󣬽«´ËÎļþ¿½±´µ½±¾µØ¼ÆËã»ú¸²¸Ç±¾µØÔÀ´µÄÎļþ¡£Çë¸÷λ´óÏÀд¶Î´úÂ룬ºÍ½âÊÍ£¬Ð»Ð»£¡
ÅжÏÎļþ´óС»òÐÞ¸ÄÈÕÆÚ£¬²»Ò»Ñù¾Í¿½±´µ½±¾µØ
......
¸÷λºÃ£¬ÎÒÏÖÔÚÒªÓÃһ̨¼ÆËã»úͬʱ¼à¿Ø32̨ÐźŽÓÊÕ»ú£¨ÓõÄÊÇMOXA¿¨À©Õ¹32¸ö´®¿Ú£©¡£Ïȵ÷ÊÔ8̨¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÓÐÁ½¸öÃüÁîÐèÒªÏò½ÓÊÕ»ú·¢ËÍ£¬Ò»¸öÊÇ¼à¿Ø½ÓÊÕ»úÉϵÄÐźÅËø¶¨×´Ì¬£¬Ò»¸öÊÇ»ñÈ¡½ÓÊÕ»úĿǰµÄ¸÷À๤×÷× ......