Visual Basic Made Easy
Visual Basic Made Easy
II
Disclaimer
Visual Basic 2008 Made Easy- A complete tutorial for beginners is an independent publication and is not affiliated with, nor has it been authorized, sponsored, or otherwise approved by Microsoft Corporation.
Trademarks
Microsoft, Visual Basic, Excel and Windows are either registered trademarks or trademarks of Microsoft Corporation in the United States and/or other countries.
Liability
The purpose of this book is to provide a basic guide for people interested in Visual Basic programming. Although every effort and care has been taken to make the information as accurate as possible, the author shall not be liable for any error, harm or damage arising from using the instructions given in this book.
Copyright 2006 Liew Voon Kiong All rights reserved. No Part of this e-book may be reproduced, in any form or by any means, without permission in writing from the author.
III
Acknowledgement
I would like to express my sincere gratitude to many people who have made their contributions in one way or another to the successful publication of this book. My special thanks go to my children Xiang, Yi and Xun. My daughter Xiang edited this book while my sons Yi and Xun contributed their ideas and even wrote some of the sample programs for this book. I would also like to appreciate the support provided by my beloved wife Kim Huang and my youngest daughter Yuan. I would also like to thank the million of visitors to my Visual Basic Tutorial website at www.vbtutor.net, especially those who contributed their comments, for their support and encouragement.
IV
TABLE OF CONTENTS
Lesson 1 Lesson 2 Lesson 3 Lesson 4 Lesson 5 Lesson 6 Lesson 7 Lesson 8 Lesson 9 Lesson 10 Lesson 11 Lesson 12 Lesson 13 Lesson 14 Lesson 15 Lesson 16 Lesson 17 Lesson 18 Lesson 19 Lesson 20 Lesson 21 Lesson 22 Introduction to Visual Basic 2008 Working with Controls Working with Control Properties Object Oriented Programming Writing the Code Managing VB2008 Data Mathematical Operations String Manipulation Controlling Program Flow Select Case Control Structure Looping VB2008 Functions-Part I VB2008 Functions Part II: String Functions VB2008 Functions Part III- Mathematical Functions Vb2008 Functions Part IV- Formatting Functions Vb2008 Functions Part V- Formatting Date and Time Using the Check Box Using the Radio Button Creating a Simple Web Browser Errors Handling Reading and write Files Creating and Managing Graphics 1 6 9 12 15 19 25 29 35 40 43 47 52 58 62 66 69 75 79 82 87 94
The IDE consists of a few panes, namely: The Recent Projects Pane- it shows the list of projects that have been created by you recently. The Getting Started Pane- It provides some helpful tips to quickly develop your applications The VB Express Headlines pane- It provides latest online news about Visual Basic 2008 Express. It will announce new releases and updates. To start creating your first application, you need to click on File on the menu bar and select New Project. The VB2008 New Project dialog box will appear, as shown in Figure 1-2
The dialog box offers you five types of projects that you can create. As we are going to create a Windows application, we will select Windows Forms Application. At the bottom of this dialog box, you can change the default project name WindowsApplication1 to some other name you like, for example, MyFirstProgram. After you have renamed the project, click OK to continue. The VB2008 IDE with a new Form will appear, as shown in Figure 1-3. It consists of an empty form, the common controls toolbox, the solution explorer and the Properties Window.
4 Now lets create your first program. First of all, drag one common button into the form and change its default name to calculate, as shown in Figure 1-4.
Next, click on the calculate button and key in the following code at the source code window as shown in Figure 1-5. Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num1, num2, sum As Single num1 = 100 num2 = 200 sum = num1 + num2 MsgBox (" The Sum of & num1 & " and & num2 & is " & sum) End Sub Now run your first application! And you can see the follow message box showing the sum of two numbers.
Lesson 2
To insert a control into your form, you just need to drag the control and drop it into the form. You can reposition and resize it as you like. Lets examine a few programs that made use of Button, Label, TextBox, ListBox and PictureBox. You don't have to worry so much about the code because I will explain the program syntax as you progress to later lessons.
7 2.1 Using Text Box-The multiplication program In this program, you insert two textboxes, three labels and one button. The two textboxes are for the users to enter two numbers, one label is to display the multiplication operator and the other label is to display the equal sign. The last label is to display the answer. The run time interface is shown in Figure 2-1
The Code Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num1, num2, product As Single num1 = TextBox1.Text num2 = TextBox2.Text product = num1 * num2 Label3.Text = product End Sub 2.2 Using the ListBox-A program to add items to a list box This program will add one item at a time as the user enters an item into the TextBox and click the Add button. In this program, you insert a TextBox and a ListBox into the Form. The function of the TextBox is to let the user enter an item one at a time and add it to the Listbox. The method to add an item to the ListBox is Add. The output interface is shown in Figure 2-2.
The Code Class Frm1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim item As String item = TextBox1.Text 'To add items to a listbox ListBox1.Items.Add(item) End Sub End Class
Lesson 3
3.1 The Control Properties Before writing an event procedure for the control to response to a user's input, you have to set certain properties for the control to determine its appearance and how it will work with the event procedure. You can set the properties of the controls in the properties window at design time or at runtime. Figure 3-1 on the right is a typical properties window for a form. The title of the form is defined by the Text property and its default name is Form 1. To change the form's title to any name that you like, simple click in the box on the right of the Text property and type in the new name, in this example, the title is Multiplication. Notice that this title will appear on top of the windows. In the properties window, the item appears at the top part is the object currently selected (in Figure 3.1, the object selected is Form1). At the bottom part, the items listed in the left column represent the names of various properties associated with the selected object while the items listed in the right column represent the states of the properties. Properties can be set by highlighting the items in the right column then change them by typing or selecting
Figure 3-1: The Properties Window
10 the options available. You may also alter other properties of the form such as font, location, size, foreground color, background color, MaximizeBox, MinimizeBox and more. You can also change the properties of the object at run time to give special effects such as change of color, shape, animation effect and so on. For example the following code will change the form color to yellow every time the form is loaded. VB2008 uses RGB(Red, Green, Blue) to determine the colors. The RGB code for yellow is 255,255,0. Me in the code refer to the current form and Backcolor is the property of the form's background color. The formula to assign the RGB color to the form is Color.FormArbg(RGB code).
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, 255, 0) 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.Yellow End Sub Both procedures above will load the form with a yellow background, as shown in Figure 3-2
Here are some of the common colors and the corresponding RGB codes. You can always experiment with other combinations, but remember the maximum number for
11 each color is 255 and the minimum number is 0. The table below shows some of the common colors with their corresponding codes.
Table 3-1: Some common colors and their corresponding RGB codes.
The following is a program that allows the user to enter the RGB codes into three different Textboxes and when he/she clicks the display color button, the background color of the form changes according to the RGB code. So, this program allows the user to change the color properties of the form at run time. The code 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) End Sub
12
Lesson 4
13 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 run time. 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, VB2008 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 programming languages are C, Pascal and Fortran. VB2008 allows users to write programs that break down into modules. These modules will represent the real-world objects and are known as classes or types. An object can be created out of a class and it is known as an instance of the class. A class can also comprise subclass. For example, apple tree is a subclass of the plant class and the apple in your backyard is an instance of the apple tree class. Another example is student class is a subclass of the human class while your son John is an instance of the student class. A class consists of data members as well as methods. In VB2008, the program structure to define a Human class can be written as follows: Public Class Human 'Data Members Private Name As String Private Birthdate As String Private Gender As String Private Age As Integer 'Methods
14 Overridable Sub ShowInfo( ) MessageBox.Show(Name) MessageBox.Show(Birthdate) MessageBox.Show(Gender) MessageBox.Show(Age) End Sub End Class After you have created the human class, you can create a subclass that inherits the attributes or data from the human class. For example, you can create a students class that is a subclass of the human class. Under the student class, you don't have to define any data fields that are already defined under the human class; you only have to define the data fields that are different from an instance of the human class. For example, you may want to include StudentID and Address in the student class. The program code for the StudentClass is as follows: Public Class Students Inherits Human Public StudentID as String Public Address As String Overrides Sub ShowInfo( ) MessageBox.Show(Name) MessageBox.Show(StudentID) MessageBox.Show(Birthdate) MessageBox.Show(Gender) MessageBox.Show(Age) MessageBox.Show(Address) End Sub
15
Lesson 5
16 The are other events associated with the Form1 class, such as click, DoubleClick, DragDrop, Enter as so on, as shown in Figure 5-2 below (It appears when you click on the upper right pane of the code window)
5.2 Writing the code Now you are ready to write the code for the event procedure so that it will do something more than loading a blank form. The code must be entered between Private Sub.......End Sub. Let's enter the following code : Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text="My First VB2008 Program" Me.ForeColor = Color.Yellow Me.BackColor = Color.Blue End Sub The output is shown in Figure 5-3 below:
17
The first line of the code will change the title of the form to My First VB2008 Program, the second line will change the foreground object to yellow( in this case, it is a label that you insert into the form and change its name to Foreground) and the last line changes the background to blue color. The equal in the code actually is used to assign something to the object, like assigning yellow color to the foreground of the Form1 object (or an instance of Form1). Me is the name given to the Form1 class. We can also call those lines as Statements. So, the actions of the program will depend on the statements entered by the porgrammer. Here is another example. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim name1, name2, name3 As String name1 = "John" name2 = "Chan" name3 = "Ali" MsgBox(" The names are " & name1 & " , " & name2 & " and " & name3) End Sub In this example, you insert one command button into the form and rename its caption as Show Hidden Names. The keyword Dim is to declare variables name1, name2 and name3 as string, which means they can only handle text. The function MsgBox is
18 to display the names in a message box that are joined together by the "&" signs. The output is shown in Figure 5-4 below:
19
Lesson 6
20 Type Byte Integer Long Range of Values 0 to 255 -32,768 to 32,767 -2,147,483,648 to 2,147,483,648 -3.402823E+38 to -1.401298E-45 for negative values Single 4 bytes 1.401298E-45 to 3.402823E+38 for positive values. -1.79769313486232e+308 to -4.94065645841247E-324 for negative values Double 8 bytes 4.94065645841247E-324 to 1.79769313486232e+308 for positive values. Currency 8 bytes -922,337,203,685,477.5808 to 922,337,203,685,477.5807 +/- 79,228,162,514,264,337,593,543,950,335 if no decimal is Decimal 12 bytes use +/- 7.9228162514264337593543950335 (28 decimal places).
Table 6.1: Numeric Data Types
6.1.2 Non-numeric Data Types Nonnumeric data types are data that cannot be manipulated mathematically using standard arithmetic operators. The non-numeric data comprises text or string data types, the Date data types, the Boolean data types that store only two values (true or false), Object data type and Variant data type .They are summarized in Table 6.2 Data Type String(fixed length) String(variable length) Date Boolean Object Variant(numeric) Variant(text) Storage Length of string Length + 10 bytes 8 bytes 2 bytes 4 bytes 16 bytes Length+22 bytes Range 1 to 65,400 characters 0 to 2 billion characters January 1, 100 to December 31, 9999 True or False Any embedded object Any value as large as Double Same as variable-length string
6.1.3 Suffixes for Literals Literals are values that you assign to a data. In some cases, we need to add a suffix behind a literal so that VB2008 can handle the calculation more accurately. For example, we can use num=1.3089# for a Double type data. Some of the suffixes are displayed in Table 6.3.
21 Suffix & ! # @
Table 6.3
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 VB2008, 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 2008, 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 2008 It must be less than 255 characters No spacing is allowed It must not begin with a number Period is not permitted Examples of valid and invalid variable names are displayed in Table 6.4
22
Long_Name_Can_beUSE He&HisFather
Table 6.4: Valid and Invalid Names
6.2.2 Declaring Variables In Visual Basic 2008, one needs to declare the variables before using them by assigning names and data types. If you fail to do so, the program will show an error. They are normally declared in the general section of the codes' windows using the Dim statement. The format is as follows: Dim Variable Name As Data Type Example 6.1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim password As String Dim yourName As String Dim firstnum As Integer Dim secondnum As Integer Dim total As Integer Dim doDate As Date End Sub
23 You may also combine them in one line , separating each variable with a comma, as follows: Dim password As String, yourName As String, firstnum As Integer,............. For string declaration, there are two possible formats, one for the variable-length string and another for the fixed-length string. For the variable-length string, just use the same format as example 6.1 above. However, for the fixed-length string, you have to use the format as shown below: Dim VariableName as String * n, where n defines the number of characters the string can hold. Example 6.2: Dim yourName as String * 10 yourName can holds no more than 10 Characters. 6.2.3 Assigning Values to Variables After declaring various variables using the Dim statements, we can assign values to those variables. The general format of an assignment is Variable=Expression The variable can be a declared variable or a control property value. The expression could be a mathematical expression, a number, a string, a Boolean value (true or false) and etc. The following are some examples: firstNumber=100 secondNumber=firstNumber-99 userName="John Lyan" userpass.Text = password Label1.Visible = True Command1.Visible = false Label4.Caption = textbox1.Text
24 ThirdNumber = Val(usernum1.Text) total = firstNumber + secondNumber+ThirdNumber 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
25
19\4=4
Example 7.1 In this program, you need to insert two Textboxes, four labels and one button. Click the button and key in the code as shown below. Note how the various arithmetic
26 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. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 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 End Sub
Example 7.2 The program can use Pythagoras Theorem to calculate the length of hypotenuse given the length of the adjacent side and the opposite side b. In case you have forgotten the formula for the Pythagoras Theorem, it is written as c^2=a^2+b^2
Example 7.3: BMI Calculator A lot of people are obese now and it could affect their health seriously. Obesity has proven by the medical experts to be a one of the main factors that brings many adverse medical problems, including the heart disease. If your BMI is more than 30, you are considered obese. You can refer to the following range of BMI values for your weight status: Underweight = <18.5 Normal weight = 18.5-24.9 Overweight = 25-29.9 Obesity = BMI of 30 or greater In order to calculate your BMI, you do not have to consult your doctor, you could just use a calculator or a home made computer program, and this is exactly what I am showing you here. The BMI calculator is a Visual Basic program that can calculate the body mass index, or BMI of a person based on the body weight in kilogram and the body height in meter. BMI can be calculated using the formula weight/ (height) 2, where weight is measured in kg and height in meter. If you only know your weight and height in lb and feet, then you need to convert them to the metric system (you could indeed write a VB program for the conversion).
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim height, weight, bmi As Single height = TextBox1.Text weight = TextBox2.Text bmi = (weight) / (height ^ 2) Label4.Text = bmi End Sub
28
The output is shown in the Figure 7-1 below. In this example, your height is 1.80m (about 5 foot 11), your weight is 78 kg (about 170 Ib), and your BMI is about 23.5. The reading suggests that you are healthy. (Note; 1 foot=0.3048, 1 lb=.45359237 kilogram)
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
29
30 Example: Dim text1, text3 as string Dim Text2 As Integer text1 = "Visual" text2=22 text3=text1+text2 Label1.Text = text3 This code will produce an error because of data mismatch. However, using & instead of + will be all right. Dim text1, text3 as string Dim Text2 As Integer text1 = "Visual" text2=22 text3=text1 & text2 Label1.Text = text3 You can combine more than two strings to form larger strings, like the following example: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim text1, text2, text3, text4, text5, text6 As String text1 = "Welcome" text2 = "to" text3 = "Visual" text4 = "Basic" text5 = "2008" text6 = text1 + text2 + text3
31 Label1.Text = text4 End Sub End Class Running the above program will produce the following screen shot.
8.2 String Manipulation Using VB2008 Built-in Functions A function is similar to a normal procedure but the main purpose of the function is to accept a certain input and return a value which is passed on to the main program to finish the execution. There are numerous string manipulation functions built into VB2008 but I will only discuss a few here and will explain the rest of them in later lessons. 8.2 (a) The Len Function The length function returns an integer value which is the length of a phrase or a sentence, including the empty spaces. The format is Len (Phrase)
Example: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = Len(TextBox1.Text) End Sub End Class The output:
Figure 8-2:
8.2(b) The Right Function The Right function extracts the right portion of a phrase. The format for Visual Basic 6 is Right (Phrase, n) Where n is the starting position from the right of the phase where the portion of the phrase is going to be extracted. For example, Right(Visual Basic, 4) = asic
33 However, this format is not applicable in VB2008. In VB2008, we need use the following format Microsoft.VisualBasic.Right("Phrase",n) Example: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim text1 As String text1 = TextBox1.Text Label1.Text = Microsoft.VisualBasic.Right(text1, 4) End Sub The above program will return four right most characters of the phrase entered into the textbox, as shown in Figure 8-3
Figure 8-3
*The reason of using the full reference is because many objects have the Right properties so using Right on its own will make it ambiguous to VB2008.
34 8.2(c)The Left Function The Left function extract the left portion of a phrase. The format is Microsoft.VisualBasic.Left("Phrase",n) Where n is the starting position from the left of the phase where the portion of the phrase is going to be extracted. For example, Microsoft.VisualBasic.Left (Visual Basic, 4) = Visu .
35
In the previous lessons, we have learned how to program code that accept input from the users and display the output without controlling the program flow. In this chapter, you will learn how to program VB2008 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 will help solve practical problems intelligently so that it can provide useful output or feedback to the user. For example, we can write a VB2008 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 tool that resemble mathematical operators that let the VB2008 program compare data values and then decide what actions to take, whether to execute a program or terminate the program and etc. 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 true or false result. These operators are shown in Table 9.1
Meaning Equal to More than Less Than More than and equal Less than and equal Not Equal to
36 9.2 Logical Operators Sometimes we might need to make more than one comparison 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. Operator And or Xor Not Meaning Both sides must be true One side or other must be true One side or other must be true but not both Negates truth
* 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 VB 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 structure, 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 VB expression if the condition is true. However, when the condition is false, no action will be performed. The general format for the if...then.. statement is If condition Then VB expression End If
37 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 don't see any display. 9.3(b) If....Then...Else Statement
Using jus 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....Then...Else Statement. This control structure will ask the computer to perform a certain action specified by the VB expression if the condition is true. And when the condition is false, an alternative action will be executed. The general format for the if...then.. Else statement is If condition Then VB expression Else VB expression End If
38 Example 9.2 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 = 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 displayed. 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 Example 9.3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myNumber, MyAge As Integer myNumber = TextBox1.Text MyAge = TextBox2.Text If myNumber > 100 And myAge > 60 Then Label2.Text = " Congratulation! You win a lucky prize" Else Label2.Text = " Sorry, You dif not win any prize" End If End Sub This program use the logical And operator beside the conditional operators. This means that both the conditions must be fulfilled in order for the conditions to be true, otherwise the second block of code will be executed. In this example, the number entered must be more than 100 and the age must be more than 60 in order to win a lucky prize, any one of the above conditions not fulfilled will disqualify the user from winning a prize.
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....Then...ElseIf Statement. executed. The general format for the if...then.. Else statement is If condition Then VB expression ElseIf condition Then VB expression ElseIf condition Then VB expression Else VB expression End If
Example 9.4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Mark As Integer Dim Grade as String Mark = TextBox1.Text If myNumber >=80 Then Grade="A" ElseIf Mark>=60 and Mark<80 then Grade="B" ElseIf Mark>=40 and Mark<60 then Grade="C" Else Grade="D" End If End Sub
40
Example 10.2 In this example, you can use the keyword Is together with the comparison operators. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Examination Marks Dim mark As Single mark = mrk.Text Select Case mark Case Is >= 85 Label1.Text= "Excellence"
42 Case Is >= 70 Label2.Text= "Good" Case Is >= 60 Label3.Text = "Above Average" Case Is >= 50 Label4.Text= "Average" Case Else Label5.Text = "Need to work harder" End Select End Sub Example 10.3 Example 10.2 could be rewritten as follows: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Examination Marks Dim mark As Single mark = mrk.Text Select Case mark Case 0 to 49 Label1.Text = "Need to work harder" Case 50 to 59 Label2.Text = "Average" Case 60 to 69 Label3.Text= "Above Average" Case 70 to 84 Label4.Text = "Good" Case Else Label5.Text= "Excellence" End Select End Sub
43
Lesson 11
Looping
Understanding and using the DoLoop Understanding and using the WhileEnd while Loop Visual Basic 2008 allows a procedure to be repeated as many times as long as the processor 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 it exceed a certain value, or a program that asks the user to enter data repeatedly until he or she keys in the word 'Finish'. In Visual Basic 2008, 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: For counter=startNumber to endNumber (Step increment) One or more VB statements Next Sometimes the user might want to get out from the loop before the whole repetitive process is completed. The command to use is Exit For. To exit a For.Next Loop, you can place the Exit For statement within the loop; and it is normally used together with the If..Then statement. For its application , you can refer to Example 11.1 d. Example 11.1 a Dim counter as Integer For counter=1 to 10 ListBox1.Items.Add (counter) Next * The program will enter number 1 to 10 into the Listbox.
44 Example 11.1b Dim counter , sum As Integer For counter=1 to 100 step 10 sum+=counter ListBox1.Items.Add (sum) Next * The program will calculate the sum of the numbers as follows: sum=0+10+20+30+40+...... Example 11.1c Dim counter, sum As Integer sum = 1000 For counter = 100 To 5 Step -5 sum - = counter ListBox1.Items.Add(sum) Next *Notice that increment can be negative. The program will compute the subtraction as follows: 1000-100-95-90-.......... 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.
45 11.2 Do Loop The formats are a) Do While condition Block of one or more VB statements Loop b) Do Block of one or more VB statements Loop While condition c) Do Until condition Block of one or more VB statements Loop Do Block of one or more VB statements Loop Until condition * Exiting the Loop Sometime we need exit to exit a loop prematurely because of a certain condition is fulfilled. The syntax to use is known as Exit Do. Lets examine the following example
d)
Example 11.2(a) Do while counter <=1000 TextBox1.Text=counter counter +=1 Loop * The above example will keep on adding until counter >1000. The above example can be rewritten as Do TextBox1.Text=counter counter+=1 Loop until counter>1000
46 Example 11.2(b) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sum, n As Integer Do n += 1 sum += n ListBox1.Items.Add(n & vbTab & sum) If n = 100 Then Exit Do End If Loop Sub In the above Example, we find the summation of 1+2+3+4++100. In the design stage, you need to insert a ListBox into the form for displaying the output, named List1. The program uses the AddItem method to populate the ListBox. The statement ListBox1.Items.Add(n & vbTab & sum) will display the headings in the ListBox, where it uses the vbTab function to create a space between the headings n and sum. 11.3 While ...End While Loop The structure of a While.End While is very similar to the Do Loop. It takes the following format: While condition Statements End While The above loop means that the loop will end when the condition is met. Example 11.3 Dim sum, n As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sum, n As Integer While n <> 100 n += 1 sum = sum + n ListBox1.Items.Add(n & vbTab & sum) End While End Sub
47
Lesson12
vbAbortRetryIgnore Abort, Retry and Ignore buttons. vbYesNoCancel vbYesNo vbRetryCancel Yes, No and Cancel buttons Yes and No buttons Retry and Cancel buttons
48
We can use named constant in place of integers for the second argument to make the programs more readable. In fact, VB6 will automatically shows up a list of names constant where you can select one of them. Example: yourMsg=MsgBox( "Click OK to Proceed", 1, "Startup Menu") and yourMsg=Msg("Click OK to Proceed". vbOkCancel,"Startup Menu") are the same. yourMsg is a variable that holds values that are returned by the MsgBox ( ) function. The values are determined by the type of buttons being clicked by the users. It has to be declared as Integer data type in the procedure or in the general declaration section. Table 12.2 shows the values, the corresponding named constant and buttons. Value 1 2 3 4 5 6 7 Named Constant vbOk vbCancel vbAbort vbRetry vbIgnore vbYes vbNo Button Clicked Ok button Cancel button Abort button Retry button Ignore button Yes button No button
A function is similar to a normal procedure but the main purpose of the function is to accept a certain input and return a value which is passed on to the main program to finish the execution. There are two types of functions, the built-in functions (or internal functions) and the functions created by the programmers. The general format of a function is FunctionName (arguments) The arguments are values that are passed on to the function.
49 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 VB2008 as shown in Table 12.3 Value 16 32 48 64 Named Constant vbCritical vbQuestion vbExclamation vbInformation Icon
Table 12.3:
50 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 MessageBox.Show("You have clicked the Cancel button") End If End Sub
Figure 12-1 12.2 The InputBox( ) Function An InputBox( ) function will display a message box where the user can enter a value or a message in the form of text. In VB2005, you can use the following format: myMessage=InputBox(Prompt, Title, default_text, x-position, y-position)
51 myMessage is a variant data type but typically it is declared as string, which accepts the message input by the users. The arguments are explained as follows:
Prompt Title
- The message displayed normally as a question asked. - The title of the Input Box.
default-text - The default text that appears in the input field where users can use it as his intended input or he may change to the message he wish to enter. x-position and y-position - the position or the coordinates of the input box.
However, the format won't work in VB2008 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) 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
52
Lesson13
We have learned about the basic concept of function as well as the MsgBox and InputBox functions in Lesson 12. I. In fact, I have already shown you a few string manipulation functions in Lesson 8, they are the Len function, the Left function and the Right Function. In this lesson, we will learn other string manipulation functions. 13.1 The Mid Function The Mid function is used to retrieve a part of text form a given phrase. The format of the Mid Function is Mid(phrase, position,n) Where phrase is the string from which a part of text is to be retrieved. position is the starting position of the phrase from which the retrieving process begins. n is the number of characters to retrieve. Example 13.1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myPhrase As String myPhrase = Microsoft.VisualBasic.InputBox("Enter your phrase") Label1.Text = Mid(myPhrase, 2, 6) End Sub
53 In this example, when the user clicks the command button, an inputbox will pop up asking the user to input a phrase. After a phrase is entered and the OK button is pressed, the label will show the extracted text starting from position 2 of the phrase and the number of characters extracted is 6. The output are shown in Figure 13-1 and Figure 13-2
Figure 13-1:
Figure 13-2:
13.2 The Right Function The Right function extracts the right portion of a phrase. The format is Microsoft.Visualbasic.Right (Phrase, n) Where n is the starting position from the right of the phase where the portion of the phrase is going to be extracted. For example: Microsoft.Visualbasic.Right (Visual Basic, 4) = asic
54 For example, you can write the following code to extract the right portion any phrase entered by the user. Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myword As String myword = TextBox1.Text Label1.Text = Microsoft.VisualBasic.Right (myword, 4) End Sub The output
Figure 13-3:
13.3 The Left Function The Left function extracts the Left portion of a phrase. The format is Microsoft.Visualbasic.Left (Phrase, n) Where n is the starting position from the right of the phase where the portion of the phrase is going to be extracted. For example: Microsoft.Visualbasic.Left (Visual Basic, 4) = Visu For example, you can write the following code to extract the left portion any phrase entered by the user.
55 Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myword As String myword = TextBox1.Text Label1.Text = Microsoft.VisualBasic.Left (myword, 4) End Sub The output
Figure 13-4:
13.4 The Trim Function The Trim function trims the empty spaces on both side of the phrase. The format is Trim(Phrase) .For example, Trim ( Visual Basic ) = Visual basic
Example 13.2
56 Dim myPhrase As String myPhrase = Microsoft.VisualBasic.InputBox("Enter your phrase") Label1.Text = Trim(myPhrase) End Sub
13.4 The Ltrim Function The Ltrim function trims the empty spaces of the left portion of the phrase. The format is Ltrim(Phrase) .For example, Ltrim ( Visual Basic)= Visual basic
13.5 The Rtrim Function The Rtrim function trims the empty spaces of the right portion of the phrase. The format is Rtrim(Phrase) .For example, Rtrim (Visual Basic ) = Visual Basic
13.5 The InStr function The InStr function looks for a phrase that is embedded within the original phrase and returns the starting position of the embedded phrase. The format is Instr (n, original phase, embedded phrase) Where n is the position where the Instr function will begin to look for the embedded phrase. For example Instr(1, Visual Basic, Basic)=8 The function returns a numeric value.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = InStr(1, "Visual Basic", "Basic") End Sub
13.6 The Ucase and the Lcase Functions The Ucase function converts all the characters of a string to capital letters. On the other hand, the Lcase function converts all the characters of a string to small letters. The format is Microsoft.VisualBasic.UCase(Phrase) Microsoft.VisualBasic.LCase(Phrase) For example, Microsoft.VisualBasic.Ucase (Visual Basic) =VISUAL BASIC Microsoft.VisualBasic.Lcase (Visual Basic) =visual basic
13.7 The Chr and the Asc functions The Chr function returns the string that corresponds to an ASCII code while the Asc function converts an ASCII character or symbol to the corresponding ASCII code. ASCII stands for American Standard Code for Information Interchange. Altogether there are 255 ASCII codes and as many ASCII characters. Some of the characters may not be displayed as they may represent some actions such as the pressing of a key or produce a beep sound. The format of the Chr function is Chr(charcode) and the format of the Asc function is Asc(Character) The following are some examples: Chr(65)=A, Chr(122)=z, Chr(37)=% , Asc(B)=66, Asc(&)=38
58
Learning How to use the Mathematical functions We have learned how to Vb2008 can perform arithmetic functions using standard mathematical operators. However, for more complex mathematical calculations, we need to use the built-in math functions in VB2008. There are numerous built-in mathematical functions in Visual Basic which we will introduce them one by one. 14.1 The Abs function The Abs returns the absolute value of a given number. The syntax is Math. Abs (number) The Math keyword here indicates that the Abs function belongs to the Math class. However, not all mathematical functions belong to the Math class. 14.2 The Exp function The Exp of a number x is the exponential value of x, i.e. ex. For example, Exp(1)=e=2.71828182 The syntax is Math.Exp (number)
59 Example 14.2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num1, num2 As Single num1 = TextBox1.Text num2 = Math.Exp(num1) Label1.Text = num2 End Sub 14.3 The Fix Function The Fix function truncates the decimal part of a positive number and returns the largest integer smaller than the number. However, when the number is negative, it will return smallest integer larger than the number. For example, Fix (9.2)=9 but Fix(9.4)=-9 Example 14.3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num1, num2 As Single num1 = TextBox1.Text num2 = Fix(num1) Label1.Text = num2 End Sub
60 14.4 The Int Function The Int is a function that converts a number into an integer by truncating its decimal part and the resulting integer is the largest integer that is smaller than the number. For example Int(2.4)=2, Int(6.9)=6 , Int(-5.7)=-6, Int(-99.8)=-100 14.5 The Log Function The Log function is the function that returns the natural logarithm of a number. For example, Log(10)=2.302585 Example 14.4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num1, num2 As Single num1 = TextBox1.Text num2 = Math.Log(num1) Label1.Text = num2 End Sub * The logarithm of num1 will be displayed on label1 14.6 The Rnd( ) Function The Rnd is very useful when we deal with the concept of chance and probability. The Rnd function returns a random value between 0 and 1. Random numbers in their original form are not very useful in programming until we convert them to integers. For example, if we need to obtain a random output of 6 integers ranging from 1 to 6, which makes the program behave like a virtual dice, we need to convert the random numbers to integers using the formula Int(Rnd*6)+1.
61 Example 14.5 Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num as integer Randomize ( ) Num=Int(Rnd()*6)+1 Label1.Text=Num End Sub
In this example, Int(Rnd*6) will generate a random integer between 0 and 5 because the function Int truncates the decimal part of the random number and returns an integer. After adding 1, you will get a random number between 1 and 6 every time you click the command button. For example, let say the random number generated is 0.98, after multiplying it by 6, it becomes 5.88, and using the integer function Int(5.88) will convert the number to 5; and after adding 1 you will get 6.
14.7 The Round Function The Round function rounds up a number to a certain number of decimal places. The Format is Round (n, m) which means to round a number n to m decimal places. For example, Math.Round (7.2567, 2) =7.26 Example 14.6 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num1, num2 As Single num1 = TextBox1.Text num2 = Math.Round(num1, 2) Label1.Text = num2 End Sub
62
The Format function is a very powerful formatting function which can display the numeric values in various forms. There are two types of Format function, one of them is the built-in or predefined format while another one can be defined by the users. (i) The format of the predefined Format function is Format (n, style argument) where n is a number and the list of style arguments is given in Table 15-1
Style argument General Number Fixed To display the number without having separators between thousands. To display the number without having separators between thousands and rounds it up to two decimal places. Standard To display the number with separators or separators between thousands and rounds it up to two decimal places. Currency To display the number with the dollar sign in front, has separators between thousands as well as rounding it up to two decimal places. Percent Converts the number to the percentage form and displays a % sign and rounds it up to two decimal places.
Table 15-1: The Format Function
Explanation
Format(8972.2, Fixed)=8972.23
Format(0.56324, Percent)=56.32 %
63
Example 15.1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button5.Click, Button4.Click, Button3.Click Label1.Text = Format(8972.234, "General Number") Label2.Text = Format(8972.2, "Fixed") Label3.Text = Format(6648972.265, "Standard") Label4.Text = Format(6648972.265, "Currency") Label5.Text = Format(0.56324, "Percent") End Sub The Output window is shown below:
Figure 15-1
(ii) The format of the user-defined Format function is Format (n, users format) Although it is known as user-defined format, we still need to follows certain formatting styles. Examples of user-defined formatting style are listed in Table 15.2
64 Example Format(781234.57,0) Format(781234.57,0.0) Format(781234.576,0.00) Explanation Rounds to whole number without separators between thousands. Rounds to 1 decimal place without separators between thousands. Rounds to 2 decimal places without separators between thousands. Format(781234.576,#,##0.00) Rounds to 2 decimal places with separators between thousands. Format(781234.576,$#,##0.00) Shows dollar sign and rounds to 2 decimal places with separators between thousands. Format(0.576,0%) Format(0.5768,0.00%) Converts to percentage form without decimal places. Converts to percentage form with 2 57.68% decimal places.
Table 15-2: Users Defined Functions
781,234.58 $781,234.58
58%
Example 15.2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button5.Click, Button4.Click, Button3.Click Label1.Text = Format(8972.234, "0.0") Label2.Text = Format(8972.2345, "0.00") Label3.Text = Format(6648972.265, "#,##0.00") Label4.Text = Format(6648972.265, "$#,##0.00") Label5.Text = Format(0.56324, "0%") End Sub
65
66
* Instead of "General date", you can also use the abbreviated format "G" , i.e. Format (Now, "G"). And for "Long Time", you can use the abbreviated format "T". As for "Short Time", you may use the abbreviated format "t" Example 16.1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Text = Format(Now, "General Date") Label2.Text = Format(Now, "Long Date") Label3.Text = Format(Now, "short Date") Label4.Text = Format(Now, "Long Time") Label5.Text = Format(Now, "Short Time") End Sub
16.2 Formatting Date and time using user-defined formats Besides using the predefined formats, you can also use the user-defined formatting functions. The general format of a user-defined for date/time is Format (expression, style)
Format Format (Now, M) Format (Now, MM) Format (Now, MMM) Format (Now, MMMM) Format (Now, dd/MM/yyyy) Format (Now, "MMM,d,yyyy") Format (Now, "h:mm:ss tt") Format (Now, "MM/dd/yyyy h:mm:ss) Explanation Displays current month and date Displays current month in double digits. Displays abbreviated name of the current month Displays full name of the current month. Displays current date in the day/month/year format. Displays current date in the Month, Day, Year Format Displays current time in hour:minute:second format and show am/pm Displays current date and time in hour:minute:second format
Table 16.2: some of the user-defined format functions for date and time
68
Example 16.2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click Label1.Text = Format(Now, "M") Label2.Text = Format(Now, "MM") Label3.Text = Format(Now, "MMM") Label4.Text = Format(Now, "MMMM") Label5.Text = Format(Now, "dd/MM/yyyy") Label6.Text = Format(Now, "MMM,d,yyyy") Label7.Text = Format(Now, "h:mm:ss tt") Label8.Text = Format(Now, "MM/dd/yyyy h:mm:ss tt") End Sub
69
70 Example 17.1: Shopping CartE Private Sub BtnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalculate.Click Const LX As Integer = 100 Const BN As Integer = 500 Const SD As Integer = 200 Const HD As Integer = 80 Const HM As Integer = 300 Const AM As Integer = 150 Dim sum As Integer
If CheckBox3.Checked = True Then sum += SD End If If CheckBox4.Checked = True Then sum += HD End If
71 End If
Here is another example Example 17.2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Const large As Integer = 10.0 Const medium As Integer = 8 Const small As Integer = 5 Dim sum As Integer
Example 17.3 In this example, the user can enter text into a textbox and format the font using the three checkboxes that represent bold, italic and underline.
73
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Bold) Else TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Bold)
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged If CheckBox2.Checked Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Italic) Else TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Italic)
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged If CheckBox2.Checked Then TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or
* The above program uses the CheckedChanged event to respond to the user selection by checking a particular checkbox; it is similar to the click event. The statement TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Italic) will retain the original font type but change it to italic font style. TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Italic) will also retain the original font type but change it to regular font style. (The other statements employ the same logic)
75
76
Although the user may only select one item at a time, he may make more than one selection if those items belong to different categories. For example, the user wish to choose T-shirt size and color, he needs to select one color and one size, which means one selection in each category. This is easily achieved in VB2008 by using the Groupbox control under the containers categories. After inserting the Groupbox into the form, you can proceed to insert the radio buttons into the Groupbox. Only the radio buttons inside the Groupbox are mutually exclusive, they are not mutually exclusive with the radio buttons outside the Groupbox. In Example 18.2, the users can select one color and one size of the T-shirt. Example 18.2
Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged strColor = "Red" End Sub
77 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 RadioS_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioS.CheckedChanged strSize = "S" End Sub
Figure 18-2
79
80
The Code The code for the web browser is surprisingly simple; it is only a single line code! Double click on the Go button and key in the following code: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click myWebBrowser.Navigate (TextBox1.Text) End Sub End Class
81 Now run the program, type in any URL and click the Go button. You will be able to browse any web page you want.
Figure 19-2
82
20.1 Introduction Error handling is an essential procedure in Visual Basic 2008 programming because it can help make the program error-free. An error-free program can run smoothly and efficiently, and the user does not have to face all sorts of problems such as program crash or system hang. Errors often occur due to incorrect input from the user. For example, the user might make the mistake of attempting to enter a text (string) to a box that is designed to handle only numeric values such as the weight of a person, the computer will not be able to perform arithmetic calculation for text therefore will create an error. These errors are known as synchronous errors. Therefore a good programmer should be more alert to the parts of program that could trigger errors and should write errors handling code to help the user in managing the errors. Writing errors handling code should be considered a good practice for Visual Basic programmers, so do try to finish a program fast by omitting the errors handling code. However, there should not be too many errors handling code in the program as it create problems for the programmer to maintain and troubleshoot the program later. VB2008 has improved a lot in built-in errors handling compared to Visual Basic 6. For example, when the user attempts to divide a number by zero, Vb2008 will not return an error message but gives the 'infinity' as the answer (although this is mathematically incorrect, because it should be undefined) 20.2 Using On Error GoTo Syntax Visual Basic 2008 still supports the VB6 errors handling syntax that is the On Error GoTo program_label structure. Although it has a more advanced error handling
83 method, we shall deal with that later. We shall now learn how to write errors handling code in VB2008. The syntax for errors handling is On Error GoTo program_label where program_label is the section of code that is designed by the programmer to handle the error committed by the user. Once an error is detected, the program will jump to the program_label section for error handling. Example 20.1: Division by Zero In this example, we will deal with the error of entering non-numeric data into the textboxes that suppose to hold numeric values. The program_label here is error_hanldler. when the user enter a non-numeric values into the textboxes, the error message will display the text"One of the entries is not a number!Try again!". If no error occur, it will display the correct answer. Try it out yourself. The Code Public Class Form1 Private Sub CmdCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalculate.Click Lbl_ErrorMsg.Visible = False Dim firstNum, secondNum As Double On Error GoTo error_handler firstNum = Txt_FirstNumber.Text secondNum = Txt_SecondNumber.Text Lbl_Answer.Text = firstNum / secondNum Exit Sub 'To prevent error handling even the inputs are valid
84 error_handler: Lbl_Answer.Text = "Error" Lbl_ErrorMsg.Visible = True Lbl_ErrorMsg.Text = " One of the entries is not a number! Try again!" End Sub End Class The Output
Figure 20-1
20.3 Errors Handling using Try.....Catch....End Try Structure VB2008 has adopted a new approach in handling errors, or rather exceptions handling. It is supposed to be more efficient than the old On Error Goto method, where it can handles various types of errors within the Try...Catch...End Try structure.
85
The structure looks like this Try statements Catch exception_variable as Exception statements to deal with exceptions End Try Example 20.2 This is a modification of Example 20.1. Instead of using On Error GoTo method, we use the Try...Catch...End Try method. In this example, the Catch statement will catch the exception when the user enters a non-numeric data and return the error message. If there is no exception, there will not any action from the Catch statement and the program returns the correct answer. The code Public Class Form1 Private Sub CmdCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalculate.Click Lbl_ErrorMsg.Visible = False Dim firstNum, secondNum, answer As Double Try firstNum = Txt_FirstNumber.Text secondNum = Txt_SecondNumber.Text answer = firstNum / secondNum Lbl_Answer.Text = answer
86 Catch ex As Exception Lbl_Answer.Text = "Error" Lbl_ErrorMsg.Visible = True Lbl_ErrorMsg.Text = " One of the entries is not a number! Try again!" End Try End Sub End Class
The output
Figure 20-2
87
88 the whole program (i.e. above the Public Class Form 1 statement). The word import means we import the namesapce System.IO into the program. Once we have done that , we can declare a variable of the streamReader data type with the following statement: Dim FileReader As StreamReader If we don't include the Imports System.IO, we have to use the statement Dim FileReader As IO.StreamReader each time we want to use the StreamReader class. Now, start a new project and name it in whatever name you wish. Now, insert the OpenFileDialog control into the form because we will use it to read the file from the storage device. The default name of the OpenFileDialog control is OpenFileDialog1, you can use this name or you can rename it with a more meaningful name. The OpenFileDialog control will return a DialogResult value which can determine whether the user clicks the OK button or Cancel button . We will also insert a command button and change its displayed text to 'Open'. It will be used by the user to open and read a certain text file. The following statement will accomplish the task above. Dim results As DialogResult results = OpenFileDialog1.ShowDialog If results = DialogResult.OK Then 'Code to be executed if OK button was clicked Else 'Code to be executed if Cancel button was clicked End If End Sub
89 Next, we insert a textbox and set its Multiline property to true. It is used for displaying the text from a text file. In order to read the text file, we need to create a new instant of the streamReader and connect it to a text file with the following statement: FileReader = New StreamReader(OpenFileDialog1.FileName) In addition, we need to use the ReadToEnd method to read the entire text of a text file. The syntax is: TextBox1.Text = FileReader.ReadToEnd() Lastly, we need to close the file by using the Close() method. The entire code is shown in the box below: The Code Imports System.IO Public Class Form1 Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpen.Click Dim FileReader As StreamReader Dim results As DialogResult results = OpenFileDialog1.ShowDialog If results = DialogResult.OK Then FileReader = New StreamReader(OpenFileDialog1.FileName) TextBox1.Text = FileReader.ReadToEnd() FileReader.Close() End If End Sub
90
91
21.3 Writing to a Text File Writing a text file means storing the text entered by the user via a textbox into a storage device such as a hard drive. It also means saving the file. To accomplish this task, we need to deploy the StreamWriter Class. You also need to insert the SaveFileDialog control into the form as it is used to save the data into the storage unit like a hard drive. The default name for the SaveFileDialog control is SaveFileDialog1. The Code is basically the same as the code for reading the file, you just change the StreamReader to StreamWriter, and the method from ReadToEnd to Write. The code is shown below: The code Imports System.IO Public Class Form1 Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
92 Dim FileWriter As StreamWriter Dim results As DialogResult results = SaveFileDialog1.ShowDialog If results = DialogResult.OK Then FileWriter = New StreamWriter(SaveFileDialog1.FileName, False) FileWriter.Write(TextBox1.Text) FileWriter.Close() End If End Sub
When you click the save button, the program will prompt you to key in a file name and the text will be save as a text file. Finally, you can combine the two programs together and create a text editor that can read and write text file, as shown in Figure 21.5.
93
Figure 21-5
94
95 If you want the graphics object to draw to a picturebox, you can write the following statement: Dim myGraphics As Graphics = PictureBox1.CreateGraphics You can also use the textbox as a drawing surface, the statement is: Dim myGraphics As Graphics = TextBox1.CreateGraphics The Graphics object that is created does not draw anything on the screen until you call the methods of the Graphics object. In addition, you need to create the Pen object as the drawing tool. We will examine the code that can create a pen in the following section.
22.3 Creating a Pen A Pen can be created using the following code: myPen = New Pen(Brushes.DarkMagenta, 10) In the code, myPen is a Pen variable. You can use any variable name instead of myPen. The first argument of the pen object defines the color of the drawing line and the second argument defines the width of the drawing line. You can also create a Pen using the following statement: Dim myPen As Pen myPen = New Pen(Drawing.Color.Blue, 5) Where the first argument defines the color (here is blue, you can change that to red or whatever color you want) and the second argument defines the width of the drawing line. Having created the Graphics and the Pen objects, you are now ready to draw graphics on the screen which we will show you in the following section.
96 22.4 Drawing a Line In this section, we will show you how to draw a straight line on the Form. First of all, launch Visual basic 2008 Express. In the startup page, drag a button into the form. Double click on the button and key in the following code. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myGraphics As Graphics = me.CreateGraphics Dim myPen As Pen myPen = New Pen(Brushes.DarkMagenta, 10) myGraphics.DrawLine(myPen, 10, 10, 100, 10) End Sub The second line created the Graphics object and the third and fourth line create the Pen object. The fifth line draws a line on the Form using the DrawLine method. The first argument uses the Pen object created by you, the second argument and the third arguments define the coordinate of the starting point of the line, the fourth and the last arguments define the ending coordinate of the line. The general syntax of the Drawline argument is object.DrawLine(Pen, x1, y1, x2, y2) The output of the program is shown in Figure 22.1.
Figure 22.1
97 22.5 Creating Rectangles To draw a rectangle on the screen in VB2008, there are two ways: (i)The first way is to draw a rectangle directly using the DrawRectangle method by specifying its upper-left corner's coordinates and its width and height. You also need to create a Graphics and a Pen object to handle the actual drawing. The method to draw the rectangle is DrawRectangle. The syntax is: myGrapphics.DrawRectangle (myPen, X, Y, width, height) Where myGraphics is the variable name of the Graphics object and myPen is the variable name of the Pen object created by you. You can use any valid and meaningful variable names. X, Y is the coordinate of the upper left corner of the rectangle while width and height are self-explanatory, i.e., the width and height of the rectangle. The sample code is shown below: Dim myPen As Pen myPen = New Pen(Drawing.Color.Blue, 5) Dim myGraphics As Graphics = Me.CreateGraphics myGraphics.DrawRectangle (myPen, 0, 0, 100, 50)
(ii) The second way is to create a rectangle object first and then draw this triangle using the DrawRectangle method. The syntax is as shown below: myGraphics.DrawRectangle (myPen, myRectangle)
98 The code to create a rectangle object is as shown below: Dim myRectangle As New Rectangle myRect.X = 10 myRect.Y = 10 myRect.Width = 100 myRect.Height = 50 You can also create a rectangle object using a one-line code as follows: Dim myRectangle As New Rectangle(X, Y, width, height) The code to draw the above rectangle is myGraphics.DrawRectangle (myPen, myRectangle) The sample code is shown below: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myRect As New Rectangle myRect.X = 10 myRect.Y = 10 myRect.Width = 100 myRect.Height = 50 Dim myPen As Pen myPen = New Pen(Drawing.Color.Blue, 5) Dim myGraphics As Graphics = Me.CreateGraphics myGraphics.DrawRectangle(myPen, myRect)
End Sub
99 22.6 Customizing Line Style of the Pen Object The shape we draw so far are drawn with solid line, we can actually customize the line style of the Pen object so that we have dotted line, line consisting of dashes and more. For example, the syntax to draw with dotted line is shown below: myPen.DashStyle=Drawing.Drawing2D.DashStyle.Dot The last argument, Dot, specifies a particular line DashStyle value, a line that makes up of dots. The following code draws a rectangle with red dotted line. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myPen As Pen myPen = New Pen(Drawing.Color.Red, 5) Dim myGraphics As Graphics = Me.CreateGraphics myPen.DashStyle = Drawing.Drawing2D.DashStyle.Dot myGraphics.DrawRectangle(myPen, 10, 10, 100, 50) End Sub The output image is shown in Figure 22.2.
Figure 22.2
100 22.7 Drawing Ellipse First of all we need to understand the principal behind drawing an ellipse. The basic structure of most shapes is a rectangle, ellipse is no exception. Ellipse is an oval shape that is bounded by a rectangle, as shown in Figure 22.3 below:
Figure 22.3
Therefore, you need to create a Rectangle object before you can draw an ellipse. This rectangle serves as a bounding rectangle for the ellipse. On the other hand, you can still draw an ellipse with the DrawEllipse method without first creating a rectangle. We will show you both ways. In the first method, let say you have created a rectangle object known as myRectangle and a pen object as myPen, then you can draw an ellipse using the following statement: myGraphics.DrawEllipse (myPen, myRectangle) * Assume you have also already created the Graphics object myGraphics. The following is an example of the full code. Dim myPen As Pen myPen = New Pen(Drawing.Color.Blue, 5) Dim myGraphics As Graphics = Me.CreateGraphics Dim myRectangle As New Rectangle myRectangle.X = 10 myRectangle.Y = 10 myRectangle.Width = 200 myRectangle.Height = 100
101 myGraphics.DrawEllipse (myPen, myRectangle) The output image is shown in the following diagram:
Figure 22.4
The second method is using the DrawEllipse method without creating a rectangle object. Off course you still have to create the Graphics and the Pen objects. The syntax is: myGraphics.DrawEllipse(myPen, X,Y,Width, Height) Where (X,Y) are the coordinates of the upper left corner of the bounding rectangle, width is the width of the ellipse and height is the height of the ellipse. The following is an example of the full code: Dim myPen As Pen myPen = New Pen(Drawing.Color.Blue, 5) Dim myGraphics As Graphics = Me.CreateGraphics myGraphics.DrawEllipse (myPen, 10, 10, 200, 100)
102
22.8 Drawing a Circle After you have learned how to draw an ellipse, drawing a circle becomes very simple. We use exactly the same methods used in the preceding section but modify the width and height so that they are of the same values. The following examples draw the same circle. Example (a) Dim myPen As Pen myPen = New Pen(Drawing.Color.Blue, 5) Dim myGraphics As Graphics = Me.CreateGraphics Dim myRectangle As New Rectangle myRectangle.X = 10 myRectangle.Y = 10 myRectangle.Width = 100 myRectangle.Height = 100 myGraphics.DrawEllipse(myPen, myRectangle) Example (b) Dim myPen As Pen myPen = New Pen(Drawing.Color.Blue, 5) Dim myGraphics As Graphics = Me.CreateGraphics myGraphics.DrawEllipse(myPen, 10, 10, 100, 100) The output image is show in Figure 22.5.
103
Figure 22.5
22.9 Drawing Text In order to draw text on the screen, we can use the DrawString method. The format is as follows: myGraphics.DrawString (myText, myFont, mybrush, X , Y) Where myGraphics is the Graphics object, myText is the text you wish to display on the screen, myFont is the font object created by you, myBrush is the brush style created by you and X, Y are the coordinates of upper left corner of the Text. You can create your Font object using the following statement: myFont = New System.Drawing.Font("Verdana", 20) Where the first argument of the font is the font typeface and the second argument is the font size. You can add a third argument as font style, either bold, italic, underline.
104 Here are some examples: myFont = New System.Drawing.Font("Verdana", 20, FontStyle.Bold) myFont = New System.Drawing.Font("Verdana", 20, FontStyle.Underline) myFont = New System.Drawing.Font("Verdana", 20, FontStyle.Italic) myFont = New System.Drawing.Font("Verdana", 20, FontStyle.Regular) To create the Brush object, you can use the following statement: Dim myBrush As Brush myBrush = New Drawing.SolidBrush(Color.BrushColor) Besides the seven colors, some of the common Brush Colors are AliceBlue, AquaMarine Beige, DarkMagenta, DrarkOliveGreen, SkyBlue and more. You don't have to remember the names of all the colors, the intelliSense will let you browse through the colors in a drop-down menu once you type the dot after the word Color. Now we shall proceed to draw the font using the sample code below: Dim myGraphics As Graphics = Me.CreateGraphics Dim myFont As Font Dim myBrush As Brush myBrush = New Drawing.SolidBrush(Color.DarkOrchid) myFont = New System.Drawing.Font("Verdana", 20, FontStyle.Underline) myGraphics.DrawString("Visual Basic 2008", myFont, myBrush, 10, 10) Run the program above and you can see the following output:
Figure 22.6
105 The preceding can be modified if you don't want to create the Font and the Brush objects. You can use the font of an existing object such as the Form and the System Colors. Replace the last line in the preceding example with this line(you need to delete the lines that create the Brush and the Font objects as well) myGraphics.DrawString("Visual Basic 2008", me.Font, System.Drawing.Brushes.DarkOrchid, 10, 10) You can also add an InputBox which let the user enter his or her message then display the message on the screen. This is the sample code: Dim myGraphics As Graphics = Me.CreateGraphics Dim myFont As Font Dim myBrush As Brush Dim userMsg As String UserMsg = InputBox("What is your message?", "Message Entry Form", "Enter your message here", 100, 200) myBrush = New Drawing.SolidBrush(Color.DarkOrchid) myFont = New System.Drawing.Font("Verdana", 20, FontStyle.Underline) myGraphics.DrawString (userMsg, myFont, myBrush, 10, 10) 22.10 Drawing Polygons Polygon is a closed plane figure bounded by three or more straight sides. In order to draw a polygon on the screen, we need to define the coordinates of all the points (also known as vertices) that joined up to form the polygon. The syntax to define the points of a polygon with vertices A1, A2 ...An as follows: Dim A1 As New Point(X1,Y1) Dim A2 As New Point(X2,Y2) . . Dim An as New Point(Xn,Yn)
106 After declaring the points, we need to define a point structure that group all the points together using the following syntax: Dim myPoints As Point() = {A1, A2, A3,....,An} Finally, create the graphics object and use the DrawPolygon method to draw the polygon using the following syntax: Dim myGraphics As Graphics = Me.CreateGraphics myGraphics.DrawPolygon(myPen, myPoints) Where myPen is the Pen object created using the following syntax: myPen = New Pen(Drawing.Color.Blue, 5)
Example : Drawing a Triangle A triangle is a polygon with three vertices. Here is the sample code: Dim myPen As Pen Dim A As New Point(10, 10) Dim B As New Point(100, 50) Dim C As New Point(60, 150) Dim myPoints As Point() = {A, B, C} myPen = New Pen(Drawing.Color.Blue, 5) Dim myGraphics As Graphics = Me.CreateGraphics myGraphics.DrawPolygon (myPen, myPoints)
107
Figure 22.7
Example : Drawing a Quadrilateral A quadrilateral is a polygon consists of four sides, so you need to define four vertices. The following is the code: Dim myPen As Pen Dim A As New Point(10, 10) Dim B As New Point(100, 50) Dim C As New Point(120, 150) Dim D As New Point(60, 200) Dim myPoints As Point() = {A, B, C, D} myPen = New Pen(Drawing.Color.Blue, 5) Dim myGraphics As Graphics = Me.CreateGraphics myGraphics.DrawPolygon (myPen, myPoints) The output is shown in Figure 22.8.
108
Figure 22.8
22.11: Drawing a Pie In order to draw a pie, you can use the DrawPie method of the graphics object. As usual, you need to create the Graphics and the Pen objects. The syntax for drawing a pie is: myGraphics.DrawPie (myPen, X, Y, width, height, StartAngle, SweepAngle) Where X and Y are the coordinates of the bounding rectangle, other arguments are self-explanatory. Both StartAngle and SweepAngle are measured in degree. SweepAngle can take possible or negative values. If the value is positive, it sweep through clockwise direction while negative means it sweep through anticlockwise direction. Example: Drawing a pie that starts with 0 degree and sweep clockwise through 60 degree. Dim myPen As Pen myPen = New Pen(Drawing.Color.Blue, 5) Dim myGraphics As Graphics = Me.CreateGraphics myGraphics.DrawPie(myPen, 50,50, 150,150,0,60)
Figure 22.9
In previous sections, we have learned how to draw rectangle, ellipse ,circle ,polygon and pie with outlines only. In this section, we will show you how to fill the shapes with color, or simply solid shapes. Three methods that are used to fill shapes are FillRectangle, FillEllipse, FillPolygon and FillPie. In order to fill the above shapes with color, we need to create the Brush object using the following syntax: myBrush = New SolidBrush(Color.myColor) Where myColor should be replaces by the names of the colors such as red, blue, yellow and more. You don't have to worry about the names of the colors because the intellisense will display the colors and enter the period after the Color key word. Dim myPen As Pen Dim myBrush As Brush Dim myGraphics As Graphics = Me.CreateGraphics myPen = New Pen(Drawing.Color.Blue, 5) myBrush = New SolidBrush(Color.Coral) myGraphics.DrawRectangle (myPen, 0, 0, 150, 150) myGraphics.FillRectangle (myBrush, 0, 0, 150, 150)
Figure 22.10
22.12 Drawing and Filling an Ellipse The syntax to fill an ellipse with the color defined by the brush object is: myGraphics.FillEllipse (myBrush, 0, 0, 150, 150) The complete code is shown in the example below: Dim myPen As Pen Dim myBrush As Brush Dim myGraphics As Graphics = Me.CreateGraphics myPen = New Pen(Drawing.Color.Blue, 5) myBrush = New SolidBrush(Color.Coral) myGraphics.DrawEllipse(myPen, 0, 0, 150, 150) myGraphics.Ellipse(myBrush, 0, 0, 150, 150) The output is shown in Figure 2.11
111
Figure 22.11
22.13 Drawing and Filling a Polygon The syntax to fill a polygon with the color defined by the brush object is: myGraphics.FillPolygon (myBrush, myPoints) The complete code is shown in the example below: Dim myPen As Pen Dim myBrush As Brush Dim A As New Point(10, 10) Dim B As New Point(100, 50) Dim C As New Point(120, 150) Dim D As New Point(60, 200) Dim myPoints As Point() = {A, B, C, D} myPen = New Pen(Drawing.Color.Blue, 5) myBrush = New SolidBrush(Color.Coral) Dim myGraphics As Graphics = Me.CreateGraphics myGraphics.DrawPolygon(myPen, myPoints) myGraphics.FillPolygon(myBrush, myPoints) Running the code produces the image as shown in Figure 22.12.
112
Figure 22.12
22.14 Drawing and Filling a Pie The syntax to fill a pie with the color defined by the brush object is: myGraphics.FillPie(myBrush, X, Y, width, height, StartAngle, SweepAngle)
The complete code is shown in the example below: Dim myPen As Pen Dim myBrush As Brush myPen = New Pen(Drawing.Color.Blue, 5) myBrush = New SolidBrush(Color.Coral) Dim myGraphics As Graphics = Me.CreateGraphics myGraphics.DrawPie(myPen, 30, 40, 150, 150, 0, 60) myGraphics.FillPie(myBrush, 30, 40, 150, 150, 0, 60)
113
Figure 22.13