Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB Timer¿Ø¼þ

ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ

ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä

ÓÃNow獲µÃ電腦ϵ統時間(Date&Time)

°´ÕÕÂ¥Ö÷µÄ˵·¨£¬ÎÞ·¨»ñµÃ׼ȷµÄʱ¼ä£¬ÒòΪֻÓÐÏà¶Ô£¬Ã»Óоø¶Ô¡£
ʹÓÃNowº¯Êý¿ÉÒÔ»ñµÃÄãµÄ¼ÆËã»úµÄµ±Ç°Ê±¼ä¡£

http://www.nokiamobile.org.cn/post/1287444.html

Private Sub Command1_Click()
Winsock1.Connect "stdtime.gov.hk", 13
End Sub

Private Sub Winsock1_Close()
Text1.Text = Text1.Text & vbCrLf & "¹Ø±ÕÁ¬½Ó"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim tmpstr    As String    '13¶Ë¿Ú·µ»ØµÄÊÇ×Ö·û´®Êý¾ÝÀàÐÍ£¡£¡£¡
      Winsock1.GetData tmpstr
      Text1.Text = tmpstr
      Winsock1.Close '´ó¼Ò°ïÎÒ¿´¿´ÕâÌõÓï¾äÓбØÒªÂð£¿
End Sub



ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä


Timer¿Ø¼þ£¨¶¨Ê±Æ÷£©Ö÷Òª²»ÊÇÓÃÀ´»ñµÃµ±Ç°Ê±¼äµÄ£


Ïà¹ØÎÊ´ð£º

VBÓëLINUXÏÂÊý¾Ý¿âÁ¬½ÓµÄÎÊÌâ

¸÷λ´óÏÀ£¬ÏÖÓÐÒ»ÄÑÌâÇó½Ì£º¼ÙÉèÊý¾Ý¿â£¨mysql»òoracle¡­¡­µÈÊý¾Ý¿â£©°²×°ÔÚLINUXϵͳµÄ·þÎñÆ÷ÉÏ£¬ÎÒÔÚ¿Í»§¶Ë£¨windowsϵͳ£©Óà VBÈçºÎ½¨Á¢ÓëÊý¾Ý¿âµÄÁ¬½Ó£¬ÊÇ·ñ¿ÉÒÔʹÓÃÀàËÆADO»òDAOµ±ÖеÄÁ¬½ÓÓï¾ä£¿ÇëÄÄλ´óÏÀÖ¸µ¼ ......

vbÖ´ÐÐaccess sqlÓï¾ä¹ÖÎÊÌâ

SELECT Count(*) from In_fo WHERE Reader_Time between #" + time1 + "# AND #" + time2 + "# and id=" + userid + ";

ÉÏÃæÊÇÎÒдµÄsqlÓï¾ä Reader_TimeÊÇʱ¼äÀàÐÍ idΪÊý×Ö ......

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

VB Îı¾¿ò

×Ö·û´® m1="E"
×Ö·û´® m2="F"

Èç¹ûtext1.text=m1+m2µÄ»°  Ôòtext1ÏÔʾµÄÊÇ EF

µ«ÊÇÈç¹û
×Ö·û´® m1="E"
×Ö·û´® m2="6"
Èç¹ûtext1.text=m1+m ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