VBを使ってのタイピングについて

Question

今、卒業研究でVBを使ってのタイピングゲームソフトを作成してます。
５行の文字列をひとまとめにして連続してタイピングさせたい。
（1行目が終わったら2行目。2行目が終わったら3行目・・・5行目まで）

そこでみなさんにお聞きしたいのですが、
配列を使ってのタイピングは可能なのでしょうか？？

よろしくお願いします。

yanmaa · Accepted Answer

では簡単な例を説明してみます。
フォームのkeypressのイベントでどのキーが押されたかは分かります。
押された回数をカウントすれば基本的にタイプ数は分かります。
"例えば"は(tatoeba)で問題ないのですが"ふ"の場合(hu/fu)でもいいですし"だった"は(datta/daltuta/daxtuta)でもいいのですよね。これがローマ字入力の判定の難しさだと思います。
"例えば"のチェックルーチン(めっちゃいい加減版)エンターキーは不要と判断しました。
なお、bが文字を打った回数。cが文字数という事で参考にして下さい。

Dim wk(5)   As String
Dim a       As Integer
Dim b       As Integer
Dim c       As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)
    Dim chk As String
    
    chk = LCase(Chr(KeyAscii))
    
    If Mid(wk(0), a, 1) = chk Then
        a = a + 1
    End If
    
    b = b + 1
    
    If a > c Then
        MsgBox "ok"
    End If
        
End Sub
Private Sub Form_Load()
    wk(0) = "tatoeba"
    a = 1
    b = 0
    c = Len(wk(0))
    
End Sub

TAGOSAKU7 · Answer

質問の意味をいまいち理解してませんが・・・

判定を行うタイミングが、このソフトの鍵となると思います。
複数行あろうとなかろうと一緒です。
複数行ある文章もようは改行コード（定数:vbCrlf）を含んだ一行と置き換えることができます。

簡単な比較ロジックは
１．テキストボックスのChangeイベントを認識
２．入力文字と入力文字数を得る
３．正解例の頭からその文字数文を得る
４．それらを比較
です。

しかし、文章の入力を終えてからの判定は並大抵ではありません。
一度判定ロジックを組んだ経験があるのですが、結局かなりの駄作になってしまいました。
例えば、余計な文字が１文字入ったら、どうするのかというだけで様々なパターンが想像つきます。
それ以外に２行目と３行目が入れ違いになっていた場合にも、複数の処理に分かれます。
これらを全て兼ね備えたプログラムは、人工知能開発ぐらいのレベルになると思います。。。
ですので、あまり入力し終えてからの判定はお奨めできません。


一度、市販されてるタイピングソフトではなく、フリーでダウンロードできるタイピングのソフトを見て研究してみては？

はずしてたなら、ごめんなさい。

参考URL：http://www.vector.co.jp/vpack/pickup/win/edu/comp/index.html

yanmaa · Answer

プログラムを作るのが卒業研究なら基本的なプログラミング技能を有していると判断します。

例えば
そこで
みなさんに
お聞き
したいのですが

というタイピングを出題するとして

どのようにキータイプさせ、どのような判定を下すのでしょうか？

OKなら次の行、違うなら元の行ですね。

後は自分で考えて何処までやって何処が分からないのか説明してからにしてね。

VBを使ってのタイピングについて

では簡単な例を説明してみます。

質問の意味をいまいち理解してませんが・・・

プログラムを作るのが卒業研究なら基本的なプログラミング技能を有していると判断します。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング