VB/C++/C#´®¿ÚͨѶԴ´úÂ롾¸½ÏêϸעÊÍ¡¿
VB
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = i1
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary
MSComm1.InBufferCount = 0
MSComm1.InputLen = 0
MSComm1.Settings = "9600,N,8,1"
MSComm1.RThreshold = 1
MSComm1.OutBufferCount = 0
C++
/****************************************************************/
//´®Ðпڳõʼ»¯
if(m_ctrlComm.GetPortOpen()) //Èç¹û´®¿ÚÒѾ´ò¿ª£¬Ôò¹Ø±Õ¡£
m_ctrlComm.SetPortOpen(FALSE);
m_ctrlComm.SetCommPort(1); //Ñ¡Ôñcom1
if( !m_ctrlComm.GetPortOpen()) ×Ö´®9
m_ctrlComm.SetPortOpen(TRUE); //´ò¿ª´®¿Ú
else
AfxMessageBox("²»ÄÜ´ò¿ª´®Ðпڣ¡");
m_ctrlComm.SetSettings("9600,n,8,1"); //²¨ÌØÂÊ9600£¬ÎÞУÑ飬8¸öÊý¾Ý룬1¸öֹͣλ
m_ctrlComm.SetInputMode(1); //1£º±íʾÒÔ¶þ½øÖÆ·½Ê½¼ìÈ¡Êý¾Ý
m_ctrlComm.SetRThreshold(1); //²ÎÊý1±íʾÿµ±´®¿Ú½ÓÊÕ»º³åÇøÖÐÓжàÓÚ»òµÈÓÚ1¸ö×Ö·ûʱ½«Òý·¢Ò»¸ö½ÓÊÕÊý¾ÝµÄOnCommʼþ
m_ctrlComm.SetInputLen(0); //ÉèÖõ±Ç°½ÓÊÕÇøÊý¾Ý³¤¶ÈΪ0
m_ctrlComm.GetInput(); //ÏÈÔ¤¶Á»º³åÇøÒÔÇå³ý²ÐÁôÊý¾Ý
/****************************************************************/
C#
if (this.axMSComm1.PortOpen == true)
this.axMSComm1.PortOpen = false;
this.axMSComm1.CommPort = 1;//¶Ë¿Ú ×Ö´®2
this.axMSComm1.Settings = "9600,n,8,1";//ͨÐŲÎÊý
&
Ïà¹ØÎĵµ£º
ÓÃCÓïÑÔдµÄÒ»¸ö¼òµ¥µÄ×Ö½ÚÐͲéѯÆ÷£¬Ö÷Òª¹¦ÄÜÊÇʵÏÖ¶Ô signed int float unsigned int double s ......
TIOBEÊÀ½ç±à³ÌÓïÑÔÅÅÐаñÕ¹ÏÖÁ˱à³ÌÓïÑÔµÄÁ÷ÐÐÇ÷ÊÆ¡£Ã¿¸öÔ£¬¶¼ÓÐ×îеÄÊý¾Ý±»¸üС£Õâ·ÝÅÅÐаñµÄÊý¾ÝÈ¡ÑùÀ´Ô´ÓÚ»¥ÁªÍøÉϸ»ÓоÑéµÄ³ÌÐòÔ±¡¢ÉÌ ÒµÓ¦Óá¢ÖøÃûµÄËÑË÷ÒýÇæ£¨ÖîÈç¹È¸è¡¢ MSN ¡¢ÑÅ»¢£©µÄ¹Ø¼ü×ÖÅÅÃû¡¢ Alexa ÉϵÄÅÅÃûµÈ¡£Çë×¢ÒâÕâ¸öÅÅÐаñÖ»ÊÇ·´Ó³ÁËij¸ö±à³ÌÓïÑÔµÄÈÈÃÅ³Ì¶È , Õâ²¢²»´ú±íËüÊÇÒ»¸ö×îºÃµÄ±à³ÌÓïÑÔ»òÊ ......
ΪÁËʵÏÖÁ½¸öÊý×Ö½øÐн»»»£¬ÎÒÃÇͨ³£¿ÉÒÔÀûÓÃλÔËËãÀ´ÊµÏÖ
C++³ÌÐò swap(int a ,int b){a^=b^=a^=b;}
JAVA³ÌÐò swap(int a, int b){ a^=b;b^=a;a^=b; }»òÕß{ b^=(a^=b) ; a^=b;}
Èç¹ûJAVAÓÃC++µÄʵÏÖ·½Ê½Ôò»áµÃµ½ bµÃµ½ÁËaµÄÖµ£¬µ«ÊÇaÏÖÔÚµÄֵȴ² ......
·ÖÀࣺVBѧϰ ×ֺţº ´ó´ó ÖÐÖРСС mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È) ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2) ´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1Öе ......
http://tieba.baidu.com/f?kz=255370663
ËѼ¯µ½Ò»¸ö³ÌÐò
¼¸ºõ¶¼ÓÃËüÀ´Íê³É²É¼¯ÈÎÎñÁË£¡¹±Ï׳öÀ´°¡£¬ºÜ¼òµ¥µÎ
Function strCut(strContent, StrStart, StrEnd) As String 'ͨÓýØÈ¡º¯Êý
Dim strHtml, S1, S2 As String
dim strstart,stren ......