[ 餐 旅 行 銷 管 理 報 告 ] 餐旅四乙 495m0090 王雅虹 495m0106 黃家慶 495m0097 郭書吟 495m0088 連玳喻
南台科技大學 機械工程系 奈米一乙 學號 :4A214025 老師 : 謝慶存
description
Transcript of 南台科技大學 機械工程系 奈米一乙 學號 :4A214025 老師 : 謝慶存
南台科技大學機械工程系奈米一乙
學號 :4A214025老師 : 謝慶存
計算機程式及實習計算機程式及實習期末報告期末報告 pptppt 製作製作
題目 :簡易車票系統簡易車票系統
使用 MsgBox(),Button,if elseif 語法 ,rdb 控制鍵
先選擇票種在選擇出發地 , 假設沒有先選擇票種而先選出發地 , 則會出現MsgBox
GroupBox1
Label1ltbTick
GroupBox2 , GroupBox3
rdbNormalrdbOld
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
宣告變數, Form1_Activated 事件
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
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
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
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
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
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
先選擇普通票種,再選擇出發地假設選擇淡水
當按下鳳山時,目的地選項就不會有淡水,再按下竹圍
票價顯示 40 ,再點軍優票種
票價顯示 40 ,再點軍優票種重複以上動作,點竹圍會顯示優惠價 36 元
按下紅樹林時,目的地不會出現紅樹林會自己改為淡水與竹圍
按下竹圍時,目的地不會出現竹圍會自己改為淡水與紅樹林
出出發發目的目的
淡水淡水 紅樹林紅樹林 竹圍竹圍
淡水淡水 2020 4040
紅樹林紅樹林 2020 2020
竹圍竹圍 4040 2020
當票種選軍優時,票價會自己打九折
這學期的計算機概論即將接近尾聲了,這次的計概課也讓我學到很多東西,讓我印象最深刻的就是利用 Visual Basic 軟體製作可以快速幫忙算錢的程式,原來生意人在用的程式可以這麼簡單的做出來,現在我已經慢慢學會如製作簡單的小遊戲,這算是計蓋最大的收穫。
Visual Basic 2010 程式設計作者陳會安