D
dc15
I am trying to write an application, taking input from various text
boxes and appending it to a text file.... it was working, then I had to
create various sub procedures to reflect limits set in place (class: A
through C), (type: X, I, S), grade (4 through 6)
Ive tried everything and it still wont work, anyone have any ideas?
heres my code
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
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.
Friend WithEvents lblLastName1 As System.Windows.Forms.Label
Friend WithEvents lblLastName2 As System.Windows.Forms.Label
Friend WithEvents lblFirstNameStudent1 As
System.Windows.Forms.Label
Friend WithEvents LblFirstNameStudent2 As
System.Windows.Forms.Label
Friend WithEvents txtLastNameStudent1 As
System.Windows.Forms.TextBox
Friend WithEvents txtFirstNameStudent1 As
System.Windows.Forms.TextBox
Friend WithEvents txtFirstNameStudent2 As
System.Windows.Forms.TextBox
Friend WithEvents txtLastNameStudent2 As
System.Windows.Forms.TextBox
Friend WithEvents txtProjectName As System.Windows.Forms.TextBox
Friend WithEvents lblProjectName As System.Windows.Forms.Label
Friend WithEvents lblGrade As System.Windows.Forms.Label
Friend WithEvents lblClass As System.Windows.Forms.Label
Friend WithEvents txtGrade As System.Windows.Forms.TextBox
Friend WithEvents txtClass As System.Windows.Forms.TextBox
Friend WithEvents lblType As System.Windows.Forms.Label
Friend WithEvents txtType As System.Windows.Forms.TextBox
Friend WithEvents btnAddtoRecord As System.Windows.Forms.Button
Friend WithEvents dlgSaveFile As
System.Windows.Forms.SaveFileDialog
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Me.lblLastName1 = New System.Windows.Forms.Label
Me.lblLastName2 = New System.Windows.Forms.Label
Me.lblFirstNameStudent1 = New System.Windows.Forms.Label
Me.LblFirstNameStudent2 = New System.Windows.Forms.Label
Me.txtLastNameStudent1 = New System.Windows.Forms.TextBox
Me.txtFirstNameStudent1 = New System.Windows.Forms.TextBox
Me.txtFirstNameStudent2 = New System.Windows.Forms.TextBox
Me.txtLastNameStudent2 = New System.Windows.Forms.TextBox
Me.txtProjectName = New System.Windows.Forms.TextBox
Me.lblProjectName = New System.Windows.Forms.Label
Me.lblGrade = New System.Windows.Forms.Label
Me.txtGrade = New System.Windows.Forms.TextBox
Me.lblClass = New System.Windows.Forms.Label
Me.txtClass = New System.Windows.Forms.TextBox
Me.lblType = New System.Windows.Forms.Label
Me.txtType = New System.Windows.Forms.TextBox
Me.btnAddtoRecord = New System.Windows.Forms.Button
Me.dlgSaveFile = New System.Windows.Forms.SaveFileDialog
Me.SuspendLayout()
'
'lblLastName1
'
Me.lblLastName1.Location = New System.Drawing.Point(8, 48)
Me.lblLastName1.Name = "lblLastName1"
Me.lblLastName1.Size = New System.Drawing.Size(128, 23)
Me.lblLastName1.TabIndex = 0
Me.lblLastName1.Text = "Last Name of Student 1:"
Me.lblLastName1.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'lblLastName2
'
Me.lblLastName2.Location = New System.Drawing.Point(8, 112)
Me.lblLastName2.Name = "lblLastName2"
Me.lblLastName2.Size = New System.Drawing.Size(128, 23)
Me.lblLastName2.TabIndex = 1
Me.lblLastName2.Text = "Last Name of Student 2:"
Me.lblLastName2.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'lblFirstNameStudent1
'
Me.lblFirstNameStudent1.Location = New System.Drawing.Point(8,
16)
Me.lblFirstNameStudent1.Name = "lblFirstNameStudent1"
Me.lblFirstNameStudent1.Size = New System.Drawing.Size(128, 23)
Me.lblFirstNameStudent1.TabIndex = 2
Me.lblFirstNameStudent1.Text = "First Name of Student 1:"
Me.lblFirstNameStudent1.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'LblFirstNameStudent2
'
Me.LblFirstNameStudent2.Location = New System.Drawing.Point(8,
80)
Me.LblFirstNameStudent2.Name = "LblFirstNameStudent2"
Me.LblFirstNameStudent2.Size = New System.Drawing.Size(128, 23)
Me.LblFirstNameStudent2.TabIndex = 3
Me.LblFirstNameStudent2.Text = "First Name of Student 2:"
Me.LblFirstNameStudent2.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'txtLastNameStudent1
'
Me.txtLastNameStudent1.Location = New System.Drawing.Point(144,
48)
Me.txtLastNameStudent1.Name = "txtLastNameStudent1"
Me.txtLastNameStudent1.Size = New System.Drawing.Size(160, 20)
Me.txtLastNameStudent1.TabIndex = 4
Me.txtLastNameStudent1.Text = ""
'
'txtFirstNameStudent1
'
Me.txtFirstNameStudent1.Location = New
System.Drawing.Point(144, 16)
Me.txtFirstNameStudent1.Name = "txtFirstNameStudent1"
Me.txtFirstNameStudent1.Size = New System.Drawing.Size(160, 20)
Me.txtFirstNameStudent1.TabIndex = 5
Me.txtFirstNameStudent1.Text = ""
'
'txtFirstNameStudent2
'
Me.txtFirstNameStudent2.Location = New
System.Drawing.Point(144, 80)
Me.txtFirstNameStudent2.Name = "txtFirstNameStudent2"
Me.txtFirstNameStudent2.Size = New System.Drawing.Size(160, 20)
Me.txtFirstNameStudent2.TabIndex = 6
Me.txtFirstNameStudent2.Text = ""
'
'txtLastNameStudent2
'
Me.txtLastNameStudent2.Location = New System.Drawing.Point(144,
112)
Me.txtLastNameStudent2.Name = "txtLastNameStudent2"
Me.txtLastNameStudent2.Size = New System.Drawing.Size(160, 20)
Me.txtLastNameStudent2.TabIndex = 7
Me.txtLastNameStudent2.Text = ""
'
'txtProjectName
'
Me.txtProjectName.Location = New System.Drawing.Point(144, 144)
Me.txtProjectName.Name = "txtProjectName"
Me.txtProjectName.Size = New System.Drawing.Size(160, 20)
Me.txtProjectName.TabIndex = 8
Me.txtProjectName.Text = ""
'
'lblProjectName
'
Me.lblProjectName.Location = New System.Drawing.Point(8, 144)
Me.lblProjectName.Name = "lblProjectName"
Me.lblProjectName.Size = New System.Drawing.Size(128, 23)
Me.lblProjectName.TabIndex = 9
Me.lblProjectName.Text = "Project Name:"
Me.lblProjectName.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'lblGrade
'
Me.lblGrade.Location = New System.Drawing.Point(8, 176)
Me.lblGrade.Name = "lblGrade"
Me.lblGrade.Size = New System.Drawing.Size(128, 23)
Me.lblGrade.TabIndex = 10
Me.lblGrade.Text = "Grade:"
Me.lblGrade.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'txtGrade
'
Me.txtGrade.Location = New System.Drawing.Point(144, 176)
Me.txtGrade.Name = "txtGrade"
Me.txtGrade.Size = New System.Drawing.Size(160, 20)
Me.txtGrade.TabIndex = 11
Me.txtGrade.Text = ""
'
'lblClass
'
Me.lblClass.Location = New System.Drawing.Point(8, 208)
Me.lblClass.Name = "lblClass"
Me.lblClass.Size = New System.Drawing.Size(128, 23)
Me.lblClass.TabIndex = 12
Me.lblClass.Text = "Class:"
Me.lblClass.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'txtClass
'
Me.txtClass.Location = New System.Drawing.Point(144, 208)
Me.txtClass.Name = "txtClass"
Me.txtClass.Size = New System.Drawing.Size(160, 20)
Me.txtClass.TabIndex = 13
Me.txtClass.Text = ""
'
'lblType
'
Me.lblType.Location = New System.Drawing.Point(8, 240)
Me.lblType.Name = "lblType"
Me.lblType.Size = New System.Drawing.Size(128, 23)
Me.lblType.TabIndex = 14
Me.lblType.Text = "Type:"
Me.lblType.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtType
'
Me.txtType.Location = New System.Drawing.Point(144, 240)
Me.txtType.Name = "txtType"
Me.txtType.Size = New System.Drawing.Size(160, 20)
Me.txtType.TabIndex = 15
Me.txtType.Text = ""
'
'btnAddtoRecord
'
Me.btnAddtoRecord.Location = New System.Drawing.Point(160, 272)
Me.btnAddtoRecord.Name = "btnAddtoRecord"
Me.btnAddtoRecord.Size = New System.Drawing.Size(120, 24)
Me.btnAddtoRecord.TabIndex = 16
Me.btnAddtoRecord.Text = "Add Entry To Record"
'
'dlgSaveFile
'
Me.dlgSaveFile.Filter = "Text Files(*.txt)|"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(384, 318)
Me.Controls.Add(Me.btnAddtoRecord)
Me.Controls.Add(Me.txtType)
Me.Controls.Add(Me.lblType)
Me.Controls.Add(Me.txtClass)
Me.Controls.Add(Me.lblClass)
Me.Controls.Add(Me.txtGrade)
Me.Controls.Add(Me.lblGrade)
Me.Controls.Add(Me.lblProjectName)
Me.Controls.Add(Me.txtProjectName)
Me.Controls.Add(Me.txtLastNameStudent2)
Me.Controls.Add(Me.txtFirstNameStudent2)
Me.Controls.Add(Me.txtFirstNameStudent1)
Me.Controls.Add(Me.txtLastNameStudent1)
Me.Controls.Add(Me.LblFirstNameStudent2)
Me.Controls.Add(Me.lblFirstNameStudent1)
Me.Controls.Add(Me.lblLastName2)
Me.Controls.Add(Me.lblLastName1)
Me.Name = "Form1"
Me.Text = "Science Fair Entries"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub btnAddtoRecord_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnAddtoRecord.Click
Dim x As Boolean
CheckClass(x)
If x Then
CheckGrade(x)
End If
If x Then
CheckType(x)
End If
Dim record As IO.StreamWriter =
IO.File.AppendText(dlgSaveFile.FileName)
record.WriteLine("")
record.WriteLine("Names:" & " " & txtFirstNameStudent1.Text & "
" & txtLastNameStudent1.Text & "," & " " & txtFirstNameStudent2.Text &
" " & txtLastNameStudent2.Text)
record.WriteLine("Type:" & " " & txtType.Text)
record.WriteLine("Class:" & " " & txtGrade.Text &
txtClass.Text)
record.WriteLine("Project Title:" & " " & txtProjectName.Text)
record.WriteLine(" ")
record.WriteLine("======================================================")
record.Close()
txtFirstNameStudent1.Clear()
txtLastNameStudent1.Clear()
txtFirstNameStudent2.Clear()
txtLastNameStudent2.Clear()
txtClass.Clear()
txtGrade.Clear()
txtType.Clear()
txtProjectName.Clear()
End Sub
Function CheckClass(ByRef classanalyze As Boolean) As Boolean
Select Case txtClass.Text
Case "A"
classanalyze = True
Case "B"
classanalyze = True
Case "C"
classanalyze = True
Case Else
MsgBox("You have inputted an invalid Class. Please
select a Class between A and C")
classanalyze = False
End Select
Return classanalyze
End Function
Function CheckGrade(ByRef analyzegrade As Boolean) As Boolean
Select Case txtGrade.Text
Case "4"
txtGrade.Text = "4"
analyzegrade = True
Case "5"
txtGrade.Text = "5"
analyzegrade = True
Case "6"
txtGrade.Text = "6"
analyzegrade = True
Case Else
analyzegrade = False
MsgBox("You have inputted an invalid Grade. Please
select a Grade between 4 or 6")
Return analyzegrade
End Select
End Function
Function CheckType(ByRef typeanalyze As Boolean) As Boolean
Dim type As String
Select Case txtType.Text
Case "I"
txtType.Text = "Invention"
typeanalyze = True
Case "S"
txtType.Text = "Study"
typeanalyze = True
Case "X"
txtType.Text = "Experiment"
typeanalyze = True
Case Else
typeanalyze = False
MsgBox("You have inputted an invalid Project Type.
Please enter I for an invention, X for an experiment, or S for a
study")
Return typeanalyze
End Select
End Function
End Class
boxes and appending it to a text file.... it was working, then I had to
create various sub procedures to reflect limits set in place (class: A
through C), (type: X, I, S), grade (4 through 6)
Ive tried everything and it still wont work, anyone have any ideas?
heres my code
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
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.
Friend WithEvents lblLastName1 As System.Windows.Forms.Label
Friend WithEvents lblLastName2 As System.Windows.Forms.Label
Friend WithEvents lblFirstNameStudent1 As
System.Windows.Forms.Label
Friend WithEvents LblFirstNameStudent2 As
System.Windows.Forms.Label
Friend WithEvents txtLastNameStudent1 As
System.Windows.Forms.TextBox
Friend WithEvents txtFirstNameStudent1 As
System.Windows.Forms.TextBox
Friend WithEvents txtFirstNameStudent2 As
System.Windows.Forms.TextBox
Friend WithEvents txtLastNameStudent2 As
System.Windows.Forms.TextBox
Friend WithEvents txtProjectName As System.Windows.Forms.TextBox
Friend WithEvents lblProjectName As System.Windows.Forms.Label
Friend WithEvents lblGrade As System.Windows.Forms.Label
Friend WithEvents lblClass As System.Windows.Forms.Label
Friend WithEvents txtGrade As System.Windows.Forms.TextBox
Friend WithEvents txtClass As System.Windows.Forms.TextBox
Friend WithEvents lblType As System.Windows.Forms.Label
Friend WithEvents txtType As System.Windows.Forms.TextBox
Friend WithEvents btnAddtoRecord As System.Windows.Forms.Button
Friend WithEvents dlgSaveFile As
System.Windows.Forms.SaveFileDialog
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Me.lblLastName1 = New System.Windows.Forms.Label
Me.lblLastName2 = New System.Windows.Forms.Label
Me.lblFirstNameStudent1 = New System.Windows.Forms.Label
Me.LblFirstNameStudent2 = New System.Windows.Forms.Label
Me.txtLastNameStudent1 = New System.Windows.Forms.TextBox
Me.txtFirstNameStudent1 = New System.Windows.Forms.TextBox
Me.txtFirstNameStudent2 = New System.Windows.Forms.TextBox
Me.txtLastNameStudent2 = New System.Windows.Forms.TextBox
Me.txtProjectName = New System.Windows.Forms.TextBox
Me.lblProjectName = New System.Windows.Forms.Label
Me.lblGrade = New System.Windows.Forms.Label
Me.txtGrade = New System.Windows.Forms.TextBox
Me.lblClass = New System.Windows.Forms.Label
Me.txtClass = New System.Windows.Forms.TextBox
Me.lblType = New System.Windows.Forms.Label
Me.txtType = New System.Windows.Forms.TextBox
Me.btnAddtoRecord = New System.Windows.Forms.Button
Me.dlgSaveFile = New System.Windows.Forms.SaveFileDialog
Me.SuspendLayout()
'
'lblLastName1
'
Me.lblLastName1.Location = New System.Drawing.Point(8, 48)
Me.lblLastName1.Name = "lblLastName1"
Me.lblLastName1.Size = New System.Drawing.Size(128, 23)
Me.lblLastName1.TabIndex = 0
Me.lblLastName1.Text = "Last Name of Student 1:"
Me.lblLastName1.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'lblLastName2
'
Me.lblLastName2.Location = New System.Drawing.Point(8, 112)
Me.lblLastName2.Name = "lblLastName2"
Me.lblLastName2.Size = New System.Drawing.Size(128, 23)
Me.lblLastName2.TabIndex = 1
Me.lblLastName2.Text = "Last Name of Student 2:"
Me.lblLastName2.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'lblFirstNameStudent1
'
Me.lblFirstNameStudent1.Location = New System.Drawing.Point(8,
16)
Me.lblFirstNameStudent1.Name = "lblFirstNameStudent1"
Me.lblFirstNameStudent1.Size = New System.Drawing.Size(128, 23)
Me.lblFirstNameStudent1.TabIndex = 2
Me.lblFirstNameStudent1.Text = "First Name of Student 1:"
Me.lblFirstNameStudent1.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'LblFirstNameStudent2
'
Me.LblFirstNameStudent2.Location = New System.Drawing.Point(8,
80)
Me.LblFirstNameStudent2.Name = "LblFirstNameStudent2"
Me.LblFirstNameStudent2.Size = New System.Drawing.Size(128, 23)
Me.LblFirstNameStudent2.TabIndex = 3
Me.LblFirstNameStudent2.Text = "First Name of Student 2:"
Me.LblFirstNameStudent2.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'txtLastNameStudent1
'
Me.txtLastNameStudent1.Location = New System.Drawing.Point(144,
48)
Me.txtLastNameStudent1.Name = "txtLastNameStudent1"
Me.txtLastNameStudent1.Size = New System.Drawing.Size(160, 20)
Me.txtLastNameStudent1.TabIndex = 4
Me.txtLastNameStudent1.Text = ""
'
'txtFirstNameStudent1
'
Me.txtFirstNameStudent1.Location = New
System.Drawing.Point(144, 16)
Me.txtFirstNameStudent1.Name = "txtFirstNameStudent1"
Me.txtFirstNameStudent1.Size = New System.Drawing.Size(160, 20)
Me.txtFirstNameStudent1.TabIndex = 5
Me.txtFirstNameStudent1.Text = ""
'
'txtFirstNameStudent2
'
Me.txtFirstNameStudent2.Location = New
System.Drawing.Point(144, 80)
Me.txtFirstNameStudent2.Name = "txtFirstNameStudent2"
Me.txtFirstNameStudent2.Size = New System.Drawing.Size(160, 20)
Me.txtFirstNameStudent2.TabIndex = 6
Me.txtFirstNameStudent2.Text = ""
'
'txtLastNameStudent2
'
Me.txtLastNameStudent2.Location = New System.Drawing.Point(144,
112)
Me.txtLastNameStudent2.Name = "txtLastNameStudent2"
Me.txtLastNameStudent2.Size = New System.Drawing.Size(160, 20)
Me.txtLastNameStudent2.TabIndex = 7
Me.txtLastNameStudent2.Text = ""
'
'txtProjectName
'
Me.txtProjectName.Location = New System.Drawing.Point(144, 144)
Me.txtProjectName.Name = "txtProjectName"
Me.txtProjectName.Size = New System.Drawing.Size(160, 20)
Me.txtProjectName.TabIndex = 8
Me.txtProjectName.Text = ""
'
'lblProjectName
'
Me.lblProjectName.Location = New System.Drawing.Point(8, 144)
Me.lblProjectName.Name = "lblProjectName"
Me.lblProjectName.Size = New System.Drawing.Size(128, 23)
Me.lblProjectName.TabIndex = 9
Me.lblProjectName.Text = "Project Name:"
Me.lblProjectName.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'lblGrade
'
Me.lblGrade.Location = New System.Drawing.Point(8, 176)
Me.lblGrade.Name = "lblGrade"
Me.lblGrade.Size = New System.Drawing.Size(128, 23)
Me.lblGrade.TabIndex = 10
Me.lblGrade.Text = "Grade:"
Me.lblGrade.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'txtGrade
'
Me.txtGrade.Location = New System.Drawing.Point(144, 176)
Me.txtGrade.Name = "txtGrade"
Me.txtGrade.Size = New System.Drawing.Size(160, 20)
Me.txtGrade.TabIndex = 11
Me.txtGrade.Text = ""
'
'lblClass
'
Me.lblClass.Location = New System.Drawing.Point(8, 208)
Me.lblClass.Name = "lblClass"
Me.lblClass.Size = New System.Drawing.Size(128, 23)
Me.lblClass.TabIndex = 12
Me.lblClass.Text = "Class:"
Me.lblClass.TextAlign =
System.Drawing.ContentAlignment.TopRight
'
'txtClass
'
Me.txtClass.Location = New System.Drawing.Point(144, 208)
Me.txtClass.Name = "txtClass"
Me.txtClass.Size = New System.Drawing.Size(160, 20)
Me.txtClass.TabIndex = 13
Me.txtClass.Text = ""
'
'lblType
'
Me.lblType.Location = New System.Drawing.Point(8, 240)
Me.lblType.Name = "lblType"
Me.lblType.Size = New System.Drawing.Size(128, 23)
Me.lblType.TabIndex = 14
Me.lblType.Text = "Type:"
Me.lblType.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtType
'
Me.txtType.Location = New System.Drawing.Point(144, 240)
Me.txtType.Name = "txtType"
Me.txtType.Size = New System.Drawing.Size(160, 20)
Me.txtType.TabIndex = 15
Me.txtType.Text = ""
'
'btnAddtoRecord
'
Me.btnAddtoRecord.Location = New System.Drawing.Point(160, 272)
Me.btnAddtoRecord.Name = "btnAddtoRecord"
Me.btnAddtoRecord.Size = New System.Drawing.Size(120, 24)
Me.btnAddtoRecord.TabIndex = 16
Me.btnAddtoRecord.Text = "Add Entry To Record"
'
'dlgSaveFile
'
Me.dlgSaveFile.Filter = "Text Files(*.txt)|"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(384, 318)
Me.Controls.Add(Me.btnAddtoRecord)
Me.Controls.Add(Me.txtType)
Me.Controls.Add(Me.lblType)
Me.Controls.Add(Me.txtClass)
Me.Controls.Add(Me.lblClass)
Me.Controls.Add(Me.txtGrade)
Me.Controls.Add(Me.lblGrade)
Me.Controls.Add(Me.lblProjectName)
Me.Controls.Add(Me.txtProjectName)
Me.Controls.Add(Me.txtLastNameStudent2)
Me.Controls.Add(Me.txtFirstNameStudent2)
Me.Controls.Add(Me.txtFirstNameStudent1)
Me.Controls.Add(Me.txtLastNameStudent1)
Me.Controls.Add(Me.LblFirstNameStudent2)
Me.Controls.Add(Me.lblFirstNameStudent1)
Me.Controls.Add(Me.lblLastName2)
Me.Controls.Add(Me.lblLastName1)
Me.Name = "Form1"
Me.Text = "Science Fair Entries"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub btnAddtoRecord_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnAddtoRecord.Click
Dim x As Boolean
CheckClass(x)
If x Then
CheckGrade(x)
End If
If x Then
CheckType(x)
End If
Dim record As IO.StreamWriter =
IO.File.AppendText(dlgSaveFile.FileName)
record.WriteLine("")
record.WriteLine("Names:" & " " & txtFirstNameStudent1.Text & "
" & txtLastNameStudent1.Text & "," & " " & txtFirstNameStudent2.Text &
" " & txtLastNameStudent2.Text)
record.WriteLine("Type:" & " " & txtType.Text)
record.WriteLine("Class:" & " " & txtGrade.Text &
txtClass.Text)
record.WriteLine("Project Title:" & " " & txtProjectName.Text)
record.WriteLine(" ")
record.WriteLine("======================================================")
record.Close()
txtFirstNameStudent1.Clear()
txtLastNameStudent1.Clear()
txtFirstNameStudent2.Clear()
txtLastNameStudent2.Clear()
txtClass.Clear()
txtGrade.Clear()
txtType.Clear()
txtProjectName.Clear()
End Sub
Function CheckClass(ByRef classanalyze As Boolean) As Boolean
Select Case txtClass.Text
Case "A"
classanalyze = True
Case "B"
classanalyze = True
Case "C"
classanalyze = True
Case Else
MsgBox("You have inputted an invalid Class. Please
select a Class between A and C")
classanalyze = False
End Select
Return classanalyze
End Function
Function CheckGrade(ByRef analyzegrade As Boolean) As Boolean
Select Case txtGrade.Text
Case "4"
txtGrade.Text = "4"
analyzegrade = True
Case "5"
txtGrade.Text = "5"
analyzegrade = True
Case "6"
txtGrade.Text = "6"
analyzegrade = True
Case Else
analyzegrade = False
MsgBox("You have inputted an invalid Grade. Please
select a Grade between 4 or 6")
Return analyzegrade
End Select
End Function
Function CheckType(ByRef typeanalyze As Boolean) As Boolean
Dim type As String
Select Case txtType.Text
Case "I"
txtType.Text = "Invention"
typeanalyze = True
Case "S"
txtType.Text = "Study"
typeanalyze = True
Case "X"
txtType.Text = "Experiment"
typeanalyze = True
Case Else
typeanalyze = False
MsgBox("You have inputted an invalid Project Type.
Please enter I for an invention, X for an experiment, or S for a
study")
Return typeanalyze
End Select
End Function
End Class