Transcript 下載/瀏覽Download

計算機程式及實習
期末報告ppt製作
題目:南台文具店
結帳系統
南台科技大學
機械工程系
車輛四乙
學號:4A015008
老師:謝慶存
題目說明:書局結帳
試文具店結帳系統，
填寫數量再按下計
算鈕之後，即會顯
示結帳總金額。
程式開始畫面-改筆記本數量

所有品項數量為1按「計算」按鈕後，得到1筆結
帳資料。
再輸入的數量為10

按「清除」按鈕，清
除剛剛的價格之後，
再輸入筆記本的數量
為10。
Button1
Text
清除
Button2
Text
計算
ListBox1
由程式控制
程式碼設計
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Label4.Text = Val(TextBox10.Text) * Val(TextBox15.Text) & "元﹐"
Label5.Text = Val(TextBox9.Text) * Val(TextBox14.Text) & "元﹐"
Label6.Text = Val(TextBox8.Text) * Val(TextBox13.Text) & "元﹐"
Label7.Text = Val(TextBox7.Text) * Val(TextBox12.Text) & "元﹐"
Label8.Text = Val(TextBox6.Text) * Val(TextBox11.Text) & "元﹐"
Label9.Text = Val(TextBox10.Text) * Val(TextBox15.Text) + Val(TextBox9.Text)
* Val(TextBox14.Text) + Val(TextBox8.Text) * Val(TextBox13.Text) +
Val(TextBox7.Text) * Val(TextBox12.Text) + Val(TextBox6.Text) *
Val(TextBox11.Text) & "元﹐"
End Sub
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
TextBox11.Text = "0"
TextBox12.Text = "0"
TextBox13.Text = "0"
TextBox14.Text = "0"
TextBox15.Text = "0"
End Sub
程式說明



第4行求出單筆交易的總金額。
第10行求出全部交易的總金額。
第14行是清除數量和計算金額。
心得
Visual Basic剛開始在學的時候感覺非常困難，
但是經過謝老師的教導下，讓我覺得這個其時是
一個非常好玩的程式 ，而且老師的上課方式讓人
非常容易的就可以吸收進去這程式的精華，讓我
覺得Visual Basic，不再的那麼困難， 而且這個程
式可以讓我們自行去創作許多好玩的遊戲，也感
謝謝老師上課所使用的謝式幽默上我們都可以輕
鬆的上這堂課，然後也能在此中學到這程式的精
華，謝謝老師的教導。