zoukankan      html  css  js  c++  java
  • vb.net 打字练习

    Public Class Form1
        Dim t As Date
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim inputdata As String
            OpenFileDialog1.FileName = "*txt"
            OpenFileDialog1.InitialDirectory = "C:/Documents and Settings/Administrator/桌面/指法练习/指法练习/bin/Debug"
            OpenFileDialog1.Filter = "text files(*.txt)|*.txt|all iles(*.*)|*.*"
            OpenFileDialog1.FilterIndex = 2
            OpenFileDialog1.ShowDialog()
            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
            RichTextBox1.Text = ""
            Do While Not EOF(1)
                inputdata = LineInput(1)
                RichTextBox1.Text = RichTextBox1.Text + inputdata + vbCrLf
            Loop
            FileClose(1)
        End Sub

       
        Private Sub RichTextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox2.GotFocus
            t = TimeOfDay
        End Sub

        Private Sub RichTextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox2.KeyDown
            Dim l As Integer
            l = RichTextBox2.TextLength
            Dim t2, n, y, i As Integer
            If e.KeyCode = Keys.Enter Then
                t2 = DateDiff("s", t, TimeOfDay)
                TextBox1.Text = t2 & "秒"
                RichTextBox2.ReadOnly = True
                y = 0 : n = 0
                For i = 1 To l
                    If Mid(RichTextBox1.Text, i, 1) = Mid(RichTextBox2.Text, i, 1) Then
                        y = y + 1
                    Else
                        n = n + 1
                    End If
                Next i
                y = y / l * 100
                TextBox2.Text = Format(y, "0.00") & "%"

            End If
        End Sub
        Private Sub RichTextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox2.KeyPress
            Dim t2, n, y, i As Integer
            If RichTextBox2.TextLength + 1 = RichTextBox1.TextLength Then
                t2 = DateDiff("s", t, TimeOfDay)
                TextBox1.Text = t2 & "秒"
                RichTextBox2.ReadOnly = True
                y = 0 : n = 0
                For i = 1 To 4
                    If Mid(RichTextBox1.Text, i, 1) = Mid(RichTextBox2.Text, i, 1) Then
                        y = y + 1
                    Else
                        n = n + 1
                    End If
                Next i
                y = y / 4 * 100
                TextBox2.Text = Format(y, "0.00") & "%"
            End If
        End Sub

    End Class

  • 相关阅读:
    梯度下降算法 (转)
    机器学习
    杭电1097-A hard puzzle
    动态规划初步习题(紫书)
    4.21考试题解
    【bzoj4445 scoi2015】小凸想跑步
    【bzoj4444 scoi2015】国旗计划
    【bzoj4443 scoi2015】小凸玩矩阵
    【luogu P4007 清华集训2017】小Y和恐怖奴隶主
    【luoguP4006 清华集训2017】小Y和二叉树
  • 原文地址:https://www.cnblogs.com/hgmyz/p/12352946.html
Copyright © 2011-2022 走看看