Microsoft Word - 洨論文報告.doc

Size: px

Start display at page:

Download "Microsoft Word - 洨論文報告.doc"

沁焦
5 years ago
Views:

1 篇名 : 作者 : 陳星宇高雄高工資訊 3 甲 1/9

2 壹前言打從國小完天堂的時候, 每一個小時都要準時去吃王, 早上十一點準時維修到十二點, 當然時間要抓的準, 因為維修這一小時說不定跑去吃個泡麵, 去看個報紙, 看我最愛的檸檬汽水小叮噹蠟筆小新涼宮春日夏那, 大不了在去大個便一個小時就到了, 但是沒有注意到, 這就有可能就錯失十二點準時上線廝殺的快感, 提早在電腦前面 stand by 在電腦面前, 又閒著沒事發荒, 大便到一半, 好似時間快到了又沒把握, 就硬著肚皮, 還是硬衝到電腦面前, 才發現原來還有五分鐘, 這種種的種種 example 都顯示著一個定時通知是很需要的, 於是人類發明了鬧鐘這個東西, 鬧鐘即是當使用者設定了時間, 當開關開啟狀態時, 時間一到即可觸發鈴聲作響, 但是身為一個專業的玩家, 我們只希望有一個可以在 windows 下執行的簡單倒數計時器, 可以讓我們掌握到還剩幾分幾秒是否到時等, 於是今天有緣碰到了程式設計這門課, 雖然學的不多, 也不知道有沒學到些技巧, 不過沒關西, 小時候我夢想的倒數計時器來啦貳正文一倒數計時器該如何製作呢? 使用 VB2005 二需要用到哪些物件呢? 1.ProgressBar 進度顯示器, 可讓使用者大約知道已經過時間與計時比例的物件 2.Timer 用來做每秒觸發的物件 3.Button 做按鈕觸發的物件 4.Label 顯示時間的物件 5.Combobox 可讓使用者選擇計時時間的物件 6.Picturebox 用來顯示圖片的物件 7.Stopwatch 用來計時時間的物件 2/9

3 三計時器的演算法開始選擇計時時間選擇開始鈕計算總計數秒數與顯示剩餘時間按下繼續判斷是否到達時間閃爍圖片並發出通知聲結束 3/9

4 圖 A: 演算法四程式實作 1 操作畫面圖 B: 操作過程 - 開始 2 操作過程圖 C: 操作過程 - 中途 4/9

5 圖 D: 操作過程 - 結束閃爍 1 圖 E: 操作過程 - 結束閃爍 2 五程式碼語解 Public Class Form1 Private times As Integer ' 計算共計數多少秒 Dim stopwatch As New Stopwatch Private Sub Form1_Load(ByVal sender As Object, ByVal e As 5/9

6 System.EventArgs) Handles Me.Load Timer1.Interval = 300 Timer2.Interval = 1000 PictureBox1.Visible = False gozero.enabled = False gostart.enabled = False cancel.enabled = False For i As Integer = 0 To 23 ' 新增小時選項 hcom.items.add(i) Next For i As Integer = 0 To 59 ' 新增分鐘選項 mcom.items.add(i) Next For i As Integer = 1 To 59 ' 新增秒數選項 scom.items.add(i) Next hcom.selecteditem = 0 ' 預設選項 mcom.selecteditem = 0 ' 預設選項 scom.selecteditem = 1 ' 預設選項 Me.Text = Now & " 計時計 ( 陳星宇 )" Timer3.Interval = 500 Timer3.Enabled = True Private Sub gobut_click(byval sender As Object, ByVal e As System.EventArgs) Handles gobut.click ' 開始鈕觸發 Timer1.Enabled = True stopwatch.start() times = hcom.selecteditem * mcom.selecteditem * 60 + scom.selecteditem Debug.WriteLine(times) hcom.enabled = False mcom.enabled = False scom.enabled = False gobut.enabled = False cancel.enabled = True gozero.enabled = True 6/9

