再次利用VB繼續(xù)改良極域電子教室

趙睿

摘要：筆者在上次繼續(xù)解決了機(jī)房收作業(yè)的一些缺陷后，經(jīng)過(guò)一段時(shí)間試用，發(fā)現(xiàn)還是可以繼續(xù)完善，遂開(kāi)動(dòng)腦筋加以修改。

關(guān)鍵詞：VB；注冊(cè)表

中圖分類(lèi)號(hào)：G250.7；TP311.52 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1672-9129（2017）12-0020-02

Abstract： after the author continued to solve some defects in the machine room collection operation last time， after a period of trial， he found that he could continue to improve， so he began to use his mind to modify it.

Key words： VB； registry

這次的問(wèn)題出現(xiàn)在持續(xù)使用上，原來(lái)做的程序在啟動(dòng)時(shí)可以通過(guò)判斷時(shí)間來(lái)確定課程，然后做好相關(guān)設(shè)置即可，可是，如果出現(xiàn)了連排的課程，比如12節(jié)是A課，34節(jié)是B課，當(dāng)A課結(jié)束后，B課的老師接著上課，中途沒(méi)有退出軟件，這樣會(huì)導(dǎo)致B課的作業(yè)收集在A課的文件夾下，所以，本次的修改主要是從這里著手。

1 修改思路

設(shè)計(jì)思路如下：利用timer控件，并設(shè)置時(shí)間節(jié)點(diǎn)。利用timer控件實(shí)時(shí)監(jiān)控當(dāng)前時(shí)間，如果發(fā)現(xiàn)時(shí)間到了對(duì)應(yīng)的節(jié)點(diǎn)，做出判斷，根據(jù)判斷關(guān)閉極域電子教室，重新設(shè)置參數(shù)，然后重啟極域電子教室。

2 完成方法

2.1 設(shè)置時(shí)間節(jié)點(diǎn)

根據(jù)學(xué)校上課的時(shí)間，我可以估算出時(shí)間節(jié)點(diǎn)，一般來(lái)說(shuō)，在第12節(jié)和第34節(jié)之間需要切換課程，我可以把時(shí)間節(jié)點(diǎn)設(shè)置為9點(diǎn)到11點(diǎn)之間，因?yàn)橐话銇?lái)說(shuō)10點(diǎn)左右會(huì)下第二節(jié)課的。下午和晚上的時(shí)間節(jié)點(diǎn)也是以此類(lèi)推，分別設(shè)置到14點(diǎn)到16點(diǎn)之間以及18點(diǎn)到20點(diǎn)之間即可。

2.2 在程序啟動(dòng)時(shí)加入下面代碼：

sj = Hour（Time）

這個(gè)sj變量需要定義成全局變量，因?yàn)槲覍⒂盟鼇?lái)記錄上次課程的時(shí)間節(jié)點(diǎn)，在后面會(huì)用到這個(gè)變量

2.3 增加timer控件，設(shè)置屬性如下：

Interval設(shè)置為5000，意思為每過(guò)5秒，執(zhí)行一次timer控件代碼

2.4 為timer控件加入代碼，代碼如下：

Dim a

Dim b

Dim s As String

a = Hour（Time）

b = Minute（Time）

If （sj >= 7 And sj <= 9） And （a >= 9 And a <= 11） Then

Shell "cmd.exe /c taskkill /F /IM TeacherMain.exe"

sj = Hour（Time）

zidong

qd

ElseIf （sj >= 9 And sj <= 11） And （a >= 14 And a <= 16） Then

Shell "cmd.exe /c taskkill /F /IM TeacherMain.exe"

sj = Hour（Time）

zidong

qd

ElseIf （sj >= 14 And sj <= 16） And （a >= 18 And a <= 20） Then

Shell "cmd.exe /c taskkill /F /IM TeacherMain.exe"

sj = Hour（Time）

zidong

qd

End If

代碼的意思是，每過(guò)5秒，檢測(cè)一下當(dāng)前是多少時(shí)間了，如果當(dāng)前時(shí)間是10點(diǎn)，而sj記錄的時(shí)間節(jié)點(diǎn)是8點(diǎn)，則說(shuō)明已經(jīng)到了換課的時(shí)間了，這個(gè)時(shí)候用taskkill命令把極域電子教室給關(guān)掉，重新用sj記錄當(dāng)前時(shí)間節(jié)點(diǎn)，然后設(shè)置好極域電子教室的參數(shù)，重新啟動(dòng)電子教室，這樣，就完成了課程更換時(shí)收集作業(yè)文件夾的更改。

2.5 繼續(xù)完善代碼：

上面的代碼可以實(shí)現(xiàn)更換課程的要求，但是，由于時(shí)間跨度太大，可能出現(xiàn)換課不夠精確的地方，比如說(shuō)時(shí)間剛到9點(diǎn)，還在上第2節(jié)課，就更換成第三節(jié)課的作業(yè)收集了。所以，我需要把代碼完善一下，讓其更加準(zhǔn)確，我更改了從12節(jié)課到34節(jié)課的代碼，更改的代碼如下：

If （sj >= 7 And sj <= 9） And （a >= 9 And a <= 11） Then

If （a = 10 And b >= 20） Then

Shell "cmd.exe /c taskkill /F /IM TeacherMain.exe"

sj = Hour（Time）

zidong

qd

End If ………………

因?yàn)榈谌?jié)課的上課時(shí)間是10點(diǎn)20，所以，我利用a、b兩個(gè)變量做了更加精確的判斷，避免了上面所說(shuō)的問(wèn)題。

這個(gè)時(shí)候會(huì)有人問(wèn)了，為什么后面的代碼不需要更改呢？因?yàn)槲覀兩险n的時(shí)候只有12節(jié)課和34節(jié)課是連在一起的，56節(jié)和34節(jié)隔了一個(gè)中午，晚自習(xí)和56節(jié)也隔了幾個(gè)小時(shí)，所以不會(huì)出現(xiàn)還在上第四節(jié)課或第六節(jié)課時(shí)就把作業(yè)收集文件夾換掉的情況。

3 后記與體會(huì)：

這次的程序?qū)懲旰?，?jīng)過(guò)一段時(shí)間的測(cè)試，終于再次得到了老師們和學(xué)生們的好評(píng)，提高了教學(xué)效率，經(jīng)過(guò)對(duì)程序的反復(fù)修改，個(gè)人更加明白了做程序開(kāi)發(fā)時(shí)反復(fù)測(cè)試的重要性，這么一個(gè)小小的程序都經(jīng)過(guò)了很多次的修改，那些大的項(xiàng)目開(kāi)發(fā)更是如此了。

參考文獻(xiàn)：

[1]周慶貴.基于VB編程環(huán)境數(shù)據(jù)采集系統(tǒng)的設(shè)計(jì)[J].測(cè)控技術(shù)，2008（04）： 62-64.

[2]秦樂(lè)樂(lè)，蔣佳，崔連生.基于VB的學(xué)生信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)[J].河北工業(yè)科技，2006（04）：206-209.

[3]胡智文，鄧鐵如，余增亮，陳連運(yùn).在VB應(yīng)用程序中集成MATLAB[J].計(jì)算機(jī)工程與應(yīng)用，2003（07）：104-106.