diff --git a/EO-Flashcards/EO-Flashcards/App.config b/EO-Flashcards/EO-Flashcards/App.config
index f322f26..7067910 100644
--- a/EO-Flashcards/EO-Flashcards/App.config
+++ b/EO-Flashcards/EO-Flashcards/App.config
@@ -14,6 +14,12 @@
milk
+
+ 0
+
+
+ 0
+
\ No newline at end of file
diff --git a/EO-Flashcards/EO-Flashcards/EO-Flashcards.vbproj b/EO-Flashcards/EO-Flashcards/EO-Flashcards.vbproj
index 4440b99..55727b7 100644
--- a/EO-Flashcards/EO-Flashcards/EO-Flashcards.vbproj
+++ b/EO-Flashcards/EO-Flashcards/EO-Flashcards.vbproj
@@ -135,6 +135,12 @@
Form
+
+ frmStats.vb
+
+
+ Form
+
True
@@ -167,6 +173,9 @@
frmMenu.vb
+
+ frmStats.vb
+
VbMyResourcesResXFileCodeGenerator
Resources.Designer.vb
diff --git a/EO-Flashcards/EO-Flashcards/My Project/Settings.Designer.vb b/EO-Flashcards/EO-Flashcards/My Project/Settings.Designer.vb
index 4bb0c60..bc49124 100644
--- a/EO-Flashcards/EO-Flashcards/My Project/Settings.Designer.vb
+++ b/EO-Flashcards/EO-Flashcards/My Project/Settings.Designer.vb
@@ -65,6 +65,30 @@ Namespace My
Me("AdminPassword") = value
End Set
End Property
+
+ _
+ Public Property TotalCorrect() As Integer
+ Get
+ Return CType(Me("TotalCorrect"),Integer)
+ End Get
+ Set
+ Me("TotalCorrect") = value
+ End Set
+ End Property
+
+ _
+ Public Property TotalIncorrect() As Integer
+ Get
+ Return CType(Me("TotalIncorrect"),Integer)
+ End Get
+ Set
+ Me("TotalIncorrect") = value
+ End Set
+ End Property
End Class
End Namespace
diff --git a/EO-Flashcards/EO-Flashcards/My Project/Settings.settings b/EO-Flashcards/EO-Flashcards/My Project/Settings.settings
index c5d8b97..aa94769 100644
--- a/EO-Flashcards/EO-Flashcards/My Project/Settings.settings
+++ b/EO-Flashcards/EO-Flashcards/My Project/Settings.settings
@@ -5,5 +5,11 @@
milk
+
+ 0
+
+
+ 0
+
\ No newline at end of file
diff --git a/EO-Flashcards/EO-Flashcards/frmAdmin.Designer.vb b/EO-Flashcards/EO-Flashcards/frmAdmin.Designer.vb
index 44e36e2..f5b57db 100644
--- a/EO-Flashcards/EO-Flashcards/frmAdmin.Designer.vb
+++ b/EO-Flashcards/EO-Flashcards/frmAdmin.Designer.vb
@@ -29,6 +29,7 @@ Partial Class frmAdmin
'
'btnWipe
'
+ Me.btnWipe.Enabled = False
Me.btnWipe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnWipe.ForeColor = System.Drawing.Color.Red
Me.btnWipe.Location = New System.Drawing.Point(336, 12)
diff --git a/EO-Flashcards/EO-Flashcards/frmAdmin.vb b/EO-Flashcards/EO-Flashcards/frmAdmin.vb
index 9193def..75fd953 100644
--- a/EO-Flashcards/EO-Flashcards/frmAdmin.vb
+++ b/EO-Flashcards/EO-Flashcards/frmAdmin.vb
@@ -12,4 +12,9 @@ Public Class frmAdmin
Private Sub frmAdmin_Closing(sender As Object, e As EventArgs) Handles MyBase.FormClosed
frmMenu.Show()
End Sub
+
+ Private Sub btnClearUser_Click(sender As Object, e As EventArgs) Handles btnClearUser.Click
+ My.Settings.TotalCorrect = 0
+ My.Settings.TotalIncorrect = 0
+ End Sub
End Class
\ No newline at end of file
diff --git a/EO-Flashcards/EO-Flashcards/frmArcade.vb b/EO-Flashcards/EO-Flashcards/frmArcade.vb
index 2f204b1..80edb10 100644
--- a/EO-Flashcards/EO-Flashcards/frmArcade.vb
+++ b/EO-Flashcards/EO-Flashcards/frmArcade.vb
@@ -20,6 +20,7 @@ Public Class frmArcade
Public Sub Arcade_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTranslated.KeyPress
If e.KeyChar = ChrW(Keys.Enter) Then 'When enter pressed
If LCase(english(lblLineNumber.Text() + 1)).Contains(txtTranslated.Text) Then 'Thanks to some fancy googling and tip top help form stackoverflow, we can know use parital answers.
+ My.Settings.TotalCorrect += 1
MsgBox("Correct") ' That above line allows for us to sometimes accidentally allow users to enter one letter, it looks impossible without rewriting a lot of it too fix.
score += 1 'add one to score
lblCorrect.Text = score
@@ -29,6 +30,7 @@ Public Class frmArcade
txtTranslated.Clear()
'If correct, find a new random number for comparison again.
Else
+ My.Settings.TotalIncorrect += 1
Dim skip = MsgBox("Incorrect, Would you like to skip?", MsgBoxStyle.YesNo)
If skip = MsgBoxResult.Yes Then
Dim randomword As Integer = CInt(Int((63425 * Rnd())))
diff --git a/EO-Flashcards/EO-Flashcards/frmMenu.Designer.vb b/EO-Flashcards/EO-Flashcards/frmMenu.Designer.vb
index 7735635..fd5bd89 100644
--- a/EO-Flashcards/EO-Flashcards/frmMenu.Designer.vb
+++ b/EO-Flashcards/EO-Flashcards/frmMenu.Designer.vb
@@ -26,6 +26,7 @@ Partial Class frmMenu
Me.btnTimeTrial = New System.Windows.Forms.Button()
Me.btnArcade = New System.Windows.Forms.Button()
Me.btnAdminLogin = New System.Windows.Forms.Button()
+ Me.btnStats = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'btnAdvancement
@@ -59,18 +60,28 @@ Partial Class frmMenu
'
'btnAdminLogin
'
- Me.btnAdminLogin.Location = New System.Drawing.Point(130, 93)
+ Me.btnAdminLogin.Location = New System.Drawing.Point(211, 89)
Me.btnAdminLogin.Name = "btnAdminLogin"
- Me.btnAdminLogin.Size = New System.Drawing.Size(75, 75)
+ Me.btnAdminLogin.Size = New System.Drawing.Size(117, 75)
Me.btnAdminLogin.TabIndex = 15
- Me.btnAdminLogin.Text = "Admin Login (Requires Admin Pass)"
+ Me.btnAdminLogin.Text = "Admin Login (Requires Admin Pass, Defaullt = milk)"
Me.btnAdminLogin.UseVisualStyleBackColor = True
'
+ 'btnStats
+ '
+ Me.btnStats.Location = New System.Drawing.Point(12, 89)
+ Me.btnStats.Name = "btnStats"
+ Me.btnStats.Size = New System.Drawing.Size(193, 75)
+ Me.btnStats.TabIndex = 16
+ Me.btnStats.Text = "View User Statistics"
+ Me.btnStats.UseVisualStyleBackColor = True
+ '
'frmMenu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(340, 176)
+ Me.Controls.Add(Me.btnStats)
Me.Controls.Add(Me.btnAdminLogin)
Me.Controls.Add(Me.btnArcade)
Me.Controls.Add(Me.btnTimeTrial)
@@ -86,4 +97,5 @@ Partial Class frmMenu
Friend WithEvents btnTimeTrial As Button
Friend WithEvents btnArcade As Button
Friend WithEvents btnAdminLogin As Button
+ Friend WithEvents btnStats As Button
End Class
diff --git a/EO-Flashcards/EO-Flashcards/frmMenu.vb b/EO-Flashcards/EO-Flashcards/frmMenu.vb
index 361f92f..9ada8c1 100644
--- a/EO-Flashcards/EO-Flashcards/frmMenu.vb
+++ b/EO-Flashcards/EO-Flashcards/frmMenu.vb
@@ -12,4 +12,8 @@ Public Class frmMenu
Private Sub btnArcade_Click(sender As Object, e As EventArgs) Handles btnArcade.Click
frmArcade.Show()
End Sub
+
+ Private Sub btnStats_Click(sender As Object, e As EventArgs) Handles btnStats.Click
+ frmStats.Show()
+ End Sub
End Class
diff --git a/EO-Flashcards/EO-Flashcards/frmStats.Designer.vb b/EO-Flashcards/EO-Flashcards/frmStats.Designer.vb
new file mode 100644
index 0000000..a2de6a9
--- /dev/null
+++ b/EO-Flashcards/EO-Flashcards/frmStats.Designer.vb
@@ -0,0 +1,91 @@
+ _
+Partial Class frmStats
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ _
+ Private Sub InitializeComponent()
+ Me.lblTTotalCorrect = New System.Windows.Forms.Label()
+ Me.lblTTotalIncorrect = New System.Windows.Forms.Label()
+ Me.lblTotalCorrect = New System.Windows.Forms.Label()
+ Me.lblTotalIncorrect = New System.Windows.Forms.Label()
+ Me.SuspendLayout()
+ '
+ 'lblTTotalCorrect
+ '
+ Me.lblTTotalCorrect.AutoSize = True
+ Me.lblTTotalCorrect.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTTotalCorrect.Location = New System.Drawing.Point(11, 9)
+ Me.lblTTotalCorrect.Name = "lblTTotalCorrect"
+ Me.lblTTotalCorrect.Size = New System.Drawing.Size(100, 20)
+ Me.lblTTotalCorrect.TabIndex = 0
+ Me.lblTTotalCorrect.Text = "Total Correct"
+ '
+ 'lblTTotalIncorrect
+ '
+ Me.lblTTotalIncorrect.AutoSize = True
+ Me.lblTTotalIncorrect.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTTotalIncorrect.Location = New System.Drawing.Point(11, 39)
+ Me.lblTTotalIncorrect.Name = "lblTTotalIncorrect"
+ Me.lblTTotalIncorrect.Size = New System.Drawing.Size(111, 20)
+ Me.lblTTotalIncorrect.TabIndex = 1
+ Me.lblTTotalIncorrect.Text = "Total Incorrect"
+ '
+ 'lblTotalCorrect
+ '
+ Me.lblTotalCorrect.AutoSize = True
+ Me.lblTotalCorrect.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTotalCorrect.Location = New System.Drawing.Point(120, 9)
+ Me.lblTotalCorrect.Name = "lblTotalCorrect"
+ Me.lblTotalCorrect.Size = New System.Drawing.Size(18, 20)
+ Me.lblTotalCorrect.TabIndex = 2
+ Me.lblTotalCorrect.Text = "0"
+ '
+ 'lblTotalIncorrect
+ '
+ Me.lblTotalIncorrect.AutoSize = True
+ Me.lblTotalIncorrect.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.lblTotalIncorrect.Location = New System.Drawing.Point(120, 39)
+ Me.lblTotalIncorrect.Name = "lblTotalIncorrect"
+ Me.lblTotalIncorrect.Size = New System.Drawing.Size(18, 20)
+ Me.lblTotalIncorrect.TabIndex = 3
+ Me.lblTotalIncorrect.Text = "0"
+ '
+ 'frmStats
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.ClientSize = New System.Drawing.Size(292, 79)
+ Me.Controls.Add(Me.lblTotalIncorrect)
+ Me.Controls.Add(Me.lblTotalCorrect)
+ Me.Controls.Add(Me.lblTTotalIncorrect)
+ Me.Controls.Add(Me.lblTTotalCorrect)
+ Me.Name = "frmStats"
+ Me.Text = "frmStats"
+ Me.ResumeLayout(False)
+ Me.PerformLayout()
+
+ End Sub
+
+ Friend WithEvents lblTTotalCorrect As Label
+ Friend WithEvents lblTTotalIncorrect As Label
+ Friend WithEvents lblTotalCorrect As Label
+ Friend WithEvents lblTotalIncorrect As Label
+End Class
diff --git a/EO-Flashcards/EO-Flashcards/frmStats.resx b/EO-Flashcards/EO-Flashcards/frmStats.resx
new file mode 100644
index 0000000..1af7de1
--- /dev/null
+++ b/EO-Flashcards/EO-Flashcards/frmStats.resx
@@ -0,0 +1,120 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
diff --git a/EO-Flashcards/EO-Flashcards/frmStats.vb b/EO-Flashcards/EO-Flashcards/frmStats.vb
new file mode 100644
index 0000000..4425115
--- /dev/null
+++ b/EO-Flashcards/EO-Flashcards/frmStats.vb
@@ -0,0 +1,6 @@
+Public Class frmStats
+ Private Sub frmStats_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+ lblTotalCorrect.Text = My.Settings.TotalCorrect
+ lblTotalIncorrect.Text = My.Settings.TotalIncorrect
+ End Sub
+End Class
\ No newline at end of file