計算機程式及實習 期末報告 PPT 製作 題目 : 簡單雞排店結帳系統 南台科技大學 車輛一甲 學號 : 4A415068 姓名 : 廖偉臣 老師 : 謝慶存.

Slides:



Advertisements
Similar presentations
計算機程式及實習 Computer Program Design and Experiment) 期末報告 ppt 南台科技大學機械工程系 姓名 : 蔡中銘 學號 :4A 授課老師 : 謝慶存大帥哥.
Advertisements

南台科技大學 機械工程系 班級 : 車輛三甲 學號 : 學生 : 黃郁鈞.  BMI 值的計算就是 :  體重 / 身高 x 身高  身高需換算成公尺單位計算.
Visual Basic 語言撰寫程式設計遊戲專題
題目:徽章之記憶 南台科技大學 機械系 車輛一乙 學號:4A 姓名:黃冠嘉 教師:謝慶存
計算機程式及實習 期末報告 題目:超級猜一猜
歷史報告 自強運動 指 導 老 師: 盧雨芯 製 作 簡 報: 第三組
組員:何浚壟4990Y031 詹昀蓉4990Y052 林怡汝4990Y053 黃亦雯4990Y055 王宜珺4990Y056
計算機概論 第4章 基本視窗程式應用 4-1 程式語言簡介 4-2 演算法與流程圖 4-3 視窗程式語言設計 4-4 資料結構.
計算機程式及實習 期末報告 題目:商店結帳系統
班級:自控四甲 姓名:何禎隆 學號: 老師:謝慶存
ooxx這個遊戲程式,非常的簡單只要你小時候會玩井字遊戲即可把電腦打敗,可以說是一種考智力取勝的遊戲。
学龄前儿童(3-6)行为与社会环境 组长:吾尔克西 讲述人:张紫桓 ppt制作:管吉 熊萌 资料收集:徐琰 李捷羚.
課程名稱:程式設計 授課老師:________
指導老師:黃怡瑾老師 組員:喻紹嫻、蔡穎邵、邱韋竣、 吳燿明、陳俊宏、林雅婷
程式語言(I)- Visual Basic 6.0 第 9 章 結構化程式設計
南台科技大學 機械工程系 車輛一甲 學號:4A 學生:黃信成 老師:謝慶存
大学生常见心理问题 及其原因分析 09本日2班.
Visual Basic 2005學習範本 第5章 選擇結構.
1.了解VB6.0的功能特点 、集成环境。 2.理解面向对象程序设计的几个概念。 3.掌握VB应用程序设计的步骤。
菜市場巡禮 四財三A 4980S030 王靖智 4980S070 陳婉莉 4980S071 蘇可芸 4980S075 陳惠卿
♔乙武洋匡♔.
主題:轉換時刻 班 級:四進幼保三A 指導教授:葉雅惠 老師 組 別:第一組 組 員: 劉婉瑜 王美能
課程名稱:程式設計 授課老師:________
14 繪圖與動畫 [我的小畫家][打磚塊遊戲] 14-1 繪圖的基礎 14-2 滑鼠事件與基本繪圖 14-3 在Bitmap物件繪圖
婚姻與家庭-田野調查 音樂二 第一組 S 沈蝶衣(組長) S 林長欣 S 余俐瑾
网 络 课 程 马 鞍 学 网 络 山 课 程 大 络 网 Visual Basic程序设计 第 一 讲 最容易接受的编程语言
2015学年第一学期 探究型课程专题培训 社会实践阅读领航 教育处
題目:台灣客運 南臺科技大學 機械工程系 班級:奈米一乙 學號:4A 姓名:蔡政堯 授課教師:謝慶存
CH10.
程式簡介、VB、物件導向 國立北門高中 林明璋.
課程名稱:程式設計 授課老師:________
CH11.
課程名稱:程式設計 授課老師:________
建立VB.NET應用程式 資管系 助理教授 詹曉苓.
第2章 建立Visual Basic應用程式 2-1 如何設計Visual Basic應用程式 2-2 建立主控台應用程式
第2章 建立Visual Basic應用程式.
第二章 Visual Basic语言基础.
第16章 Windows Form與資料繫結 16-1 資料繫結的基礎 16-2 在專案新增資料來源 16-3 使用資料來源建立單筆編輯表單
第5章 数组 Visual Basic程序设计.
巨集病毒與VBA.
程式語言 -Visual Basic 變數、常數與資料型態.
遠東科技大學資訊工程系 王善揚 可嵌入物件題庫系統 設計與開發 遠東科技大學資訊工程系 王善揚
初识Visual Basic.
第4章 視窗應用程式的基本輸出入 4-1 物件基礎程式設計 4-2 表單控制項 4-3 按鈕控制項 4-4 資料輸出的標籤控制項
新觀念的 VB6 教本 第七章 讓程式轉彎的控制敘述.
第10章 視窗應用程式的工具列與功能表.
Ch03 基本輸出入介面設計 視窗程式設計 授課教師:王大瑾.
Visual Basic程序设计.
算法与程序设计 周少品.
Visual Basic.NET 程序设计语言课程内容
程式設計 Visual Basic簡介 週次:2 建國技術學院 資管系 饒瑞佶 2003年9月17日.
第4章 視窗應用程式的基本輸出入 4-1 物件基礎程式設計 4-2 表單控制項 4-3 按鈕控制項 4-4 資料輸出的標籤控制項
題目:南台飲料店結帳系統 南台科技大學 機械工程系 車輛一甲 學號:4A
程式語言(I)- Visual Basic 6.0 第 8 章 模組化程式設計I-副程式與自定函數.
VB语言程序设计教程.
計算機程式及實習 期末報告ppt製作 題目:牛排店結帳系統
班級:車輛一甲 姓名:邱孝哲 學號:4A 老師:謝慶存
巨集與自訂工具列.
老師:謝慶存 先生 南台科技大學 車輛一甲 鄭詠耀 4A415058
計算機程式及實習 Computer Program Design and Experiment) 期末報告ppt製作 南台科技大學 機械工程系 題目:南台電影城結帳系統 班級 : 車輛一甲 學號 : 4A 授教學生: 阮偉倫 授課老師: 謝慶存.
計算機概論與實習期末報告 老師:謝慶存 4a415057賴震製作.
題目:這個我一定告飲料店 計算機程式及實習 期末報告ppt製作 南台科技大學 機械工程系 車輛一甲 學號:4A 姓名:林子健
題目:南台快餐店結帳系統 班級:車輛四乙 姓名:趙昱展 學號:4A 老師:謝慶存
第二章、第三章错题分析.
第 11 章 功能表列與工具列的設計 & 第 10 章 檔案.
計算機概論 跨越講義 第4章 基本視窗程式應用 4-1 程式語言簡介 4-2 結構化VS物件導向程式設計
計算機程式及實習 Computer Program Design and Experiment) 期末報告ppt製作
計算機程式及實習 期末報告ppt製作 題目:炸物店結帳系統
Print方法和函数 2019/5/19.
MenuStrip by Szeto CY Visual C# 2008.
Presentation transcript:

