Keskustelu: Koodit: VB6: Pyörivä n kulmio

'Muuttujat
Dim keskiX As Integer
Dim keskiY As Integer
Dim etäisyys As Integer
Dim kulma As Integer
Dim kulmio As Integer
Dim väli As Integer

Private Sub aikarauta_Timer()
    'Pyöritetään
    If kulma < 360 Then
        kulma = kulma + 1
    Else
        kulma = 0
    End If

    kuva.Cls 'Tyhjennetään kuva

    'Propsit Vohvelille Sin/Cos systeemistä ja Soodalle radiaanen käytöstä
    For a = 0 To kulmio 'jokainen kulma piirretään
        kuva.Line (keskiX + Sin(((väli * a) + kulma) * Atn(1) / 45) * etäisyys, keskiY + -Cos(((väli * a) + kulma) * Atn(1) / 45) * etäisyys)-(keskiX + Sin(((väli * (a - 1)) + kulma) * Atn(1) / 45) * etäisyys, keskiY + -Cos(((väli * (a - 1)) + kulma) * Atn(1) / 45) * etäisyys)
    Next a
End Sub

Private Sub Form_Load()
    keskiY = 100 'keskikohta
    keskiX = 100 'keskikohta
    etäisyys = 70 'koko
    kulma = 30 'aloituskulma
    kulmio = 5 'kulmien lukumäärä
    väli = (360 / kulmio) 'Lasketaan kulmien väli

    aikarauta.Interval = 1 'Piirtonopeus
    kuva.ScaleMode = 3 'pixel
    kuva.AutoRedraw = True 'päivitetään kuvaa automaattisesti
End Sub