Snyder 20 October ’99

Sign Finder: The SignFinder program will be discussed in class. Sign Finder has the following graphic interface

Zodiac Range: The goal is to present the user with a set of 12 radio buttons corresponding to the Zodiac signs, and when one is pressed, to print out the starting and ending dates of that sign. The main task is to construct the form to have the 12 radio buttons, one command button and five labels. Zodiac Range has the following graphic interface

1. Initiate a project and a form template.
2. Revise the form’s name to "frmZodiac". The ".frm" extension will be added automatically.
3. Save the form and the project, selecting "Zodiac" as the project name. The ".vbp" extension will be added automatically.
4. Adopt a new background color, and any other form-based customization that you think is appropriate, like a decent font and font color.
5. Double click on the form to bring up the code window.
6. After the Option Explicit line or at the top of the code window if the Option Explicit is not shown, enter the variable declarations,

Dim loMo As String

Dim hiMo As String

Dim loDate As Integer

Dim hiDate As Integer

Notice how the word completion tries to assist after the "As" is entered. The two string variables will represent the two months that the astrological sign spans, and the two integer variables will represent the starting and ending days. So, for Leo loMo will be assigned the value "July " and hiMo will be assigned "August ". The loDate variable will be assigned 23 and the hiDate will be assigned 22.



 

 

 

 

 

 

7. In the form, place the 12 option or radio buttons, naming each with a new name. The name should begin with the letters "opt" and be followed by the first three letters of the sign. The name for the Aries button will be optAri. Change the caption on the button to the intended Zodiac sign. Correct the background color, font and any other features of the button.
8. Once the buttons are defined, place labels for the text lines on the form:

"Enter your Zodiac sign"

"You were born between"

"starting date"

"and"

"ending date"

Name the labels lblHead, lblBorn, lblSDate, lblAnd, lblEDate, respectively. Correct the fonts, background colors and any other needed properties. The last four labels should be hidden, i.e. have their visibility property set to "false".

Click on each radio button to bring up the "click event" handler for that button. Customize it by setting the loMo to the starting month (followed by a space) in quotes, hiMo to the ending month (followed by a space) in quotes, loDate to the starting day for the sign, and hiDate for the ending day for the sign. The extra space is included so the day doesn’t smash into the month when printed out. For example, the Aries "click event" handler would be

Private Sub optAri_Click()

loMo = "March "

hiMo = "April "

loDate = 21

hiDate = 19

End Sub

There is one further trick that can be used to make the text appear more natural when it is printed. Assume that the start date precedes the " and ", which is followed by the end date. If these are all printed on the same line, and the start date is right justified, then the two dates will "hug" the "and" and make the text appear without spaces.

Start date right justified à

" and "

ß End date left justified

9. Finally, add a command button, renamed cmdOK and captioned &OK. Modify its visual properties appropriately. Click on the OK command button to bring up the cmdOK_Click procedure. Set the start and end dates by changing the captions as follows: