南台科技大學機械工程系奈米一乙學號 :4A214044 老師 : 謝慶存

計算機程式及實習 期末報告ppt製作牛奶品牌票選南台科技大學機械工程系奈米一乙學號:4A214044 老師:謝慶存

手機品牌票選:題目說明:主題說明與背景 使用了GroudBox把rdb控制項封裝起來，利用了GroupBox1.Enabled = false 把rdb控制項影隱藏起來使用if 選擇結構使用listBox儲存資料並可讀取

表單(form)設計:解題分析 txtName Label1 ltbName GroupBox1 rdbSONY rdbHTC rdbApple rdbSamsung rdbHuawei lblButton Label2 txtTotal GroupBox2 txt1 Txt2 Txt3 Txt4 txt5

程式碼撰寫：宣告，lblButton_Click • Public Class 牛奶品牌票選 • Dim intG As Integer = 0 : Dim intE As Integer = 0 : Dim intW As Integer = 0 : Dim intT As Integer = 0 : Dim intF As Integer = 0 : Dim total As Integer = 0 • Private Sub lblButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblButton.Click • If ltbName.Items.IndexOf(txtName.Text) = -1 Then • ltbName.Items.Add(txtName.Text) : total += 1 : txtTotal.Text = total • GroupBox1.Enabled = True : lblButton.Enabled = False • rdbG.Checked = False : rdbE.Checked = False : rdbW.Checked = False : rdbT.Checked = False : rdbF.Checked = False • Else • MsgBox("使用者姓名已經存在!") • End If • End Sub

Form1_LoadrdbG_CheckedChanged • Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load • GroupBox1.Enabled = False • End Sub • Private Sub rdbG_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbG.CheckedChanged • If rdbG.Checked = True Then • intG += 1 : txtG.Text = intG : ltbChoice.Items.Add("M") : GroupBox1.Enabled = False : lblButton.Enabled = True • End If • End Sub

rdbE_CheckedChangedrdbW_CheckedChanged • Private Sub rdbE_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbE.CheckedChanged • If rdbE.Checked = True Then • intE += 1 : txtE.Text = intE : ltbChoice.Items.Add("E") : GroupBox1.Enabled = False : lblButton.Enabled = True • End If • End Sub • Private Sub rdbW_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbW.CheckedChanged • If rdbW.Checked = True Then • intW += 1 : txtW.Text = intW : ltbChoice.Items.Add("W") : GroupBox1.Enabled = False : lblButton.Enabled = True • End If • End Sub

rdbT_CheckedChanged rdbF_CheckedChanged • Private Sub rdbT_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbT.CheckedChanged • If rdbT.Checked = True Then • intT += 1 : txtT.Text = intT : ltbChoice.Items.Add("T") : GroupBox1.Enabled = False : lblButton.Enabled = True • End If • End Sub • Private Sub rdbF_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbF.CheckedChanged • If rdbF.Checked = True Then • intF += 1 : txtF.Text = intF : ltbChoice.Items.Add("Q") : GroupBox1.Enabled = False : lblButton.Enabled = True • End If • End Sub

ltbName_SelectedIndexChanged • Private Sub ltbName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ltbName.SelectedIndexChanged • Dim index As Integer • index = ltbName.SelectedIndex • MsgBox(ltbName.Text & "選擇" & ltbChoice.Items(index) & "牌") • End Sub • End Class

程式說明－起始畫面 輸入姓名，再點選參與投票

程式說明－參與投票 按下光泉乳香時，又回變回一開始的樣子，並記下一票，總投票人數也+1

假設有重複的人了 已有了重複的投票著了，系統會通知，顯示”使用者姓名已經存在！”

查看使用者的選擇 當去選擇使用者的姓名時，會出現使用者當時選的是什麼品牌

心得分享 老師再上課的時候會說一部分就讓我們實作，這點實在非常的用心，因為在上課時能聽一部分作一部分能讓我們馬上記住，所以能學習的更快更有效率，是能讓我們快速學習的方法。而這個程式，在經過老師的講解後變的很容易，因為在老師細心講解之下，一步驟一步驟跟著一起做，很難的東西也很快速的可以完成，而這個心得也能讓我些微的表達對老師的尊敬，謝謝老師的教誨。

參考文獻 Visual Basic 2010 程式設計作者：陳會安

南台科技大學 機械工程系 奈米一乙 學號 :4A214044 老師 : 謝慶存