Transcript 下載/瀏覽Download

計算機程式及實習
期末報告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_Load
rdbG_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_CheckedChanged
rdbW_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 程式設計
作者： 陳會安