Muffins project

Public Class frmMuffinsCheckListBox

Inherits System.Windows.Forms.Form

Dim wkAmtOwe As Single

Dim wkTotal As Single

Dim wkCustCt As Integer

Dim wkHighestSale As Single

Private Sub frmMuffinsCheckBoxList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

clbMuffins.Items.Add("Cornmeal")

clbMuffins.Items.Add("Bran")

clbMuffins.Items.Add("Poppyseed")

clbMuffins.Items.Add("Blueberry")

clbMuffins.Items.Add("Cranberry")

End Sub

Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click

Dim ct As Integer

Dim cDisc As Decimal = 0.9

wkAmtOwe = 0

For ct = 0 To clbMuffins.Items.Count - 1

If clbMuffins.GetItemChecked(ct) = True Then

wkAmtOwe = wkAmtOwe + CInt(txtQuantity.Text) * 0.95

End If

Next

If radDisc.Checked = True Then

wkAmtOwe = wkAmtOwe * cDisc

End If

If wkAmtOwe > wkHighestSale Then

wkHighestSale = wkAmtOwe

End If

txtAmtDue.Text = FormatCurrency(wkAmtOwe)

wkTotal = wkTotal + wkAmtOwe

wkCustCt = wkCustCt + 1

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

Dim ct As Integer

Dim chkdIndx As Integer

txtQuantity.Clear()

txtAmtDue.Clear()

radDisc.Checked = False

For ct = 0 To 4

clbMuffins.SetItemCheckState(ct, CheckState.Unchecked)

Next

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

Private Sub btnSummary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSummary.Click

Dim wkNewLine As String

Dim wkAverage As Single

Dim wkMsgStr As String

Dim fmtwkHighestSale As String

Dim fmtwkAverage As String

fmtwkHighestSale = FormatCurrency(wkHighestSale)

wkNewLine = Chr(10)

If wkCustCt > 0 Then

wkAverage = wkTotal / wkCustCt

fmtwkAverage = FormatCurrency(wkAverage)

wkMsgStr = "Highest Sale " & _

fmtwkHighestSale & wkNewLine & _

"Average Sale " & fmtwkAverage

MsgBox(wkMsgStr, MsgBoxStyle.OKOnly, "SUMMARY")

Else

MsgBox("No data to summarize", MsgBoxStyle.OKOnly, "NO DATA")

End If

End Sub

End Class

Faculty Courses project (the faculty course examples are covered in the comboboxes PowerPoint presentation)

Public Class frmFacCrs

Inherits System.Windows.Forms.Form

Private Sub btnAddCrs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddCrs.Click

lstCrs.Items.Add(cboCourses.Text)

End Sub

Private Sub cboSemester_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboSemester.SelectedIndexChanged

lstCrs.Items.Add("Courses for the " & cboSemester.Text & " semester")

lstCrs.Items.Add("")

btnAddCrs.Enabled = True

End Sub

Private Sub frmFacCrs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

btnAddCrs.Enabled = False

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

lstCrs.Items.Clear()

cboSemester.ResetText()

cboCourses.ResetText()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

End Class

FacCrsSetup Project

Public Class frmFacCrs

Inherits System.Windows.Forms.Form

Private Sub btnAddCrs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddCrs.Click

lstCrs.Items.Add(cboCourses.Text)

End Sub

Private Sub cboSemester_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboSemester.SelectedIndexChanged

lstCrs.Items.Add("Courses for the " & cboSemester.Text & " semester")

lstCrs.Items.Add("")

btnAddCrs.Enabled = True

End Sub

Private Sub frmFacCrs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

cboSemester.Items.Add("Spring")

cboSemester.Items.Add("Summer")

cboSemester.Items.Add("Fall")

cboCourses.Items.Add("CIS17 Programming: Logic, Design and Implementation")

cboCourses.Items.Add("CIS44 Internet Developer")

cboCourses.Items.Add("CIS50 Oracle and SQL")

cboCourses.Items.Add("CIS56 Visual Basic")

cboCourses.Items.Add("CIS67 Advanced Visual Basic")

btnAddCrs.Enabled = False

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

cboSemester.SelectedIndex = -1

cboCourses.SelectedIndex = -1

lstCrs.Items.Clear()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

End Class

FacCrsUserEntry Project

Public Class frmFacCrs

Inherits System.Windows.Forms.Form

Private Sub btnAddCrs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddCrs.Click

lstCrs.Items.Add(cboCourses.Text)

End Sub

Private Sub cboSemester_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboSemester.SelectedIndexChanged

lstCrs.Items.Add("Courses for the " & cboSemester.Text & " semester")

lstCrs.Items.Add("")

btnAddCrs.Enabled = True

End Sub

Private Sub frmFacCrs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim userEntry As String

userEntry = InputBox("Enter semester, enter Done when finished", "Semester", "")

Do While userEntry <> "Done"

cboSemester.Items.Add(userEntry)

userEntry = InputBox("Enter semester, enter Done when finished", "Semester", "")

Loop

userEntry = InputBox("Enter course, enter Done when finished", "Course", "")

Do While userEntry <> "Done"

cboCourses.Items.Add(userEntry)

userEntry = InputBox("Enter course, enter Done when finished", "Course", "")

Loop

btnAddCrs.Enabled = False

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

cboSemester.SelectedIndex = -1

cboCourses.SelectedIndex = -1

lstCrs.Items.Clear()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

End Class