fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Meine zweite Demo (besser)

Uploader:	AndT
Datum/Zeit:	14.10.2007 22:12:37

sub drawnix

    dim as integer c



    color 15

    locate 1,1:print "Nix:p"

    for x as integer = 1 to 48



    for y as integer = 1 to 16

    c=16+x mod 15

    color c

            if  point(x,y)=15 then circle (x*16+8,200+y*y),15,,,,,f

        next

    next

    locate 1,1:print "     "

end sub







screen 18

dim as string text1="AndT praesenstiert."

dim as string tmpstr

dim as integer i,ttx

dim as double farbe

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.