SOGO論壇

標題: vb2008對獎程式 小問題.... [列印本頁]
作者: 劍君13恨    時間: 2012-8-17 14:08:47     標題: vb2008對獎程式 小問題....

如題 我可以產生兩組號碼了 可是對獎那邊有問題
請幫我修改 可以的話 加註解 詳細些喔

我有四個按鈕 第一個是產生一組號碼
第二個是產生中獎號碼
第三個是對獎 要可以跳出中幾個號碼
第四個是可以重新產生號碼跟對獎

我的程式如下 請幫我改第三第四個按鈕(用文字方塊對獎喔)
按鈕一跟按鈕二 分別產生6個數字到編號1-12個文字方塊
我共有12個文字方塊 1-6是產生的號碼 7-12是開獎的號碼
以上都ok了

按鈕三
Dim a(6), b(6) As Integer
Dim i, n, temp As Integer
Dim prize
a(1) = Text1.Text
a(2) = Text2.Text
a(3) = Text3.Text
a(4) = Text4.Text
a(5) = Text5.Text
a(6) = Text6.Text

b(1) = Text7.Text
b(2) = Text8.Text
b(3) = Text9.Text
b(4) = Text10.Text
b(5) = Text11.Text
b(6) = Text12.Text
prize = 0
Do While i <= 6 '當i<6的時候要做 因為有六個數字要比較
temp = a(i)
n = b(i) 'n是由陣列b產生的數字 會變動
For i = 1 To 6
If temp = n Then
prize = prize + 1
End If
Next
i += 1
Loop

MsgBox(Val(prize) / 6)
prize = 0

按鈕四
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
作者: t8690198    時間: 2012-8-17 14:25:53

私信詳談,我傳類似的給你研究
作者: 又靜    時間: 2012-8-18 02:29:34

本帖最後由 又靜 於 2012-8-18 03:42 編輯

您好
針對您的需求我利用四個按鈕、二個文字方塊，重新編寫一個比較簡單昜懂的程式給您參考

按鈕一
  1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim a As Integer
  3.         Randomize()                                         '為 Rnd 函式的亂數產生器指定新的種子值以進行初始化。
  4.         TextBox1.Text = ""                                  '清除 TextBox1 文字方塊
  5.         For i = 1 To 6                                      '設定六次迴圈取得六位數
  6.             a = Rnd() * 9 + 48                              '產生亂數 0~9 (0~9 的 ASCII 碼是從 48~57 所以要再加48 )
  7.             TextBox1.Text = TextBox1.Text & Chr(a)          '把產生的亂數轉換成字元，再跟文字方數組合成字串
  8.         Next
  9.     End Sub
複製代碼
Randomize()  主要是為 Rnd 函式的亂數產生器進行初始化。如果省略了 Number，則會使用系統計時器的值做為新的種子值。
沒有使用 Randomize()，會造成Rnd 函式第一次所產生的值都相同。

因為我們要用文字方塊對獎，所以把產生0~9的亂數再加48，成為0~9的ASCII 碼，Chr(a)就是把ASCII 轉換成文字碼
利用 & 把六個字元組合成一組六位數的字串，再放到文字方塊1。


按鈕二 (程式碼跟按鈕一類似，所以不加註解了)
  1.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2.         Dim b As Integer
  3.         Randomize()
  4.         TextBox2.Text = ""
  5.         For i = 1 To 6
  6.             b = Rnd() * 9 + 48
  7.             TextBox2.Text = TextBox2.Text & Chr(b)
  8.         Next
  9.     End Sub
複製代碼
按鈕三
  1.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  2.         Dim prize
  3.         prize = 0                                           '清除相同號碼次數值
  4.         For i = 1 To 6                                      '設定六次迴圈，做六個數字的比較
  5.             If Mid(TextBox1.Text, i, 1) = Mid(TextBox2.Text, i, 1) Then '利用迴圈 i 的值來指定兩個字串的第幾位數要做比較
  6.                 prize = prize + 1                           '比較相同則對中號碼的次數加一
  7.             End If
  8.         Next
  9.         MsgBox(Val(prize))                                  '將中幾個號碼顯示
  10.     End Sub
複製代碼
Mid主是要從字串中取得一組指定的字串，它的用法Mid(字串，從第幾位開始，取幾個字)
所以我們利用For迴圈從文字方塊中，從第一位數逐一取到第六位，每次取一個字出來比較
如果有相同，prize就加一，最後再把 prize 的值顯示出來


