Need Help ASAP.... plz plz plz plz help me out

[HackerXxX]

i got mini project i need help asap there question as fallows


design a form to create a mini game to color a picture created using shape control, use the timer to set the time duration to color the picture?

plz plz plzz replay me this form design program plzz i need it asap plzz...

[HanneSThEGreaT]

Seems like homework....

Show us what code you have got, then, we take it from there

[GremlinSA]

On how to use the timer you could look at the Bare Basics of the Timer Article here on CG..

[HackerXxX]

they just show ur practical
in which they use MDI form and ... there children

i done that with 2 clock but teacher telling me make it wild 1 clock ..... can u tell me plzzz

[dglienna]

You'll have to post the code, along with any problems. We won't WRITE it for you, but we can HELP YOU if there is a problem.

' Use CODE TAGS like this
'         So WE can read your code

[HackerXxX]

I this much but i geting error in

lable1.Caption = Format$(Now, "ss") line which came in yellow color can u help me plzz

Dim a As Integer

Private Sub Command1_Click()
Timer1.Enabled = True


End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()
lable1.Caption = Format$(Now, "ss")
a = Format$(Now, "ss")
If (a Mod 2 = 0) Then
Shape1.BackColor = vbRed
Shape2.BackColor = vbBlue
Else
Shape1.BackColor = vbBlue
Shape2.BackColor = vbRed
End If

End Sub

[DataMiser]

lable1.Caption = Format$(Now, "ss")

It would work much better if you spelled it correctly.

[HackerXxX]

it's just Blue and red ...... but i am want to switch them in rainbow color how to do that ?? can u tell me plzz... means which thing need to add in this coding

Code:

Dim a As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format$(Now, "ss")
a = Format$(Now, "ss")
If (a Mod 2 = 0) Then
Shape1.BackColor = vbRed
Shape2.BackColor = vbBlue
Else
Shape1.BackColor = vbBlue
Shape2.BackColor = vbRed
End If
End Sub

[DataMiser]

You would need to add more colors and change your code a bit where the mod() is used.

example:

x=a mod(5)
select case x
   Case 0
   Case 1
   Case 2
   Case 3
   Case 4
 End Select

Put your colors under the proper case and you can get 5 different sets with the example above. Of course you can play with the values to make it more or less.

[HackerXxX]

hmmm i try but i didnt got... can u post that case along with coding .....

[DataMiser]

No I am not coding it for you. Put your code to change colors in between the case statements. If you do not understand case statements then look it up and do a little reading on the subject so you can understand them better.

[dglienna]

or Press F8 repeatedly, and the program will STEP one line at a time thru the code. It will go to the case statement that you use.