Highslide for Wordpress Plugin

彙整於標籤 “VB.NET”

前情提要

在前一次上課已經大略的把VB.NET基礎的主控台應用程式部份講完了(完整上課內容請參閱[VB.NET]VB.NET程式設計基礎入門-Part 3),在這邊附上關於三星彩開獎模擬程式,我的最終作品:

   1: Module 亂數應用

   2:  

   3:     Sub Main()

   4:         Dim Num() = {0, 0, 0}, I As Integer

   5:         Console.WriteLine("{0}[3星彩]開獎程式...{1}", vbNewLine, vbNewLine)

   6:         For I = 0 To Num.GetUpperBound(0)

   7:             Num(I) = 延遲開獎(I)

   8:         Next

   9:         Console.WriteLine("{0}本期號碼:【{1}】 【{2}】 【{3}】", vbNewLine, Num(0), Num(1), Num(2))

  10:         Call 兌獎相關號碼(Num)

  11:         Console.Read()

  12:     End Sub

  13:     Function 延遲開獎(ByVal No)

  14:         Dim temp, X As Integer

  15:         Randomize()

  16:         X = Int(Rnd() * 3) + 1

  17:         temp = Int(Rnd() * 9) + 1

  18:         Console.Write("第{0}個開出的數字是:[{1}]", No + 1, temp)

  19:         If No < 2 Then

  20:             Console.WriteLine(",{0}秒後開出下一個數字", X)

  21:             System.Threading.Thread.Sleep(X * 1000)

  22:         Else

  23:             Console.WriteLine(",全部數字都已經開出")

  24:         End If

  25:         Return (temp)

  26:     End Function

  27:     Sub 兌獎相關號碼(ByVal LotoNum)

  28:         'LotoNum = {2, 3, 2}

  29:         Dim group(8) As String

  30:         group(0)=LotoNum(0) & LotoNum(1) & LotoNum(2)

  31:         If LotoNum(0) = LotoNum(1) And LotoNum(0) <> LotoNum(2) Then

  32:             group(1) = LotoNum(0) & LotoNum(0) & LotoNum(2)

  33:             group(2) = LotoNum(0) & LotoNum(2) & LotoNum(0)

  34:             group(3) = LotoNum(2) & LotoNum(0) & LotoNum(0)

  35:         End If

  36:         If LotoNum(0) = LotoNum(2) And LotoNum(0) <> LotoNum(1) Then

  37:             group(1) = LotoNum(0) & LotoNum(0) & LotoNum(1)

  38:             group(2) = LotoNum(0) & LotoNum(1) & LotoNum(0)

  39:             group(3) = LotoNum(1) & LotoNum(0) & LotoNum(0)

  40:         End If

  41:         If LotoNum(1) = LotoNum(2) And LotoNum(0) <> LotoNum(1) Then

  42:             group(1) = LotoNum(0) & LotoNum(1) & LotoNum(1)

  43:             group(2) = LotoNum(1) & LotoNum(0) & LotoNum(1)

  44:             group(3) = LotoNum(1) & LotoNum(1) & LotoNum(0)

  45:         End If

  46:         If LotoNum(0) <> LotoNum(1) And LotoNum(1) <> LotoNum(2) And LotoNum(0) <> LotoNum(2) Then

  47:             group(1) = LotoNum(0) & LotoNum(1) & LotoNum(2)

  48:             group(2) = LotoNum(0) & LotoNum(2) & LotoNum(1)

  49:             group(3) = LotoNum(1) & LotoNum(0) & LotoNum(2)

  50:             group(4) = LotoNum(1) & LotoNum(2) & LotoNum(0)

  51:             group(5) = LotoNum(2) & LotoNum(0) & LotoNum(1)

  52:             group(6) = LotoNum(2) & LotoNum(1) & LotoNum(0)

  53:         End If

  54:         group(7)=LotoNum(0) & LotoNum(1)

  55:         group(8)=LotoNum(1) & LotoNum(2)

  56:         Console.WriteLine("{0}各種兌獎組合號碼如下{1}", vbNewLine, vbNewLine)

  57:         Console.WriteLine("正 彩:")

  58:         Console.WriteLine("{0}{1}", vbTab, group(0))

  59:         '兩球同號

  60:         Console.WriteLine("3組彩:")

  61:         If LotoNum(1) = LotoNum(2) And LotoNum(0) = LotoNum(1) Then

  62:             Console.WriteLine("{0}本期無此組合", vbTab)

  63:         Else

  64:             Console.WriteLine("{0}{1}、{2}、{3}", vbTab, group(1), group(2), group(3))

  65:         End If

  66:         '三球皆不同號

  67:         Console.WriteLine("6組彩:")

  68:         If LotoNum(0) <> LotoNum(1) And LotoNum(1) <> LotoNum(2) And LotoNum(0) <> LotoNum(2) Then

  69:             Console.WriteLine("{0}{1}、{2}、{3}、{4}、{5}、{6}", vbTab, group(1), group(2), group(3),

  70:                  group(4), group(5), group(6))

  71:         Else

  72:             Console.WriteLine("{0}本期無此組合", vbTab)

  73:         End If

  74:         '只看頭或尾的兩個數字

  75:         Console.WriteLine("對 彩:")

  76:         Console.WriteLine("{0}{1}、{2}", vbTab, group(7), group(8))

  77:     End Sub

  78: End Module

