讓程式更智慧型 自動選擇功能的實現

2022-03-09 14:14:07 字數 1719 閱讀 6824

windows強大的功能及與使用者友好的互動環境使使用者操作簡單,方便易用。可以說是進出自如。但在要求使用者回答問題時,最典型的例子就是當出現有"確定","取消","是","否"等訊息框時,總要求使用者明確的給出乙個回答,然後程式才繼續下去。但有時在一些特別的環境下(如多使用者共享資源),必須在一定時間內作出回答(否則其他使用者有可能因得不到所需的資源而出現系統死鎖),才能保證系統的正常執行;或者當要求使用者選擇時,系統可以根據預設設定來自動選擇以繼續執行程式。那麼就要讓程式會自動替使用者選擇某乙個回答。可能吾乃一井底之蛙,在如此大的視窗裡從來就沒有見過這類東東。那麼如何實現呢?且繼續看下文。

一、在vfp6.0中的實現

首先建立一空表單,再加入一時間控制,再加三個按鍵,其name屬性都按預設,即:form1,timer1,command1,command2和command3。在屬性視窗中設定屬性:form1.caption = "自動選擇功能演示程式"timer1.interval = 1000 && 1000毫秒,即1秒其次建立各控制的事件:

form1.init事件:

thisform.addproperty("timesetup", 10) &&定義執行自動選擇的時間變數timer1.timer事件:

thisform.command1.caption = "自動選擇" + str(thisform.timesetup) + "秒"thisform.timesetup = thisform.timesetup - 1if thisform.timesetup < 0thisform.command1.click()endifcommand1.click事件:

= messagebox("自動選擇或人工選擇command1")thisform.timesetup = 10

command2.click事件:

= messagebox("人工選擇command2")thisform.timesetup = 10

command3.click事件:

thisform.release()

按ctrl+e執行程式,之後就看你的了。

二、在vb6.0中實現

首先建立乙個標準exe,加入一時間控制,再加三個按鍵,其name屬性都按預設,即:form1,timer1,command1,command2和command3。在屬性視窗中設定屬性:

form1.caption = "自動選擇功能演示程式"timer1.interval = 1000 && 1000毫秒,即1秒

其次建立各控制的事件**:

在**視窗的「通用」中輸入下行private time as integer 注釋:定義執行自動選擇的時間變數

private sub command1_click()msgbox ("自動選擇或人工選擇command1")time = 10end sub

private sub command2_click()msgbox ("人工選擇command2.")time = 10end sub

private sub command3_click()unload meend sub

private sub form_load()time = 10 注釋:預設定10秒end sub

private sub timer1_timer()command1.caption = "自動選擇" & time & "秒"time = time - 1if time < 0 thencommand1_clickend ifend sub

按f5,然後就在一邊樂吧。

思科加強網路可視性,實現更智慧型的自動化

思科基於意圖的網路產品組合增加多項新功能,實現更強大的控制性 安全性和可視性 新聞摘要 通過直觀 自動化的策略輕鬆進行網路分段,並確保網路安全。思科dna中心和思科dna spaces為物聯網終端提供更完整的可視www.cppcns.com性。思科sd wan通過與思科umbrella整合,幫助客戶...

想讓你的Alexa裝置更智慧型?快去買技能!

據外媒報道,亞馬遜近日宣布alexa技能開發人員現在可以在他們的語音應用程式中銷售alexa技能。亞馬遜表示,在美開發人員將能夠利用這一新功能向alexa裝置所有者銷售產品。這樣,alexa裝置所有者即可單獨購買 使用某些技能,然後還可以再購買其他技能,這就像玩遊戲時候的一系列提示,或者遊戲失敗時可...

dede 自動審核功能的實現

好久沒在這裡發文章了,最近的乙個專案是遊戲,耗時一年多,時間飛快,做完case之後,只能自謀生路了,於是作個 吧,遇到的問題不少,把我學到的經驗特別的向大家分享。答案 arcrank 1 代表未審核 0代表審核 ismake 1動態 0未生成 1已生成 如果需要動態的站點,直接修改 修改的檔案在 d...