計算機程式及實習(xí)課件

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

ListBox、RadioButton的使用方法。程式碼的編排介面的設(shè)計其他物件的認識4學(xué)習(xí)重點

ListBox、RadioButton的使用方法。題目說明能做出快速算出所需的消費金額。而且可以有打折的系統(tǒng)。5題目說明能做出快速算5版面設(shè)計飯種類Label1Label2Label3價格TBoxPrice1TBoxPrice2TBoxPrice3列出點餐ListBox1金額Label6Label7Button2數(shù)量TBoxQty1TBoxQty2TBoxQty3Button1優(yōu)會方案GroupBox1RadioButton1RadioButton2RadioButton36版面設(shè)計飯種類價格列出點餐金額Button2數(shù)量Button程式碼設(shè)計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程式碼設(shè)計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行定義總金額及累計金額的參數(shù)。第13行求出單筆交易的總金額。第15行讓總金額>2000時RadioButton3(即>2000元＊0.75鈕)自動選取。第16-18行處理折扣動作。第20行累加至累計金額。第22行把單筆交易記錄至ListBox1中12中文解釋第2行定義總金額及累計金額的參數(shù)。12第25-31行為「清除」按鈕的歸零動作。第33-38行處理利用滑鼠在ListBox1上點選時，放開滑鼠左鍵的刪除記錄動作。第34行扣除該筆記錄在累加值中的數(shù)值。第35行實際於ListBox1中刪除，刪除該筆記錄。第36行把更正後的累加值，再度顯示出來。13第25-31行為「清除」按鈕的歸零動作。13製作心得在這個學(xué)期中，雖然只是懵懵懂懂的學(xué)習(xí)到一些較簡單的程式製作。但是，這些就可以讓我們可以延伸應(yīng)用了。並且可以把其他的程式語言基本的英文單字給學(xué)起來。雖然打程式碼都看到有一點煩了，甚至是看到厭煩了。而且不想打了，但到了後來，自己在學(xué)習(xí)的途中，會突然開竅。並且練習(xí)的速度會更快更容易理解?？吹阶约鹤魍甑耐瓿蓹n。會有一種愉悅感。本來想說做不出來，卻完成的那種喜悅感。算是一種說不出來的暢快阿。14製作心得在這個學(xué)期中，雖然只是懵懵懂懂的學(xué)習(xí)到一些較簡單的程參考文獻

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

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

ListBox、RadioButton的使用方法。程式碼的編排介面的設(shè)計其他物件的認識20學(xué)習(xí)重點

ListBox、RadioButton的使用方法。題目說明能做出快速算出所需的消費金額。而且可以有打折的系統(tǒng)。21題目說明能做出快速算5版面設(shè)計飯種類Label1Label2Label3價格TBoxPrice1TBoxPrice2TBoxPrice3列出點餐ListBox1金額Label6Label7Button2數(shù)量TBoxQty1TBoxQty2TBoxQty3Button1優(yōu)會方案GroupBox1RadioButton1RadioButton2RadioButton322版面設(shè)計飯種類價格列出點餐金額Button2數(shù)量Button程式碼設(shè)計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程式碼設(shè)計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.