Transcript 下載/瀏覽

計算機程式及實習
期末報告ppt製作
題目:點餐系統
南台科技大學
機械工程系
奈米一乙
學號:4A214097
老師:謝慶存
點餐系統
學習重點
 選擇結構、button、inputbox、
RadioButton的使用方法。

題目說明:點餐系統
 試設計點餐系
統，按下任一
種餐點會出現
一個inputbox，
輸入數量即可
運算
表單設計
Label1～4，rdb1
btn1～3
TextBox1
Label5
Rdb2
Button4
Button2
程式碼設計
Public Class Form1
Dim a, b, c As String
Dim qty1, qty2, qty3, total As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
a = btn1.Text : b = btn2.Text : c = btn3.Text
Label5.Text = “價格："
End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn1.Click
qty1 = InputBox(“請輸入您要幾分", a, 0)
labQty1.Text = qty1
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn2.Click
qty2 = InputBox(“請輸入您要幾分", b, 0)
labQty2.Text = qty2
End Sub















Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn3.Click
qty3 = InputBox(“請輸入您要幾分", c, 0)
labQty3.Text = qty3
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
total = qty1 * 40 + qty2 * 50 + qty3 * 70
If rdb1.Checked = True Then
total = total * 0.9
End If
If rdb2.Checked = True Then
total = total * 0.8
End If
Label5.Text = “價格：" & total
TextBox1.Text = “ ” & a & “ ” & qty1 & “份” & “ ” & b & “ ” &
qty2 & “份” & “ ” & c & “ ” & qty3 & “份"
End Sub
清除的button1程式碼
Private Sub Button1_Click_1(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Button1.Click

labQty1.Text = "0" : labQty2.Text =
"0" : labQty3.Text = "0" : TextBox1.Text =
"“ : Label5.Text = "價u格a：G"

End Sub
 End Class

程式執行
當輸入了數量，
再Label2.text
就會有值存入，
再按下計算，
再textbox會出
現您點的參數
量，在價格處
就會顯示價格
當按下打九折
的rdb1時，系
統會自己打九
折，並顯示打
折後的價格
按下清除
button2時，
數量與
textbox1，
rdb1,2皆會歸
零
心得
VB比較好入門，也是一種快速應用開發的語言，但
要把VB學精學透徹並不那麼短時間夠實現。
我聽一些學過的人說我們可以先學習一下VB的體系
結構，大致看看就行，可能其中會有些概念不可理解，
不要緊，不用去深究，時間長了接觸多了你會理解的。
這樣做的目的主要是了解VB適合做什麼，他的編程特點
和運行機制是什麼等概括性的東西要有個了解。
然後可以開始從語法學起了，VB語法並不難，但對
於每個語法要點一定要自己親自練習一下，達到熟練掌
握的程度。
參考文獻
Visual Basic 2010 程式設計
作者：陳會安