EX.
NO:1
SIMPLE ARITHMETIC CALCULATOR
DATE:
AIM
To write a VB Program to construct the Arithmetic Calculator (Simple).
ALGORITHM
STEP 1: Start -> Program -> Microsoft Visual Studio 6.0-> Visual Basic 6.0
STEP 2: Select File -> New -> Standard.exe
STEP 3: Design the form with required controls.
STEP 4: Create Control Array for command buttons
STEP 5: Type the coding
STEP 6: Build and execute the application
STEP 7: Stop the program
FORM DESIGN
PROGRAM CODING
Dim a, b, c, d
Dim s As String
Private Sub CLEAR_Click()
Text1.Text = ""
End Sub
Private Sub div_Click()
d = Text1.Text
Text1.Text = ""
s = "/"
End Sub
Private Sub dot_Click()
Text1.Text = Text1.Text + dot.Caption
End Sub
Private Sub Eight_Click()
Text1.Text = Text1.Text + Eight.Caption
End Sub
Private Sub equal_Click()
If (s = "+") Then
Text1.Text = Val(a) + Val(Text1.Text)
ElseIf (s = "-") Then
Text1.Text = Val(b) - Val(Text1.Text)
ElseIf (s = "*") Then
Text1.Text = Val(c) * Val(Text1.Text)
ElseIf (s = "/") Then
Text1.Text = Val(d) / Val(Text1.Text)
End If
End Sub
Private Sub five_Click()
Text1.Text = Text1.Text + five.Caption
End Sub
Private Sub four_Click()
Text1.Text = Text1.Text + four.Caption
End Sub
Private Sub minus_Click()
b = Text1.Text
Text1.Text = ""
s = "-"
End Sub
Private Sub multiplication_Click()
c = Text1.Text
Text1.Text = ""
s = "*"
End Sub
Private Sub nine_Click()
Text1.Text = Text1.Text + nine.Caption
End Sub
Private Sub OFF_Click()
Text1.Text = ""
zero.Enabled = False
one.Enabled = False
two.Enabled = False
three.Enabled = False
four.Enabled = False
five.Enabled = False
six.Enabled = False
Seven.Enabled = False
Eight.Enabled = False
nine.Enabled = False
dot.Enabled = False
plus.Enabled = False
minus.Enabled = False
multiplication.Enabled = False
div.Enabled = False
clear.Enabled = False
equal.Enabled = False
End Sub
Private Sub ON_Click()
zero.Enabled = True
one.Enabled = True
two.Enabled = True
three.Enabled = True
four.Enabled = True
five.Enabled = True
six.Enabled = True
Seven.Enabled = True
Eight.Enabled = True
nine.Enabled = True
plus.Enabled = True
minus.Enabled = True
multiplication.Enabled = True
div.Enabled = True
dot.Enabled = True
equal.Enabled = True
clear.Enabled = True
End Sub
Private Sub one_Click()
Text1.Text = Text1.Text + one.Caption
End Sub
Private Sub plus_Click()
a = Text1.Text
Text1.Text = ""
s = "+"
End Sub
Private Sub Seven_Click()
Text1.Text = Text1.Text + Seven.Caption
End Sub
Private Sub six_Click()
Text1.Text = Text1.Text + six.Caption
End Sub
Private Sub three_Click()
Text1.Text = Text1.Text + three.Caption
End Sub
Private Sub two_Click()
Text1.Text = Text1.Text + two.Caption
End Sub
Private Sub zero_Click()
Text1.Text = Text1.Text + zero.Caption
End Sub
OUTPUT
RESULT
Thus the above program has been run successfully.
EX.NO:2(A) LOOPS AND DECISION MAKING STATEMENTS - GENERATE
FIBONACCI SERIES
DATE:
AIM
To write a VB Program for generate Fibonacci Series.
ALGORITHM
Step - 1: Start the process.
Step - 2: Create a new Project.
Step - 3: Declare the variables a,b,c,series as integer type.
Step - 4: Draw the picture box for seeing the output.
Step - 5: Through the Inputbox enter the number of series for printing
Fibonacci series
Step - 6: Save and execute the project.
Step - 7 : Stop the process.
FORM DESIGN
PROGRAM CODING
Dim a, b, c, series As Integer
Private Sub Command1_Click()
Picture1.Cls
series = InputBox("Enter the number of series")
a=1
For x = 1 To series
If x > 2 Then
c=a+b
a=b
b=c
Picture1.Print c & Space(2);
Else
Picture1.Print a & Space(2);
End If
Next x
End Sub
OUTPUT
RESULT
Thus the above program has been run successfully.
EX.NO:2(B)
LOOPS AND DECISION MAKING STATEMENTS - FIND THE SUM
OF N NUMBERS
DATE:
AIM
To write a VB Program to find the sum of N numbers.
ALGORITHM
Step - 1: Start the process.
Step - 2: Create a new Project.
Step - 3: Declare the variables a,n and sum as integer type.
Step - 4: Keep the command button for getting the limit and finding the sum
Step - 5: Give the input for printing the sum of n numbers, based on the for loop
the input will be given in the text box until the condition is true.
Step - 6: Save and execute the project.
Step - 7 : Stop the process.
FORM DESIGN
PROGRAM CODING
Dim a, n, sum As Integer
Private Sub Command1_Click()
n = InputBox("Enter the limit")
End Sub
Private Sub Command2_Click()
sum = 0
For k = 1 To n
sum = sum + k
Next k
MsgBox "the result is" & sum
End Sub
OUTPUT
RESULT
Thus the above program has been run successfully.
EX.NO:2(C)
LOOPS AND DECISION MAKING STATEMENTS - TO DISPLAY
THE NUMBERS/SYMBOLS IN TRIANGLE FORMAT
DATE:
AIM
To write a VB Program to display the numbers/symbols in trianlge
format.
ALGORITHM
Step - 1: Start the process.
Step - 2: Create a new Project.
Step - 3: Declare the variables n,i,j as integer type.
Step - 4: keep the command button for printing the value in a triangle format.
Step - 5: Through the Inputbox enter the number of series for printing in a
triangle format according the i and j values in the for loop
Step - 6: Save and execute the project.
Step - 7 : Stop the process.
FORM DESIGN
CODING
Dim n,i,j as integer
Private Sub Command1_Click()
n = Val(InputBox("Enter number of rows"))
For i = n To 1 Step -1
For j = n To i Step -1
Print " * ";
Next j
Print ""
Next i
Print ""
Print ""
Print ""
For i = 1 To n
For j = i To n
Print " * ";
Next j
Print ""
Next i
End Sub
OUTPUT
RESULT
Thus the above program has been run successfully.
EX.NO: 3
CREATE A MENU AND MDI FORMS
DATE:
AIM
To write a VB Program for creating MENU and MDI forms.
ALGORITHM
STEP 1: Start -> Program -> Microsoft Visual Studio 6.0-> Visual Basic 6.0
STEP 2: Select File -> New -> Standard.exe
STEP 3: Design the form with required controls.
STEP 4: Create a menu using Menu Editor
STEP 5: Type the coding
STEP 6: Build and execute the application
STEP 7: Stop the program
FORM DESIGN
PROGRAM CODING
Private Sub mnuCircle_Click()
Picture1.Cls
Picture1.DrawWidth = 3
Picture1.Circle (1800, 1800), 1000, vbBlue
End Sub
Private Sub mnuLine_Click()
Picture1.Cls
Picture1.DrawWidth = 3
Picture1.Line (2000, 2000)-(3500, 3500), vbRed
End Sub
Private Sub mnuRectanlge_Click()
Picture1.Cls
Picture1.DrawWidth = 3
Picture1.Line (300, 300)-Step(4000, 2000), vbGreen, B
End Sub
Private Sub mnuSquare_Click()
Picture1.Cls
Picture1.DrawWidth = 3
Picture1.Line (1300, 1300)-Step(1300, 1300), vbPink, B
End Sub
OUTPUT
Printing Line
Printing Square
Printing Circle
RESULT
Thus the above program has been run successfully.
EX.NO: 4 CREATE A SIMPLE INPUT SCREEN WITH FOUR BASIC
CONTROLS TO READ INPUT AND WRITE IT TO A FILE
DATE:
AIM
To write a VB Program for create a simple input screen with four basic
controls to read input and write it to a file.
ALGORITHM
STEP 1: Start -> Program -> Microsoft Visual Studio 6.0-> Visual Basic 6.0
STEP 2: Select File -> New -> Standard.exe
STEP 3: Design the form with required controls
STEP 4: Create a text file “Sample.txt”using Notepad
STEP 5: Type the coding
STEP 6: Build and execute the application
STEP 7: Stop the program
FORM DESIGN
PROGRAM CODING
Dim filepath As String
Dim record As String
Private Sub Command1_Click()
filepath = "C:\VB\myfile.txt"
filenum = FreeFile
record = record + Text1.Text + " "
record = record + Text2.Text + " "
If Option1.Value = True Then
record = record + "Male "
Else
record = record + "Female "
End If
record = record + Text3.Text
Open filepath For Append As #1
Print #1, record
Close #1
MsgBox "Record inserted into text file", vbDefaultButton1, "Submit"
record = ""
Text1.Text = ""
Text2.Text = ""
Option1.Value = True
Option2.Value = False
Text3.Text = ""
End Sub
OUTPUT
RESULT
Thus the above program has been run successfully.
