Transcript 下載/瀏覽Download

南台科技大學
機械工程系
車輛一甲
林美云 4A415024
使用Visual Basic 2010
來寫出一個飲料店的結帳系
統。
身分有分會員和一般，兩者
能選的料不同，價格也不同。
<<優待>>
會員打九折
學生打八折
消費超過500打75折
點選百香多多，按「結帳」按鈕後，得到結帳資料
選取對應的打折優惠，
如圖選取會員優惠方
案，則總金額打九折。
更改身分選項，並選取
500元以上打七五折的優
惠方案。
Label1
Label2
Label3
ListBox1
Checkedlistbox1
Combobox1
Groupbox1
Label 4
Radiobutton1
Radiobutton2
Radiobutton3
Button1
Public Class Form1
Dim main(,) As Object = {{"冬瓜鮮奶", 50}, {"芋頭奶綠", 45}, {"百香多多", 40}}
Dim add(,) As Object = {{"珍珠", 10}, {"布丁", 10}, {"仙草", 5}, {"蒟蒻", 5}}
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
cboKind.Items.Add("會員")
cboKind.Items.Add("一般")
cboKind.SelectedIndex = 1
For i = 0 To UBound(main, 1)
lstMain.Items.Add(main(i, 0) & main(i, 1) & "元")
Next
lstMain.SelectedIndex = 2
lblSum.Text = "合計 = "
End Sub
Private Sub cboKind_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
cboKind.SelectedIndexChanged
clbAdd.Items.Clear()
If cboKind.SelectedIndex = 0 Then
For i = 0 To 3
clbAdd.Items.Add(add(i, 0) & add(i, 1) & "元", True)
Next
Else
For i = 0 To 1
clbAdd.Items.Add(add(i, 0) & add(i, 1) & "元", True)
Next
End If
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Dim sum As Integer
sum = main(lstMain.SelectedIndex, 1)
If cboKind.SelectedIndex = 1 Then sum += 50
For i = 0 To clbAdd.Items.Count - 1
If RadioButton1.Checked = True Then sum = sum * 0.9
If RadioButton2.Checked = True Then sum = sum * 0.8
If RadioButton3.Checked = True Then sum = sum * 0.75
If clbAdd.GetItemChecked(i) = True Then sum += add(i, 1)
Next
lblSum.Text = "合計 = " & sum & " 元"
End Sub
End Class
VB這個看似很複雜，操作起來卻很有趣，讓我清
楚一個程式的運作，背後卻隱藏著一大串的程式
碼，喔~我的天啊!!!!!真是太驚人了，越複雜的程
式，所支配他的就是越複雜的程式碼，自從我接
觸VB後，我思考事情也變得有邏輯許多…不過我
想我還是不適合和程式碼共度一生，光是做報告，
我的腦細胞已死了一票XDD但還是很謝謝老師很
認真的教課。