1樓:蔡瑀
public declare function gettickcount lib "kernel32" () as long
public function wait(optional byval times = 0)
wait = gettickcount + times
dodoevents
if gettickcount >= wait then exit function
loop
end function
'以上儲存到模組中
'以下直接複製到窗體中
dim enable as boolean
private sub command1_click()
if command1.caption = "開始" then command1.caption = "停止":
enable = true else command1.caption = "開始": enable = false
end sub
private sub form_load()
show
enable = false
command1.caption = "開始"
x = 11
do while x <> 0
doevents
if enable = true then x = x - 1: print x: wait 1000
loop
end sub
private sub form_unload(cancel as integer)
endend sub
'只是個例子,具體的自己研究吧
2樓:匿名使用者
我寫了一個vb介面軟體,延時程式不知為何直走一次。無論設定多少秒,直接用這個函式,然後把所有call delay_timer都改成call delay(num) public sub,
關於C Winform 利用Label控制元件顯示資料表資料的
datatable dt new datatable 你的資料datatable label1.text for int columnindex 0 columnindex dt.columns.count columnindex label1.text dt.columns columnindex...
關於延時攝影功能的問題,延時的倍數可以調嗎
相機一般設定為快門優先模式。快門速度是調慢。就是對應的值變大,一般相機最大快門時間是4秒,好些的相機,還有60秒,甚至單反之類有b門,可以超長時間 的引數,一般由,焦距,光圈,快門,iso等組成,在焦距一定的情況下,的 引數主要由後者三個決定。比如一般白天上午或者下午,室外街道引數一般是快門1 12...
關於verilog硬體實現延時的問題,急求高手解答
使用計數器 首先要知道晶片晶振是多少。在這裡我假如是 30m 如果要延時0.3秒,則應該用0.3 30000000 9 000 000 例如b延時0.3秒等於a reg 23 0 count always posedge clk begin if count 24 d9 000 000 count ...