關於VB timer控制元件延時做倒計時程式

2022-02-18 04:45:20 字數 987 閱讀 2525

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 ...