tag:blogger.com,1999:blog-78359832011-04-21T14:00:09.416-07:00mj_tigerhttp://www.blogger.com/profile/01002862317197715636noreply@blogger.comBlogger21100tag:blogger.com,1999:blog-7835983.post-1093355877499029762004-08-24T06:48:00.000-07:002004-08-24T06:57:57.500-07:00salam <br />in code ye mosalas ba hal rasm mikoneh <br />faghat nazar bedin <br />needed 2lines , 2 timer interavel 1000 <br /> <br />Dim Y, Z, P, Q <br />Private Sub Form_Load() <br />Timer1.Enabled = False <br />Y = 0 <br />Z = 0 <br />Q = 11 <br />P = 11 <br />Line1.X1 = 0 <br />Line1.X2 = 0 <br />Line1.Y1 = 0 <br />Line1.Y2 = 10 <br />Line2.X1 = 0 <br />Line2.X2 = 10 <br />Line2.Y1 = 0 <br />Line2.Y2 = 0 <br />End Sub <br />Private Sub Timer1_Timer() <br />Me.Scale (-10, 10)-(10, -10) <br />Dim k, j, h As Integer <br />Randomize Timer <br />k = Rnd * 255: j = Rnd * 255: k = Rnd * 255On Error GoTo a <br />Static x <br />Y = Y - 0.5 <br />x = x + 0.5 <br />Me.Line (x, -10)-(10, -Y), RGB(k, j, h) <br />Static V <br />Z = Z - 0.5 <br />V = V + 0.5 <br />Me.Line (Z, -10)-(10, -V), RGB(k, j, h) <br />If Z = -10 Then Timer1.Enabled = False <br />a:Exit SubEnd Sub <br />Private Sub Timer2_Timer() <br />Dim k, j, h As Integer <br />Randomize Timer <br />k = Rnd * 255: j = Rnd * 255: k = Rnd * 255 <br />Static u <br />u = u + 0.5 <br />P = P - 0.5 <br />Me.Line (u, 0)-(0, P), RGB(k, j, h) <br />If P = 1 Then Timer2.Enabled = False: Timer1.Enabled = True <br />Static w <br />Q = Q - 0.5 <br />w = w + 0.5 <br />Me.Line (Q, 0)-(0, w), RGB(k, j, h) <br />If Q = 1 Then Timer2.Enabled = False: Timer1.Enabled = True <br />End Sub <br /><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/7835983-109335587749902976?l=majidvb6.blogspot.com' alt='' /></div>mj_tigerhttp://www.blogger.com/profile/01002862317197715636noreply@blogger.com5tag:blogger.com,1999:blog-7835983.post-1091467221912392752004-08-02T10:12:00.000-07:002004-08-02T10:20:21.913-07:00ba salam man az emroz beh soealat vb6 javabe midam va <br /> shoroe mikonam be amozesh. <br />bye <br />mj_tiger_20@yahoo.com <br /><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/7835983-109146722191239275?l=majidvb6.blogspot.com' alt='' /></div>mj_tigerhttp://www.blogger.com/profile/01002862317197715636noreply@blogger.com0