賓果開獎軟體

因為朋友需要,好像年終尾牙時要用的吧!
需要一個賓果開獎程式,方便用在投影機上開獎。
所以就幫忙寫一個小程式囉~~

開發環境 VS 2005 VB.NET


程式畫面

新增功能,在左邊數字跳動的地方,點兩下,就可以進入設定畫面
可以設定開獎速度,以及開獎號碼的字體大小。

2015/02/24
新增 重新開獎/開啟記錄檔 功能
只要在左邊開獎數字的地方,點滑鼠右鍵,就會跳出下拉選單,
若選擇載入記錄檔,則可以從上次停止的地方,繼續開獎。

若在右方開獎結果的地方點滑鼠兩下,則會將結果重新排序,

若再點兩下,則以開獎順序

下載執行檔
下載程式碼 (GIT)

大腹便便

老婆大人的肚子非常會藏,
直到最近才比較明顯看得出來像個孕婦,
不然坐火車或捷運都難有坐位。

不過,話雖如此,
最近發現很多長得像人的物種,在公共運輸系統上,
遇到老弱婦孺都會自行啟動休眠裝置,進入無我境界,
但是車子一到站,驚醒裝置會自動觸發,
感覺就是一整個神奇。

批次檔輸入參數(Batch File Command-Line Parameter)

因為工作需要,寫了批次檔案,
但為了判斷傳入參數的判斷,一直無法正確使用,
找了一些文章終於發現問題所在。
參考文章

判斷 User 是否有加入參數
IF NOT (%1)==() (echo 若有輸入,在這裡加入動作...)
重點就是在判斷式中加入 "()" ,否則沒有輸入參數時會有錯誤
不能寫成這樣 ==>  IF  %1== "" echo會發生錯誤


另外,因為我要確認是否 User 輸入的是 /step 所以寫法如下
IF NOT (%1)==() if (%1) == (/step) (echo 確定輸入的參數為/step) else (echo 輸入參數不是/step)

另外,為了取出日期時間並建立資料夾,所以要另外格式化日期時間變數,
寫法如下:
@For /f "tokens=1-3 delims=/ " %%a in ('date /t') do (set myDate=%%a-%%b-%%c)
@For /f "tokens=2-3 delims=: " %%a in ('time /t') do (set myTime=%%a-%%b)
@echo 目前日期 : %myDate% 目前時間 : %myTime%
@echo:

這裡的 "@echo:" 表示換行,這也是花了點時間才找到的換行寫法。

最後,因為 XP 本身預設沒有 CHOICE 指令,
所以無法用它等待使用者輸入資料
最後只好用 /p 的方式達成目的

set /p UserInput=請輸入資料 :

這行程式會秀出 請輸入資料 : 並且等待使用者輸入並按下 [Enter]
然後會把輸入的值放入 UserInput 的變數中。