i am stuck with how to offer the bank offer...as such you know how it goes in the game...that when the bag opened has less amount of money, the bank offer would be higher..and if amount opened is more, then the bank offer is low...now i basically need help with that...
i know there are more ifs and thens...but thats wat i have been taught...the thing is..where i study, they didnt teach us C++ nor Visual Basic...the only thing my sir does is giving us exercises and explore on our own...but honestly i dont know anything...
sorry about the codes that are placed improperly...
the codes are below:
CODE
Form 1
Private Sub cmdStart_Click()
Form1.Hide
Form2.Show
End Sub
Form 2
Dim X As Integer
Dim Randomamount As Integer
Private Sub cmdClear_Click()
lblResult.Caption = ""
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdNext_Click()
'After winning some amount of money, the user can either move on with the same round twice or may go to a next level.
End Sub
Private Sub cmdPrint_Click()
PrintForm
End Sub
Private Sub Form_Load()
Randomize X
X = Randomamount
End Sub
Private Sub Option1_Click()
If Option1.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option2_Click()
If Option2.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option3_Click()
If Option3.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option4_Click()
If Option4.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option5_Click()
If Option5.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option6_Click()
If Option6.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option7_Click()
If Option7.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option8_Click()
If Option8.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option9_Click()
If Option9.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option10_Click()
If Option10.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option11_Click()
If Option11.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option12_Click()
If Option12.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option13_Click()
If Option13.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option14_Click()
If Option14.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option15_Click()
If Option15.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option16_Click()
If Option16.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option17_Click()
If Option17.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option18_Click()
If Option18.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option19_Click()
If Option19.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
Private Sub Option20_Click()
If Option20.Enabled Then lblResult.Caption = "You have some amount in this. This bag is yours! Click on next button to proceed."
Else: lblResult.Caption = " "
End If
End Sub
This post has been edited by MissDesiChick: 15 Jan, 2008 - 11:03 AM
The codes are written below..
| 