deptarray project (presentation arrays.ppt)

Public Class frmDept

Inherits System.Windows.Forms.Form

Dim deptArray(3) As String

Private Sub btnDept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDept.Click

txtDeptName.Text = deptArray(CInt(txtDept.Text))

End Sub

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

deptArray(0) = "Books"

deptArray(1) = "Toys"

deptArray(2) = "Gifts"

deptArray(3) = "Cookware"

End Sub

Private Sub btnCheckDept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckDept.Click

If IsNumeric(txtDept.Text) Then

If CInt(txtDept.Text) <= 3 Then

txtDeptName.Text = deptArray(CInt(txtDept.Text))

Else

txtDeptName.Text = "Invalid Department Number"

End If

Else

txtDeptName.Text = "Non-numeric Department Number"

End If

End Sub

End Class

deptarrayimplicit project

Public Class frmDept

Inherits System.Windows.Forms.Form

Private Sub btnCheckDept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckDept.Click

If IsNumeric(txtDept.Text) Then

If CInt(txtDept.Text) <= 3 Then

txtDeptName.Text = deptArray(CInt(txtDept.Text))

Else

txtDeptName.Text = "Invalid Department Number"

End If

Else

txtDeptName.Text = "Non-numeric Department Number"

End If

End Sub

End Class

modArray

Module modArray

Public deptArray() As String = {"Books", "Toys", "Gifts", "Cookware"}

End Module

deptarrayfor project

Public Class frmDept

Inherits System.Windows.Forms.Form

Dim deptArray(3) As String

Private Sub btnDept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

txtDeptName.Text = deptArray(CInt(txtDept.Text))

End Sub

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

Dim i As Integer

For i = 0 To 3

deptArray(i) = InputBox("Enter dept name", "Dept Array")

Next

End Sub

Private Sub btnCheckDept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckDept.Click

If IsNumeric(txtDept.Text) Then

If CInt(txtDept.Text) <= 3 Then

txtDeptName.Text = deptArray(CInt(txtDept.Text))

Else

txtDeptName.Text = "Invalid Department Number"

End If

Else

txtDeptName.Text = "Non-numeric Department Number"

End If

End Sub

End Class

arrayforeach project

Public Class frmArray

Inherits System.Windows.Forms.Form

Dim budgetArray(5) As Decimal

Private Sub btnGetData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetData.Click

Dim i As Integer

Dim wkInfo As String

For i = 0 To 5

budgetArray(i) = InputBox("Enter budget for Dept " & i, "Dept Budget")

wkInfo = "Department #" & i & " " & FormatCurrency(budgetArray(i))

lstShow.Items.Add(wkInfo)

Next

End Sub

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim wkDeptBudget As Decimal

Dim wkTotBudget As Decimal

For Each wkDeptBudget In budgetArray

wkTotBudget = wkTotBudget + wkDeptBudget

Next

txtTotal.Text = FormatCurrency(wkTotBudget)

End Sub

End Class

arrayforeach2 project

Public Class frmArray

Inherits System.Windows.Forms.Form

Dim budgetArray(6) As Decimal

Private Sub btnGetData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetData.Click

Dim i As Integer

Dim wkInfo As String

budgetArray(0) = 0

For i = 1 To 6

budgetArray(i) = InputBox("Enter budget for Dept " & i, "Dept Budget")

wkInfo = "Department #" & i & " " & FormatCurrency(budgetArray(i))

lstShow.Items.Add(wkInfo)

Next

End Sub

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim wkDeptBudget As Decimal

Dim wkTotBudget As Decimal

For Each wkDeptBudget In budgetArray

wkTotBudget = wkTotBudget + wkDeptBudget

Next

txtTotal.Text = FormatCurrency(wkTotBudget)

End Sub

End Class

arraynumelem project

Public Class frmArray

Inherits System.Windows.Forms.Form

Dim budgetArray(15) As Decimal

Private Sub btnGetData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetData.Click

Dim i As Integer

Dim wkInfo As String

Dim wkMax As Integer

wkMax = InputBox("Enter the number of departments being processed", "Department Count")

budgetArray(0) = 0

For i = 1 To wkMax

budgetArray(i) = InputBox("Enter budget for Dept " & i, "Dept Budget")

wkInfo = "Department #" & i & " " & FormatCurrency(budgetArray(i))

lstShow.Items.Add(wkInfo)

Next

End Sub

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim wkTotBudget As Decimal = 0

Dim wkTotCt As Integer = 0

Dim i As Integer

For i = 1 To budgetArray.Length - 1

wkTotBudget = wkTotBudget + budgetArray(i)

If Not budgetArray(i) = 0 Then

wkTotCt = wkTotCt + 1

End If

Next

txtTotal.Text = FormatCurrency(wkTotBudget)

txtDeptNum.Text = wkTotCt

End Sub

End Class

Parallelarray project

Public Class frmDept

Inherits System.Windows.Forms.Form

Dim deptNumArray(3) As Integer

Dim deptArray(3) As String

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

deptNumArray(0) = 15

deptNumArray(1) = 26

deptNumArray(2) = 37

deptNumArray(3) = 56

deptArray(0) = "Books"

deptArray(1) = "Toys"

deptArray(2) = "Gifts"

deptArray(3) = "Cookware"

End Sub

Private Sub btnListDept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListDept.Click

Dim i As Integer

For i = 0 To 3

lstDept.Items.Add(deptNumArray(i) & " " & deptArray(i))

Next

End Sub

End Class