fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Meine erste Demo xD

Uploader:	AndT
Datum/Zeit:	14.10.2007 21:55:41

sub drawnix

    color 15

    locate 1,1:print "Nix:p"

    for x as integer = 1 to 16*6

        for y as integer = 1 to 16

            if  point(x,y)=15 then circle (x*16+0,200+y*y),2

        next

    next

    locate 1,1:print "     "

end sub







screen 18

dim as string text1="AndT Presentiert... "

dim as string tmpstr

dim as integer i,farbe,ttx

do

    ttx+=1

    if ttx=2000 then drawnix

    i+=1

    i = i mod len(text1)

    farbe+=1

    farbe = farbe mod 256

    tmpstr=mid(text1,i,1)

    locate 3,30+i

    color farbe

    print tmpstr



    sleep 1

    loop until inkey=chr(27)

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.