Een concentriisch circle in plaats van vele (vb6)

[satriano]

Dag
met onderstande code genereren ik concentrisch circles in een picture
dus vele circles na elkaar. Ed dat is ok.
Ik wou nu, in plaats van vele circles een enkel circle te genereren die,
van het centrum nog steeds groter wordt tot max breedte (r) en, zolas nu, begint weer .
Maar, zoals gezegd, in plaats van vele circles een enkel circle.
dank u
satriano

Private r As Integer
Private richting As Boolean
Private Sub Timer1_Timer()

 r = r + 100 ' tussen circles
    If r = 1700 Then ' max breedte circles
        Picture1.Cls
        r = 100 ' breedte eertste circle
    End If
    kleur = vbRed
    Picture1.Circle (1000, 1000), r, kleur
End Sub

dus EEN circle di steeds groter wordt vanuit het centrum tot het maximum en dan begint opnieuw van het centrum tot ik het stopt

 

[kostenzer]

Misschien Picture1.Cls verplaatsen?

Private r As Integer
Private richting As Boolean
Private Sub Timer1_Timer()

Picture1.Cls
 r = r + 100 ' tussen circles
    If r = 1700 Then ' max breedte circles
        
        r = 100 ' breedte eertste circle
    End If
    kleur = vbRed
    Picture1.Circle (1000, 1000), r, kleur
End Sub

of

Private r As Integer
Private richting As Boolean
Private Sub Timer1_Timer()


 r = r + 100 ' tussen circles
    If r = 1700 Then ' max breedte circles
        
        r = 100 ' breedte eertste circle
    End If
    kleur = vbRed
    Picture1.Cls
    Picture1.Circle (1000, 1000), r, kleur
End Sub

 

[satriano]

Perfect kostenzer. Het was simpel en toch had ik niet aan gedacht. Dank u. Nu toch wij bezig zijn zou te moelijk zijn om telkens de circle in een andere kleur te tekenen? Bv steeds afwisselend in vbred , vbgreen,vb vbblauw? In elke geval nog bedankt voor de oplossing van de eerste probleem.

 

[kostenzer]

De gewenste kleuren in een array zetten https://msdn.microsoft.com/en-us/library/wak0wfyt.aspx
en dan kun je kleur = vbRed steeds een andere kleur toekennen.

 

[satriano]

Het is mij niet gelukt om een array integreren. Nog niet toch.

 

[kostenzer]

Hmm,

En dan te bedenken dat ik vb nog nooit gebruikt heb......
Maar hier staat je oplossing bijna:
http://www.dotnetperls.com/array-vbnet

met de eerste twee moet je toch al een heel stuk komen.

Nog even verder gezocht:
http://www.techotopia.com/index.php/Visual_Basic_Arrays

https://www.youtube.com/watch?v=gKiNGZMuqI0

Ben benieuwd of het je nu gaat lukken.