這是備份,原文請看我的網站:[習題]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來作。 

  • 答對了,才有分數。
  • 如果是複選題,必須所有子選項都正確,才能得分(否則這題不算分)

       

 

最後一題,必須複選兩個答案才算正確,才能得分

這部份我作得不太好,請見諒。

     

 

後置程式碼如下:

01
02     Protected 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專題實務ASP.NET專題實務(文魁出版 / P8187)

2008/八月份 天瓏書局排行榜前十名

.............................................................................................................. 寄信給我    mis2000lab (at) 雅虎.com.台灣 ........

創作者介紹

MIS2000 Lab -- ASP.NET專題實務 / 線上教學文件

MIS2000 Lab 發表在 痞客邦 PIXNET 留言(0) 人氣()