VB Êý×鳤¶È
ÔÚVBÖÐÇóµÃ
Dim Buffer As Variant
Buffer = MSComm1.Input
ÕâʱÓÃʲôº¯Êý·µ»Ø Buffer ÓжàÉÙλ
Ubound
ÓÃlbound(Êý×éÃû)ºÍubound(Êý×éÃû)À´»ñµÃÊý×éµÄϱêºÍÉϱê
¿É²»¿ÉÒÔÏÈÉè³É¶¯Ì¬Êý×飬REdim <±äÁ¿1>£¨Ï±êto±äÁ¿2£©as <ÀàÐÍ>£¬·µ»Ø±äÁ¿Öµ2¼´¿É
³õÀ´£¬»¹ÍûÖ¸½Ì
UBound(Buffer)-LBound(Buffer)+1
·¹ý...
VB code:
Dim Buffer As Variant
Dim Bytbuff() As Byte
Dim L As Long
Buffer = MSComm1.Input
bytbuff = buffer
L = Ubound(bytbuff) + 1
Buffer ÓжàÉÙλ£¿ÄÇÓ¦¸ÃÊÇ
Len£¨Buffer£©
»òÕß
LenB£¨Buffer£©
¹ØÓÚlenºÍlenb£¬ÄãÉÏB»òGËÑËÑ...
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......