這是備份,原文請看我的網站:[習題]CheckBoxList 與 「小」線上測驗系統
http://www.dotblogs.com.tw/mis2000lab/archive/2008/12/01/checkboxlist_survey.aspx
不瞞您說,我在 Yahoo知識+ 看到這個問題(如下圖,求人家幫忙寫程式),
第一個感覺跟大家一樣,也是滿度爛的!
這麼基礎、簡單的問題,也敢來問! X的!太不用功了,這連基礎都沒學、恐怕連書都沒有翻開看吧?
混透了,被當掉活該!
大概過了十分鐘,我突然有另外一種想法。
如果我能趁這機會,作一連串的小習題,把他從不會教到會,那也是一種小小成就。
==================================================================
Web控制項裡面, ChecBox / RaddioButton / ListBox / DropDownList這幾個東西都很類似,用法也都差不多。
廣告一下!請看本書第三章,將近一百頁的說明。隨手COPY一個範例就能解這問題!
重點就是:
- 透過 For迴圈,來找出使用者點選了哪一個子選項?
- 使用者點選的那個子選項的「值(Value)」是啥?
只要會作上面這兩個東西,問題就解決了!而這兩個東西,程式碼是固定的,Copy回去改一下就好啦~
第一個範例,點選後,可以加總計算出得到的總分~
畫面上的HTML設定,最重要的是每一個「子選項(ListItem)」的值(Value)與文字(Text)
後置程式碼如下:
因為 CheckBoxList是一種「複選」功能,我們無法得知使用者到底選了哪幾個子選項?
所以要透過 For迴圈來運作,每一個子選項(CheckBoxList.Item(第幾個))都要進去檢查一次
如果某一個子選項有被點選(.Selected),那就累計這個子選項的分數!
很簡單吧!這段程式COPY回家慢慢用,就像我說的---- ChecBox / RaddioButton / ListBox / DropDownList這幾個東西都很類似,用法也都差不多。
==================================================================
與其給你魚吃,不如教會你釣魚 自己謀生
學會了上面的範例後,下面是一個簡單的小小問卷系統。
每一題都是複選,所以使用 CheckBoxList來作。
- 答對了,才有分數。
- 如果是複選題,必須所有子選項都正確,才能得分(否則這題不算分)
最後一題,必須複選兩個答案才算正確,才能得分
這部份我作得不太好,請見諒。
後置程式碼如下:
02 Protected Sub Button1_Click() Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
03 Dim u_summary As Integer = 0
04
05 Label1.Text = ""
06 For i As Integer = 0 To (CheckBoxList1.Items.Count - 1)
07 If CheckBoxList1.Items(i).Selected Then
08 If CheckBoxList1.Items(i).Value <> "0" Then
09 Label1.Text = "<font color=darkgreen>答對!</font>"
10 u_summary += CInt(Left(CheckBoxList1.Items(i).Value, 1))
11 Else
12 Label1.Text += "<font color=red>有錯誤喔~</font>"
13 End If
14 End If
15 Next
16 '----------------------------------------------------------------------------
17 Label2.Text = ""
18 For j As Integer = 0 To (CheckBoxList2.Items.Count - 1)
19 If CheckBoxList2.Items(j).Selected Then
20 If CheckBoxList2.Items(j).Value <> "0" Then
21 Label2.Text = "<font color=darkgreen>答對!</font>"
22 u_summary += CInt(Left(CheckBoxList2.Items(j).Value, 1))
23 Else
24 Label2.Text += "<font color=red>有錯誤喔~</font>"
25 End If
26 End If
27 Next
28 '----------------------------------------------------------------------------
29 '-- 這個題目裡面,必須複選兩個才算正確 --
30 Label3.Text = ""
31 Dim u_summary_3 As Integer = 0
32
33 For k As Integer = 0 To (CheckBoxList3.Items.Count - 1)
34 If CheckBoxList3.Items(k).Selected Then
35 If CheckBoxList3.Items(k).Value <> "0" Then
36 u_summary_3 += CInt(Left(CheckBoxList3.Items(k).Value, 1))
37 Else
38 Label3.Text = "<font color=red>有錯誤喔~</font>"
39 End If
40 End If
41 Next
42
43 If u_summary_3 = "6" Then
44 Label3.Text += "<font color=darkgreen>答對!</font>"
45 End If
46
47 u_summary += CInt(u_summary_3)
48
49 '----------------------------------------------------------------------------
50 Label_summary.Text = u_summary
51 End Sub
真的很難嗎?
真的看過書了嗎?隨便一本ASP.NET的書都會介紹到 Web控制項吧?
如果是書本上沒講,那買我的書吧!
在Web控制項方面,我自認為收錄了不少小範例。不然怎麼湊出將近100頁?
一個有用的小範例,可以幫你千變萬化。
上面的範例不就是第一個 For迴圈不斷修改而成的嗎?
不要怕!動手作!
初學者應該多作、少思考! ......[給初學者的話] 與其想得太多,不如立刻動手作
因為初學者不動手,只是想想而已的東西,都是有害的!沒營養的!(例如:好難喔,我不會~哪裡有範例可以抄?~~哪個同學已經作完了可以給我抄~~我就是數學不好,所以不會寫程式~~我邏輯不強~~我不是寫程式的料~~)
.....................................................................................................................................................................................
ASP.NET專題實務(文魁出版 / P8187)
.............................................................................................................. 寄信給我 mis2000lab (at) 雅虎.com.台灣 ........
留言列表