Scribd
Upload
103 views

VB Prog

This program uses the Pythagorean theorem to calculate the third side of a right triangle when given two sides. It takes user input for two sides, calculates the third side using the formula a^2 + b^2 = c^2, and displays the result rounded to two decimal places. The program also includes the formula and an explanation of how it works. This program determines the number of roots of a quadratic equation and computes the actual roots using the quadratic formula. It takes user input for the coefficients a, b, and c, calculates the discriminant, and displays the appropriate message for the number of roots along with the values of the roots. This program tests if a number is a prime number by

Uploaded by

Chiradip Basu
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
103 views

VB Prog

This program uses the Pythagorean theorem to calculate the third side of a right triangle when given two sides. It takes user input for two sides, calculates the third side using the formula a^2 + b^2 = c^2, and displays the result rounded to two decimal places. The program also includes the formula and an explanation of how it works. This program determines the number of roots of a quadratic equation and computes the actual roots using the quadratic formula. It takes user input for the coefficients a, b, and c, calculates the discriminant, and displays the appropriate message for the number of roots along with the values of the roots. This program tests if a number is a prime number by

Uploaded by

Chiradip Basu
Copyright
© © All Rights Reserved
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 8

Pythagorean Theorem

This a program that can solve geometric problems based on Pythagorean


Theorem. We suppose everybody is already familiar with the above Theorem.
However, some of you might have forgotten this theorem. So, let us list the
formula here. By referring to a right angled triangle ABC, if the sides are AB, AC
and AC respectively, where AC is the hypotenuse, then AB, AC and BC are
connected by the formula
AB2+AC2=BC2
Using the above formula, you can calculate the third side if the the length of any
two sides are know. For example, if AB=4 and AC=3 then BC=5. We have
designed the VB program for the user to input any two sides and then he or she
is able to calculate the third side automatically. The third side BC can be found
by finding the square root of AB2+AC2 . In visual basic, the syntax is
BC= Sqr(AB ^ 2 + AC ^ 2)
We can also the function Round to round the value to two decimal places using
the syntax Round(BC, 2).

The Interface

The Code
Private Sub Command1_Click()
Dim AB, AC, BC As Single
AB = Val(Txt_AB.Text)
AC = Val(Txt_AC.Text)
BC = Val(Txt_BC.Text)
If AB <> 0 And AC <> 0 Then
BC = Sqr(AB ^ 2 + AC ^ 2)

Txt_BC.Text = Round(BC, 2)
ElseIf AB <> 0 And BC <> 0 Then
AC = Sqr(BC ^ 2 - AB ^ 2)
Txt_AC.Text = Round(AC, 2)
ElseIf AC <> 0 And BC <> 0 Then
AB = Sqr(BC ^ 2 - AC ^ 2)
Txt_AB.Text = Round(AB, 2)
End If
End Sub
Quadratic Equation Solver

Quadratic equation is a fairly straight forward high school mathematics problem.


The quadratic equation solver was programmed to determine the number of
roots the equation has as well as to compute the roots. It uses the
determinant b2 -4ac to solve the problems. If b2 -4ac>0, then it has two roots and
if b2 -4ac=0, then it has one root, else it has no root. To obtain the roots, the
program uses the standard quadratic formula :

The Interface

The Code
Private Sub Form_Load()
Dim a, b, c, det As Integer
Dim root1, root2 As Single
Dim numroot As Integer
End Sub
Private Sub new_Click()
' To set all values to zero
Coeff_a.Text = ""
Coeff_b.Text = ""
Coeff_c.Text = ""
Answers.Caption = ""
txt_root1.Visible = False
txt_root2.Visible = False
txt_root1.Text = ""
txt_root2.Text = ""
Lbl_and.Visible = False
Lbl_numroot.Caption = ""
End Sub

Private Sub Solve_Click()


