fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

So cool^^

Uploader:	AndT
Datum/Zeit:	02.11.2007 20:07:48

DIM SHARED AS SINGLE circlex, circley,fx1

dim as integer sw,sw2

SCREENres 320,240



DO



if sw=0 then circlex-=1 else circlex+=1

if sw2=0 then circley-=1 else circley+=1

if circlex < INT(RND * 5)+1 then sw = 1

if circlex > 320 then sw = 0

if circley < INT(RND * 5)+1 then sw2 = 1

if circley > 240 then sw2=0

fx1+=1

CIRCLE (circlex, circley), 10, 64+fx1 mod 64



LOOP UNTIL INKEY$ = "Q" or INKEY$ = "Q"

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.