I created a simple program for animation direction in visual basic.
but as I can is clockwise.
then how do I make it in the counter clockwise ?
this my listing program :

Private Sub Command3_Click()
'animasi searah jarum jam
Cls
Form1.DrawWidth = 30
For i = 1 To 5
Line (150, 100)-(300, 100), vbYellow: Delay: Cls
Line (300, 100)-(450, 100), vbGreen: Delay: Cls
Line (450, 100)-(450, 200), vbRed: Delay: Cls
Line (450, 200)-(450, 300), vbWhite: Delay: Cls
Line (450, 300)-(300, 300), vbBlue: Delay: Cls
Line (300, 300)-(150, 300), vbBlack: Delay: Cls
Line (150, 300)-(150, 200), vbCyan: Delay: Cls
Line (150, 200)-(150, 100), vbMagenta: Delay: Cls
Next
End Sub

Thnx so much.

Recommended Answers

All 4 Replies

Just add a new button and stick in this?

Cls
Form1.DrawWidth = 30
For i = 1 To 5
Line (150, 200)-(150, 100), vbMagenta: Delay: Cls
Line (150, 300)-(150, 200), vbCyan: Delay: Cls
Line (300, 300)-(150, 300), vbBlack: Delay: Cls
Line (450, 300)-(300, 300), vbBlue: Delay: Cls
Line (450, 200)-(450, 300), vbWhite: Delay: Cls
Line (450, 100)-(450, 200), vbRed: Delay: Cls
Line (300, 100)-(450, 100), vbGreen: Delay: Cls
Line (150, 100)-(300, 100), vbYellow: Delay: Cls
Next

All I did was reverse the order. Try It, not garunteeing that it will work.

Cls
Form1.DrawWidth = 30
For i = 1 To 5
Line (150, 200)-(150, 100), vbMagenta: Delay: Cls
Line (150, 300)-(150, 200), vbCyan: Delay: Cls
Line (300, 300)-(150, 300), vbBlack: Delay: Cls
Line (450, 300)-(300, 300), vbBlue: Delay: Cls
Line (450, 200)-(450, 300), vbWhite: Delay: Cls
Line (450, 100)-(450, 200), vbRed: Delay: Cls
Line (300, 100)-(450, 100), vbGreen: Delay: Cls
Line (150, 100)-(300, 100), vbYellow: Delay: Cls
Next

Thnx mate, i will try :D
Thx so much again ^^

Yeah, its work mate...
thnx so much for ur help :D

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.