Transcript 下載/瀏覽
期末作業 車輛一甲 4A115077 作者:陳柏宇 指導老師:謝慶存 南台Goomo店結帳系統 製作一個飲料店的結帳系統 飲料電的店員通常手是濕的所以感覺用觸控會比叫 好，所以輸入都適用大顆的案件 解題分析 把飲料分成飲料糖冰這些然後一頁一頁的去做 程式實作方法 結帳按鈕 要能夠記算全部的金額 並且連折扣都算 進去 美選完一種就要換下一頁 清空按鈕要能夠把剛剛輸入的資料清空掉 優惠選像只能選一個 然後改變優惠變數值 程式碼 Public Class Form1 Dim price, discount As Single Dim bu(35), chak1, chak2 As Boolean Dim buS(35), lis As String Dim s, cost(12), cost2(9), price1, mach As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load chak1 = False chak2 = False cost(1) = 20 '綠茶 End Sub 做變數宣告和價錢商品的初始化 程式碼 Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated Dim i As Integer Dim w As String For i = 1 To 35 Select Case i Case 1 : w = Button1.Text End Select buS(i) = w Next 一開始執行把商品名稱抓下來 程式碼 副程式 b1 做右邊的資訊處理 Sub b1(ByVal a As Integer) Dim i As Integer Select Case a Case 1 To 12 For i = 1 To 12 If i = a Then bu(i) = True Label1.Text = "飲料:" & buS(i) Else bu(i) = False End If Next 程式碼 Sub bu1() GroupBox1.Visible = True GroupBox2.Visible = False GroupBox3.Visible = False GroupBox4.Visible = False GroupBox1.Location = New System.Drawing.Point(12, 12) GroupBox2.Location = New System.Drawing.Point(787, 229) GroupBox3.Location = New System.Drawing.Point(787, 229) GroupBox4.Location = New System.Drawing.Point(787, 229) End Sub 換頁程式 程式碼 Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click Select Case True Case RadioButton1.Checked discount = 1 Case RadioButton2.Checked discount = 0.9 Case RadioButton3.Checked discount = 0.8 Case RadioButton4.Checked discount = 0.5 Case RadioButton5.Checked discount = 0 Case Else discount = 1 End Select Label6.Text = Fix(price * discount) 優惠選擇 End Sub 程式碼 Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click ListBox1.Items.Clear() 清除 End Sub 心得感想 這次做這個是因為現在的飲料店好像都是用觸控的 在做買賣，所以我也想說做一個看看，看起來很簡 單，其實每個按鈕都要設定，還真是麻煩；雖然花 的時間有點久(腦細胞也不知道死了多少個)、雖然 其中也有卡住不知道怎麼做，但是這過程我學到了 很多。 參考範例 Visual Basic 2008 教學範本 古頤蓁著 Visual Basic 2008 程式設計樂活學 鄧文淵著 Visual Basic 2010 程式設計 許華清著 https://www.google.com/