按鈕四
  1.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  2.         Dim a As Integer
  3.         TextBox1.Text = ""
  4.         TextBox2.Text = ""
  5.         Randomize()
  6.         For i = 1 To 6
  7.             a = Rnd() * 9 + 48
  8.             TextBox1.Text = TextBox1.Text & Chr(a)
  9.             a = Rnd() * 9 + 48
  10.             TextBox2.Text = TextBox2.Text & Chr(a)
  11.         Next
  12.     End Sub
  13. End Class
複製代碼
因為不知道您要重新產生號碼跟對獎號碼??? 或是重新產生按鈕1的號碼，然後再對一次獎???
作者: 劍君13恨    時間: 2012-8-18 10:07:24

又靜 發表於 2012-8-18 02:29  
您好
針對您的需求我利用四個按鈕、二個文字方塊，重新編寫一個比較簡單昜懂的程式給您參考

神人版主大大  根本感恩啊!!
小子研究一下  希望還能再跟你請益!
作者: 劍君13恨    時間: 2012-8-18 10:13:33

又靜 發表於 2012-8-18 02:29  
您好
針對您的需求我利用四個按鈕、二個文字方塊，重新編寫一個比較簡單昜懂的程式給您參考

其實  我的意思是
六個自己產生的號碼  同時顯示在文字方塊1-6(按鈕一)
開獎號碼產生  同時顯示在文字方塊7-12(按鈕一)
然後按下對獎
會顯示出方塊1-6  有幾個跟方塊7-12一樣


謝謝  感恩  可以幫忙改一下下嗎
作者: t8690198    時間: 2012-8-18 11:11:54

可以利用if來做比較
簡易說明
當a＝b時將他們的顏色設為綠色
不等於時進行下一個比對
並將不等於的設為紅色
或者另外在開一個Label1.text來進行顯示
作者: 劍君13恨    時間: 2012-8-18 12:01:21

又靜 發表於 2012-8-18 02:29  
您好
針對您的需求我利用四個按鈕、二個文字方塊，重新編寫一個比較簡單昜懂的程式給您參考

可以用了  感謝  只是這樣產生的六個數字好像會重複?
作者: 又靜    時間: 2012-8-18 12:50:07

劍君13恨 發表於 2012-8-18 12:01  
可以用了  感謝  只是這樣產生的六個數字好像會重複?

我用您按鈕三的程式修改一下，看看是不是您想要的
  1.         Dim a(6), b(6) As Integer
  2.         Dim prize

  4.         a(1) = Text1.Text
  5.         a(2) = Text2.Text
  6.         a(3) = Text3.Text
  7.         a(4) = Text4.Text
  8.         a(5) = Text5.Text
  9.         a(6) = Text6.Text

  11.         b(1) = Text7.Text
  12.         b(2) = Text8.Text
  13.         b(3) = Text9.Text
  14.         b(4) = Text10.Text
  15.         b(5) = Text11.Text
  16.         b(6) = Text12.Text
  17.         prize = 0

  19.         For i = 1 To 6
  20.             If a(i) = b(i) Then
  21.                 prize = prize + 1
  22.             End If
  23.         Next
  24.         MsgBox(prize)
複製代碼
作者: 又靜    時間: 2012-8-18 13:06:15

劍君13恨 發表於 2012-8-18 12:01  
可以用了  感謝  只是這樣產生的六個數字好像會重複?

Rnd 函式的亂數產生器它產生的亂數重覆性不高，但是Rnd 函式會以種子值開始，並產生落在有限範圍內的數值，因此瞭解用於產生該值演算法的人員，就可預測出結果。所以不適合用來產生用於密碼編譯的亂數
作者: 劍君13恨    時間: 2012-8-18 22:21:26

又靜 發表於 2012-8-18 13:06  
Rnd 函式的亂數產生器它產生的亂數重覆性不高，但是Rnd 函式會以種子值開始，並產生落在有限範圍內的數值 ...

謝謝又大....小弟剛好在另一專業論壇得到以下回答  交流一下
據說可以避免重複....  

另外  請問如何向你那樣貼程式碼阿....還有  請教 您真的是  女性嗎?

很少碰到女生  程式很好的  ><'


  Do While i <= 6      '當i<6的時候要做  因為有六個數字要比較
            n = Int(Rnd() * 48) + 1
            b(i) = n         'n是由陣列b產生的數字 會變動
            For c = 1 To i - 1
                If c < i And n = b(c) Then
                    i = i - 1
                End If
            Next
            i += 1
        Loop
        Text1.Text = b(1)
        Text2.Text = b(2)
        Text3.Text = b(3)
        Text4.Text = b(4)
        Text5.Text = b(5)
        Text6.Text = b(6)



歡迎光臨 SOGO論壇 (https://oursogo.com/) Powered by OURSOGO.COM