Tutorial: Programming in Visual Basic 6.0

More documents

Recommendations

Info

Private Sub Command1_Click() Dim intNumber As Integer Dim pause As Integer intNumber = Val(Text1.Text) ‘Declare variables ‘Input user number If (intNumber > 0) And (intNumber < 11) Then ‘Validate number Do While intNumber > 0 Beep For pause = 0 To 2500 ‘Slow down the beeps frmBeeper.Refresh Next pause intNumber = intNumber - 1 ‘Count down Loop Else Text1.Text = "" Text1.SetFocus End If End Sub Write an IPO Chart for this program. Then write the pseudocode algorithm for this program. Activity 9 this tutorial, we look at writing code containing the 5 basic control structures. In sequence • binary selection • multiway selection • pre-test iteration • post-test iteration • IPO chart and pseudocode algorithm for finding the average of some numbers The from the keyboard, using a post-test loop, might look like this: entered number, counter I add number to sum P 1 to counter add = sum/counter average O average Main Program BEGIN = 0 counter = 0 sum REPEAT number get = sum + number sum = counter + 1 counter counter = 10 UNTIL = sum / counter average average display END MAINPROGRAM Write this algorithm as a flowchart.
a new form and create a link to the program from the menu form (Main) under Open … Post-test Loops … Averages. Write an application to display the average of Iterations numbers entered by the user using a post-test loop with the syntax Do …..Loop 10 to ask for each number. Remember to use the Until Val function to convert strings () numbers. Each number might be asked for with an input box using the syntax: to strNumber = InputBox(“Enter the next number.”, “Enter your numbers.”) intNumber = Val(strNumber) forget to declare all your variables with Dim statements. Don’t Dim strNumber As String e.g. your variables to 0 at the beginning of the procedure. Initialise intNumber = 0 intCounter = 0 you be sure that the counter will never cause division by zero and crash your Can Explain your answer. program? Activity 10 a new function Rnd() to generate a random number. Write an application on a Use form to generate a random number between 1 and 6 to simulate the rolling of a new Your form will need a large picture box with the Autosize property set to true and a dice. button with the following code behind it. command Private Sub Command1_Click() Dim x As Integer x = 0 Picture1 Print Randomize ‘ Ensures the start of each sequence of random numbers is also randomised Do x = Int(Rnd * 6 + 1) Picture1 Print x; Loop Until x 6 End Sub your program clicking the command button several times (until the picture box is Run Create a link to the program from the menu form (Main) under Iterations … Post full). test Loops … Roll the dice. produce a random integer x where 0
Page 1 and 2: Tutorial: Programming in Visual Bas
Page 3 and 4: Select label icon from the toolbox.
Page 5 and 6: 4. Use the Project Explorer window
Page 7 and 8: Buttons in Message Boxes Named Lite
Page 9 and 10: Activity 5 • Add a new menu headi
Page 11: End Select End Sub Case Index = 4 L
Page 15: Bibliography Lynch, I (1999). An in

Tutorial: Programming in Visual Basic 6.0

Create successful ePaper yourself

Delete template?

Save as template?