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

Çë½Ì£ºÔõôÓÃVBʵÏÖ¼ÆʱÆ÷µÄÀÛ¼Ó - VB / »ù´¡Àà

ÎÒÒѾ­ÓÃtimer¿Ø¼þ×öºÃÁËÒ»¸öÃë±í¹¦ÄÜ£¬ÓÃÀ´ÏÔʾ»úÆ÷Õâ´ÎµÄ¹¤×÷ʱ¼ä£¬ÔõôÄÜÔÙÓÃÒ»¸ö±êÇ©ÏÔʾ»úÆ÷×ܹ²¹¤×÷µÄʱ¼äÄØ£¿
±ÈÈ磬µÚÒ»´Î¹¤×÷1Сʱ10·Ö20Ã룬µÚ¶þ´Î¹¤×÷2Сʱ10·Ö20Ã룬ÄÇôÀÛ»ý¹¤×÷ʱ¼ä¾ÍÊÇ3Сʱ20·Ö40Ã룬²¢ÇÒÕâ¸öÀÛ»ýµÄÖµ²»»á¶ªÊ§µÄ¡£
ллÁË£¬Çë´óÏÀÃÇ°ï棡
1 ÓñíÖÐн¨¸öÀ¸Î»total_runtime¼Ç¼
ÿµ±¹Ø±Õ³ÌÐòµÄʱºò¸üÐÂtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä
2 ¼Ç¼ÔÚiniÎļþÖÐн¨¸ö²ÎÊýtotal_runtime
ÿµ±¹Ø±Õ³ÌÐòµÄʱºò»ØдiniÎļþÖеÄtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä


ÒýÓÃ
1 ÓñíÖÐн¨¸öÀ¸Î»total_runtime¼Ç¼
ÿµ±¹Ø±Õ³ÌÐòµÄʱºò¸üÐÂtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä
2 ¼Ç¼ÔÚiniÎļþÖÐн¨¸ö²ÎÊýtotal_runtime
ÿµ±¹Ø±Õ³ÌÐòµÄʱºò»ØдiniÎļþÖеÄtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä


ÄÇÔÚÀÛ¼Ó֮ǰ£¬ÎÒÔõôȡ³ö±¾´ÎÔËÐеÄʱ¼äÄØ£¿
¸Ð¼¤£¡£¡

ÒýÓÃ

ÄÇÔÚÀÛ¼Ó֮ǰ£¬ÎÒÔõôȡ³ö±¾´ÎÔËÐеÄʱ¼äÄØ£¿


ÓÃÕâ¸öʱ¼ä

ÒýÓÃ
ÎÒÒѾ­ÓÃtimer¿Ø¼þ×öºÃÁËÒ»¸öÃë±í¹¦ÄÜ£¬ÓÃÀ´ÏÔʾ»úÆ÷Õâ´ÎµÄ¹¤×÷ʱ¼ä


Private Sub Timer1_Timer()
   
  s = s + 1
  If s > 59 Then
  m = m + 1
  s = 0
  If m > 59 Then
  h = h + 1
  m = 0
   
  End If
 


Ïà¹ØÎÊ´ð£º

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æΪxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇʲôÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊÇ°Ñh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

ÇóÖú£ºC´úÂëchange toVB´úÂë - VB / »ù´¡Àà

ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó­¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄÜ°Ñ´úÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