ÎʸöºÜ¼òµ¥µÄÎÊÌ⣬ÎÒ²»»á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
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......