a = Val(Coeff_a.Text)
b = Val(Coeff_b.Text)
c = Val(Coeff_c.Text)
'To compute the value of the determinant
det = (b ^ 2) - (4 * a * c)
If det > 0 Then
Lbl_numroot.Caption = 2
root1 = (-b + Sqr(det)) / (2 * a)
root2 = (-b - Sqr(det)) / (2 * a)
Answers.Caption = "The roots are "
Lbl_and.Visible = True
txt_root1.Visible = True
txt_root2.Visible = True
txt_root1.Text = Round(root1, 4)
txt_root2.Text = Round(root2, 4)
ElseIf det = 0 Then
root1 = (-b) / 2 * a
Lbl_numroot.Caption = 1
Answers.Caption = "The root is "
txt_root1.Visible = True
txt_root1.Text = root1
Else
Lbl_numroot.Caption = 0
Answers.Caption = "There is no root "
End If
End Sub
Prime Number Tester

This program can test whether a number entered by the user is a prime number or not. A
prime number is a number that cannot be divided by other numbers other than by itself.
Examples are 2, 3, 5, 7, 11, 13,17,19, 23,29, 31, 37 and more.
In this program, you can use the Select Case ......End Select statement to determine
whether a number entered by a user is a prime number or not. For case 1, all numbers that
are less than 2 are prime numbers. In Case 2, if the number is 2, it is a prime number. In the
last case, if the number N is more than 2, we need to divide this number by all the numbers
from 3,4,5,6,........up to N-1, if it can be divided by any of these numbers, it is not a prime
number, otherwise it is a prime number. To control the program flow, we can use the
Do......Loop While statement . Besides, we need to tag="Not Prime' to identify the number
that is not prime, so that when the routine exits the loop, the label will display the correct
answer.

The Interface

The Code
Private Sub Command1_Click()
Dim N, D As Single
Dim tag As String
N = Val(TxtNumber.Text)
Select Case N
Case Is < 2
Lbl_Answer.Caption = "It is not a prime number"
Case Is = 2
Lbl_Answer.Caption = "It is a prime number"
Case Is > 2
D=2
Do
If N / D = Int(N / D) Then
Lbl_Answer.Caption = "It is not a prime number"
tag = "Not Prime"
Exit Do
End If
D=D+1
Loop While D <= N - 1
If tag <> "Not Prime" Then
Lbl_Answer.Caption = "It is a prime number"
End If

End Select
End Sub

Geometric Progression
This is a Visual Basic program that generates a geometric progression and displays the
results in a list box. Geometric progression is a sequence of numbers where each
subsequent number is found by multiplying the previous number by a fixed number which is
called common ratio. The common ratio can be negative, an integer, a fraction and any
number but it must not be a zero.
The general formula to find the nth term of the geometric progression is arn-1 , where a is
the first number and r is the common ratio.
In visual basic, we employs the Do.... Loop Until statement to generate the numbers in a
geometric progression.In this program, we need to insert three text boxes for the user to
enter the first number, the common ratio and the number of terms. We also need to insert a
list box to list the numbers. Besides that, a command button is need for the user to generate
the numbers in the geometric progression.
To add the numbers to the list box, we use the AddItem method. The syntax
isList1.AddItem n, where n can be any variable.

The Interface

The Code
Private Sub cmd_compute_Click()
Dim x, n, num As Integer
Dim r As Single
x = Txt_FirstNum.Text
r = Txt_CR
num = Txt_Terms.Text
List1.AddItem "n" & vbTab & "x"
List1.AddItem "___________"
n=1
Do
x=x*r
List1.AddItem n & vbTab & x
n=n+1
Loop Until n = num + 1
End Sub

Factors Finder
This is a program that can find factors of a number entered by the user and display them in
a list box. We use the simple logic that a number is divisible by all its factors. However, you
need to tell Visual Basic how to identify factors from non factors. In order to acheive this ,
we can make use of the fact that the remainder after a number is divided by its factor is
zero. In Visual Basic, you can use the MOD operator, which compute the value of the
remainder after a number is divided by an integer. The format is N Mod x.
With these logics in mind, we can use a For....Next Loop to evaluate all the remainders for
all the divisors of N smaller than N. If the remainder is zero, then the divisor x is added to
the list box. In this way, we are able to compute all the factors.

The Interface

The code
Private Sub Command1_Click()
Dim N, x As Integer
N = Val(Text1.Text)
For x = 2 To N - 1
If N Mod x = 0 Then
List1.AddItem (x)
End If
Next
List1.AddItem (N)
End Sub

You might also like