Transcript 下載/瀏覽

南台科技大學
奈米一乙
學號：49914003
學生：姚政暉
前言

提出專題相關之背景，例如現存系統之功
能說明，可能包含的相關理論說明。詳細
說明程式的功能需求、相關參考資料、文
獻。
商店結帳系統說明：
在右方框裡輸入要的數量，之後選擇打折數
能做出快速算出所需的消費金額。而且可以有打
折的系統
。
版面樣式設計
種類
Label11
Label12
Label13
Label14
折扣按鈕
RadioButt
on1
RadioButt
on3
結算.清除
按鈕
Button1
數量
Label17
所需數量
TextBox1
TextBox2
TextBox3
TextBox4
程式碼撰寫



Dim a As Double = 1
Dim sum1 As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click

sum1 = (CDbl(TextBox1.Text) * 1000 + CDbl(TextBox2.Text) * 500 + CDbl(TextBox3.Text) * 300 +
CDbl(TextBox4.Text) * 150) * a
















Label6.Text = "總額：" & sum1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Label6.Text = ""
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton1.CheckedChanged
a = 0.8
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton3.CheckedChanged
a = 0.7
End Sub
End Class
實際執行程式





1.定義總金額及累計金額的參數。
2.求出單筆交易的總金額。
3.處理折扣動作。
4.累加至累計金額。
5.把單筆交易記錄至ListBox1中
第25-31行為「清除」按鈕的歸零動作。
 第33-38行處理利用滑鼠在ListBox1上
點選時，放開滑鼠左鍵的刪除記錄動作。
第34行扣除該筆記錄在累加值中的數值。
第35行實際於ListBox1中刪除，刪除該
筆記錄。
第36行把更正後的累加值，再度顯示出
來

心得感想
在這學期，我學到了另一種做法，雖然上學期是
直接打程式，但是我英文又爛，所以完全不太會打，
但是這學期是直接用拉上去格子的，雖然還是都是
英文，不過比較少了，所以學得也更有信心了。
但是打程式碼還是會打到煩，甚至是不想打了，
但也把程式給完成，因為老師也教得很用心，所以
不能辜負老師的心意。