Transcript 下載/瀏覽

計算機程式及實習
期末報告ppt製作
題目:南台早餐店點餐結帳系統
南台科技大學
機械工程系
自控一乙
學號:4A012028
學生:鍾宇桐
目錄






學習重點
題目說明
設計解析
屬性設定
程式設計
心得
學習重點



學習程式設計
計算轉換程式
ListBox 、GroupBox 、CheckBox 、使用方
法
題目說明
早餐店結帳系統，
點選種類再按下點
餐鈕之後，即會顯
示結帳總金額。因
早餐店常用這些菜
單販賣，所以用這
些菜單。
設計解析1

將程式進行偵錯，
點了豬肉漢堡75元
、小披薩250元、小
薯條25元，點餐後
加起來共350元。
設計解析2

如果吃不飽，加
點了香雞漢堡75
元、大披薩499元
加上剛才點的豬肉
漢堡、小披薩、
小薯條共919元
設計解析3

口渴時，把小薯
條25元換成換成
綠茶30元，會從
919元變成924元
，此程式能迅速
計算價格。
屬性設定
選單
CheckBox1
CheckBox2
CheckBox3
點餐計算金額
Button1
Button2
菜單
Label1、Label2
Label3、Label4
Label5、Label6
Label7、Label8
金額
TextBox1
TextBox2
TextBox3
TextBox4
TextBox5
TextBox6
程式設計

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Buttoncke.Click












Dim totalamount As Integer = 0
Dim milkteaprice As Integer = 0
If Radiomilktea.Checked Then
milkteaprice = 5
End If
'計p算a
If chkchicken.Checked Then
totalamount += 70
End If
If Chkbeef.Checked Then
totalamount += 75
End If















If chksmallpizza.Checked Then
totalamount += 250
End If
If chkbigpizza.Checked Then
totalamount += 499
End If
If chkfries.Checked Then
totalamount += 25
End If
If Checktea.Checked Then
totalamount += 30 + milkteaprice
End If
Label1.Text = Format(totalamount, "c")
End Sub
End Class
心得

這次是我第一次學VisualBasic的程式設計，剛
開始都不會，幾乎都要從基礎的指令開始，透
過老師ㄧ個步驟一個步驟講解才能明白這些指
令是做什麼用的，每次教的東西都不一樣，學
的東西越來越多，每當遇到問題老師都會不厭
其煩的幫助我解答，在學習的過程中，老師有
時嚴肅有時幽默，讓我覺得老師的教學恰到好
處，而這是我喜歡上計概的主要原因。
謝謝指教