Type Writing പഠിക്കാൻ ഇതാ vb6 ൽ ഒരു Project
ആദ്യമായ് standard exe തിരഞ്ഞ്ടുത്ത് കാണുന്ന Form1 ലേക്ക് ചിത്രത്തിൽ കാണുന്നത് പോലെ മൂന്ന് Label ,മൂന്ന് Timer ഒരു Command button ഒരു Picture box ആ Picture box അകത്ത് പന്ത്രെണ്ട് Option button എന്നിവ വെക്കുക എന്നിട്ട് ചിത്രത്തിൽ കാണുന്നത് പോലെ ക്രെമീകറിക്കുക
എന്നിട്ട് താഴെ കാണുന്ന് കോഡ് കോഡ് പേജിലേക്ക് കോപി ചെയുക
അപോൾ താഴെകാണുന്നത് പോലെ കിട്ടും ഇനി സ്റ്റാർട്ട് ബട്ടൺ ക്ലിക്ക് ചെയ്ത് തുടങ്ങൂ
First You select standard exe then will come Form1
please put form below Dir:
3 Label
3 Timmer
1 command button
1 picture box
picture box inside put 12 Option button
after look image same do
after Run and clike start button and Do Learning Typing.
'Code copy this below
Dim a As Integer
Dim T As Integer
Dim C As Integer
Private Sub Command1_Click()
Timer2.Enabled = True
a = 10
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Chr(KeyCode) = Mid(Label1.Caption, 1, 1) Then
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption))
C = C + 1
a = 1
Else
a = 1
Label2.Caption = Label2.Caption + 1
Call Reset
Beep
End If
If Len(Label1.Caption) = 0 Then Call Reset: Label3.Caption = Label3.Caption + 1
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer1.Interval = 1
Timer2.Interval = 500
Timer3.Interval = 500
Command1.Caption = "START"
Label1.Caption = "ABC"
Label2.Caption = "00"
Label3.Caption = "00"
Option1.Value=True
Option1.Caption = "STAGE 1"
Option2.Caption = "STAGE 2"
Option3.Caption = "STAGE 3"
Option4.Caption = "STAGE 4"
Option5.Caption = "STAGE 5"
Option6.Caption = "STAGE 6"
Option7.Caption = "STAGE 7"
Option8.Caption = "STAGE 8"
Option9.Caption = "STAGE 9"
Option10.Caption = "STAGE 10"
Option11.Caption = "STAGE 11"
Option12.Caption = "STAGE 12"
End Sub
Private Sub Timer1_Timer()
If Label1.Top <= 6000 Then
Label1.Top = Label1.Top + 6
Else
Beep
Call Reset
End If
End Sub
Public Sub Reset()
Label1.Top = 0
Dim RRND As Integer
Dim I As Integer
Label1.Caption = ""
a = 0
If Option1.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "L" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 3 Then Exit Sub
End If
Next I
End If
If Option2.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "L" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 3 Then Exit Sub
End If
Next I
End If
If Option3.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "L" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 3 Then Exit Sub
End If
Next I
End If
If Option4.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "L" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 3 Then Exit Sub
End If
Next I
End If
If Option5.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "V" Or Chr(RRND) = "M" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "L" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 3 Then Exit Sub
End If
Next I
End If
If Option6.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "V" Or Chr(RRND) = "B" Or Chr(RRND) = "M" Or Chr(RRND) = "N" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "L" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 3 Then Exit Sub
End If
Next I
End If
If Option7.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "V" Or Chr(RRND) = "B" Or Chr(RRND) = "M" Or Chr(RRND) = "N" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "E" Or Chr(RRND) = "C" Or Chr(RRND) = "I" Or Chr(RRND) = "O" Or Chr(RRND) = "L" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 3 Then Exit Sub
End If
Next I
End If
If Option8.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "V" Or Chr(RRND) = "B" Or Chr(RRND) = "M" Or Chr(RRND) = "N" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "E" Or Chr(RRND) = "C" Or Chr(RRND) = "I" Or Chr(RRND) = "O" Or Chr(RRND) = "W" Or Chr(RRND) = "X" Or Chr(RRND) = "P" Or Chr(RRND) = "L" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 3 Then Exit Sub
End If
Next I
End If
If Option8.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "V" Or Chr(RRND) = "B" Or Chr(RRND) = "M" Or Chr(RRND) = "N" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "E" Or Chr(RRND) = "C" Or Chr(RRND) = "I" Or Chr(RRND) = "O" Or Chr(RRND) = "W" Or Chr(RRND) = "X" Or Chr(RRND) = "P" Or Chr(RRND) = "L" Or Chr(RRND) = "Q" Or Chr(RRND) = "Z" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 3 Then Exit Sub
End If
Next I
End If
If Option9.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "V" Or Chr(RRND) = "B" Or Chr(RRND) = "M" Or Chr(RRND) = "N" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "E" Or Chr(RRND) = "C" Or Chr(RRND) = "I" Or Chr(RRND) = "O" Or Chr(RRND) = "W" Or Chr(RRND) = "X" Or Chr(RRND) = "P" Or Chr(RRND) = "L" Or Chr(RRND) = "Q" Or Chr(RRND) = "Z" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 6 Then Exit Sub
End If
Next I
End If
If Option10.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "V" Or Chr(RRND) = "B" Or Chr(RRND) = "M" Or Chr(RRND) = "N" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "E" Or Chr(RRND) = "C" Or Chr(RRND) = "I" Or Chr(RRND) = "O" Or Chr(RRND) = "W" Or Chr(RRND) = "X" Or Chr(RRND) = "P" Or Chr(RRND) = "L" Or Chr(RRND) = "Q" Or Chr(RRND) = "Z" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 8 Then Exit Sub
End If
Next I
End If
If Option11.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "V" Or Chr(RRND) = "B" Or Chr(RRND) = "M" Or Chr(RRND) = "N" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "E" Or Chr(RRND) = "C" Or Chr(RRND) = "I" Or Chr(RRND) = "O" Or Chr(RRND) = "W" Or Chr(RRND) = "X" Or Chr(RRND) = "P" Or Chr(RRND) = "L" Or Chr(RRND) = "," Or Chr(RRND) = "." Or Chr(RRND) = ";" Or Chr(RRND) = "'" Or Chr(RRND) = "Q" Or Chr(RRND) = "Z" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 4 Then Exit Sub
End If
Next I
End If
If Option12.Value = True Then
For I = 1 To 120
RRND = Int(Rnd * 120)
If Chr(RRND) = "A" Or Chr(RRND) = "S" Or Chr(RRND) = "D" Or Chr(RRND) = "F" Or Chr(RRND) = "G" Or Chr(RRND) = "H" Or Chr(RRND) = "R" Or Chr(RRND) = "T" Or Chr(RRND) = "Y" Or Chr(RRND) = "V" Or Chr(RRND) = "B" Or Chr(RRND) = "M" Or Chr(RRND) = "N" Or Chr(RRND) = "U" Or Chr(RRND) = "J" Or Chr(RRND) = "K" Or Chr(RRND) = "E" Or Chr(RRND) = "C" Or Chr(RRND) = "I" Or Chr(RRND) = "O" Or Chr(RRND) = "W" Or Chr(RRND) = "X" Or Chr(RRND) = "P" Or Chr(RRND) = "L" Or Chr(RRND) = "," Or Chr(RRND) = "." Or Chr(RRND) = ";" Or Chr(RRND) = "'" Or Chr(RRND) = "[" Or Chr(RRND) = "]" Or Chr(RRND) = "/" Or Chr(RRND) = "?" Or Chr(RRND) = "Q" Or Chr(RRND) = "Z" Then
Label1.Caption = Label1.Caption + Chr(RRND)
If Len(Label1.Caption) >= 4 Then Exit Sub
End If
Next I
End If
End Sub
Private Sub Timer2_Timer()
If a <= 1 Then
Timer2.Enabled = False
Timer1.Enabled = True
Timer3.Enabled = True
Call Reset
Command1.Enabled = False
Picture1.Enabled = False
Else
a = a - 1
Me.Caption = a
Beep
End If
End Sub
Private Sub Timer3_Timer()
Label1.ForeColor = QBColor(Int(Rnd * 16))
T = T + 1
If T >= 120 Then
MsgBox "60/" & C
'List1.AddItem "60/" & C & " False " & Label2.Caption & " true " & Label3.Caption
T = 0
C = 0
Label2.Caption = 0
Label3.Caption = 0
Command1.Enabled = True
Timer3.Enabled = False
Timer1.Enabled = False
Picture1.Enabled = True
a = 1
End If
Me.Caption = T
End Sub
ലേബൽ ഒന്നിന്റെ ഫൊൺറ്റ് സൈസ് വലുതാക്കണംLabel 1 's font size put large or 26size
