請教用vb.net編寫抽簽程序的問題

CSDN問答 2022-01-08 04:12:51 阅读数:729

vb.net vb 程序

大家好!我大學專業不是計算機,讀了個文科。工作後發發覺計算機編程很有趣,也想編些適合自己工作的軟件。目前在自學vb.net,但屬於很菜的那種

最近想編個抽簽的程序,希望的功能是:
1. 通過combobox選擇名單列錶。目前列錶是內嵌的,如果可以鏈接外部的txt文本文件,修改txt文本文件就可改變程序裏參與抽簽的名單,那就perfect了。
2. 按“開始”按鈕,選中的名單在Textbox文本框裏滾動
3. 按“暫停”按鈕,抽出一個結果,並將其顯示在另一個文本框裏

4. 抽簽不重複,抽一個少一個。

參考了網上一些前輩的代碼,但始終做不出自己想要的效果,只能在這裏求助各比特大神了,希望能指點迷津

代碼如下:

Public Class Form1
    Dim i As Integer
    Dim j As Integer
    'Dim a() As String
    Dim names(), randomnames() As String
    Dim allNames() As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If ComboBox1.Text = "" Then
            MsgBox("Please select a class!")
            Form1_Load(0, Nothing)
        Else
            Timer1.Enabled = True
        End If

    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If ComboBox1.Text = "" Then
            MsgBox("Please select a class!")
            Form1_Load(0, Nothing)
        Else
            Dim b() As String = {}
            Dim i, k As Integer
            Timer1.Enabled = False
            For i = 0 To UBound(allNames)
                If TextBox1.Text = allNames(i) Then

                Else
                    ReDim Preserve b(k)
                    b(k) = allNames(i)
                    k = k + 1
                End If
            Next
            ReDim allNames(j - 1)
            'ReDim allNames(j + 1)
            For i = 0 To UBound(b)
                allNames(i) = b(i)
            Next
            j -= 1
            TextBox2.Text = TextBox2.Text & TextBox1.Text & vbCrLf
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form1_Load(0, Nothing)
        ComboBox1.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = "已抽出名單:" & vbCrLf
        Timer1.Enabled = False
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        TextBox1.Text = ""
        names = My.Resources.names_1.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
        randomnames = My.Resources.names_2.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
        Timer1.Interval = 100
        j = 7
        TextBox2.Text = "已抽出名單:" & vbCrLf

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        End
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        TextBox1.Text = ""
        If j = 0 Then Timer1.Enabled = False : Exit Sub
        If ComboBox1.SelectedItem.ToString = "Class 5" Then
            allNames = names
        ElseIf ComboBox1.SelectedItem.ToString = "Class 7" Then
            allNames = randomnames
        Else
            Form1_Load(0, Nothing)
        End If
        i = Int(j * Rnd())
        If i < 0 Then
            'End
            Timer1.Enabled = False
            MsgBox("已抽完")
        Else
            TextBox1.Text = allNames(i)
        End If
    End Sub
End Class




采納答案:
 For i = 0 To UBound(allNames) If TextBox1.Text = allNames(i) Then Else ReDim Preserve b(k) b(k) = allNames(i) k = k + 1 End If Next 'ReDim allNames(j - 1) 'ReDim allNames(j + 1) For i = 0 To UBound(b) allNames(i) = b(i) Next

把ReDim allNames(j - 1)   ReDim allNames(j + 1) 都注釋掉看看



其他答案2:

可以弃坑了,改C#吧。。vb.net用的人比較少。。


 

你這裏redim allNames有問題,導致下面allNames數組越界了,你的j直接複制為7,確認你資源拆分後數組長度就是7? ReDim allNames(j - 1) 'ReDim allNames(j + 1) For i = 0 To UBound(b) allNames(i) = b(i) Next j -= 1

其他答案3:

第一次提問,不知道在哪上傳附件


其他答案4:

感謝幫忙解答的朋友,但暫時還沒解决問題,繼續等,看看哪比特能不能幫我解决下問題


其他答案5:

對於第2個問題,我想在Button2的click事件代碼裏添加:一個判斷,思路大概是把TextBox2裏的每行名字作為元素建立數組,然後判斷每個元素是否和text Box1存在的名字或空格相同,如果相同則彈出msgbox("該名字已被選中,請點擊'Start'按鈕繼續!") ,但不知道代碼該怎麼寫,試了下,不對,呵呵

Dim c() As String = {}
        c = TextBox2.Text.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
        For i = 0 To UBound(c)
            If c(i) = TextBox1.Text Then
                MsgBox("This name has been selected! Please press 'Start' to continue!")
            End If
        Next

版权声明:本文为[CSDN問答]所创,转载请带上原文链接,感谢。 https://gsmany.com/2022/01/202201080412507470.html