VB Note For Students
VB Note For Students
VB Note For Students
Net
Introduction
Visual Basic 2010 is the latest version of Visual Basic launched by Microsoft in 2010. VB2010 is almost similar to Visual Basic 2008,
but it has added many new features. Like Visual Basic 2008 , Visual Basic 2010 is also a full fledged Object-Oriented
Programming(OOP) Language, so it has caught up with other OOP languages such as C++, Java,C# and other
VB 2010 is intergrated with Grphical User Interface which lets programmers to design the graphical phase of the programme,this
calledINTERGRATED DEVELOPMENT ENVIRONMENT(IDE).IDE consist of following sections:
1.
2.
3.
4.
5.
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Me.BackColor = Color.FromArgb(255, 0, 255)
End Sub
End Class
You may also use the follow procedure to assign the color at run time.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.Magenta
End Sub
Both procedures above will load the form with a magenta background
the following is another program that allows the user to enter the RGB codes into three different text boxes and when he or she clicks
the display color button, the background color of the form will change according to the RGB codes. So, this program allows users to
change the color properties of the form at run time.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim rgb1, rgb2, rgb3 As Integer
rgb1 = TextBox1.Text
rgb2 = TextBox2.Text
rgb3 = TextBox3.Text
Me.BackColor = Color.FromArgb(rgb1, rgb2, rgb3)
In object oriented programming, classes are created according to their hierarchies, and inheritance allows the structure and methods
in one class to be passed down the hierarchy to another class. That means less programming is required when adding functions to
complex systems, therefore save time and effort. If a step is added at the bottom of a hierarchy, then only the processing and data
associated with that unique step needs to be added. Everything else about that step is inherited. The ability to reuse existing objects is
considered a major advantage of object oriented programming.
Polymorphism
Object-oriented programming allows procedures about objects to be created whose exact type is not known until runtime. For
example, a screen cursor may change its shape from an arrow to a line depending on the program mode. The routine to move the
cursor on screen in response to mouse movement would be written for cursor, and polymorphism allows that cursor to take on
whatever shape is required at runtime. It also allows new shapes to be easily integrated.
VB6 is not a full OOP in the sense that it does not have inheritance capabilities although it can make use of some benefits of
inheritance. However, VB2010 is a fully functional Object Oriented Programming Language, just like other OOP such as C++ and
Java. It is different from the earlier versions of VB because it focuses more on the data itself while the previous versions focus more
on the actions. Previous versions of VB are known as procedural or functional programming language. Some other procedural
How to create a class in VB.Net? create a class form in vb , in the MyClass.vb window, enter the follow code
MessageBox.Show(MyObject.BMI(h, w))
End Sub
When you run this program and click the button, the user will be presented with two input boxes to enter his or her height and
weight subsequently and the value of BMI will be shown in a pop-up message box.
When we click on any part of the form, we will see the code window as shown below. The is the structure of an event procedure. In
this case, the event procedure is to load Form1 and it starts with Private Sub and end with End Sub. This procedure includes the Form1
class and the event Load, and they are bind together with an underscore, i.e. Form_Load. It does nothing other than loading an empty
form. You dont have to worry the rest of the stuff at the moment, they will be explained in later lessons.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
The are other events associated with the Form1 class, such as click, cursorChanged, DoubleClick, DragDrop, Enter as so on, as shown
in the diagram below (It appears when you click on the upper right pane of the code window)
Managing Data
We come across many types of information or data in our daily life. For example, we need to handle data such as names, addresses,
money, date, stock quotes, statistics and more everyday. Similarly in Visual Basic 2010, we have to deal with all sorts of of data, some
can be mathematically calculated while some are in the form of text or other forms. VB2010 divides data into different types so that it
is easier to manage when we need to write the code involving those data.
6.1 Visual Basic 2010 Data Types
Visual Basic 2010 classifies the information mentioned above into two major data types, they are the numeric data types and the nonnumeric data types.
6.1.1 Numeric Data Types
Numeric data types are types of data that consist of numbers, which can be computed mathematically with various standard operators such as
add, minus, multiply, divide and so on. In Visual Basic 2010, numeric data are divided into 7 types, depending on the range of values they can
store. Calculations that only involve round figures or data that dont need precision can use Integer or Long integer in the computation.
Programs that require high precision calculation need to use Single and Double decision data types, they are also called floating point numbers.
For currency calculation , you can use the currency data types. Lastly, if even more precision is requires to perform calculations that involve a
many decimal points, we can use the decimal data types. These data types summarized in Table 6.1
In addition, we need to enclose string literals within two quotations and date and time literals within two # sign. Strings can contain
any characters, including numbers. The following are few examples:
memberName=Turban, John.
TelNumber=1800-900-888-777
LastDay=#31-Dec-00#
ExpTime=#12:00 am#
6.2 Managing Variables
Variables are like mail boxes in the post office. The contents of the variables changes every now and then, just like the mail boxes. In
term of VB2010, variables are areas allocated by the computer memory to hold data. Like the mail boxes, each variable must be given
a name. To name a variable in Visual Basic 2010, you have to follow a set of rules.
6.2.1 Variable Names
The following are the rules when naming the variables in Visual Basic 2010
6.3 Constants
Constants are different from variables in the sense that their values do not change during the running of the program.
6.3.1 Declaring a Constant
The format to declare a constant is
Const Constant Name As Data Type = Value
Example 6.3
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Const Pi As Single=3.142
Const Temp As Single=37
Const Score As Single=100
End Sub
Mathematical Operations
Computer can perform mathematical calculations much faster than human beings. However, computer itself will not be able to
perform any mathematical calculations without receiving instructions from the user. In Visual Basic 2010, we can write code to
instruct the computer to perform mathematical calculations such as addition, subtraction, multiplication, division and other kinds of
arithmetic operations. In order for Visual Basic 2010 to carry out arithmetic calculations, we need to write code that involve the use of
various arithmetic operators. The Visual Basic 2010 arithmetic operators are very similar to the normal arithmetic operators, only with
slight variations. The plus and minus operators are the same while the multiplication operator use the * symbol and the division
operator use the / symbol. The list of Visual Basic 2010 arithmetic operators are shown in table 7.1 below:
Example 7.1
In this program, you need to insert two Text boxes, four labels and one button. Click the button and key in the code as shown below.
Note how the various arithmetic operators are being used. When you run the program, it will perform the four basic arithmetic
operations and display the results on the four labels.
Dim num1, num2, difference, product, quotient As Single
num1 = TextBox1.Text
num2 = TextBox2.Text
sum=num1+num2
difference=num1-num2
product = num1 * num2
quotient=num1/num2
Label1.Text=sum
Label2.Text=difference
Label3.Text = product
Label4.Text = quotient
From the above examples, you can see that perform arithmetic operations is relatively easy. Here are more arithmetic projects you can
try to programs:
Area of a triangle
Area of a rectangle
Area of a circle
Volume of a cylinder
Volume of a cone
Volume of a sphere
Compound interest
Future value
Mean
Variance
Sum of angles in polygons
Conversion of lb to kg
Conversion of Fahrenheit to Celsius
String Manipulation
String manipulation is an important part of programming because it help to process data that come in the form of non-numeric types
such as name, address, gender, city, book title and more.
8.1 String Manipulation Using + and & signs.
In Visual Basic 2010 ,Strings can be manipulated using the & sign and the + sign, both perform the string concatenation which means
combining two or more smaller strings into larger strings. For example, we can join Visual and Basic into Visual Basic using
Visual&Basic or Visual +Basic, as shown in the example below
Example 8.1(a)
Using If.Then.Else
In the previous lessons, we have learned how to write code that can accept input from the users and then display the output without
controlling the program flow. In this lesson, you will learn how to write Visual Basic 2010 code that can make decision when it
process input from the users, and control the program flow in the process.
Decision making process is an important part of programming because it can solve practical problems intelligently and provide useful
output or feedback to the user. For example, we can write a Visual Basic 2010 program that can ask the computer to perform certain
task until a certain condition is met, or a program that will reject non-numeric data. In order to control the program flow and to make
decisions, we need to use the conditional operators and the logical operators together with the If control structure.
9.1 Conditional Operators
The conditional operators are powerful tools that resemble mathematical operators. These operators allow a VB2010 program to
compare data values and then decide what actions to take, whether to execute a program or terminate the program and more. They are
also known as numerical comparison operators. Normally they are used to compare two values to see whether they are equal or one
value is greater or less than the other value. The comparison will return a true or false result. These operators are shown in Table 9.1.
Sometimes we might need to make more than one comparisons before a decision can be made and an action taken. In this case, using
numerical comparison operators alone is not sufficient, we need to use additional operators, and they are the logical operators. These
logical operators are shown in Table 9.2.
* Normally the above operators are use to compare numerical data. However, you can also compare strings with the above operators.
In making strings comparison, there are certain rules to follows: Upper case letters are less than lowercase letters,
A<B<C<D.<Z and number are less than letters.
9.3 Using the If control structure with the Comparison Operators
To effectively control the Visual Basic 2010 program flow, we shall use the If control structure together with the conditional operators
and logical operators. There are basically three types of If control structures, namely If.Then statement, If.Then Else statement
and If.Then.ElseIf statement.
9.3(a) If.Then Statement
This is the simplest control structure which ask the computer to perform a certain action specified by the Visual Basic 2010 expression
if the condition is true. However, when the condition is false, no action will be performed. The general format for the ifthen..
statement is
If condition Then
Visual Basic 2010 expression
End If
Example 9.1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myNumber As Integer
myNumber = TextBox1.Text
If myNumber > 100 Then
Label2.Text = You win a lucky prize
End If
End Sub
* When you run the program and enter a number that is greater than 100, you will see the You win a lucky prize statement. On the
other hand, if the number entered is less than or equal to 100, you dont see any display.
9.3(b) If.ThenElse Statement
Using only If.Then statement is not very useful in programming and it does not provide choices for the users. In order to provide a
choice, we can use the If.ThenElse Statement. This control structure will ask the computer to perform a certain action specified
by the Visual Basic 2010 expression if the condition is true. And when the condition is false ,an alternative action will be executed.
The general format for the ifthen.. Else statement is
If condition Then
myNumber = TextBox1.Text
If myNumber > 100 Then
Label2.Text = Congratulation! You win a lucky prize
Else
Label2.Text = Sorry, You dif not win any prize
End If
End Sub
* When you run the program and enter a number that is greater than 100, the statement Congratulation! You win a lucky prize will
be shown. On the other hand, if the number entered is less than or equal to 100, you will see the Sorry, You dif not win any prize
statement
9.3(c) If.ThenElseIf Statement
If there are more than two alternative choices, using jus If.Then.Else statement will not be enough. In order to provide more
choices, we can use the If.ThenElseIf Statement. executed. The general format for the ifthen.. Else statement is
If condition Then
Visual Basic 2010 expression
ElseIf condition Then
Visual Basic 2010 expression
ElseIf condition Then
Visual Basic 2010 expression
.
.
Else
Visual Basic 2010 expression
End If
Example 10.1
Examination Grades
Dim grade As String
Private Sub Compute_Click( )
grade=txtgrade.Text
Select Case grade
Case A
Label1.Text=High Distinction
Case A-
Label1.Text=Distinction
Case B
Label1.Text=Credit
Case C
Label1.Text=Pass
Case Else
Label1.Text=Fail
End Select
End Sub
Example 10.2
In this example, you can use the keyword Is together with the comparison
operators.
Example 10.3
Example 10.4
Grades in high school are usually presented with a single capital letter
such as A, B, C, D or E. The grades can be computed as follow:
Examination Marks
Examination Marks
Case 0 to 49
Label1.Text = Need to work harder
mark = TextBox1.Text
Case 0 To 49
Label1.Text = E
Case 60 to 69
Label1.Text= Above Average
Case 50 To 59
Case 70 to 84
Label1.Text = Good
Label1.Text = D
Case 60 To 69
Case 85 to 100
Label1.Text= Excellence
Label1.Text = C
Case 70 To 79
Case Else
Label1.Text= Wrong entry, please reenter the mark
Label1.Text = B
End Select
End Sub
Case 80 To 100
Label1.Text = A
Case Else
Label1.Text = Error, please reenter the mark
End Select
End Sub
Looping
Visual Basic 2010 allows a procedure to be repeated as many times as long as the processor and memory could support. This is
generally called looping . Looping is required when we need to process something repetitively until a certain condition is met. For
example, we can design a program that adds a series of numbers until the sum exceeds a certain value, or a program that asks the user
to enter data repeatedly until he/she keys in the word Finish. In Visual Basic 2010, we have three types of Loops, they are the
For..Next loop, the Do loop. and the While..End while loop
11.1 For.Next Loop
The format is:
Example 11.1c
Example 11.1d
Dim n as Integer
For n=1 to 10
If n>6 then
Exit For
End If
Else
ListBox1.Items.Add ( n)
Next
End If
Next
The process will stop when n is greater than 6.
Example 11.2(a)
Example 12.1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim testmsg As Integer
testmsg = MsgBox(Click to test, 1, Test message)
If testmsg = 1 Then
MessageBox.Show(You have clicked the OK button)
Else
MessageBox.Show(You have clicked the Cancel button)
End If
End Sub
To make the message box looks more sophisticated, you can add an icon besides the message. There are four types of icons available
in Visual Basic 2010 as shown in Table 12.3
Example 12.2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim testMsg As Integer
testMsg = MsgBox(Click to Test, vbYesNoCancel + vbExclamation, Test Message)
If testMsg = 6 Then
MessageBox.Show(You have clicked the yes button)
ElseIf testMsg = 7 Then
MessageBox.Show(You have clicked the NO button)
Else
However, the format wont work in Visual Basic 2010 because InputBox is considered a namespace. So, you need to key in the full
reference to the Inputbox namespace, which is
Microsoft.VisualBasic.InputBox(Prompt, Title, default_text, x-position, y-position)
The parameters remain the same.
Example 12.3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim userMsg As String
userMsg = Microsoft.VisualBasic.InputBox(What is your message?, Message Entry Form, Enter your messge here, 500, 700)
If userMsg <> Then
MessageBox.Show(userMsg)
Else
MessageBox.Show(No Message)
End If
End Sub
The inputbox will appear as shown in the figure below when you press the command button
In Visual Basic 2010, you may create a shopping cart where the user can click on check boxes that correspond to the items they intend
to buy, and the total payment can be computed at the same time as shown in Example 17.1.
The Code:
Dim strColor As String
Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioButton8.CheckedChanged
strColor = Red
End Sub
The code:
Dim strColor As String
Dim strSize As String
Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
strColor = Red
End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioButton7.CheckedChanged
strColor = Green
End Sub
Private Sub RadioYellow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioYellow.CheckedChanged
strColor = Yellow
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label2.Text = strColor
Label4.Text = strSize
End Sub
Private Sub RadioXL_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioXL.CheckedChanged
strSize = XL
End Sub
Private Sub RadioL_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioL.CheckedChanged
strSize = L
End Sub
Private Sub RadioM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioM.CheckedChanged
strSize = M
End Sub