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 '´ò¿ªÍ¨ÐÅ
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
¸÷λºÃ£¬ÎÒÏÖÔÚÒªÓÃһ̨¼ÆËã»úͬʱ¼à¿Ø32̨ÐźŽÓÊÕ»ú£¨ÓõÄÊÇMOXA¿¨À©Õ¹32¸ö´®¿Ú£©¡£Ïȵ÷ÊÔ8̨¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÓÐÁ½¸öÃüÁîÐèÒªÏò½ÓÊÕ»ú·¢ËÍ£¬Ò»¸öÊÇ¼à¿Ø½ÓÊÕ»úÉϵÄÐźÅËø¶¨×´Ì¬£¬Ò»¸öÊÇ»ñÈ¡½ÓÊÕ»úĿǰµÄ¸÷À๤×÷× ......