Keskustelu: Ohjelmointikysymykset: VB6: Kysymyts(vb)

LL [07.01.2003 18:39:29]

Olen tehnyt ympyrän(ympyrä) ja nyt haluaisin sen pyörivän ympyrää ruudulla. Onnistuis noilla Sinillä ja Cosilla mutta en osaa käytää niitä. Siis jos ette ymmärtäneet tuota lentorataa niin se olisi samallainen kun kuulla kun se kiertää maata.

edit. Ostiskko meni vähän perseelleen. Pitäisköhän opetella kirjoittamaan...

Antti [07.01.2003 18:57:36]

Missähän ympyrän(ympyrä) mahtaa sijaita? Picture boxissa? Formin taustakuvana?

LL [07.01.2003 20:28:51]

picture boxissa

Antti Laaksonen [07.01.2003 20:41:46]

Tämä koodi pyörittää pictureboxia (Picture1) formin ympäri. Formin ja pictureboxin koko otetaan huomioon pyörimisradan laskemisessa.

Private Sub Form_Activate()
    'muuttujat
    Dim kx As Single, ky As Single 'keskipiste
    Dim pii As Single, a As Single 'pii ja hidaste
    pii = 4 * Atn(1)
    'silmukka
    Do
        'lasketaan keskipiste
        kx = Me.Width / 2: ky = Me.Height / 2
        For i = 0 To 2 * pii Step 0.01
            'pictureboxille uusi paikka
            With Picture1
                .Move kx + Sin(i) * kx * 0.8 - .Width / 2, ky + Cos(i) * ky * 0.8 - .Height / 2
            End With
            'pieni hidaste
            a = Timer
            Do Until a <> Timer
                DoEvents
            Loop
        Next
    Loop
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen