タイピング入門をつくりました（笑） への返答
投稿で使用できる特殊コードの説明。(別タブで開きます。)
以下の返答は逆順(新しい順)に並んでいます。
投稿者 緋竜 (小学生)
投稿日時
2008/10/27 20:33:35
Option Strict On 'VisualBasic2008
'入門用、タイピングGame
Public Class Form1
Private Const Moji_Suu As Integer = 10
Private mondai(Moji_Suu - 1) As String
Private Rnd As System.Random
Private Level As Integer = 20 '________________レベル
Private Tokuten As Integer = 0
Private Rn_d As Integer
Private kaihi(Moji_Suu - 1) As Integer '重複回避
Private kaihi2 As Integer = 0 '乱数重複回避
Private Tukaisute As Integer
Public Sub New()
' この呼び出しは、Windows フォーム デザイナで必要です。
InitializeComponent()
' InitializeComponent() 呼び出しの後で初期化を追加します。
'文字
mondai(0) = "りんご"
mondai(1) = "パイナップル"
mondai(2) = "いちご"
mondai(3) = "レモン"
mondai(4) = "みかん"
mondai(5) = "きゅうり"
mondai(6) = "BANANA"
mondai(7) = "大福もち"
mondai(8) = "なすび"
mondai(9) = "ぶどう"
Rnd = New System.Random()
End Sub
Private Sub Rnd_mize()
Try
100: Rn_d = Rnd.Next(Moji_Suu)
200: For Me.Tukaisute = 0 To 9
If kaihi(Tukaisute) = Rn_d Then GoTo 100
Next
kaihi(Tokuten) = Rn_d
Label2.Text = mondai(Rn_d).ToString
Catch
Rn_d = kaihi2
kaihi2 += 1 : GoTo 200
End Try
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For Me.Tukaisute = 0 To 9
kaihi(Tukaisute) = 100
Next
hyouji()
Rnd_mize()
With Me.Timer1
.Interval = Level * 50 '_____数字注意_____!!!
.Start()
End With
End Sub
Private Sub Ending()
Me.Label1.Text = "Closeして下さい"
Me.Label2.Text = "終了"
Me.Label3.Text = "得点" & "" & Tokuten & "点"
Me.TextBox1.Enabled = False
Me.Timer1.Stop()
End Sub
Private Sub hyouji()
Me.Label1.Text = "残り" & Level & "秒"
Me.Label3.Text = Tokuten + 1 & "問"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
hyouji()
Level -= 1
If Level = 0 Then
Level = 20
Ending()
End If
If TextBox1.Text = mondai(Rn_d) Then
TextBox1.Text = Nothing
Tokuten += 1 : Level = 20 : hyouji()
If Tokuten = 10 Then
Ending()
Else
Level = 20
Rnd_mize()
End If
End If
Catch
MsgBox("コードError")
End Try
End Sub
End Class
'
'Form1
'____________________________________________
' |
' Label 1 |
' |
' Label 2 |
' |
' Label 3 |
' |
' |
' TextBox1 |
' |
' |
'コンポーネント ＿＿ Timer1 |
' |
'____________________________________________|
2時間程度の粗末品でつが。
つくる人によって、フロチャートは変化します。
10人いれば10人のやり方があるのだ。
このコードは10問しかないので、粗末的である。
順次を入れ替えるよい方法があります。
では。