[習題]CheckBoxList 與 「小」線上測驗系統(線上考試系統、答對得分)

利用 CheckBoxList做一些簡單的練習。
這個範例使用同一段程式碼去修改,就能改出不同花樣!

很多初學者搞不定這樣的範例,都是因為市面上的入門書「忽略」基礎Web控制項
如果連基礎都學不好,都然遇見問題寫不出來啊!

市面上,唯一扎扎實實地

為基礎的 Web控制項,寫了一百多頁的範例與常用屬性,每一個都有提供範例的,
就是我的書 -- ASP.NET專題實務(松崗出版)





不瞞您說,我在 Yahoo知識+ 看到這個問題(如下圖,求人家幫忙寫程式),

第一個感覺跟大家一樣,

這麼基礎、簡單的問題,也敢來問!    

太不用功了,這連基礎都沒學、恐怕連書都沒有翻開看吧?

 

     

 

所謂的「線上問卷」、「線上考試(測驗)」一點都不難。

其實他就是投票區」加上「得分」功能而已!

我也提供了很多投票區的範例,您可以從這裡學起!

http://www.dotblogs.com.tw/mis2000lab/Tags/%E6%8A%95%E7%A5%A8%E5%8D%80/default.aspx

 

大概過了十分鐘,我突然有另外一種想法。

      如果我能趁這機會,作一連串的小習題,

      把他從不會教到會,那也是一種小小成就。

 

==================================================================

很多初學者搞不定這樣的範例,都是因為市面上的入門書「忽略」  基礎Web控制項  

如果連基礎都學不好,都然遇見問題寫不出來啊!

 

市面上,唯一扎扎實實地

    為基礎的 Web控制項,寫了一百多頁的範例與常用屬性,每一個都有提供範例的

    就是我的書 (上集)-- ASP.NET 專題實務(.NET 4.0 由松崗出版)

==================================================================

 

 

Web控制項裡面, ChecBox / RaddioButton / ListBox / DropDownList這幾個東西都很類似,用法也都差不多。

廣告一下!請看本書(上集)-- ASP.NET 專題實務(.NET 4.0 由松崗出版)第三章,將近一百頁的說明。隨手COPY一個範例就能解這問題!

 

重點就是:

  • 透過 For迴圈,來找出使用者點選了哪一個子選項
  • 使用者點選的那個子選項的「值(Value)」是啥?

只要會作上面這兩個東西,問題就解決了!而這兩個東西,程式碼是固定的,Copy回去改一下就好啦~

 

第一個範例,點選後,可以加總計算出得到的總分~

     

 

畫面上的HTML設定,

最重要的是每一個「子選項(ListItem)」的值(Value)文字(Text)

     

 

後置程式碼如下:

       

      因為 CheckBoxList是一種「複選」功能,我們無法得知使用者到底選了哪幾個子選項?

      所以要透過 For迴圈來運作,每一個子選項(CheckBoxList.Item(第幾個))都要進去檢查一次

      如果某一個子選項有被點選(.Selected),那就累計這個子選項的分數!

很簡單吧!這段程式COPY回家慢慢用,就像我說的---- ChecBox / RaddioButton / ListBox / DropDownList這幾個東西都很類似,用法也都差不多。

 

 

 

==================================================================

與其給你魚吃,不如教會你釣魚  自己謀生

學會了上面的範例後,下面是一個簡單的小小問卷系統

每一題都是複選,所以使用 CheckBoxList來作。 

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

     

 

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

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

     

 

後置程式碼如下:

2011/12/16 修正

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(CheckBoxList3.Items(k).Value)
37                 Else
38                     Label3.Text = "<font color=red>有錯誤喔~</font>"
                           u_summary_3 = 0     '-- 2011/12/16修正
                           Exit For
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迴圈不斷修改而成的嗎?

 

不要怕!動手作!

初學者應該多作、少思考!   ......[給初學者的話] 與其想得太多,不如立刻動手作

因為初學者不動手,只是想想而已的東西,都是有害的!沒營養的!

(例如:好難喔,我不會~哪裡有範例可以抄?~~哪個同學已經作完了可以給我抄~~我就是數學不好,所以不會寫程式~~我邏輯不強~~我不是寫程式的料~~)

 

  

如果您是初學者,卻看不懂上面的範例。

    第一,您的基礎不穩,很多基本動作都不熟練。

    第二,我在BLOG上面無法解釋太詳細,這是我的錯。

              BLOG上面放太多圖片,文章排版很容易亂掉。很麻煩、速度也會很慢。

 

永遠不要認為自己看不懂,就是「笨」、就是「沒有寫程式的天分」

別放棄自己!

遇見好的指引、好書的帶領,您也有機會立即開竅!

 

我將思想傳授他人, 他人之所得,亦無損於我之所有;

猶如一人以我的燭火點燭,光亮與他同在,我卻不因此身處黑暗。----Thomas Jefferson

寫信給我,不要私訊 --  mis2000lab (at) yahoo.com.台灣  或  school (at) mis2000lab.net



ASP.NET遠距教學、線上課程(Web Form + MVC)。 第二門 課程「四折」-- 以MVC課程 作優惠。
第一天課程, "完整" 試聽。  如不滿意  全額退費!
................   facebook社團   https://www.facebook.com/mis2000lab   ......................

................  YouTube (ASP.NET) 線上教學影片  http://goo.gl/rGLocQ

*********************************************************************************************

*** ASP.NET MVC線上課程 第一天 免費看 (5.5小時) *** 

************************************************************(歡迎索取,免費申請)*****

 

Blog文章 "附的範例" 無法下載,請看 這裡 ...... https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍(嚴格認定)

......................................................................................................................................................

...................................................................................................................................................... 

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講

事先錄製好的影片,並非上課時側錄!   觀看影片時,有如我「一對一」跟您面對面講課

 

    MIS2000 Lab.  線上教學影片(YouTube) **免費觀賞**