計算機程式及實習 期末報告 PPT 製作 題目 : 簡單雞排店結帳系統 南台科技大學 車輛一甲 學號 : 4A 姓名 : 廖偉臣 老師 : 謝慶存

結帳系統說明  學習重點  ListBox 、 RadioButton 、 Textbox 、 Label 、 GroupBox 的使用方法

雞排店結帳系統  使用 Visual Basic 2013 來 寫出一個雞排店的結帳系 統。  把主餐和要加點的東西選 完之後,按下結帳,即可 計算出多少錢。  還有優惠方案 持有學生證打 95 折 60 歲以上打 9 折 會員打 85 折

程式使用程序 (1)  點選自己要點的東西

程式使用程序 (2)  有符合優惠方案的話選擇 你所要優惠的方式後按下 計算 , 就可以知道要付多 少錢 。 持有學生證打 95 折 60 歲以上打 9 折 會員打 85 折

版面配置 (1) 種類 Label 2 ComboBox 主餐 Label 1 菜單 ListBox

版面配置 (2) 加點 Label3 CheckedListBox

版面配置 (3) 優惠 GroupBox RadioButton 1 RadioButton 2 RadioButton 3 結帳 Button 合計 Label

程式碼設定 (1) Public Class Form1 Dim main(,) As Object = {{“ 雞排 ”, 50}, {“ 無骨雞排 ”, 80}, {“ 特大雞排 ", 100}} Dim add(,) As Object = {{“ 米血 ”, 15}, {“ 甜不辣 ”, 15}, {“ 百頁豆腐 ”, 35}, {“ 四季豆 ", 30}}

程式碼設定 (2) Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load cboKind.Items.Add(" 單點 ") cboKind.Items.Add(“ 主餐加 20 元 ( 甜不辣和米血 )") cboKind.SelectedIndex = 1 ' 預設選主餐 For i = 0 To UBound(main, 1) ' 用 For 迴圈加入主餐項目 lstMain.Items.Add(main(i, 0) & main(i, 1) & " 元 ") Next lstMain.SelectedIndex = 2 ‘ 預設選雞排 lblSum.Text = " 合計 = " End Sub

程式碼設定 (3) Private Sub cboKind_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKind.SelectedIndexChanged clbAdd.Items.Clear() ' 先清除項目 If cboKind.SelectedIndex= 0 Then ' 若選單點就加入所有項目 For i = 0 To 3 clbAdd.Items.Add(add(i, 0) & add(i, 1) & " 元 ", True) ' 預設項目選取 Next Else ' 否則 ( 選主餐 ) 就加入前兩個項目 For i = 0 To 1 clbAdd.Items.Add(add(i, 0) & add(i, 1) & " 元 ", True) Next End If End Sub

程式碼設定 (4) Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click Dim sum As Integer sum = main(lstMain.SelectedIndex, 1) ' 設 sum 為主餐 的價格 If cboKind.SelectedIndex = 1 Then sum += 50 ' 若選主餐 加 50 元 For i = 0 To clbAdd.Items.Count - 1 ' 逐一檢 查 加點項目 ' 若項目有勾選就加該項目的價格

程式碼設定 (5) If clbAdd.GetItemChecked(i) = True Then sum += add(i, 1) If RadioButton1.Checked = True Then sum = sum * 0.9 If RadioButton2.Checked = True Then sum = sum * 0.85 If RadioButton3.Checked = True Then sum = sum * 0.8 Next lblSum.Text = " 合計 = " & sum & " 元 " End Sub End Class

心得  VB 程式感覺很難 , 但經由老師幽默的上課方式 , 聽完之後 , 發現他騎士不難 , 只是需要多花點心思去熟記每個指令 , 以及每個單字的中文意思 , 而我們入門的學生只要知道幾 個簡單指令跟單字 , 其實就可以做一些簡單得小程式 , 例 如計算機 、點餐系統 …… 等,非常好玩。