计算机程式及实习课件

計算機程式及實習課堂作業之口頭報告ppt製作題目:林蔚蔚的店南台科技大學機械工程系奈米ㄧ甲學號:49914027學生:林蔚呈老師:謝慶存1計算機程式及實習題目:林蔚蔚的店南台科技大學學號:49914目錄P1------封面P14------製作心得P2------目錄P15------參考文獻P3------前言P16------未來展望P4------學習重點P5------題目說明P6------版面設計P7------程式碼設計P12----中文解釋2目錄P1------封面前言提出專題相關之背景，例如現存系統之功能說明，可能包含的相關理論說明。詳細說明程式的功能需求、相關參考資料、文獻。3前言提出專題相關之背景，例如現存系統之功能說明，可能包含的相學習重點

ListBox、RadioButton的使用方法。程式碼的編排介面的設計其他物件的認識4學習重點

ListBox、RadioButton的使用方法。題目說明能做出快速算出所需的消費金額。而且可以有打折的系統。5題目說明能做出快速算5版面設計飯種類Label1Label2Label3價格TBoxPrice1TBoxPrice2TBoxPrice3列出點餐ListBox1金額Label6Label7Button2數量TBoxQty1TBoxQty2TBoxQty3Button1優會方案GroupBox1RadioButton1RadioButton2RadioButton36版面設計飯種類價格列出點餐金額Button2數量Button程式碼設計1.PublicClassForm12.Dimtotal,accTotalAsInteger3.PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load4.Label6.Text="$"&total&"元"5.Label7.Text="累計：$"&accTotal&"元"6.Label6.Font=NewFont("新細明體",24)7.Label6.ForeColor=Color.Red8.total=09.accTotal=010.EndSub7程式碼設計1.PublicClassForm11.PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click12.total=Val(TBoxPrice1.Text)*Val(TBoxQty1.Text)+Val(TBoxPrice2.Text)*Val(TBoxQty2.Text)+Val(TBoxPrice3.Text)*Val(TBoxQty3.Text)13.Iftotal>2000ThenRadioButton2.Checked=True14.IfRadioButton1.Checked=TrueThentotal=total*0.915.IfRadioButton2.Checked=TrueThentotal=total*0.816.IfRadioButton3.Checked=TrueThentotal=total*0.5811.PrivateSubButton1_17.Label6.Text="$"&total&"元"18.accTotal=accTotal+total19.Label7.Text="累計：$"&accTotal&"元"20.ListBox1.Items.Add(total&“-->”&“鰻魚飯”&TBoxPrice1.Text&“*”&TBoxQty1.Text&“烤肉飯”&TBoxPrice2.Text&“*”&TBoxQty2.Text&“雞排飯"&TBoxPrice3.Text&"*"&TBoxQty3.Text)21.EndSub917.Label6.Text="$"&tot22.PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click23.TBoxQty1.Text=024.TBoxQty2.Text=025.TBoxQty3.Text=026.total=027.Label6.Text="$"&total&"元"28.EndSub1022.PrivateSubButton2_29.PrivateSubListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox1.SelectedIndexChanged30.accTotal=accTotal-(Val(ListBox1.SelectedItem))31.Label7.Text="累計：$"&accTotal&"元"32.EndSub33.EndClass1129.PrivateSubListBox1_中文解釋第2行定義總金額及累計金額的參數。第13行求出單筆交易的總金額。第15行讓總金額>2000時RadioButton3(即>2000元＊0.75鈕)自動選取。第16-18行處理折扣動作。第20行累加至累計金額。第22行把單筆交易記錄至ListBox1中12中文解釋第2行定義總金額及累計金額的參數。12第25-31行為「清除」按鈕的歸零動作。第33-38行處理利用滑鼠在ListBox1上點選時，放開滑鼠左鍵的刪除記錄動作。第34行扣除該筆記錄在累加值中的數值。第35行實際於ListBox1中刪除，刪除該筆記錄。第36行把更正後的累加值，再度顯示出來。13第25-31行為「清除」按鈕的歸零動作。13製作心得在這個學期中，雖然只是懵懵懂懂的學習到一些較簡單的程式製作。但是，這些就可以讓我們可以延伸應用了。並且可以把其他的程式語言基本的英文單字給學起來。雖然打程式碼都看到有一點煩了，甚至是看到厭煩了。而且不想打了，但到了後來，自己在學習的途中，會突然開竅。並且練習的速度會更快更容易理解。看到自己作完的完成檔。會有一種愉悅感。本來想說做不出來，卻完成的那種喜悅感。算是一種說不出來的暢快阿。14製作心得在這個學期中，雖然只是懵懵懂懂的學習到一些較簡單的程參考文獻

1.VisualBasic2008基礎必修課(第二版)2.網路上的資源15參考文獻

1.VisualBasic2008基礎必修課(結論及未來展望16結論及未來展望16計算機程式及實習課堂作業之口頭報告ppt製作題目:林蔚蔚的店南台科技大學機械工程系奈米ㄧ甲學號:49914027學生:林蔚呈老師:謝慶存17計算機程式及實習題目:林蔚蔚的店南台科技大學學號:49914目錄P1------封面P14------製作心得P2------目錄P15------參考文獻P3------前言P16------未來展望P4------學習重點P5------題目說明P6------版面設計P7------程式碼設計P12----中文解釋18目錄P1------封面前言提出專題相關之背景，例如現存系統之功能說明，可能包含的相關理論說明。詳細說明程式的功能需求、相關參考資料、文獻。19前言提出專題相關之背景，例如現存系統之功能說明，可能包含的相學習重點

ListBox、RadioButton的使用方法。程式碼的編排介面的設計其他物件的認識20學習重點

ListBox、RadioButton的使用方法。題目說明能做出快速算出所需的消費金額。而且可以有打折的系統。21題目說明能做出快速算5版面設計飯種類Label1Label2Label3價格TBoxPrice1TBoxPrice2TBoxPrice3列出點餐ListBox1金額Label6Label7Button2數量TBoxQty1TBoxQty2TBoxQty3Button1優會方案GroupBox1RadioButton1RadioButton2RadioButton322版面設計飯種類價格列出點餐金額Button2數量Button程式碼設計1.PublicClassForm12.Dimtotal,accTotalAsInteger3.PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load4.Label6.Text="$"&total&"元"5.Label7.Text="累計：$"&accTotal&"元"6.Label6.Font=NewFont("新細明體",24)7.Label6.ForeColor=Color.Red8.total=09.accTotal=010.EndSub23程式碼設計1.PublicClassForm11.PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click12.total=Val(TBoxPrice1.Text)*Val(TBoxQty1.Text)+Val(TBoxPrice2.Text)*Val(TBoxQty2.Text)+Val(TBoxPrice3.Text)*Val(TBoxQty3.Text)13.Iftotal>2000ThenRadioButton2.Checked=True14.IfRadioButton1.Checked=TrueThentotal=total*0.915.IfRadioButton2.Checked=TrueThentotal=total*0.816.IfRadioButton3.Checked=TrueThentotal=total*0.52411.PrivateSubButton1_17.Label6.Text="$"&total&"元"18.accTotal=accTotal+total19.Label7.Text="累計：$"&accTotal&"元"20.ListBox1.Items.Add(total&“-->”&“鰻魚飯”&TBoxPrice1.Text&“*”&TBoxQty1.Text&“烤肉飯”&TBoxPrice2.Text&“*”&TBoxQty2.Text&“雞排飯"&TBoxPrice3.Text&"*"&TBoxQty3.Text)21.EndSub2517.Label6.Text="$"&tot22.PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click23.TBoxQty1.Text=024.TBoxQty2.Text=025.TBoxQty3.Text=026.total=027.Label6.Text="$"&total&"元"28.EndSub2622.PrivateSubButton2_29.PrivateSubListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox1.SelectedIndexChanged30.accTotal=accTotal-(Val(ListBox1.SelectedItem))31.Label7.Text="累計：$"&accTotal&"元"32.EndSub33.