[習題]ASP.NET的 簡易投票區 #7--直立的長條圖(VB範例)

我提供的範例,有些是給讀者的「售後服務」

本範例,是一個簡單的 ADO.NET程式(搭配資料庫)。
只會使用 Visual Studio的入門者,可能還要一段時間的努力才能做到這邊







上一篇文章:[習題]ASP.NET的 簡易投票區 #6 --直立的長條圖

在此提供範例給讀者參考。

 

關於投票區的所有文章,請看本網站的 --

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

 

補充下集(ASP.NET專題實務II -- 範例集與4.0新功能)的

          第十一章「投票區與長條圖」

 

 

HTML畫面設計 --

    <p>
        EasyVote_1的投票結果(<span class="style1">直式</span>長條圖)</p>
    <form id="form1" runat="server">
    <div>    
        <hr />        
        <br />

<table border="1" width="100%" id="table1">
    <tr>
        <td>得票數<p>與</p><p>長條圖</td>
        <asp:Label ID="Label1" runat="server"></asp:Label>
    </tr>
    <tr>
        <td>候選人編號</td>
        <asp:Label ID="Label2" runat="server"></asp:Label>
    </tr>
</table>

        
        <br />
        <hr />
        回到<a href="EasyVote_1.aspx">原本的投票區(EasyVote_1.aspx)</a></div>
    </form>

 

 

後置程式碼(Code Behind) --

'----自己寫的 (宣告)----
Imports System
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
'----自己寫的 (宣告)----



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Conn As New SqlConnection(WebConfigurationManager.ConnectionStrings("存在Web.Config檔案裡面的資料庫連結字串").ConnectionString)
        Conn.Open()   '---- 連結DB

        Dim dr As SqlDataReader = Nothing
        Dim cmd As SqlCommand = New SqlCommand("select top 1 * from Vote_1 order by id DESC", Conn)
        dr = cmd.ExecuteReader()   '---- 執行SQL指令,取出每一位候選人的得票數
        dr.Read()    '-- 註解:本範例使用的 Vote_1資料表,請依照書中的範例來作。

        Dim vote_no As Integer = 0
        Dim end_str As String = Nothing
        Dim no_str As String = Nothing

        '***********************************************
        For i As Integer = 1 To (dr.FieldCount - 1)
            vote_no = dr(i)

            end_str = end_str & "<td align=center valign=bottom><img src='images/sum" & i & ".gif' width=10 height=" & (vote_no * 10) & "></td>"
            '—控制圖片高度,以「直式」長條圖來展示得票數。

            no_str = no_str & "<td>號候選人的得票數:" & vote_no & "</td>"
        Next
        '***********************************************

        Label1.Text = end_str
        Label2.Text = no_str

        If Not (dr Is Nothing) Then
            cmd.Cancel()
            dr.Close()
        End If

        If (Conn.State = ConnectionState.Open) Then
            Conn.Close()
            Conn.Dispose()
        End If
    End Sub

 

 

 

 

操作畫面如下 --

首先就是一個簡單的投票畫面~

     

 

投票完成後,立刻會看見「得票數」。我用「長條圖」來展示之,這是本文的重點所在~~

下圖的右下方,就是本文介紹的直立長條圖

           

 

您可以參閱以前的文章,

或是參閱我寫的書本「下集」,有比較詳細的解說。

 

我提供的範例,有些是給讀者的「售後服務」

上面的範例,是一個簡單的 ADO.NET程式(搭配資料庫)。

....雖然不難,但是......

只會使用 Visual Studio的入門者,可能還要一段時間的努力才能做到這邊

 

如果您不是本書讀者,而且自己底子不穩,....... 建議您三思。

  (我沒有見過哪個人是可以上網隨手 Copy範例,瞬間就會變成高手的。   初學者請不要作大夢)

 

ADO.NET入門文章(書本文章公開 / 下載)#1 -- 各種基礎範例

ADO.NET入門文章(書本文章公開 / 下載)#2 -- Stored Procedure / NextResult方法 / MARS

ADO.NET入門文章(書本文章公開 / 下載)#3 -- MARS與簡單的「留言版」範例

 

 

 

 

===  最後要打一下廣告  ==========================

 

1.  如果您覺得我的描述、寫作方式,符合您的胃口。

2.  如果您看完以後,知道我寫書、介紹一些控制項或是技術........不是「混過去」、「帶過去」而已,而是真真確確地蒐集 "有用的範例",讓您學得更深入!

3.  如果您覺得:我出完書以後,還不定期地提供售後服務,提供補充教材......這樣的互動是 "良性"的,是值得鼓勵的。......已經推出 兩百多篇 補充範例了

4. 如果您(尤其是學生)真的想把基礎學好,而不是 "混"過這一門課就好、而不是寫個(畢業專題的)屍體出來交差(能畢業就好).....那麼.......

 

請您購買下面的書籍,

東西多到您學不完

上 / 下兩集,兩本書的厚度(我蒐集的各種範例)將近 兩千頁 !!......絕對不會讓您失望

 

 

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

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

線上課程教學,遠距教學 (Web Form 約 51hr)  https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程教學,遠距教學 (ASP.NET MVC 約 135hr)  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.主講   事先錄好的影片,並非上課側錄!   觀看時,有如「一對一」面對面講課