Keskustelu: Koodit: QB: Pixel

' Pixel v.0.1
' Mark Mäkinen
' 2007
' _________________

RANDOMIZE TIMER      ' Asetetaan siemenluvuksi timer
SCREEN 12            ' Vaihdetaan näyttötilaa..
CLS                  ' Näyttö tyhjäksi

PRINT " PIXEL"       ' \
PRINT "*******"      '  -- Teksti 1
PRINT " 2007"        ' /
SLEEP 1

DO                   ' aloitetaan looppi

        X = INT((70 - 1) * RND - 1)      ' Arvotaan X
        Y = INT((60 - 1) * RND - 1)      ' Arvotaan Y
                PSET (X, Y), 0           ' Piirretään piste...
                A! = TIMER                                       ' \
                        DO WHILE A! + .000000000000001# > TIMER  '  - hidastus
                LOOP                                             ' /
        KERTA = KERTA + 1     ' nostetaan KERTA- lukua
LOOP UNTIL KERTA = 100001     ' toistetaan, kunnes KERTA on 100001

CLS

KERTA = 0                     ' nollataan KERTA

PRINT "PIXEL BY:"             ' \
PRINT " MARK"                 '  -- Teksti 2
PRINT "MŽKINEN"               ' /
SLEEP 1

DO                            ' Taas looppi...

        X = INT((71 - 1) * RND - 1)           ' - X ja Y
        Y = INT((60 - 1) * RND - 1)           ' /
                PSET (X, Y), 0                ' Pisteen piirto..
                A! = TIMER                                      '\
                        DO WHILE A! + .000000000000001# > TIMER ' - Hidastus
                LOOP                                            '/
        KERTA = KERTA + 1          ' Kasvatetaan taas KERTA:a
LOOP UNTIL KERTA = 100001          ' ...kunnes KERTA on 100001

' Loppu!