elham99
سه شنبه 21 آبان 1392, 11:55 صبح
Praivate sub Timer4_Tick(ByVal sender As system.object,byval e as system.eventArgs) Handles Timer4Tick
Dim max as integer = 80
Dim rnd as New Random
Dim rand as integer =rnd.next (1,max +1)
Dim number (max -1) as integer
Dim i as integer =1
for i=0 to max - 1
if number (i) = rand Then
rand=rnd.next (1,max +1)
i=-1
elseif number(i) = 0 then
number(i) =rand
rand=rnd.next (1,max +1)
if i=max-1 then
exit for
end if
i=-1
end if
next
Timer4.Interval=number(i)
i+=1
call Image()
end Sub
:گیج:
Dim max as integer = 80
Dim rnd as New Random
Dim rand as integer =rnd.next (1,max +1)
Dim number (max -1) as integer
Dim i as integer =1
for i=0 to max - 1
if number (i) = rand Then
rand=rnd.next (1,max +1)
i=-1
elseif number(i) = 0 then
number(i) =rand
rand=rnd.next (1,max +1)
if i=max-1 then
exit for
end if
i=-1
end if
next
Timer4.Interval=number(i)
i+=1
call Image()
end Sub
:گیج: