哇塞不！赛博时代云上自动化辅导孩子学习。

电玩女神 2024-03-24 23:05 72阅读 0赞

## 背景 ##

孩子天天上网看动画片，都幼儿园大班了还不会100以内的加减法，因为我平时还需要忙着工作不能天天陪着孩子。  
这次我们整个活，让孩子每天心甘情愿的做100道题。而且电脑还要给孩子一些提醒，即使做错了也会不厌其烦的给孩子提示计算的方法，每做对一道题还会鼓励孩子坚持学习。  
无论是做对还是做错了题，都要存到C盘根目录里，这样等下班回来了还可以针对孩子做错的题分析和加强训练。

## 做一个让孩子输入数学运算的成绩 ##

![用VB.Net做的程序][VB.Net]  
为了能够实现让孩子在算完数学题之前不能用电脑，我们要拿出祖传的VB.Net语言  
![在这里插入图片描述][d6297497215942afa516faffb45f6395.png]  
主窗体把TopMost勾上，界面就会永远覆盖在其他界面之上，孩子就没办法擅自打开网页和游戏了  
![在这里插入图片描述][5b922d8cafe346368e255bd97d44afab.png]  
外观FormBorderStyle选择None，这样界面就不会显示最大化、最小化、关闭按钮了

![在这里插入图片描述][3d2e5f8bdcfb48928e67c2e4e5ba7cea.png]  
屏幕初始位置设置为CenterScreen（居中），窗口状态设置为Maximized（最大化），这样就能实现全屏效果  
![在这里插入图片描述][d4355dd015ed4a04b12ccf74d7a5d313.png]  
把控件都拖拽到界面上，属性栏里可以设置一下界面背景、文字颜色、文字大小  
![在这里插入图片描述][b42d290c579a4ba2bf34c16a8849f741.png]  
为了能用系统自带的文字转语音功能，让程序能和孩子互动说话，还需要加上System.Speech引用  
然后重点来了，我们双击窗体任意空白位置，开始写代码

Imports System.Speech.Synthesis
    Public Class Form1
        ' 第一个数
        Dim a As Integer = 0
        ' 第二个数
        Dim b As Integer = 0
        ' 符号
        Dim c As Integer = 0
        ' 正确得数
        Dim d As Integer = 0
        ' 得分
        Dim score As Integer = 0
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            出题()
        End Sub
    
        Private Sub 出题()
    Start:
            Dim rand As New Random()
            a = rand.Next(100)
            b = rand.Next(100)
            c = rand.Next(2)
    
            If c = 0 Then
                If a + b > 100 Then
                    GoTo Start
                End If
                d = a + b
                Label1.Text = a & "+" & b & "="
            ElseIf c = 1 Then
                If a - b < 0 Then
                    GoTo Start
                End If
                d = a - b
                Label1.Text = a & "-" & b & "="
            End If
    
            Dim thread As New Threading.Thread(AddressOf say)
            thread.Start()
    
            Label2.Text = "得分：" & score
        End Sub
    
        Private Sub say()
            SpeakText(Label1.Text.Replace("-", "减").Replace("+", "加").Replace("=", "等于多少"))
        End Sub
    
        Private Sub yes()
            Dim a = New Random().Next(10)
            Dim text = ""
            Select Case a
                Case 0
                    text = "对啦！你好聪明！"
                Case 1
                    text = "哇，天才！"
                Case 2
                    text = "太棒了！"
                Case 3
                    text = "未来的科学家！"
                Case 4
                    text = "数学不错！"
                Case 5
                    text = "好极了！"
                Case 6
                    text = "你真优秀！"
                Case 7
                    text = "答对啦！"
                Case 8
                    text = "不错哦！"
                Case 9
                    text = "继续保持，加油！"
            End Select
            SpeakText(text)
        End Sub
    
        Private Sub no()
            Dim text = "再想想"
    
            Dim 算式 = Label1.Text.Replace("=", "")
            If 算式.Contains("+") Then
                Dim 数字 As String() = 算式.Split("+")
                Dim 数字1 As Integer = 数字(0)
                Dim 数字2 As Integer = 数字(1)
                If HasCarry(数字1, 数字2) Then
                    text &= "，这是个加法进位题，个位凑十之后剩下的就是新的个位，而且不要忘了进位"
                Else
                    text &= "，这道题对你来说不难"
                End If
            ElseIf 算式.Contains("-") Then
                Dim 数字 As String() = 算式.Split("-")
                Dim 数字1 As Integer = 数字(0)
                Dim 数字2 As Integer = 数字(1)
                If NeedsBorrow(数字1, 数字2) Then
                    text &= "，这个是减法退位题，不够减我们要借一个十，最后不要忘了十位上要退位"
                Else
                    text &= "，这道题对你来说不难"
                End If
            End If
    
            SpeakText(text)
        End Sub
    
        Public Function NeedsBorrow(a As Integer, b As Integer) As Boolean
            If a Mod 10 < b Mod 10 Then
                Return True
            Else
                Return False
            End If
        End Function
    
        Public Function HasCarry(a As Integer, b As Integer) As Boolean
            If a Mod 10 + b Mod 10 > 9 Then
                Return True
            Else
                Return False
            End If
        End Function
    
        Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    
        End Sub
    
        Private Sub TextBox1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyUp
            If e.KeyCode = Keys.Enter Then
                If TextBox1.Text = d.ToString Then
                    IO.File.AppendAllLines("C:\答对题目.txt", New String() {
        Label1.Text & TextBox1.Text})
                    score += 1
                    If score >= 100 Then
                        SpeakText("宝贝，恭喜你全部答对了，你真聪明！现在可以看动画片了，拜拜！")
                        End
                    End If
                    yes()
                    出题()
                Else
                    Dim thread As New Threading.Thread(AddressOf no)
                    thread.Start()
                    IO.File.AppendAllLines("C:\错题本.txt", New String() {
        Label1.Text & TextBox1.Text})
                End If
                TextBox1.Text = ""
                TextBox1.Focus()
            End If
        End Sub
    
        Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
            TextBox1.Focus()
        End Sub
    
        Public Sub SpeakText(text As String)
            Try
                Using synth As New SpeechSynthesizer()
                    synth.SetOutputToDefaultAudioDevice() '设置输出音频设备（默认）
                    synth.Speak(text) '朗读文本
                End Using
            Catch ex As Exception
    
            End Try
        End Sub
    End Class

## 加上监控手段 ##

配合上向日葵远程桌面观看和萤石云摄像头，就可以随时查看孩子是否在学习了  
![在这里插入图片描述][6f96fca3c7b145318c2f0ff6ddac7ac9.png]![phone][]  
有的时候孩子跑去玩别的，或者注意力不集中，则可以用系统自带的文本转语音把孩子叫回来（监控对讲也有相同的效果，不过就没有电脑对孩子的神秘感了）  
![在这里插入图片描述][d12b32e5abe4439b9e36cef4ce780f18.png]

## 实际使用效果 ##

用了大概一周的时间，孩子已经把100以内的加减法练的非常熟练了，家里的老人和保姆都夸这解决方案是真的让人很省心。现在孩子每天甚至会主动打开电脑把100道题做完，因为着急要用电脑看动画片。达到了想要的效果。

[VB.Net]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/13/5b78c84d39024177a9d0633501b12357.png
[d6297497215942afa516faffb45f6395.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/13/a766738756044e54a05d1ed5785f9545.png
[5b922d8cafe346368e255bd97d44afab.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/13/c282a2ee91d544f8be6c69204085278b.png
[3d2e5f8bdcfb48928e67c2e4e5ba7cea.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/13/d1c74432c6194032887b570cc7c8f74d.png
[d4355dd015ed4a04b12ccf74d7a5d313.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/13/89611a5e1e4b47b7bd659e7628a81183.png
[b42d290c579a4ba2bf34c16a8849f741.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/13/d96899cae670447dad37f4b1c6f6d49a.png
[6f96fca3c7b145318c2f0ff6ddac7ac9.png]: https://img-blog.csdnimg.cn/6f96fca3c7b145318c2f0ff6ddac7ac9.png
[phone]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/13/9521e16c59234fc4b7bb86f6dd24a0bb.png
[d12b32e5abe4439b9e36cef4ce780f18.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/13/23185cf13f2d4bd4b0f18256647f802c.png