The examples here show the code for the sample programs available on the web and covered in class – notice that some of the lines wrap when I move them over to Word – this is especially true with lines like Private Sub. The actual way I coded them is shown in the VB.NET code.

BCCMap project (see the PowerPoint introVBNET)

Public Class frmBCCMap

Inherits System.Windows.Forms.Form

Private Sub btnAdr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdr.Click

'This makes the address visible

lblAdr.Visible = True

End Sub

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

'This ends the program

End

End Sub

End Class

Hello project (see the PowerPoint createVBNET)

Public Class frmHello

Inherits System.Windows.Forms.Form

Private Sub btnHello_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHello.Click

'Greet the user

lblGreeting.Text = "Hello " & txtName.Text

End Sub

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

'End the project

End

End Sub

End Class

BasicPay Project (see PowerPoint variablescalc)

Public Class frmBasicPay

Inherits System.Windows.Forms.Form

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

txtGrossPay.Text = Val(txtPayHr.Text) * Val(txtHrs.Text)

End Sub

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

txtPayHr.Clear()

txtHrs.Clear()

txtGrossPay.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

Mathcalc Project (see PowerPoint variablescalc)

Public Class frmMath

Inherits System.Windows.Forms.Form

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

txtAns.Text = Val(txtFirst.Text) + Val(txtSecond.Text)

End Sub

Private Sub btnSubtract_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubtract.Click

txtAns.Text = Val(txtFirst.Text) - Val(txtSecond.Text)

End Sub

Private Sub btnMultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMultiply.Click

txtAns.Text = Val(txtFirst.Text) * Val(txtSecond.Text)

End Sub

Private Sub btnDivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDivide.Click

txtAns.Text = Val(txtFirst.Text) / Val(txtSecond.Text)

End Sub

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

txtAns.Clear()

txtFirst.Clear()

txtSecond.Clear()

txtFirst.Focus()

End Sub

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

End

End Sub

End Class

The testtabindex project has no code written by the programmer. It is covered in the variablescalc presentation.

Invenbasic Project (see PowerPoint variablescalc)

Public Class frmInven

Inherits System.Windows.Forms.Form

Dim wkTotal As Integer

Private Sub btnTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTotal.Click

wkTotal = Val(txtOnHand.Text) + Val(txtOnOrder.Text)

txtTotal.text = wkTotal

End Sub

Private Sub btnToOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToOrder.Click

Const cReordPt As Integer = 100

Dim wkToOrder As Integer

wkToOrder = cReordPt - wkTotal

txtToOrder.Text = wkToOrder

End Sub

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

txtOnHand.Clear()

txtOnOrder.Clear()

txtTotal.Clear()

txtToOrder.Clear()

txtOnHand.Focus()

End Sub

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

End

End Sub

End Class