南台科技大學 機械工程系 奈米一乙 學號 :4A214025 老師 : 謝慶存

1. 計算機程式及實習 期末報告ppt製作 題目:簡易車票系統 南台科技大學 機械工程系 奈米一乙 學號:4A214025 老師:謝慶存

2. 題目說明:主題說明與背景 • 使用MsgBox(),Button,if elseif語法,rdb控制鍵

3. 題目說明:主題說明與背景 先選擇票種在選擇出發地,假設沒有先選擇票種而先選出發地,則會出現MsgBox

4. 表單設計 GroupBox2，GroupBox3 GroupBox1 Label1 ltbTick rdbNormalrdbOld

5. 宣告變數，Form1_Activated事件 • Public Class Form1 • Dim tick As Integer : Dim A As Boolean : Dim B As Boolean : Dim C As Boolean : Dim X As Boolean • Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated • btnA.Text = “淡水" • btnB.Text = “紅樹林" • btnC.Text = "竹圍" • GroupBox2.Visible = False • ltbTick.Text = "" • End Sub

6. btnA_Click事件 • Private Sub btnA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnA.Click • If X = False Then • MsgBox(“請先選擇票種”, MsgBoxStyle.DefaultButton1, “錯誤") • Else • GroupBox2.Visible = True • btnX.Text = “紅樹林" • btnY.Text = “竹圍" • A = True • End If • Label1.Text = “票價：" : ltbTick.Text = "" • End Sub

7. btnB_Click事件 • Private Sub btnB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnB.Click • If X = False Then • MsgBox(“請先選擇票種”, MsgBoxStyle.DefaultButton1, “錯誤") • Else • GroupBox2.Visible = True • btnX.Text = “淡水" • btnY.Text = “竹圍" • B = True • End If • Label1.Text = “票價：" : ltbTick.Text = "" • End Sub

8. btnC_Click事件 • Private Sub btnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnC.Click • If X = False Then • MsgBox("請先選擇票種", MsgBoxStyle.DefaultButton1, "錯誤") • Else • GroupBox2.Visible = True • btnX.Text = "淡水" • btnY.Text = "紅樹林" • C = True • End If • Label1.Text = "票價：" : ltbTick.Text = "" • End Sub

9. btnX_Click事件 • Private Sub btnX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnX.Click • If A = True Then • tick = 20 : ltbTick.Text = tick • End If • If B = True Then • tick = 20 : ltbTick.Text = tick • End If • If C = True Then • tick = 30 : ltbTick.Text = tick • End If • If rdbOld.Checked = True Then • Label1.Text = "優惠價：" : ltbTick.Text = tick * 0.9 • End If • If rdbNormal.Checked = True Then • Label1.Text = "票價：" : ltbTick.Text = tick • End If • End Sub

10. btnY_Click事件 • Private Sub btnY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnY.Click • If A = True Then • tick = 40 : ltbTick.Text = tick • End If • If B = True Then • tick = 20 : ltbTick.Text = tick • End If • If C = True Then • tick = 20 : ltbTick.Text = tick • End If • If rdbOld.Checked = True Then • Label1.Text = "優惠價：" : ltbTick.Text = tick * 0.9 • End If • If rdbNormal.Checked = True Then • Label1.Text = "票價：" : ltbTick.Text = tick • End If • End Sub

11. rdbNormal_CheckedChangedrdbOld_CheckedChanged • Private Sub rdbNormal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbNormal.CheckedChanged • X = True : Label1.Text = “票價：" : ltbTick.Text = "" • End Sub • Private Sub rdbOld_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbOld.CheckedChanged • X = True : Label1.Text = "優惠價：" : ltbTick.Text = "" • End Sub • End Class

12. 程式開始畫面 先選擇普通票種，再選擇出發地假設選擇淡水

13. 程式畫面 • 當按下鳳山時，目的地選項就不會有淡水，再按下竹圍

14. 程式畫面 票價顯示40，再點軍優票種

15. 程式畫面 票價顯示40，再點軍優票種重複以上動作，點竹圍會顯示優惠價36元

16. 程式畫面 按下紅樹林時，目的地不會出現紅樹林會自己改為淡水與竹圍

17. 程式畫面 按下竹圍時，目的地不會出現竹圍會自己改為淡水與紅樹林

18. 票價內容 當票種選軍優時，票價會自己打九折

19. 心得感言 這學期的計算機概論即將接近尾聲了，這次的計概課也讓我學到很多東西，讓我印象最深刻的就是利用Visual Basic軟體製作可以快速幫忙算錢的程式，原來生意人在用的程式可以這麼簡單的做出來，現在我已經慢慢學會如製作簡單的小遊戲，這算是計蓋最大的收穫。

20. 參考文獻 • Visual Basic 2010程式設計 作者陳會安