利用 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 修正
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>"
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
線上課程教學,遠距教學 (Web Form 約 51hr) https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015
線上課程教學,遠距教學 (ASP.NET MVC 約 140hr) https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab
寫信給我,不要私訊 -- mis2000lab (at) yahoo.com.tw 或 school (at) mis2000lab.net
(1) 第一天 ASP.NET MVC5 完整影片(5.5小時 / .NET 4.x版)免費試聽。影片 https://youtu.be/9spaHik87-A
(2) 第一天 ASP.NET Core MVC 完整影片(3小時 / .NET Core 6.0~8.0)免費試聽。影片 https://youtu.be/TSmwpT-Bx4I
[學員感言] mis2000lab課程評價 - ASP.NET MVC , WebForm 。 https://mis2000lab.medium.com/%E5%AD%B8%E5%93%A1%E6%84%9F%E8%A8%80-mis2000lab%E8%AA%B2%E7%A8%8B%E8%A9%95%E5%83%B9-asp-net-mvc-webform-77903ce9680b
ASP.NET遠距教學、線上課程(Web Form + MVC)。 第一天課程, "完整" 試聽。
......... facebook社團 https://www.facebook.com/mis2000lab ......................
......... YouTube (ASP.NET) 線上教學影片 https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/
Blog文章 "附的範例" 無法下載,請看 https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download
請看我們的「售後服務」範圍(嚴格認定)。
......................................................................................................................................................
ASP.NET MVC => .NET Core MVC 線上教學 ...... 第一天課程 完整內容 "免費"讓您評估 / 試聽
[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了!MIS2000Lab.主講 事先錄好的影片,並非上課側錄! 觀看時,有如「一對一」面對面講課。