Posted on 2000-05-02
first off i did not want the whole program written for me...this is what i have so far...
i need to know why my option buttons are not working properly?
This is my second form.my optCD=CD selection option button and my optTape=Tape selection
what i need it to do is read from my data file to determine if the choice they have selected from the combo-box comes in a Tape or a CD...If there selection is not available in Tape when they select the Tape option or CD when they select the CD option then i need an appropriate message-box to say that it is not available...If it is available then they are ok...I assigned the Genre variable in my data file to the Tape and CD part.
This is a copy of my data file i have created:(hey do not laugh...our teacher has a strong imagination)
"My baby drives a Fisher Price 4x4",5,39.95,"CD"
"Instant Cornbread Blues",3,47.00,"CD"
"Early to bed,early to rise,early to class,yeah...whatever",12,21.95,"Tape"
"Sweatin in da Kitchen",0,115.95,"Tape"
"Robert,O Robert, why didn't we retire?",5,33.50,"Tape"
"Leather and Chains",0,55.10,"CD"
"If it aint gotta heel,then it aint called a shoe",11,125.00,"Tape"
"Doing the twist...Microsoft style",1,5.32,"CD"
Private Sub Check1_Click()
txtComment.Visible = True
Private Sub cmdRum_Click()
Dim Song As String
Dim Quantity As Integer
Dim Price As Integer
Dim Genre As String
Dim x As Boolean
x = True
Open "a:\music store.txt" For Input As #1
Do While Song <> Combo1.Text
Input #1, Song, Quantity, Price, Genre
If Song <> Combo1.Text Then
MsgBox ("bet you wish I had it")
x = False
If txtQuantity > Quantity Then
MsgBox "Sold Out"
x = False
If Option1.Value = True And Genre = "Tape" Then
MsgBox "Not available as CD"
If Option2.Value = True And Genre = "CD" Then
MsgBox "Not available as Tape"
If x = True Then