80 likes | 244 Views
Process Flow July 10, 2001. Process Flow. Linear On Count On Event. Linear Flow. Start Housekeep – Initialize Procedure steps End Keep Stop. Private Sub cmdBox_Click. Dim intNum As Integer intNum = Val(Text1.Text) Label1.Caption = Format(intNum, “standard”) End Sub. Loop on Count.
E N D
Process Flow • Linear • On Count • On Event
Linear Flow • Start • Housekeep – Initialize • Procedure steps • End Keep • Stop
Private Sub cmdBox_Click • Dim intNum As Integer • intNum = Val(Text1.Text) • Label1.Caption = Format(intNum, “standard”) • End Sub
Loop on Count • House Keep – Initialize • Get Number of Times • Loop That Many Times • Procedure Steps • End Loop • End Keep
Loop on Count • Dim intNum, I As Integer • intNum = Val(Text1.Text) • For I = 1 To intNum • Print I • Next I • End Sub
Loop On Event • House Keep – Initialize • Obtain Stop Event Status • Loop if Not Stop Event • Procedure Steps • Obtain Stop Event Status • End Loop • End Keep
Loop On Event • Dim intTot, intAdd As Integer • Dim strIn as String • intTot = 0 • strIn = InputBox(“Enter Number or STOP”) • Do While Ucase(strIn) <> “STOP” • intTot = intTot + Val(strIn) • strIn = InputBox(“Enter Number or STOP”) • End Do • Print intTot