Scribd
Upload
18 views8 pages

Zodiac Program User Interaction

This document contains the code for a Visual Basic program that uses a user's birth month and date to determine and display their zodiac sign. The code uses input boxes to get the user's name and birth month and date. It then uses nested Select Case statements to evaluate the month and date values, and set the corresponding zodiac sign text in text box 3. The program displays a greeting to the user with their name, and focuses between different text boxes as the user enters information.

Uploaded by

Limberto Suarez
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
18 views8 pages

Zodiac Program User Interaction

This document contains the code for a Visual Basic program that uses a user's birth month and date to determine and display their zodiac sign. The code uses input boxes to get the user's name and birth month and date. It then uses nested Select Case statements to evaluate the month and date values, and set the corresponding zodiac sign text in text box 3. The program displays a greeting to the user with their name, and focuses between different text boxes as the user enters information.

Uploaded by

Limberto Suarez
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

Suarez, Limberto B.

08/16/2010
B.S.I.T. – 2D Prof. Tabios
Private Sub Command1_Click() [Link] = "Capricorn" Case 29
Dim a As String Case 3 [Link] = "Aquarius"
[Link] = "" [Link] = "Capricorn" Case 30
[Link] = "" Case 4 [Link] = "Aquarius"
[Link] = "" [Link] = "Capricorn" Case 31
[Link] = "" Case 5 [Link] = "Aquarius"
[Link] = "" [Link] = "Capricorn" Case Else
[Link] = "" Case 6 [Link] = "Invalid
[Link] = [Link] = "Capricorn" information"
LoadPicture("C:\Documents and Case 7 End Select
Settings\DAS\Desktop\vb_zodiac\ [Link] = "Capricorn"
[Link]") Case 8 Case "February"
[Link] = [Link] = "Capricorn" Select Case b
LoadPicture("C:\Documents and Case 9 Case 1
Settings\DAS\Desktop\vb_zodiac\ [Link] = "Capricorn" [Link] = "Aquarius"
[Link]") Case 10 Case 2
a = InputBox("What is your [Link] = "Capricorn" [Link] = "Aquarius"
name?", "Name Entry", "Name Case 11 Case 3
Entry Here") [Link] = "Capricorn" [Link] = "Aquarius"
[Link] = "Hi " & a & "!" Case 12 Case 4
[Link] [Link] = "Capricorn" [Link] = "Aquarius"
End Sub Case 13 Case 5
Private Sub Form_Load() [Link] = "Capricorn" [Link] = "Aquarius"
Dim a As String Case 14 Case 6
a = InputBox("What is your [Link] = "Capricorn" [Link] = "Aquarius"
name?", "Name Entry", "Name Case 15 Case 7
Entry Here") [Link] = "Capricorn" [Link] = "Aquarius"
[Link] = "Hi " & a & "!" Case 16 Case 8
End Sub [Link] = "Capricorn" [Link] = "Aquarius"
Private Sub Case 17 Case 9
Text1_KeyPress(KeyAscii As [Link] = "Capricorn" [Link] = "Aquarius"
Integer) Case 18 Case 10
If KeyAscii = 13 Then [Link] = "Capricorn" [Link] = "Aquarius"
[Link] Case 19 Case 11
End If [Link] = "Capricorn" [Link] = "Aquarius"
End Sub Case 20 Case 12
Private Sub [Link] = "Aquarius" [Link] = "Aquarius"
Text2_KeyPress(KeyAscii As Case 21 Case 13
Integer) [Link] = "Aquarius" [Link] = "Aquarius"
Dim a As String Case 22 Case 14
Dim b As Integer [Link] = "Aquarius" [Link] = "Aquarius"
a = [Link] Case 23 Case 15
b = Val([Link]) [Link] = "Aquarius" [Link] = "Aquarius"
Case 24 Case 16
If KeyAscii = 13 Then [Link] = "Aquarius" [Link] = "Aquarius"
Case 25 Case 17
Select Case a [Link] = "Aquarius" [Link] = "Aquarius"
Case 26 Case 18
Case "January" [Link] = "Aquarius" [Link] = "Aquarius"
Select Case b Case 27 Case 19
Case 1 [Link] = "Aquarius" [Link] = "Pisces"
[Link] = "Capricorn" Case 28 Case 20
Case 2 [Link] = "Aquarius" [Link] = "Pisces"
Case 21 [Link] = "Pisces" [Link] = "Aries"
[Link] = "Pisces" Case 16 Case 8
Case 22 [Link] = "Pisces" [Link] = "Aries"
[Link] = "Pisces" Case 17 Case 9
Case 23 [Link] = "Pisces" [Link] = "Aries"
[Link] = "Pisces" Case 18 Case 10
Case 24 [Link] = "Pisces" [Link] = "Aries"
[Link] = "Pisces" Case 19 Case 11
Case 25 [Link] = "Pisces" [Link] = "Aries"
[Link] = "Pisces" Case 20 Case 12
Case 26 [Link] = "Pisces" [Link] = "Aries"
[Link] = "Pisces" Case 21 Case 13
Case 27 [Link] = "Aries" [Link] = "Aries"
[Link] = "Pisces" Case 22 Case 14
Case 28 [Link] = "Aries" [Link] = "Aries"
[Link] = "Pisces" Case 23 Case 15
Case 29 [Link] = "Aries" [Link] = "Aries"
[Link] = "Pisces" Case 24 Case 16
Case Else [Link] = "Aries" [Link] = "Aries"
[Link] = "Invalid Case 25 Case 17
information" [Link] = "Aries" [Link] = "Aries"
End Select Case 26 Case 18
Case "March" [Link] = "Aries" [Link] = "Aries"
Select Case b Case 27 Case 19
Case 1 [Link] = "Aries" [Link] = "Aries"
[Link] = "Pisces" Case 28 Case 20
Case 2 [Link] = "Aries" [Link] = "Taurus"
[Link] = "Pisces" Case 29 Case 21
Case 3 [Link] = "Aries" [Link] = "Taurus"
[Link] = "Pisces" Case 30 Case 22
Case 4 [Link] = "Aries" [Link] = "Taurus"
[Link] = "Pisces" Case 31 Case 23
Case 5 [Link] = "Aries" [Link] = "Taurus"
[Link] = "Pisces" Case Else Case 24
Case 6 [Link] = "Invalid [Link] = "Taurus"
[Link] = "Pisces" information" Case 25
Case 7 End Select [Link] = "Taurus"
[Link] = "Pisces" Case 26
Case 8 Case "April" [Link] = "Taurus"
[Link] = "Pisces" Select Case b Case 27
Case 9 Case 1 [Link] = "Taurus"
[Link] = "Pisces" [Link] = "Aries" Case 28
Case 10 Case 2 [Link] = "Taurus"
[Link] = "Pisces" [Link] = "Aries" Case 29
Case 11 Case 3 [Link] = "Taurus"
[Link] = "Pisces" [Link] = "Aries" Case 30
Case 12 Case 4 [Link] = "Taurus"
[Link] = "Pisces" [Link] = "Aries" Case Else
Case 13 Case 5 [Link] = "Invalid
[Link] = "Pisces" [Link] = "Aries" information"
Case 14 Case 6 End Select
[Link] = "Pisces" [Link] = "Aries"
Case 15 Case 7 Case "May"
Select Case b Case 27 Case 19
Case 1 [Link] = "Gemini" [Link] = "Gemini"
[Link] = "Taurus" Case 28 Case 20
Case 2 [Link] = "Gemini" [Link] = "Gemini"
[Link] = "Taurus" Case 29 Case 21
Case 3 [Link] = "Gemini" [Link] = "Gemini"
[Link] = "Taurus" Case 30 Case 22
Case 4 [Link] = "Gemini" [Link] = "Cancer"
[Link] = "Taurus" Case 31 Case 23
Case 5 [Link] = "Gemini" [Link] = "Cancer"
[Link] = "Taurus" Case Else Case 24
Case 6 [Link] = "Invalid [Link] = "Cancer"
[Link] = "Taurus" information" Case 25
Case 7 End Select [Link] = "Cancer"
[Link] = "Taurus" Case 26
Case 8 Case "June" [Link] = "Cancer"
[Link] = "Taurus" Select Case b Case 27
Case 9 Case 1 [Link] = "Cancer"
[Link] = "Taurus" [Link] = "Gemini" Case 28
Case 10 Case 2 [Link] = "Cancer"
[Link] = "Taurus" [Link] = "Gemini" Case 29
Case 11 Case 3 [Link] = "Cancer"
[Link] = "Taurus" [Link] = "Gemini" Case 30
Case 12 Case 4 [Link] = "Cancer"
[Link] = "Taurus" [Link] = "Gemini" Case Else
Case 13 Case 5 [Link] = "Invalid
[Link] = "Taurus" [Link] = "Gemini" information"
Case 14 Case 6 End Select
[Link] = "Taurus" [Link] = "Gemini"
Case 15 Case 7 Case "July"
[Link] = "Taurus" [Link] = "Gemini" Select Case b
Case 16 Case 8 Case 1
[Link] = "Taurus" [Link] = "Gemini" [Link] = "Cancer"
Case 17 Case 9 Case 2
[Link] = "Taurus" [Link] = "Gemini" [Link] = "Cancer"
Case 18 Case 10 Case 3
[Link] = "Taurus" [Link] = "Gemini" [Link] = "Cancer"
Case 19 Case 11 Case 4
[Link] = "Taurus" [Link] = "Gemini" [Link] = "Cancer"
Case 20 Case 12 Case 5
[Link] = "Taurus" [Link] = "Gemini" [Link] = "Cancer"
Case 21 Case 13 Case 6
[Link] = "Gemini" [Link] = "Gemini" [Link] = "Cancer"
Case 22 Case 14 Case 7
[Link] = "Gemini" [Link] = "Gemini" [Link] = "Cancer"
Case 23 Case 15 Case 8
[Link] = "Gemini" [Link] = "Gemini" [Link] = "Cancer"
Case 24 Case 16 Case 9
[Link] = "Gemini" [Link] = "Gemini" [Link] = "Cancer"
Case 25 Case 17 Case 10
[Link] = "Gemini" [Link] = "Gemini" [Link] = "Cancer"
Case 26 Case 18 Case 11
[Link] = "Gemini" [Link] = "Gemini" [Link] = "Cancer"
Case 12 Case 4 [Link] = "Virgo"
[Link] = "Cancer" [Link] = "Leo" Case 31
Case 13 Case 5 [Link] = "Virgo"
[Link] = "Cancer" [Link] = "Leo" Case Else
Case 14 Case 6 [Link] = "Invalid
[Link] = "Cancer" [Link] = "Leo" information"
Case 15 Case 7 End Select
[Link] = "Cancer" [Link] = "Leo"
Case 16 Case 8 Case "September"
[Link] = "Cancer" [Link] = "Leo" Select Case b
Case 17 Case 9 Case 1
[Link] = "Cancer" [Link] = "Leo" [Link] = "Virgo"
Case 18 Case 10 Case 2
[Link] = "Cancer" [Link] = "Leo" [Link] = "Virgo"
Case 19 Case 11 Case 3
[Link] = "Cancer" [Link] = "Leo" [Link] = "Virgo"
Case 20 Case 12 Case 4
[Link] = "Cancer" [Link] = "Leo" [Link] = "Virgo"
Case 21 Case 13 Case 5
[Link] = "Cancer" [Link] = "Leo" [Link] = "Virgo"
Case 22 Case 14 Case 6
[Link] = "Cancer" [Link] = "Leo" [Link] = "Virgo"
Case 23 Case 15 Case 7
[Link] = "Leo" [Link] = "Leo" [Link] = "Virgo"
Case 24 Case 16 Case 8
[Link] = "Leo" [Link] = "Leo" [Link] = "Virgo"
Case 25 Case 17 Case 9
[Link] = "Leo" [Link] = "Leo" [Link] = "Virgo"
Case 26 Case 18 Case 10
[Link] = "Leo" [Link] = "Leo" [Link] = "Virgo"
Case 27 Case 19 Case 11
[Link] = "Leo" [Link] = "Leo" [Link] = "Virgo"
Case 28 Case 20 Case 12
[Link] = "Leo" [Link] = "Leo" [Link] = "Virgo"
Case 29 Case 21 Case 13
[Link] = "Leo" [Link] = "Leo" [Link] = "Virgo"
Case 30 Case 22 Case 14
[Link] = "Leo" [Link] = "Leo" [Link] = "Virgo"
Case 31 Case 23 Case 15
[Link] = "Leo" [Link] = "Virgo" [Link] = "Virgo"
Case Else Case 24 Case 16
[Link] = "Invalid [Link] = "Virgo" [Link] = "Virgo"
information" Case 25 Case 17
End Select [Link] = "Virgo" [Link] = "Virgo"
Case 26 Case 18
Case "August" [Link] = "Virgo" [Link] = "Virgo"
Select Case b Case 27 Case 19
Case 1 [Link] = "Virgo" [Link] = "Virgo"
[Link] = "Leo" Case 28 Case 20
Case 2 [Link] = "Virgo" [Link] = "Virgo"
[Link] = "Leo" Case 29 Case 21
Case 3 [Link] = "Virgo" [Link] = "Virgo"
[Link] = "Leo" Case 30 Case 22
[Link] = "Virgo" [Link] = "Libra" [Link] = "Scorpio"
Case 23 Case 16 Case 8
[Link] = "Libra" [Link] = "Libra" [Link] = "Scorpio"
Case 24 Case 17 Case 9
[Link] = "Libra" [Link] = "Libra" [Link] = "Scorpio"
Case 25 Case 18 Case 10
[Link] = "Libra" [Link] = "Libra" [Link] = "Scorpio"
Case 26 Case 19 Case 11
[Link] = "Libra" [Link] = "Libra" [Link] = "Scorpio"
Case 27 Case 20 Case 12
[Link] = "Libra" [Link] = "Libra" [Link] = "Scorpio"
Case 28 Case 21 Case 13
[Link] = "Libra" [Link] = "Libra" [Link] = "Scorpio"
Case 29 Case 22 Case 14
[Link] = "Libra" [Link] = "Libra" [Link] = "Scorpio"
Case 30 Case 23 Case 15
[Link] = "Libra" [Link] = "Scorpio" [Link] = "Scorpio"
Case Else Case 24 Case 16
[Link] = "Invalid [Link] = "Scorpio" [Link] = "Scorpio"
information" Case 25 Case 17
End Select [Link] = "Scorpio" [Link] = "Scorpio"
Case 26 Case 18
Case "October" [Link] = "Scorpio" [Link] = "Scorpio"
Select Case b Case 27 Case 19
Case 1 [Link] = "Scorpio" [Link] = "Scorpio"
[Link] = "Libra" Case 28 Case 20
Case 2 [Link] = "Scorpio" [Link] = "Scorpio"
[Link] = "Libra" Case 29 Case 21
Case 3 [Link] = "Scorpio" [Link] = "Scorpio"
[Link] = "Libra" Case 30 Case 22
Case 4 [Link] = "Scorpio" [Link] = "Sagittarius"
[Link] = "Libra" Case 31 Case 23
Case 5 [Link] = "Scorpio" [Link] = "Sagittarius"
[Link] = "Libra" Case Else Case 24
Case 6 [Link] = "Invalid [Link] = "Sagittarius"
[Link] = "Libra" information" Case 25
Case 7 End Select [Link] = "Sagittarius"
[Link] = "Libra" Case 26
Case 8 Case "November" [Link] = "Sagittarius"
[Link] = "Libra" Select Case b Case 27
Case 9 Case 1 [Link] = "Sagittarius"
[Link] = "Libra" [Link] = "Scorpio" Case 28
Case 10 Case 2 [Link] = "Sagittarius"
[Link] = "Libra" [Link] = "Scorpio" Case 29
Case 11 Case 3 [Link] = "Sagittarius"
[Link] = "Libra" [Link] = "Scorpio" Case 30
Case 12 Case 4 [Link] = "Sagittarius"
[Link] = "Libra" [Link] = "Scorpio" Case Else
Case 13 Case 5 [Link] = "Invalid
[Link] = "Libra" [Link] = "Scorpio" information"
Case 14 Case 6 End Select
[Link] = "Libra" [Link] = "Scorpio"
Case 15 Case 7 Case "December"
Select Case b Case 27 Settings\DAS\Desktop\vb_zodiac\
Case 1 [Link] = "Capricorn" pisces_horoscope.jpg")
[Link] = "Sagittarius" Case 28 [Link] =
Case 2 [Link] = "Capricorn" LoadPicture("C:\Documents and
[Link] = "Sagittarius" Case 29 Settings\DAS\Desktop\vb_zodiac\
Case 3 [Link] = "Capricorn" pisces_zodiac_sign.jpg")
[Link] = "Sagittarius" Case 30 ElseIf [Link] = "Aries" Then
Case 4 [Link] = "Capricorn" [Link] = "The Ram"
[Link] = "Sagittarius" Case 31 [Link] = "Mars"
Case 5 [Link] = "Capricorn" [Link] = "Fire"
[Link] = "Sagittarius" Case Else [Link] =
Case 6 [Link] = "Invalid LoadPicture("C:\Documents and
[Link] = "Sagittarius" information" Settings\DAS\Desktop\vb_zodiac\
Case 7 End Select aries_horoscope.jpg")
[Link] = "Sagittarius" Case Else [Link] =
Case 8 [Link] = "Invalid LoadPicture("C:\Documents and
[Link] = "Sagittarius" Information" Settings\DAS\Desktop\vb_zodiac\
Case 9 End Select aries_zodiac_sign.jpg")
[Link] = "Sagittarius" End If ElseIf [Link] = "Taurus" Then
Case 10 [Link] = "The Bull"
[Link] = "Sagittarius" If [Link] = "Capricorn" Then [Link] = "Venus"
Case 11 [Link] = " The Sea [Link] = "Earth"
[Link] = "Sagittarius" Goat" [Link] =
Case 12 [Link] = "Saturn" LoadPicture("C:\Documents and
[Link] = "Sagittarius" [Link] = "Earth" Settings\DAS\Desktop\vb_zodiac\t
Case 13 [Link] = aurus_horoscope.jpg")
[Link] = "Sagittarius" LoadPicture("C:\Documents and [Link] =
Case 14 Settings\DAS\Desktop\vb_zodiac\ LoadPicture("C:\Documents and
[Link] = "Sagittarius" capricorn_horoscope.jpg") Settings\DAS\Desktop\vb_zodiac\t
Case 15 [Link] = aurus_zodiac_sign.jpg")
[Link] = "Sagittarius" LoadPicture("C:\Documents and ElseIf [Link] = "Gemini" Then
Case 16 Settings\DAS\Desktop\vb_zodiac\ [Link] = "The Twins"
[Link] = "Sagittarius" capricorn_zodiac_sign.jpg") [Link] = "Mercury"
Case 17 ElseIf [Link] = "Aquarius" [Link] = "Air"
[Link] = "Sagittarius" Then [Link] =
Case 18 [Link] = "The Water LoadPicture("C:\Documents and
[Link] = "Sagittarius" Bearer" Settings\DAS\Desktop\vb_zodiac\
Case 19 [Link] = "Uranus" gemini_horoscope.jpg")
[Link] = "Sagittarius" [Link] = "Air" [Link] =
Case 20 [Link] = LoadPicture("C:\Documents and
[Link] = "Sagittarius" LoadPicture("C:\Documents and Settings\DAS\Desktop\vb_zodiac\
Case 21 Settings\DAS\Desktop\vb_zodiac\ gemini_zodiac_sign.jpg")
[Link] = "Sagittarius" aquarius_horoscope.jpg") ElseIf [Link] = "Cancer" Then
Case 22 [Link] = [Link] = "The Crab"
[Link] = "Capricorn" LoadPicture("C:\Documents and [Link] = "Moon"
Case 23 Settings\DAS\Desktop\vb_zodiac\ [Link] = "Water"
[Link] = "Capricorn" aquarius_zodiac_sign.jpg") [Link] =
Case 24 ElseIf [Link] = "Pisces" Then LoadPicture("C:\Documents and
[Link] = "Capricorn" [Link] = "The Fish" Settings\DAS\Desktop\vb_zodiac\
Case 25 [Link] = "Neptune" cancer_horoscope.jpg")
[Link] = "Capricorn" [Link] = "Water" [Link] =
Case 26 [Link] = LoadPicture("C:\Documents and
[Link] = "Capricorn" LoadPicture("C:\Documents and
Settings\DAS\Desktop\vb_zodiac\ [Link] = "The Archer"
cancer_zodiac_sign.jpg") [Link] = "Jupiter"
ElseIf [Link] = "Leo" Then [Link] = "Fire"
[Link] = "The Lion" [Link] =
[Link] = "Sun" LoadPicture("C:\Documents and
[Link] = "Fire" Settings\DAS\Desktop\vb_zodiac\
[Link] = sagittarius_horoscope.jpg")
LoadPicture("C:\Documents and [Link] =
Settings\DAS\Desktop\vb_zodiac\l LoadPicture("C:\Documents and
eo_horoscope.jpg") Settings\DAS\Desktop\vb_zodiac\
[Link] = sagittarius_zodiac_sign.jpg")
LoadPicture("C:\Documents and End If
Settings\DAS\Desktop\vb_zodiac\l
eo_zodiac_sign.jpg") End Sub
ElseIf [Link] = "Virgo" Then
[Link] = "The Virgin"
[Link] = "Mercury"
[Link] = "Earth"
[Link] =
LoadPicture("C:\Documents and
Settings\DAS\Desktop\vb_zodiac\
virgo_horoscope.jpg")
[Link] =
LoadPicture("C:\Documents and
Settings\DAS\Desktop\vb_zodiac\
virgo_zodiac_sign.jpg")
ElseIf [Link] = "Libra" Then
[Link] = "The Scale"
[Link] = "Venus"
[Link] = "Air"
[Link] =
LoadPicture("C:\Documents and
Settings\DAS\Desktop\vb_zodiac\l
ibra_horoscope.jpg")
[Link] =
LoadPicture("C:\Documents and
Settings\DAS\Desktop\vb_zodiac\l
ibra_zodiac_sign.jpg")
ElseIf [Link] = "Scorpio" Then
[Link] = "The
Scorpion"
[Link] = "Mars"
[Link] = "Water"
[Link] =
LoadPicture("C:\Documents and
Settings\DAS\Desktop\vb_zodiac\
scorpio_horoscope.jpg")
[Link] =
LoadPicture("C:\Documents and
Settings\DAS\Desktop\vb_zodiac\
scorpio_zodiac_sign.jpg")
ElseIf [Link] = "Sagittarius"
Then

You might also like