【C#,VB】trr風の長文タイピングソフトの作成

2016/8/7 【C#,VB】trr風の長文タイピングソフトの作成

皆さんはtrrというソフトをご存じでしょうか？

trrというのはEmacs上で動くタイピングソフトです。
特徴としては、単語ではなく文章を打つタイプのソフトだということや、
速度やミス率、独自の評価値などを教えてくれるという点が挙げられます。

本家trrには及ばずとも、何かそれっぽいタイピングソフトを作ってみたいな！と思ったので
作ってみました。

実際に動かしている様子はこんな感じです。
作り方を以下に書いていきます。

1. 仕様決め、コントロールの配置
2. プログラム
3. あとがき

1. 仕様決め、コントロールの配置

上の動画を見てもらえばわかりますが、
今回作ったプログラムは、本家trrにある
難易度選択、テキスト選択、ハイスコアの記録などの機能は一切省いて
タイピングに最低限必要な機能だけをそろえた感じになっています。

ですが、本家に唯一勝っている(?)部分として
スコアやミス率などがリアルタイムで表示されています。

また、表示する文章はtxtファイルを読み込んで表示しているのですが、
改行の場所は指定せず、自動で改行を行うようにしています。

コントロールの配置は下のようになっています。

リアルタイムでスコアなどを出すためにtimerを１つ置いていて、
それ以外のコントロールは全てlabelです。

guideText, typingPoint, missPointはそれぞれ
打ち込む文章、自分が打った文章、自分が間違えた場所を表示します。
noticeは得点やミス率などを表示します。
showMenuはただの飾りです。
Textに空白をたくさん入れることで画面いっぱいに枠を広げています。

一番重要なこととして、各コントロールのフォントは
デフォルトではMS UI Gothicが設定されていますが、
このフォントだと文字ごとに大きさが違っているので
MS ゴシックに変更しておきます。

こうすることで、どの文字も同じ大きさを使用するようになるので
見た目が綺麗になります。

2. プログラム

2-1. 初期化処理

まずは初期化処理のプログラムを組みます。

private void Form1_Load(object sender, EventArgs e)
{
	typingPoint.Parent = guideText;
	typingPoint.BackColor = Color.Transparent;
	typingPoint.Location = new Point(0, 0);
	missPoint.Parent = typingPoint;
	missPoint.BackColor = Color.Transparent;
	missPoint.Location = new Point(0, 0);

	readFile();
}

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	typingPoint.Parent = guideText
	typingPoint.BackColor = Color.Transparent
	typingPoint.Location = New Point(0, 0)
	missPoint.Parent = typingPoint
	missPoint.BackColor = Color.Transparent
	missPoint.Location = New Point(0, 0)

	readFile()
End Sub

guideText, typingPoint, missPointの３つに親子関係を持たせて位置を揃えます。
また、BackColorにTransparentを指定することで親のTextを透けて見えるようにしています。

注意点としては、１つの親に２つの子を持たせないようにしなければいけません。
１つの親に２つの子を持たせると、子供のTextが他の子の所では透けないからです。
今回はguideTextの子がtypingPoint、typingPointの子がmissPointという風にしています。

３つのコントロールが同じ位置にいるため、右図のようなやり方だと
どちらかの子がもう一つの子に隠れてしまうことになります。
そのため、親子関係をしっかりさせて孫を一番前に持ってくることが重要です。

readFile()関数は次の章で作ります！

2-2. ファイル読み込み

次はファイルの読み込みを行います。
読み込むtxtファイルは下のような形式になっています。

\から始まっている行がタイトルで、その一行下からタイピングの文章が入っています。
タイピングの文章は何行改行しても構わず、改行はスペース１つ分として扱うことにしました。
また、ファイルの終端には]を置いてあります。

Random rand = new Random();
int guideTextPoint = 0;
string allText;
bool startedTyping;
double typingTime;
double typeCount;
double missTypeCount;
bool missFlag;

