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#ʹÓÃSQLiteÊý¾Ý¿â(asp.net/winform)
2009Äê1ÔÂ7ÈÕ
ÆÀÂÛ
·¢±íÆÀÂÛ
SQLite
ÊÇĿǰ±È½ÏÁ÷ÐеÄÒ»¸ö¿ªÔ´¡¢Ãâ·ÑµÄСÐ͵ÄEmbeddable RDBMS(¹ØÏµÐÍÊý¾Ý¿â)£¬ÓÃCʵÏÖ£¬ÄÚ´æÕ¼ÓýÏС£¬Ö§³Ö¾ø´óÊýµÄSQL92±ê×¼£¬¸ö±ð²»Ö§³ÖµÄÇé¿ö£¬ÔÚÕâÀï
˵Ã÷
¶Ô¸÷ÖÖÓïÑÔµÄÖ§³ÖÒ²±È½Ï²»´í£¬wrapperºÜ¶à¡ ......
ÏÖÔںܶàÈ˶¼ÎÊ C++ºÍJava ÄĸöºÃ. Æäʵ¼¼ÊõÉϸ÷Óи÷µÄºÃ´¦Óë²»×ã,ÎÒÏë´ó¼ÒËù˵µÄºÃ²»ºÃÖ¸µÃÊÇǰ;ºÃ²»ºÃ,׬µÄ¶à²»¶à.
Ҫ˵׬Ǯ×î¶àµÄ¿Ï¶¨ÊÇC++ÁË.ÒòΪһÃż¼ÊõÊÇ·ñֵǮȫ¿´»áËüµÄÈËÓжàÉÙ¶ø²»ÔÚÓÚÕâ¸ö¼¼Êõ±¾ÉíµÄºÃ»µ. C++Éæ¼°Ó²¼þµ×²ãµÄ¶«Î÷±È½Ï¶à,ѧÆðÀ´ºÜ¸´ÔÓ,»áµÄÈËÉÙ,ËùÒÔֵǮ.
&nb ......
ΪÁËʵÏÖÁ½¸öÊý×Ö½øÐн»»»£¬ÎÒÃÇͨ³£¿ÉÒÔÀûÓÃλÔËËãÀ´ÊµÏÖ
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ÏÖÔÚµÄֵȴ² ......
http://tieba.baidu.com/f?kz=255370663
ËѼ¯µ½Ò»¸ö³ÌÐò
¼¸ºõ¶¼ÓÃËüÀ´Íê³É²É¼¯ÈÎÎñÁË£¡¹±Ï׳öÀ´°¡£¬ºÜ¼òµ¥µÎ
Function strCut(strContent, StrStart, StrEnd) As String 'ͨÓýØÈ¡º¯Êý
Dim strHtml, S1, S2 As String
dim strstart,stren ......