Hi! Today’s lesson was based mostly on basic functions but for the start of the lesson the class discussed the new terms of Actual and Formal Parameters.

Here is a small section of code that incorporates these two terms:

Call Doubler(Num)
Private Sub Doubler(ByVal N As Single)

The parameter used in the calling statement is properly known as the actual parameter. The actual parameter is what is passed to the procedure.
The parameter listed in the procedure heading is properly known as a formal parameter. The number, order and type of formal parameters must match the actual parameters, but their names can be different.

The rest of the lesson was to do with SD booklet 5 – User defined functions. Mr Stratton said that many of the functions would never appear in the exam but some important functions we might want to take note of were the Ucase function which converts lower-case characters into upper-case characters and the Lcase function which does the opposite. Another important function was the Mid$ function which extracts a sub-string from a string and also featured hugely in our program for the day. I have typed the part of the program for how to create the password below:

‘create the password
name1 = Mid$(name1, 1, 1)
name2 = Mid$(name2, 2, 1)
year = Mid$(year, 3, 2)
colour = Mid$(colour, 2, 2)
street = Mid$(street, 1, 3)
password = name1 + name2 + year + colour + street + shoe_size

Sorry if you get bored reading it all I guess.
Well that all folks!

We need a new logo for the blog! I would like you to design and create one. It can not use copyright images but can have photos you have taken yourself as well as public domain images.

Attached below is a quick sample I knocked up with powerpoint and irfanview

sorry for the late post guys, this relates to the task set on thursday/friday.

Well the task we were given to create should have been finished on friday. The program was complex but there is a solution.

Mr stratton has already posted the solution, but there was another way in which it could have been done, which was instead on using parameter passing, you could just type the program straight in without it,though this would take longer and could then have a lot of problems.

so for the solution look to Mr strattons post previous to this one.

Well guys peace out, live long and prosper….

REMEMBER! Save all First Class emails etc if you do not all the information will be lost.

Todays Task :
Create a program that stores 20 numbers in a Listbox then input them into a array before displaying them on the screen.

My Design:

Pseudocode:
main steps

1/ Set up variables
2/ Get and store 20 numbers from listbox
3/Display Numbers
4/End Program

Refinements:
2.1/For 1 to 20
2.2/store number
2.3/Next

Here is Mr Stratton’s Awesome Program From Today
Private Sub CmdStart_Click()
‘load an Array with data from a list box
‘list box is hidden on the form
‘List Boxes count from 0 so add a heading to the fist item
Dim Number(20) As Integer
Call Load_Array(Number())
Call Display_Array(Number())
End Sub

Private Sub Load_Array(ByRef Number() As Integer)
Dim Counter As Integer ‘local Variable
For Counter = 1 To 20
Number(Counter) = LstNumbers.List(Counter)
Next
End Sub

Private Sub Display_Array(ByRef Number() As Integer)
‘Standard procedure as used in previous programs
Dim Counter As Integer ‘local Variable
For Counter = 1 To 20
Form1.Print Number(Counter)
Next
End Sub

REMEMBER! Arrays Are Always Passed ByReferance

and Remember!
Homework:
For Tuesday the Multiple Choice sheet.
The end

The programmer would enter the information in a list box then hide this box from the user (Preferences). This allows the program to use the same test data at all times. This is the same as READ DATA in other languages. Shown below is the program from today’s lesson.

Private Sub CmdStart_Click()
'load an Array with data from a list box
'list box is hidden on the form
'List Boxes count from 0 so add a heading to the fist item
Dim Number(20) As Integer
Call Load_Array(Number())
Call Display_Array(Number())
End Sub

Private Sub Display_Array(ByRef Number() As Integer)
'Standard procedure as used in previous programs
Dim Counter As Integer 'local Variable
For Counter = 1 To 20
Form1.Print Number(Counter)
Next
End Sub

In computing today we started off with Local and Global variables. Local Variables exist only within a single subroutine, and  cannot be accessed from elsewhere in the code.

Global Variables are created in the main part of the program that can be seen from any part of the program.

We then moved on to Arrays where we learned that ARRAYS ARE ALWAYS PASSED BY REFERENCE!!!!!!!!!!

Which means that data is passed in to a subroutine where it can be changed and then passed back out to other parts of the program.

We then had to code up a program that took and input from the user and passed that value by reference to other subroutines.

Here is the code for that program

Option Explicit
Private Sub CmdStart_Click()
'Set up variables
Dim multiple As Integer
Dim answers(12) As Integer 'Array of 12 numbers


'Get Multiplier from user
Call GetValue(multiple)
'Calculate Answers
Call CalcAnswer(answers(), multiple)
'Display table
Call DisplayTable(answers(), multiple)
End Sub


Private Sub GetValue(ByRef intvalue As Integer)
intvalue = InputBox("Please enter the value")
End Sub


Private Sub DisplayTable(ByRef answers() As Integer, ByVal multiple)
Dim counter As Integer
Dim Answer As Integer


For counter = 1 To 12
lstOutput.AddItem multiple & " X " & counter & " = " & answers(counter)
Next
End Sub


Private Sub CalcAnswer(ByRef answers() As Integer, ByVal multiple)
Dim counter As Integer


For counter = 1 To 12
answers(counter) = multiple * counter
Next
End Sub

Also

The game.