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

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...

Seems like homework....

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

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

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

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.

Code:

---

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

---

I this much but i geting error in

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

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 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

---

Quote:

---

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

---

It would work much better if you spelled it correctly.

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:

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

---

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

example:

Code:

---

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.

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

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.

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.