再來要開始進入Windows Form 應用程式,也就是表單的部份

繼續閱讀 »

Comments 沒有迴響 »

前情提要

    ●"EX03.sln(.vbproj) – 模擬發票列表
    @提供"單價"與"數量"
     單價在10萬以內 – As Double
     數量在1~100件 – As Integer
    @報表明細
     應付金額:________(貨幣-改良版)
     營業稅額:________
     ================================
     總計金額:________
    ●"主函數"模組化-語法執行中心
    Sub Main()
        Dim 單價 = Set_Price()
        Dim 數量 = Set_Number()
        Print_Out(單價, 數量)
        Console.Read()
    End Sub

前一次的完整上課內容請參閱[VB.NET]VB.NET程式設計基礎入門-Part 2

繼續閱讀 »

Comments 1個迴響 »

前情提要

前一次上課內容請參閱[VB.NET]VB.NET程式設計基礎入門-Part 1,這次接續上次的人工判斷(IF)的部份,完成中式報時的五大時段

上課內容

VB.NET 2010
※"判別"語法
☆人工式IF//N選1
    If        (A) Then
            (B)
    ElseIf    (A) Then
            (B)
    ElseIf    (A) Then
            (B)
    …
    Else
            (C)
    End If

繼續閱讀 »

Comments 沒有迴響 »

這篇以使用順序來講應該是要放在[VB.NET]VB.NET程式設計基礎入門之前,不過因為當初發表那篇文章的電腦已經有安裝2010版,所以就沒有截圖。現在則是在另外一台只有安裝2008版的電腦作重裝順別抓圖下來。

Visual Studio是微軟推出的程式撰寫套裝系列軟體,主要成員有Visual Basic、Visual C#、Visual C++’、以及Visual Web Developer,一般使用者如果沒有途徑沒錢購買專業版,微軟也有提供免費的Express版本讓大家下載,對於初學者來講,也不需要用到那麼多功能的專業版。

  • 軟體名稱:Microsoft Visual Basic 2010 Express
  • 軟體性質:免費軟體
  • 軟體語言:多國語言(按照下載時所選的語言決定程式主要語系)
  • 官方網站:Microsoft
  • 軟體下載按這裡

繼續閱讀 »

Comments 沒有迴響 »

前言

在程式寫作上,之前只有接觸過C跟一些簡單的VB(Visual Basic 6.0),但是在看過人力銀行上面各個程式設計師的應徵條件後,發現.NET是微軟體系的方向(另外一個就是甲骨文體系:JAVA & Oracle),因此就打算去補習班進修一番。

我報名的是巨X電腦的VB.NET程式設計基礎入門課程,授課時數15小時,學習目標有:

  1. 讓程式設計初學者了解 .NET架構與功能。
  2. 了解程式語言的資料型別、語言基礎和開發環境。
  3. 流程控制、陣列、程式邏輯、迴圈。

今天是第一次上課,將課程內容紀錄在這裡備忘。

繼續閱讀 »

Comments 2個迴響 »