学生课堂随机点名系统小结

Posted 2022-12-02 枯萎的海风

小可爱是知名中学老师，今天突然问我能不能帮她写一个随机数生成的程序，用于学生上课点名回答问题用，哈哈，装逼的时候到啦：）

基本思路

最近写惯了shell、python、js、java、android，要么是不带界面的，要么是非windows平台的，要实现这么一个程序，一定是在windows平台上的，想到了以下三种方式：

1. MFC       最熟悉也最笨重，业界早淘汰的东西，总有种排斥感
2. .net      windows平台超简单的开发工具，开发便捷
3. qt        支持跨平台界面程序开发，不过电脑没有安装相关开发程序

基于以上考量，采用.net进行开发。

基本实现

本质上，这个就是一个随机数生成器的UI版，废话不多说了，直接上代码吧

Public Class Form
    Dim allStuNum As Integer = 42
    'Dim allStuName As New ArrayList
    Dim useName As Boolean
    Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        Timer1.Interval = 20
        Try
            Dim fn = FreeFile()
            FileOpen(fn, "config.txt", OpenMode.Input)
            Dim num As Integer
            Input(fn, num)
            allStuNum = num
        Catch
            allStuNum = 42
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Randomize()
        Dim randNum As Integer = Rnd() * (allStuNum - 1) + 1
        Label1.Text = randNum
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Button1.Text = "开始" Then
            Timer1.Enabled = True
            Button1.Text = "关闭"
        Else
            Timer1.Enabled = False
            Button1.Text = "开始"
        End If
    End Sub
End Class

实现效果

项目代码

https://github.com/zhyh2010/random_number_generator