private void readFile()
{
	int textPoint;
	int colsCount = 0;
	int rowsCount = 0;
	int prevSpace = 0;
	int temp;

	// 各ラベルの初期化
	guideText.Text = "";
	missPoint.Text = Environment.NewLine + Environment.NewLine + Environment.NewLine + Environment.NewLine;
	typingPoint.Text = Environment.NewLine + Environment.NewLine + Environment.NewLine + "*";

	// ファイル読み込み
	System.IO.StreamReader reader = new System.IO.StreamReader("1.txt");
	allText = reader.ReadToEnd();
	reader.Close();

	// 文章の先頭を探す
	textPoint = rand.Next(allText.Length - 1);
	while(allText[textPoint] != '\\'){
		textPoint = (textPoint + 1) % allText.Length;
	}

	temp = textPoint;
	textPoint += 1;

	// タイトルの配置
	do
	{
		guideText.Text += allText[textPoint];
		textPoint += 1;
	} while (allText[textPoint] != '\r');

	// どこの文章を打っているかの位置指定(最後の+2で改行文字を飛ばしている)
	guideTextPoint = textPoint - temp + 2;
	rowsCount = 1;
	guideText.Text += Environment.NewLine;
	textPoint += 1;
	colsCount = 1;

	// 選んだ曲のテキストの配置
	while (allText[textPoint] != '\\' && allText[textPoint] != ']' && rowsCount < 6)
	{
		switch (allText[textPoint])
		{
			case '\r':
				spaceOrNewline(ref colsCount, ref rowsCount, ref prevSpace, ref textPoint, 1);
				textPoint += 1;
				break;
			case ' ':
				spaceOrNewline(ref colsCount, ref rowsCount, ref prevSpace, ref textPoint, 0);
				break;
			default:
				guideText.Text += allText[textPoint];
				break;
		}
		colsCount += 1;
		textPoint += 1;
	}

	textRow = rowsCount;

	if (rowsCount < 6)
	{
		guideText.Text = guideText.Text.Substring(0, guideText.Text.Length - 1) + Environment.NewLine;
	}

	// 得点やミス率用の変数の初期化
	typeCount = 0.0;
	missTypeCount = 0.0;
	startedTyping = false;
	typingTime = 0.0;
	missFlag = true;
}

Dim rand As New Random
Dim guideTextPoint As Integer = 0
Dim allText As String
Dim startedTyping As Boolean
Dim typingTime As Double
Dim typeCount As Double
Dim missTypeCount As Double
Dim missFlag As Boolean

Private Sub readFile()
	Dim textPoint As Integer
	Dim colsCount As Integer = 0
	Dim rowCount As Integer = 0
	Dim prevSpace As Integer = 0
	Dim temp As Integer

	' 各ラベルの初期化
	guideText.Text = ""
	missPoint.Text = Environment.NewLine & Environment.NewLine & Environment.NewLine & Environment.NewLine
	typingPoint.Text = Environment.NewLine & Environment.NewLine & Environment.NewLine & "*"

	'ファイル読み込み
	allText = My.Computer.FileSystem.ReadAllText("1.txt")

	' 文章の先頭を探す
	textPoint = rand.Next(allText.Length - 1)
	While allText(textPoint) <> "\"
		textPoint = (textPoint + 1) Mod allText.Length
	End While

	temp = textPoint
	textPoint += 1

	' タイトルの配置
	Do While (allText(textPoint) <> vbCr)
		guideText.Text &= allText(textPoint)
		textPoint += 1
	Loop

	' どこの文章を打っているかの位置指定(最後の+2で改行文字を飛ばしている)
	guideTextPoint = textPoint - temp + 2
	rowCount = 1
	guideText.Text &= Environment.NewLine
	textPoint += 1
	colsCount = 1

	' 選んだ曲のテキストの配置
	While (allText(textPoint) <> "\" And allText(textPoint) <> "]" And rowCount < 6)
		Select Case allText(textPoint)
			Case vbCr
				spaceOrNewline(colsCount, rowCount, prevSpace, textPoint, 1)
				textPoint += 1
			Case " "
				spaceOrNewline(colsCount, rowCount, prevSpace, textPoint, 0)
			Case Else
				guideText.Text &= allText(textPoint)
		End Select
		colsCount += 1
		textPoint += 1
	End While

	textRow = rowCount

	If rowCount < 6 Then
		guideText.Text = guideText.Text.Substring(0, guideText.Text.Length - 1) & Environment.NewLine
	End If

	' 得点やミス率用の変数の初期化
	typeCount = 0.0
	missTypeCount = 0.0
	startedTyping = False
	typingTime = 0.0
	missFlag = True
End Sub

プログラムは上のような感じです。
txtファイルを読み込んでguideTextにコピーしています。

表示させる文章の選び方は、最初にファイルのランダムな位置にアクセスして
後ろの方向に一文字ずつ見ていき、\が見つかったらその文章を
タイピングに使うことにしています。

本文にスペースか改行があったときは、spaceOrNewline()関数で
タイピング中でスペースと改行のどちらを入れるかを決定しています。

タイピングの文章は５行あることを想定していますが、
５行に届かない時も対応できるようになっています。

windowsで作成したので、改行周りの処理は全てCr+Lfになっている前提で作っています。

2-3. スペースと改行の選択

次は、タイピングの文章をコピーするときに空白と改行を適切に入れるための関数を作ります。

プログラムは下のような感じです。

private void spaceOrNewline(ref int colsCount, ref int rowsCount, ref int prevSpace, ref int textPoint, int pad)
{
	if (colsCount >= 70)
	{
		guideText.Text = guideText.Text.Remove(guideText.Text.Length - colsCount + prevSpace, colsCount - prevSpace);
		guideText.Text += Environment.NewLine + Environment.NewLine + Environment.NewLine;
		textPoint -= colsCount - prevSpace + pad;
		rowsCount += 1;
		colsCount = 0;
		prevSpace = 0;
	}
	else
	{
		guideText.Text += " ";
		prevSpace = colsCount;
	}
}

Private Sub spaceOrNewline(ByRef colsCount As Integer, ByRef rowCount As Integer, ByRef prevSpace As Integer, ByRef textPoint As Integer, ByVal pad As Integer)
	If (colsCount >= 70) Then
		guideText.Text = guideText.Text.Remove(guideText.Text.Length - colsCount + prevSpace, colsCount - prevSpace)
		guideText.Text &= Environment.NewLine & Environment.NewLine & Environment.NewLine
		textPoint -= colsCount - prevSpace + pad
		rowCount += 1
		colsCount = 0
		prevSpace = 0
	Else
		guideText.Text &= " "
		prevSpace = colsCount
	End If
End Sub

流れとしては、colsCount変数で今の行に何文字書かれているかを記録して、
それが一定値を超えたときは改行を入れて、そうでないときはスペースを入れています。

2-4. キーが押された時の処理

ここまでで、プログラムを起動してからタイピングの文章を読み込んで
表示するまでが出来たので、次はキーが押された時の処理を作ります。
プログラムは下のようになりました。

private void Form1_KeyPress(object sender, KeyPressEventArgs e)
{
	if (startedTyping == false)
	{
		startedTyping = true;
		timer1.Start();
	}
	//  正しいキーが入力された
	if (e.KeyChar == guideText.Text[guideTextPoint])
	{
		typingPoint.Text = typingPoint.Text.Substring(0, typingPoint.Text.Length - 1);
		typingPoint.Text += guideText.Text[guideTextPoint];

		if (e.KeyChar == (char)Keys.Enter)
		{
			typingPoint.Text += Environment.NewLine + Environment.NewLine;
			missPoint.Text += Environment.NewLine + Environment.NewLine + Environment.NewLine;
			guideTextPoint += 5;

			typedRow += 1;
			// 終了処理
			if (textRow == typedRow)
			{
				textRow = 1;
				typedRow = 1;
				timer1.Stop();
				readFile();
				return;
			}
		}
		else if (missFlag)
		{
			missPoint.Text += " ";
		}

		typingPoint.Text += "*";

		guideTextPoint += 1;
		typeCount += 1;
		missFlag = true;
	}
	else
	{
		typingPoint.Text = typingPoint.Text.Substring(0, typingPoint.Text.Length - 1);
		typingPoint.Text += e.KeyChar;

		if (missFlag)
		{
			missTypeCount += 1;
			missFlag = false;
			missPoint.Text += "^";
		}
	}
}

Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress
	If (startedTyping = False) Then
		startedTyping = True
		Timer1.Start()
	End If
	' 正しいキーが入力された
	If (e.KeyChar = guideText.Text(guideTextPoint)) Then

		Mid(typingPoint.Text, typingPoint.Text.Length, 1) = guideText.Text(guideTextPoint)

		If (e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter)) Then
			typingPoint.Text &= Environment.NewLine & Environment.NewLine
			missPoint.Text &= Environment.NewLine & Environment.NewLine & Environment.NewLine
			guideTextPoint += 5

			typedRow += 1
			' 終了処理
			If (textRow = typedRow) Then
				textRow = 1
				typedRow = 1
				Timer1.Stop()
				readFile()
				Return
			End If
		ElseIf (missFlag) Then
			missPoint.Text &= " "
		End If

		typingPoint.Text &= "*"

		guideTextPoint += 1
		typeCount += 1
		missFlag = True

	Else
		' どういう風に間違えたかを出す
		Mid(typingPoint.Text, typingPoint.Text.Length, 1) = e.KeyChar

		' ミス率、評価の計算に使用
		If (missFlag) Then
			missTypeCount += 1
			missFlag = False
			missPoint.Text &= "^"
		End If
	End If
End Sub

キーが押された時のイベントはKeyPressの他にKeyDownやPreviewKeyDownがありますが、
KeyDownやPreviewKeyDownは大文字小文字の区別ができなかったり、
Shiftキーなどにも反応してしまうのでKeyPressイベントを使いました。

初めてキーが押されたとき(startedTypingがfalseのとき)は
timer1をスタートさせて得点などの計測を始めます。

押されたキーが正しいかどうかの判定は、
e.KeyCharとguideTextの文字が同じかどうかで見ています。

押されたキーが正しいか違っているかによって、
押したキーの回数や間違えた回数などをカウントしていますが、
正しくEnterを押した場合は終了の判定も行います。

2-5. 得点の計測

最後にtimer1のtickイベントに得点などを計算して表示するプログラムを作ります。

private void timer1_Tick(object sender, EventArgs e)
{
	typingTime += timer1.Interval / 1000.0;
	notice.Text = "所要時間：　" + Math.Round(typingTime, 1).ToString() + " 秒" + Environment.NewLine;
	notice.Text += " ミス率 ：　" + Math.Round((missTypeCount / (missTypeCount + typeCount) * 100), 1).ToString() + " ％" + Environment.NewLine;
	notice.Text += "字数／分：　" + Math.Round((typeCount * 60 / typingTime), 1).ToString() + Environment.NewLine;
	notice.Text += " 評　価 ：　" + Math.Round(Math.Max(((typeCount - (missTypeCount * 10)) * 60 / typingTime), 0.0), 1).ToString() + " 点";
}

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
	typingTime += Timer1.Interval / 1000.0
	notice.Text = "所要時間：　" + Math.Round(typingTime, 1).ToString() + " 秒" + Environment.NewLine
	notice.Text &= " ミス率 ：　" + Math.Round((missTypeCount / typeCount * 100), 1).ToString() + " ％" + Environment.NewLine
	notice.Text &= "字数／分：　" + Math.Round((typeCount * 60 / typingTime), 1).ToString() + Environment.NewLine
	notice.Text &= " 評　価 ：　" + Math.Round(Math.Max(((typeCount - (missTypeCount * 10)) * 60 / typingTime), 0.0), 1).ToString() + " 点"
End Sub

