ÎʸöºÜ¼òµ¥µÄÎÊÌ⣬ÎÒ²»»áVB£¬µ«ÐèÒªÊÔÑéһϡ£
ÏÈлл¸÷λµÄ»Ø´ðÁË¡£
Ò»¸ö Value As String µÄÊý¾ÝÀàÐÍ£¬ÆäʵÊÇÒ»¸ö°üÀ¨ÁË10¸öÕûÐÎÊý¾ÝµÄ°ü£¬ÇëÎÊÎÒ¸ÃÈç¹û·Ö½â£¿
²¢µÃµ½ÀïÃæµÄ10¸öÊý¾Ý£¿Ð»Ð»ÁË¡£ÔÚÏߵȰ¡¡£
°´Byte×Ö½Ú·½Ê½¶Á.
лл£¬ÎÒ²»»áVB£¬¿É²»¿ÉÒÔÏêϸµã£¿×îºÃ¿ÉÒÔ°Ñ´úÂëÌû³öÀ´¡£
VBµÄÕûÐÎÊý¾ÝÀàÐÍÊÇ16λ(2×Ö½Ú),ÄãÄǸöStringµÄÊý¾ÝÀàÐ͵Ä×Ö·û´®(µ¥×Ö½Ú³¤Ó¦¸ÃÊÇ20×Ö½Ú).
Òª¿´ÄãÔʼÊý¾ÝÊÇʲôÁË¡£
Èç¹ûÊǶººÅ·Ö¸îµÄ£¬ÓÃSplitº¯Êý¡£
Èç¹ûÊǶþ½øÖƸñʽµÄ£¬×ª»»³ÉÊý×é¡£
Èç¹ûÊǶ¨³¤µÄ£¬ÓÃMidº¯Êý¡£
ÄãËù˵µÄÊý¾ÝÊÇÈçºÎÀ´µÄ?ÖªµÀÁ˲ÅÄÜÌṩ½¨Òé.
ÊǶþ½øÖƵģ¬ÊÇ´«¸ÐÆ÷·¢ËÍÀ´µÄ¡£
VB code:
Private Sub DP_PacketArrived(BaseStation As Byte, DataTag As Long, Value As String, Status As Byte, RSSI As Integer, CV As Integer, BattLow As Boolean, Error As Boolean)
'ensure that this is the one we want
Debug.Print DataTag, Value, Status, RSSI, CV, BattLow, Error
If (DataTag And 65535) <> (TestTag And 65535) Then Exit Sub
Debug.Print DataTag, Value, Status, RSSI, CV, BattLow, Error
'put the value into the display label
Label1.Caption = Value
End Sub
ÓÉÓÚÎÒÊÖÀïµÄÓ²¼þ°æ±¾²»Í¬£¬ÊÇ¿ìËÙ°æµÄ£¬Ò»¸öÊý¾Ý°üÓÐ10¸öÊý¾Ý¡£
»¹ÓÐÄãÄܲ»ÄܸøÎÒ½²½²ÔõôµÃµ½Õâ¸öValueµÄ³¤¶È£¿ÎÒÏë¿´¿´ºÍÎÒVC
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......