Prime Number Tester VB Progrom

In this program, I use the Select Case And Select statement to determine whether a number entered by a user is a prime number or not. 

Case 1- all numbers that are less tha 2 are prime. 

Case 2, if the number is 2, it is a prime number. In the last case, if the number N is more than 2, I 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. I use a Do......Loop While statement to control the program flow. Here I also used a 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.

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

Read More

Traffic Light Visul Basic Program

This Traffic Light program is a Visual Basic program designed by Ankit Jain that works like the actual traffic light. It is a nice little program. In this program, you have to insert one timer and set its interval according to your wish. Here I set it to 5000, which is equivalent to 5 seconds. Next you insert three shapes and set their shape properties to circle and fill the colors. There it goes, your traffic light is working!

The Code

Private Sub Timer1_Timer()
If Shape1.Visible Then

Shape2.Visible = True
Shape1.Visible = False
Shape3.Visible = False

ElseIf Shape2.Visible Then

Shape3.Visible = True
Shape2.Visible = False
Shape1.Visible = False

Else

Shape1.Visible = True
Shape2.Visible = False
Shape3.Visible = False

End If

End Sub

Read More