7 Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim lasttime As Integer ' 剩餘秒數 Dim hour As Integer, mim As Integer, sec As Integer ' 剩餘時分秒 lasttime = times - stopwatch.elapsedmilliseconds \ 1000 hour = lasttime \ 3600 mim = (lasttime Mod 3600) \ 60 sec = lasttime Mod 60 Debug.WriteLine(lasttime) 100 If lasttime = 0 Then timelab.text = " 計時結束 " stopwatch.reset() Timer1.Enabled = False Timer2.Enabled = True ProgressBar1.Value = 100 cancel.enabled = False gozero.enabled = False gostart.enabled = False Else timelab.text = hour & " 時 " & mim & " 分 " & sec & " 秒 " ProgressBar1.Value = stopwatch.elapsedmilliseconds / 1000 / times * End If Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick If PictureBox1.Visible = False Then ' 時間到觸發圖片閃爍 PictureBox1.Visible = True Else PictureBox1.Visible = False End If My.Computer.Audio.Play("C:\WINDOWS\Media\Windows XP 叮咚.wav") 7/9

8 Private Sub cancel_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles cancel.click Timer1.Enabled = False stopwatch.stop() gostart.enabled = True gozero.enabled = True Private Sub gozero_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles gozero.click Timer1.Enabled = False stopwatch.reset() timelab.text = "" ProgressBar1.Value = 0 hcom.enabled = True mcom.enabled = True scom.enabled = True gobut.enabled = True cancel.enabled = False gozero.enabled = False Private Sub gostart_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles gostart.click Timer1.Enabled = True stopwatch.start() Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click ' 時間到點選圖片停止計數完畢通知 Timer2.Enabled = False gobut.enabled = True cancel.enabled = False 8/9

9 gozero.enabled = False gostart.enabled = False ProgressBar1.Value = 0 hcom.enabled = True mcom.enabled = True scom.enabled = True times = 0 PictureBox1.Visible = False timelab.text = "00 時分秒 " Private Sub Timer3_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer3.Tick Me.Text = Now & "( 陳星宇 )" End Class 參結論程式設計這學問真的還挺不好學的, 老實說當我亦然決然要自己做小時候夢想計時器的時候, 從版面排列, 看是要讓使用者怎選擇或輸入要計時的時間這都讓我傷很多腦筋, 使用者是一個很頑皮的家貨, 假如要他輸入數字, 那你可千萬別指望他會乖乖的輸入數字, 倒數計時的時間因該如何求得, 想了半天才想到可以用碼錶紀錄以過時間然後用該計數時間去扣求得剩下的時間, 再來按鈕部份也是個問題, 當初做習題的時候老師是採用隱藏的方式, 但是這次多了幾顆按鈕所以會造成隱藏或顯示的時候造成排列沒那麼好看, 就採用了是否啟用囉, 求得剩餘時分秒也是個很麻煩的問題, 學會了程式設計後, 平日在操作小程式遇到不好用不實用地時候, 也不會像不懂設計程式前那樣破口大罵這程式怎麼這麼爛, 反而會去想看看這程式到底是怎麼寫出來, 採用什麼方法觸發畫面還有是否有些方便使用者的小地方, 當然這東西還是平日就要用頭腦去思考的, 平日就因該去練習, 不要說這是 VBasic 沒有研究的意義, 現今流行都是 C++ & JAVE, 所有程式碼到最後都是要轉成機械碼, 所以我們該研究的是如何去寫好一個程式, 去精進我們寫程式的功利技巧, 雖然這門課在高職不算是個考科, 雖然這東西不怎討人喜歡, 雖然這東西讓我挫折很多, 但是我還是對這東西挺有興趣的說, 做這個報告讓我去完成自己小時候的計時器也讓我不知不覺學了很多, 我圓夢囉肆引註資料 9/9

Visual Basic D 3D

Visual Basic D 3D Visual Basic 2008 2D 3D 6-1 6-1 - 6-2 - 06 6-2 STEP 1 5-2 (1) STEP 2 5-3 (2) - 6-3 - Visual Basic 2008 2D 3D STEP 3 User1 6-4 (3) STEP 4 User1 6-5 (4) - 6-4 - 06 STEP 5 6-6 (5) 6-3 6-3-1 (LoginForm) PictureBox1