|
VERSION 5.00
Begin VB.Form frmMain
Caption = "Simple Typing Tutor"
ClientHeight = 4020
ClientLeft = 165
ClientTop = 735
ClientWidth = 6690
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4020
ScaleWidth = 6690
StartUpPosition = 3 'Windows Default
Begin VB.Timer tmrBgdColour
Enabled = 0 'False
Interval = 100
Left = 5520
Top = 3600
End
Begin VB.Timer tmrTime
Enabled = 0 'False
Interval = 100
Left = 6000
Top = 3600
End
Begin VB.TextBox txtOutput
Height = 855
Left = 120
TabIndex = 1
Top = 960
Width = 6495
End
Begin VB.TextBox txtSource
Height = 855
Left = 120
TabIndex = 0
Top = 0
Width = 6495
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Q"
Height = 240
Index = 81
Left = 1050
TabIndex = 65
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "W"
Height = 240
Index = 87
Left = 1320
TabIndex = 64
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "E"
Height = 240
Index = 69
Left = 1590
TabIndex = 63
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "R"
Height = 240
Index = 82
Left = 1860
TabIndex = 62
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "T"
Height = 240
Index = 84
Left = 2130
TabIndex = 61
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Y"
Height = 240
Index = 89
Left = 2400
TabIndex = 60
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "U"
Height = 240
Index = 85
Left = 2670
TabIndex = 59
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "I"
Height = 240
Index = 73
Left = 2940
TabIndex = 58
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "O"
Height = 240
Index = 79
Left = 3210
TabIndex = 57
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "P"
Height = 240
Index = 80
Left = 3480
TabIndex = 56
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "["
Height = 240
Index = 91
Left = 3750
TabIndex = 55
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "]"
Height = 240
Index = 93
Left = 4020
TabIndex = 54
Top = 2475
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "TAB"
Height = 240
Index = 9
Left = 600
TabIndex = 53
Top = 2475
Width = 420
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "A"
Height = 240
Index = 65
Left = 1185
TabIndex = 52
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "S"
Height = 240
Index = 83
Left = 1455
TabIndex = 51
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "D"
Height = 240
Index = 68
Left = 1725
TabIndex = 50
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "F"
Height = 240
Index = 70
Left = 1995
TabIndex = 49
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "G"
Height = 240
Index = 71
Left = 2265
TabIndex = 48
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "H"
Height = 240
Index = 72
Left = 2535
TabIndex = 47
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "J"
Height = 240
Index = 74
Left = 2805
TabIndex = 46
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "K"
Height = 240
Index = 75
Left = 3075
TabIndex = 45
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "L"
Height = 240
Index = 76
Left = 3345
TabIndex = 44
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = ";"
Height = 240
Index = 59
Left = 3615
TabIndex = 43
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "'"
Height = 240
Index = 39
Left = 3885
TabIndex = 42
Top = 2790
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "CAPS"
Height = 240
Index = 0
Left = 600
TabIndex = 41
Top = 2790
Width = 555
End
Begin VB.Label LblKey
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Height = 240
Index = 14
Left = 4290
TabIndex = 40
Top = 2475
Width = 555
End
Begin VB.Label LblKey
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Ent"
Height = 285
Index = 13
Left = 4155
TabIndex = 39
Top = 2745
Width = 690
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "Z"
Height = 240
Index = 90
Left = 1320
TabIndex = 38
Top = 3105
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "SHIFT"
Height = 240
Index = 11
Left = 600
TabIndex = 37
Top = 3105
Width = 690
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "X"
Height = 240
Index = 88
Left = 1590
TabIndex = 36
Top = 3105
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "C"
Height = 240
Index = 67
Left = 1860
TabIndex = 35
Top = 3105
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "V"
Height = 240
Index = 86
Left = 2130
TabIndex = 34
Top = 3105
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "B"
Height = 240
Index = 66
Left = 2400
TabIndex = 33
Top = 3105
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "N"
Height = 240
Index = 78
Left = 2670
TabIndex = 32
Top = 3105
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "M"
Height = 240
Index = 77
Left = 2940
TabIndex = 31
Top = 3105
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = ","
Height = 240
Index = 44
Left = 3210
TabIndex = 30
Top = 3105
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "."
Height = 240
Index = 46
Left = 3480
TabIndex = 29
Top = 3105
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "/"
Height = 240
Index = 47
Left = 3795
TabIndex = 28
Top = 3105
Width = 240
End
Begin VB.Label LblKey
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "SHF"
Height = 240
Index = 320
Left = 4065
TabIndex = 27
Top = 3105
Width = 510
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "\"
Height = 240
Index = 92
Left = 4605
TabIndex = 26
Top = 3105
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "CTRL"
Height = 240
Index = 10
Left = 600
TabIndex = 25
Top = 3420
Width = 375
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "ALT"
Height = 240
Index = 21
Left = 1410
TabIndex = 24
Top = 3420
Width = 375
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Height = 240
Index = 20
Left = 1005
TabIndex = 23
Top = 3420
Width = 375
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "SPACE"
Height = 240
Index = 32
Left = 1815
TabIndex = 22
Top = 3420
Width = 1500
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "ALT"
Height = 240
Index = 4
Left = 3345
TabIndex = 21
Top = 3420
Width = 375
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Height = 240
Index = 3
Left = 3750
TabIndex = 20
Top = 3420
Width = 330
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Height = 240
Index = 2
Left = 4110
TabIndex = 19
Top = 3420
Width = 330
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "CTRL"
Height = 240
Index = 1
Left = 4470
TabIndex = 18
Top = 3420
Width = 375
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "`"
Height = 240
Index = 96
Left = 600
TabIndex = 17
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "1"
Height = 240
Index = 49
Left = 870
TabIndex = 16
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "2"
Height = 240
Index = 50
Left = 1140
TabIndex = 15
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "3"
Height = 240
Index = 51
Left = 1410
TabIndex = 14
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "4"
Height = 240
Index = 52
Left = 1680
TabIndex = 13
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "5"
Height = 240
Index = 53
Left = 1950
TabIndex = 12
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "6"
Height = 240
Index = 54
Left = 2220
TabIndex = 11
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "7"
Height = 240
Index = 55
Left = 2490
TabIndex = 10
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "8"
Height = 240
Index = 56
Left = 2760
TabIndex = 9
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "9"
Height = 240
Index = 57
Left = 3030
TabIndex = 8
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "0"
Height = 240
Index = 48
Left = 3300
TabIndex = 7
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "-"
Height = 240
Index = 45
Left = 3570
TabIndex = 6
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "="
Height = 240
Index = 61
Left = 3840
TabIndex = 5
Top = 2160
Width = 240
End
Begin VB.Label LblKey
Alignment = 2 'Center
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "BACKS"
Height = 240
Index = 8
Left = 4110
TabIndex = 4
Top = 2160
Width = 735
End
Begin VB.Label lblIncorrect
Caption = "Mis-types:"
Height = 255
Left = 4920
TabIndex = 3
Top = 2400
Width = 1695
End
Begin VB.Label lblTimer
Caption = "Time:"
Height = 375
Left = 4920
TabIndex = 2
Top = 1920
Width = 1695
End
Begin VB.Menu mnuFile
Caption = "File"
Begin VB.Menu Import
Caption = "Import"
End
Begin VB.Menu mnuExit
Caption = "Exit"
End
End
Begin VB.Menu Stgs
Caption = "Settings"
Begin VB.Menu Options
Caption = "Options"
Shortcut = ^O
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load() ' when the program loads
On Error GoTo error
Static SourceFileOpt As Options
GetOpts (SourceFileOpt)
Open SourceFileOpt.SourceFile For Input As #1
Do While Not EOF(1)
Line Input #1, a
txtSource.Text = txtSource.Text + a + Chr(13) + Chr(10)
Loop
Close #1
TypeTime = 0
End Sub
error:
MsgBox "File Not Found", vbCritical, "Error"
End Sub
Private Sub mnuExit_Click() ' prompts the user if they really want to quit
Dim n As VbMsgBoxResult
n = MsgBox("Are You Sure?", vbYesNo, "Exit")
If n = vbYes Then
End
Else
End If
End Sub
Private Sub Import_Click() ' Will import a text file to work from for the user to copy from
On Error GoTo error
Dim a As String
objOpen.ShowOpen
Open objOpen.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, a
txtSource.Text = txtSource.Text + a + Chr(13) + Chr(10)
Loop
Close #1
Exit Sub
error:
MsgBox "File Not Found", vbCritical, "Error"
End Sub
Private Sub Options_Click() ' loads the options dialog form
Load frmOptions
frmOptions.Show
End Sub
Private Sub tmrBgdColour_Timer()
tmrBgdColour.Enabled = False
For n = 1 To 100
On Error Resume Next
LblKey(n).BackStyle = 0
Next n
End Sub
Private Sub tmrTime_Timer() ' the timer which checks the speed of the typist
TypeTime = TypeTime + 0.1
lblTimer.Caption = "Time: " & TypeTime
tmrTime.Enabled = True
End Sub
Private Sub txtOutput_Change() 'checks to see if the source and output are the same, if they are then give details of speed etc. else continue typing
If Wrong = True And Len(txtOutput.Text) > 0 Then Wrong = False: txtOutput.Text = Left$(txtOutput.Text |