timerのIntervalの単位はミリ秒が使われているので、1000で割ることで単位を秒にしています。

ミス率と字数／分は単純に計算して出しています。

評価の値は、本家trrのデフォルトの評価関数である
（打文字数－（誤打数×１０））×６０÷（経過した秒数）
という式を用いています。

2-6. ソースコード

上の方で書いてきたプログラムを繋ぎ合わせると、
最終的なソースコードは下のようになりました。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace testCSharp
{
    public partial class Form1 : Form
    {
        Random rand = new Random();
        int guideTextPoint = 0;
        string allText;
        int typedRow = 1;
        int textRow = 1;
        bool startedTyping;
        double typingTime;
        double typeCount;
        double missTypeCount;
        bool missFlag;

        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            typingPoint.Parent = guideText;
            typingPoint.BackColor = Color.Transparent;
            typingPoint.Location = new Point(0, 0);
            typingPoint.Size = guideText.Size;
            missPoint.Parent = typingPoint;
            missPoint.BackColor = Color.Transparent;
            missPoint.Location = new Point(0, 0);
            missPoint.Size = guideText.Size;

            readFile();
        }

        private void spaceOrNewline(ref int colsCount, ref int rowsCount, ref int prevSpace, ref int textPoint, int pad)
        {
            if (colsCount >= 70)
            {
                guideText.Text = guideText.Text.Remove(guideText.Text.Length - colsCount + prevSpace, colsCount - prevSpace);
                guideText.Text += Environment.NewLine + Environment.NewLine + Environment.NewLine;
                textPoint -= colsCount - prevSpace + pad;
                rowsCount += 1;
                colsCount = 0;
                prevSpace = 0;
            }
            else
            {
                guideText.Text += " ";
                prevSpace = colsCount;
            }
        }

        private void readFile()
        {
            int textPoint;
            int colsCount = 0;
            int rowsCount = 0;
            int prevSpace = 0;
            int temp;

            guideText.Text = "";
            missPoint.Text = Environment.NewLine + Environment.NewLine + Environment.NewLine + Environment.NewLine;
            typingPoint.Text = Environment.NewLine + Environment.NewLine + Environment.NewLine + "*";

            // ファイル読み込み
            System.IO.StreamReader reader = new System.IO.StreamReader("1.txt");
            allText = reader.ReadToEnd();
            reader.Close();

            // 文章の先頭を探す
            textPoint = rand.Next(allText.Length - 1);
            while(allText[textPoint] != '\\'){
                textPoint = (textPoint + 1) % allText.Length;
            }

            temp = textPoint;
            textPoint += 1;

            // タイトルの配置
            do
            {
                guideText.Text += allText[textPoint];
                textPoint += 1;
            } while (allText[textPoint] != '\r');

            guideTextPoint = textPoint - temp + 2;
            rowsCount = 1;
            guideText.Text += Environment.NewLine;
            textPoint += 1;
            colsCount = 1;

            // 選んだ曲のテキストの配置
            while (allText[textPoint] != '\\' && allText[textPoint] != ']' && rowsCount < 6)
            {
                switch (allText[textPoint])
                {
                    case '\r':
                        spaceOrNewline(ref colsCount, ref rowsCount, ref prevSpace, ref textPoint, 1);
                        textPoint += 1;
                        break;
                    case ' ':
                        spaceOrNewline(ref colsCount, ref rowsCount, ref prevSpace, ref textPoint, 0);
                        break;
                    default:
                        guideText.Text += allText[textPoint];
                        break;
                }
                colsCount += 1;
                textPoint += 1;
            }

            textRow = rowsCount;

            if (rowsCount < 6)
            {
                guideText.Text = guideText.Text.Substring(0, guideText.Text.Length - 1) + Environment.NewLine;
            }

            typeCount = 0.0;
            missTypeCount = 0.0;
            startedTyping = false;
            typingTime = 0.0;
            missFlag = true;
        }

        private void Form1_KeyPress(object sender, KeyPressEventArgs e)
        {
            if (startedTyping == false)
            {
                startedTyping = true;
                timer1.Start();
            }

            if (e.KeyChar == guideText.Text[guideTextPoint])
            {
                typingPoint.Text = typingPoint.Text.Substring(0, typingPoint.Text.Length - 1);
                typingPoint.Text += guideText.Text[guideTextPoint];

                if (e.KeyChar == (char)Keys.Enter)
                {
                    typingPoint.Text += Environment.NewLine + Environment.NewLine;
                    missPoint.Text += Environment.NewLine + Environment.NewLine + Environment.NewLine;
                    guideTextPoint += 5;

                    typedRow += 1;

                    if (textRow == typedRow)
                    {
                        textRow = 1;
                        typedRow = 1;
                        timer1.Stop();
                        readFile();
                        return;
                    }
                }
                else if (missFlag)
                {
                    missPoint.Text += " ";
                }

                typingPoint.Text += "*";

                guideTextPoint += 1;
                typeCount += 1;
                missFlag = true;
            }
            else
            {
                typingPoint.Text = typingPoint.Text.Substring(0, typingPoint.Text.Length - 1);
                typingPoint.Text += e.KeyChar;

                if (missFlag)
                {
                    missTypeCount += 1;
                    missFlag = false;
                    missPoint.Text += "^";
                }
            }
        }

        private void timer1_Tick(object sender, EventArgs e)
        {
            typingTime += timer1.Interval / 1000.0;
            notice.Text = "所要時間：　" + Math.Round(typingTime, 1).ToString() + " 秒" + Environment.NewLine;
            notice.Text += " ミス率 ：　" + Math.Round((missTypeCount / (missTypeCount + typeCount) * 100), 1).ToString() + " ％" + Environment.NewLine;
            notice.Text += "字数／分：　" + Math.Round((typeCount * 60 / typingTime), 1).ToString() + Environment.NewLine;
            notice.Text += " 評　価 ：　" + Math.Round(Math.Max(((typeCount - (missTypeCount * 10)) * 60 / typingTime), 0.0), 1).ToString() + " 点";
        }
    }
}

Public Class Form1
    Dim rand As New Random
    Dim guideTextPoint As Integer = 0
    Dim allText As String '読み込んだtxtファイルの文章を全て保存する
    Dim typedRow As Integer = 1 '自分が打っている行数
    Dim textRow As Integer = 1 'テキストの行数
    Dim startedTyping As Boolean
    Dim typingTime As Double
    Dim typeCount As Double
    Dim missTypeCount As Double
    Dim missFlag As Boolean
    
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        typingPoint.Parent = guideText
        typingPoint.BackColor = Color.Transparent
        typingPoint.Location = New Point(0, 0)
        missPoint.Parent = typingPoint
        missPoint.BackColor = Color.Transparent
        missPoint.Location = New Point(0, 0)

        readFile()
    End Sub

    Private Sub spaceOrNewline(ByRef colsCount As Integer, ByRef rowCount As Integer, ByRef prevSpace As Integer, ByRef textPoint As Integer, ByVal pad As Integer)
        If (colsCount >= 70) Then
            guideText.Text = guideText.Text.Remove(guideText.Text.Length - colsCount + prevSpace, colsCount - prevSpace)
            guideText.Text &= Environment.NewLine & Environment.NewLine & Environment.NewLine
            textPoint -= colsCount - prevSpace + pad
            rowCount += 1
            colsCount = 0
            prevSpace = 0
        Else
            guideText.Text &= " "
            prevSpace = colsCount
        End If
    End Sub

    Private Sub readFile()
        Dim textPoint As Integer
        Dim colsCount As Integer = 0
        Dim rowCount As Integer = 0
        Dim prevSpace As Integer = 0
        Dim temp As Integer

        guideText.Text = ""
        missPoint.Text = Environment.NewLine & Environment.NewLine & Environment.NewLine & Environment.NewLine
        typingPoint.Text = Environment.NewLine & Environment.NewLine & Environment.NewLine & "*"

        'ファイル読み込み
        allText = My.Computer.FileSystem.ReadAllText("1.txt")

        ' 文章の先頭を探す
        textPoint = rand.Next(allText.Length - 1)
        While allText(textPoint) <> "\"
            textPoint = (textPoint + 1) Mod allText.Length
        End While

        temp = textPoint
        textPoint += 1

        ' タイトルの配置
        Do While (allText(textPoint) <> vbCr)
            guideText.Text &= allText(textPoint)
            textPoint += 1
        Loop

        guideTextPoint = textPoint - temp + 2
        rowCount = 1
        guideText.Text &= Environment.NewLine
        textPoint += 1
        colsCount = 1

        ' 選んだ曲のテキストの配置
        While (allText(textPoint) <> "\" And allText(textPoint) <> "]" And rowCount < 6)
            Select Case allText(textPoint)
                Case vbCr
                    spaceOrNewline(colsCount, rowCount, prevSpace, textPoint, 1)
                    textPoint += 1
                Case " "
                    spaceOrNewline(colsCount, rowCount, prevSpace, textPoint, 0)
                Case Else
                    guideText.Text &= allText(textPoint)
            End Select
            colsCount += 1
            textPoint += 1
        End While

        textRow = rowCount

        If rowCount < 6 Then
            guideText.Text = guideText.Text.Substring(0, guideText.Text.Length - 1) & Environment.NewLine
        End If

        typeCount = 0.0
        missTypeCount = 0.0
        startedTyping = False
        typingTime = 0.0
        missFlag = True
    End Sub

    Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles MyBase.KeyPress
        If (startedTyping = False) Then
            startedTyping = True
            Timer1.Start()
        End If

        If (e.KeyChar = guideText.Text(guideTextPoint)) Then

            'typingPoint.Text = typingPoint.Text.Replace("*", guideText.Text(guideTextPoint))
            Mid(typingPoint.Text, typingPoint.Text.Length, 1) = guideText.Text(guideTextPoint)

            If (e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter)) Then
                typingPoint.Text &= Environment.NewLine & Environment.NewLine
                missPoint.Text &= Environment.NewLine & Environment.NewLine & Environment.NewLine
                guideTextPoint += 5

                typedRow += 1

                If (textRow = typedRow) Then
                    textRow = 1
                    typedRow = 1
                    Timer1.Stop()
                    readFile()
                    Return
                End If
            ElseIf (missFlag) Then
                missPoint.Text &= " "
            End If

            typingPoint.Text &= "*"

            guideTextPoint += 1
            typeCount += 1
            missFlag = True

        Else
            ' どういう風に間違えたかを出す
            Mid(typingPoint.Text, typingPoint.Text.Length, 1) = e.KeyChar

            ' ミス率、評価の計算に使用
            If (missFlag) Then
                missTypeCount += 1
                missFlag = False
                missPoint.Text &= "^"
            End If
        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        typingTime += Timer1.Interval / 1000.0
        notice.Text = "所要時間：　" + Math.Round(typingTime, 1).ToString() + " 秒" + Environment.NewLine
        notice.Text &= " ミス率 ：　" + Math.Round((missTypeCount / typeCount * 100), 1).ToString() + " ％" + Environment.NewLine
        notice.Text &= "字数／分：　" + Math.Round((typeCount * 60 / typingTime), 1).ToString() + Environment.NewLine
        notice.Text &= " 評　価 ：　" + Math.Round(Math.Max(((typeCount - (missTypeCount * 10)) * 60 / typingTime), 0.0), 1).ToString() + " 点"
    End Sub
End Class

3. あとがき

こんな感じでプログラムは完成です。

今回は最低限タイピングソフトと言えるものにしただけなので、
タイピング部分の前後にメニューを入れたり、ハイスコアなどを記録するようにしたりすれば
より本格的なタイピングソフトになるかなあと思います。

Please
Share!

feedly
facebook
twitter
hatena bookmark
pocket
Google plus