2022-09-12 21:18:51 +08:00
|
|
|
|
Imports Accessibility
|
|
|
|
|
|
|
|
|
|
Public Class Form1
|
2022-09-12 00:12:56 +08:00
|
|
|
|
Private Students_ As New List(Of List(Of String)) From
|
2022-03-08 15:47:55 +08:00
|
|
|
|
{
|
2022-04-18 21:04:18 +08:00
|
|
|
|
New List(Of String) From
|
|
|
|
|
{
|
2023-09-21 15:56:40 +08:00
|
|
|
|
"李鹏岗", "唐燕", "沈鹏", "陈心路", "赵珊珊", "郭中丽", "林科闯", "闫金健", "江莹", "陈浩南",
|
|
|
|
|
"蔡叶杭", "林泽锋", "周其程", "石澜", "胡汛", "邱鸿伟", "杨谦益", "王豪", "陈柏逸", "刘志强",
|
|
|
|
|
"赵政仰", "项磊磊", "付星瑞", "黄敏", "刘祥炜", "王轶蒙", "杨仕铌", "余路成", "朱玲俐", "杨攀",
|
|
|
|
|
"高郁捷", "莫梦月", "徐溢聪", "张林珏", "陈芳琦", "许腾飞", "黄研培", "厉亚凯", "谈奇灵", "马雯",
|
|
|
|
|
"姚隽祺", "张恩铭"
|
2022-04-18 21:04:18 +08:00
|
|
|
|
},
|
|
|
|
|
New List(Of String) From
|
|
|
|
|
{
|
2023-09-21 15:56:40 +08:00
|
|
|
|
"吐尔洪江·吾拉木", "萨娜", "王小丹", "林高翔", "邓铁龙", "许书逸", "张晓娟", "邢欢", "黄鑫", "沈晓鑫",
|
|
|
|
|
"曲真魁", "楼伟涛", "杜颖", "汤昊", "向阳", "周亮", "鲁浩伟", "梁雁彤", "杨仁琪", "陈豪飞",
|
|
|
|
|
"张润涵"
|
2022-04-18 21:04:18 +08:00
|
|
|
|
},
|
|
|
|
|
New List(Of String) From
|
|
|
|
|
{
|
2023-09-21 15:56:40 +08:00
|
|
|
|
"莫炳杰", "吴雪峰", "刘海洋", "张宗南", "张裕祥", "蓝进肾", "叶晓芳", "周江鹏", "柳梦宇", "费煜晨",
|
|
|
|
|
"万景", "檀鹏", "陈晨", "吴启鹏", "黄飞鸿", "胡玮琳", "杨成彪", "李迎秋", "平坦", "曲善直",
|
|
|
|
|
"陈子龙", "陈铭禹", "李锦安", "高扬钧", "吴维", "张腾", "常青", "张爱忠", "张耀宗", "黄家新",
|
|
|
|
|
"姚文龙", "张为智", "黄昱祺", "郑一帆", "马梦薇", "程安琪", "张晨昊", "危永平", "叶颖", "周博语",
|
|
|
|
|
"刘敏", "吴世明", "刘源 ", "程可扬", "宋欣格", "李文翔"
|
2022-09-11 23:19:10 +08:00
|
|
|
|
}
|
2022-03-08 15:47:55 +08:00
|
|
|
|
}
|
2023-09-21 15:56:40 +08:00
|
|
|
|
Private StudentsUsed_ As New List(Of List(Of String)) From {New List(Of String), New List(Of String), New List(Of String)}
|
2022-04-18 21:04:18 +08:00
|
|
|
|
|
2023-09-21 15:56:40 +08:00
|
|
|
|
Private TextBox_(2) As TextBox
|
|
|
|
|
Private ButtonRegenerate_(2) As Button
|
2022-03-08 15:47:55 +08:00
|
|
|
|
|
|
|
|
|
Public Sub New()
|
|
|
|
|
' 此调用是设计器所必需的。
|
|
|
|
|
InitializeComponent()
|
|
|
|
|
' 在 InitializeComponent() 调用之后添加任何初始化。
|
2023-09-21 15:56:40 +08:00
|
|
|
|
TextBox_ = {TextBox1, TextBox2, TextBox3}
|
|
|
|
|
ButtonRegenerate_ = {Button2, Button3, Button4}
|
2022-09-11 23:19:10 +08:00
|
|
|
|
OfficeOpenXml.ExcelPackage.LicenseContext = OfficeOpenXml.LicenseContext.NonCommercial
|
2022-03-08 15:47:55 +08:00
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub set_select_name(i As Integer)
|
|
|
|
|
Dim rand As New Random
|
|
|
|
|
Dim current_text = TextBox_(i).Text
|
2022-09-12 00:12:56 +08:00
|
|
|
|
While TextBox_(i).Text = current_text And (Students_(i).Count > 1 Or TextBox_(i).Text <> Students_(i)(0))
|
2022-03-08 15:47:55 +08:00
|
|
|
|
TextBox_(i).Text = Students_(i)(rand.Next(0, Students_(i).Count))
|
|
|
|
|
End While
|
|
|
|
|
TextBox_(i).Refresh()
|
|
|
|
|
End Sub
|
|
|
|
|
|
2022-09-12 00:12:56 +08:00
|
|
|
|
Private Sub move_to_used(i As Integer, name As String)
|
|
|
|
|
If CheckBox1.Checked And Students_(i).Contains(name) Then
|
|
|
|
|
If Students_(i).Count > 1 Then
|
|
|
|
|
Students_(i).Remove(name)
|
|
|
|
|
StudentsUsed_(i).Add(name)
|
|
|
|
|
Else
|
|
|
|
|
Students_(i).AddRange(StudentsUsed_(i))
|
|
|
|
|
StudentsUsed_(i).Clear()
|
|
|
|
|
End If
|
|
|
|
|
End If
|
|
|
|
|
End Sub
|
2022-03-08 15:47:55 +08:00
|
|
|
|
|
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
2023-09-21 15:56:40 +08:00
|
|
|
|
For i As Integer = 0 To 2
|
2022-03-08 15:47:55 +08:00
|
|
|
|
set_select_name(i)
|
|
|
|
|
Next
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
|
|
|
If (Timer1.Enabled) Then
|
|
|
|
|
Timer1.Enabled = False
|
2023-09-21 15:56:40 +08:00
|
|
|
|
For i As Integer = 0 To 2
|
2022-09-12 00:12:56 +08:00
|
|
|
|
move_to_used(i, TextBox_(i).Text)
|
|
|
|
|
Next
|
2022-03-08 15:47:55 +08:00
|
|
|
|
Button1.Text = "再来一次"
|
2023-09-21 15:56:40 +08:00
|
|
|
|
For i As Integer = 0 To 2
|
2022-04-18 21:04:18 +08:00
|
|
|
|
ButtonRegenerate_(i).Visible = True
|
|
|
|
|
Next
|
2022-03-08 15:47:55 +08:00
|
|
|
|
Else
|
|
|
|
|
Timer1.Enabled = True
|
|
|
|
|
Button1.Text = "停!"
|
2023-09-21 15:56:40 +08:00
|
|
|
|
For i As Integer = 0 To 2
|
2022-04-18 21:04:18 +08:00
|
|
|
|
ButtonRegenerate_(i).Visible = False
|
|
|
|
|
Next
|
2022-03-08 15:47:55 +08:00
|
|
|
|
End If
|
|
|
|
|
End Sub
|
|
|
|
|
|
2023-09-21 15:56:40 +08:00
|
|
|
|
Private Sub ButtonRefresh_Click(sender As Object, e As EventArgs) Handles Button2.Click, Button3.Click, Button4.Click
|
|
|
|
|
For i As Integer = 0 To 2
|
2022-03-08 15:47:55 +08:00
|
|
|
|
If sender Is ButtonRegenerate_(i) Then
|
|
|
|
|
set_select_name(i)
|
2022-09-12 00:12:56 +08:00
|
|
|
|
move_to_used(i, TextBox_(i).Text)
|
2022-03-08 15:47:55 +08:00
|
|
|
|
End If
|
|
|
|
|
Next
|
|
|
|
|
End Sub
|
|
|
|
|
|
2022-04-18 21:04:18 +08:00
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
2023-09-21 15:56:40 +08:00
|
|
|
|
If Not Timer1.Enabled Then
|
|
|
|
|
If TextBox_(0).Text.StartsWith("陈浩") Then
|
|
|
|
|
TextBox_(0).Text = "陈浩" + New List(Of String) From {"东", "西", "南", "北"}((New Random).Next(0, 4))
|
|
|
|
|
TextBox_(0).Refresh()
|
|
|
|
|
ElseIf TextBox_(0).Text.StartsWith("陈心") Then
|
|
|
|
|
If (New Random).Next(0, 4) = 0 Then
|
|
|
|
|
TextBox_(0).Text = "陈心街"
|
|
|
|
|
Else
|
|
|
|
|
TextBox_(0).Text = "陈心路"
|
|
|
|
|
End If
|
|
|
|
|
TextBox_(0).Refresh()
|
|
|
|
|
ElseIf TextBox_(0).Text = "闫金健" Or TextBox_(0).Text = "闫银健" Then
|
|
|
|
|
If (New Random).Next(0, 4) = 0 Then
|
|
|
|
|
TextBox_(0).Text = "闫银健"
|
|
|
|
|
Else
|
|
|
|
|
TextBox_(0).Text = "闫金健"
|
|
|
|
|
End If
|
|
|
|
|
TextBox_(0).Refresh()
|
|
|
|
|
End If
|
2022-04-18 21:04:18 +08:00
|
|
|
|
End If
|
|
|
|
|
' If Me.Text = "" Then
|
|
|
|
|
' Me.Text = "激★情★大★抽★奖"
|
|
|
|
|
' Else
|
|
|
|
|
' Me.Text = ""
|
|
|
|
|
' End If
|
|
|
|
|
End Sub
|
|
|
|
|
|
2022-09-11 23:19:10 +08:00
|
|
|
|
|
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
|
|
|
Dim dialog As New SaveFileDialog With {.Filter = "Excel 工作簿|*.xlsx", .Title = "保存为excel", .FileName = "成员名单"}
|
|
|
|
|
Dim result = dialog.ShowDialog()
|
2022-09-12 21:18:51 +08:00
|
|
|
|
Dim students As New List(Of List(Of String))
|
|
|
|
|
students = Students_
|
2023-09-21 15:56:40 +08:00
|
|
|
|
For i As Integer = 0 To 2
|
2022-09-12 21:18:51 +08:00
|
|
|
|
students(i).AddRange(StudentsUsed_(i))
|
|
|
|
|
Next
|
2022-09-11 23:19:10 +08:00
|
|
|
|
If result = DialogResult.OK Then
|
|
|
|
|
Try
|
|
|
|
|
If FileIO.FileSystem.FileExists(dialog.FileName) Then FileIO.FileSystem.DeleteFile(dialog.FileName)
|
|
|
|
|
Dim file As New OfficeOpenXml.ExcelPackage(dialog.FileName)
|
|
|
|
|
Dim sheet = file.Workbook.Worksheets.Add("分组名单")
|
2023-09-21 15:56:40 +08:00
|
|
|
|
For i As Integer = 0 To 2
|
2022-09-11 23:19:10 +08:00
|
|
|
|
Dim c = Chr(Asc("A"c) + i)
|
|
|
|
|
sheet.Cells(c + "1").Value = "第" + Convert.ToString(i + 1) + "小组"
|
2022-09-12 21:18:51 +08:00
|
|
|
|
For j As Integer = 0 To students(i).Count - 1
|
|
|
|
|
sheet.Cells(c + Convert.ToString(j + 2)).Value = students(i)(j)
|
2022-09-11 23:19:10 +08:00
|
|
|
|
Next
|
|
|
|
|
Next
|
|
|
|
|
file.Save()
|
|
|
|
|
MsgBox("保存成功")
|
|
|
|
|
Catch ex As Exception
|
|
|
|
|
MsgBox("保存失败")
|
|
|
|
|
End Try
|
|
|
|
|
End If
|
|
|
|
|
End Sub
|
2022-09-12 00:12:56 +08:00
|
|
|
|
|
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
|
|
|
|
Try
|
|
|
|
|
Process.Start(New ProcessStartInfo("https://kkmeeting.chn.moe") With {.UseShellExecute = True})
|
|
|
|
|
Catch ex As Exception
|
|
|
|
|
MsgBox("调用浏览器失败,请手动使用浏览器访问kkmeeting.chn.moe。")
|
|
|
|
|
End Try
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
|
|
|
|
Try
|
|
|
|
|
Process.Start(New ProcessStartInfo("https://github.com/CHN-beta/group-meeting-lottery") With {.UseShellExecute = True})
|
|
|
|
|
Catch ex As Exception
|
|
|
|
|
MsgBox("调用浏览器失败,请手动使用浏览器访问kkmeeting.chn.moe。")
|
|
|
|
|
End Try
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
2023-09-21 15:56:40 +08:00
|
|
|
|
For i As Integer = 0 To 2
|
2022-09-12 00:12:56 +08:00
|
|
|
|
Students_(i).AddRange(StudentsUsed_(i))
|
|
|
|
|
StudentsUsed_(i).Clear()
|
|
|
|
|
Next
|
|
|
|
|
End Sub
|
2022-03-08 15:47:55 +08:00
|
|
|
|
End Class
|