Keskustelu: Koodit: QB: Jonkinlainen vesianimaatio

Tässä on jonkinlainen veden virtaus animaatio...

SCREEN 13
RANDOMIZE TIMER
DO
a$ = INKEY$
co = INT(RND * 4) + 75
roo = INT(RND * 400) + 1
ree = INT(RND * 300) + 1
LINE (ree, roo)-(roo, ree), co
IF a$ = CHR$(27) THEN EXIT DO
LOOP
PRINT "Tehnyt: D-Ware"

Miten oikein saa ilman CLS käskyä pois vaikka CIRCLEn?

Piirrät taustan värisen circlen

Tai jos sinulla on vaikka sininen CIRCLE, kokeile:
PALETTE 1,0
Eli ekaksi sinisen väri, ja sitten sen väri, miksi haluat muuttaa sen (vai oliko se nyt toisinpäin..?).

Voisko joku tehdä mulle koodinimen tekijän? Koodinimestä pitäisi tulla tälläinen = Joku kirjain, joku kirjain, -, joku numero, joku numero, joku numero

"voisiko joku tehdä mulle sitä ja tätä..."

Tehkää ite, sitähän varten ohjelmoidaan!

Tästäkin vinkistä saisi paremman lisäämällä LOOPin perään UNTIL INKEY$ <> ""

aika hieno...lainaten tomaattigeeniä - ei kaikki osaa - kuten en minäkään...

Outo... Mut on tos jotain hienoa.

Voin tehä paladinille sellasen ohjelman. Ei oo vaikeeta.

RANDOMIZE TIMER
kirjaina = INT(RND * 29)
kirjainb = INT(RND * 29)
numa = INT(RND * 10)
numb = INT(RND * 10)
numc = INT(RND * 10)
IF kirjaina = 0 THEN PRINT "a";
IF kirjaina = 1 THEN PRINT "b";
IF kirjaina = 2 THEN PRINT "c";
IF kirjaina = 3 THEN PRINT "d";
IF kirjaina = 4 THEN PRINT "e";
IF kirjaina = 5 THEN PRINT "f";
IF kirjaina = 6 THEN PRINT "g";
IF kirjaina = 7 THEN PRINT "h";
IF kirjaina = 8 THEN PRINT "i";
IF kirjaina = 9 THEN PRINT "j";
IF kirjaina = 10 THEN PRINT "k";'etc, etc, etc, etc...

IF kirjainb = 0 THEN PRINT "a";
IF kirjainb = 1 THEN PRINT "b"; 'etc, etc, etc...

IF numa = 0 THEN PRINT "0";
IF numa = 1 THEN PRINT "1"; 'etc, etc, etc, etc...

IF numb = 0 THEN PRINT "0";
IF numb = 1 THEN PRINT "1"; 'etc, etc...

IF numc = 0 THEN PRINT "0"
IF numc = 1 THEN PRINT "1" 'etc, etc, etc...

En jaksanu kirjottaa aakkosia ja numeroita loppuun, siinä olisi aika suuri työ. mutta tuolla periaatteella vois tehä helposti. jos haluu tehä vaikeesti ni sit kysy joltain toiselta. se vaatis kylläki paljon enemmän koodia, joka ois pakko kirjottaa ja siksi en jaksanu nytte kirjottaa sitä tapaa.