Transcript 下載/瀏覽

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