VB text
timer1_timer()
col = 0
For i = 0 To 300
If Y(i) > max1 Then
max1 = Y(i)
col = col + 1
timecount(col) = i
End If
Text1.text = timecount(col)
end sub
timer2_timer()
col = 0
For i = 0 To 300
If Y1(i) > max1 Then
max1 = Y1(i)
col = col + 1
timecount1(col) = i
End If
Text2.text = timecount1(col)
end sub
ÇëÎÊÔõôÇóText1.text ºÍText2.text µÄÖµµ½Text3.text £¬¼´Text3.text = Abs(time(col) - time1(col))
ÎÒÊÔ¹ý·ÅÔÚtimer1»òÕßtimer2϶¼²»ÐС£Çë´ó¼Ò°ï°ï棬¼±¼±¼±£¬×îºÃ¸½ÉÏÔ´Âë
1¡¢lzдµÄÌ«ÂÒ£¬ÎÄ×ÖÃèÊö²¿·ÖºÍÉÏÃæ´úÂ벿·Ö²»Ò»Ö£»
2¡¢text3½á¹ûµÄ¼ÆËã·Åµ½text1ºÍtext2¿Ø¼þµÄchangeʼþÖС£
²»ºÃÒâ˼£¬ÎÒnextÍü¼Ç´òÉÏÈ¥ÁË
{{
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......