Keskustelu: Koodit: QB: Koodinimigeneraattori

Tämä ohjelma tekee koodinimiä (Esimerkiksi: RD - 171).

CLS
RANDOMIZE TIMER
a = INT(RND * 100)
c = INT(RND * 100)
d = INT(RND * 100)
b = INT(RND * 25) + 65
f = INT(RND * 25) + 65
ceeboo$ = CHR$(b)
coobee$ = CHR$(f)
PRINT
COLOR 10
PRINT "Hakee kirjaimia..."
FOR t = 1 TO 1000000
NEXT
COLOR 11
PRINT "Hakee numeroita..."
FOR t = 1 TO 1000000
NEXT
COLOR 12
PRINT "Tekee koodinimeä..."
FOR t = 1 TO 1500000
NEXT
COLOR 14
PRINT "Koodinimesi on: "; ceeboo$ + coobee$; " -"; a + c + d

Kommentteja kiitos!

Kiva mutta turha.

Olen E.M.P:n kanssa samaa mieltä. Turhat for-silmukat voisi jättää myös pois.

aika turha

Yli kellotin tieto konettani 1000hz -> 1333 mhz, JA! tuo ohjelma on noin kolme kymmentä kolme prosenttia nopeanpi. Korjasin koodin yhtä nopeaksi eli tämä on kaikille keillä on 1333 mhz yli kellotettu tieto kone.

***Koodinimigeneraattori
CLS
RANDOMIZE TIMER
a = INT(RND * 100)
c = INT(RND * 100)
d = INT(RND * 100)
b = INT(RND * 25) + 65
f = INT(RND * 25) + 65
ceeboo$ = CHR$(b)
coobee$ = CHR$(f)
PRINT
COLOR 10
PRINT "Hakee kirjaimia..."
FOR t = 1 TO 1333333
NEXT
COLOR 11
PRINT "Hakee numeroita..."
FOR t = 1 TO 1333333
NEXT
COLOR 12
PRINT "Tekee koodinimeä..."
FOR t = 1 TO 2000000
NEXT
COLOR 14
PRINT "Koodinimesi on: "; ceeboo$ + coobee$; " -"; a + c + d

Miia, taidat olla pilaa? ei kukaan voi olla noin pelle tyyppi

hahhah...eiköhän tän ohjelman avulla maailma pelastu =)

Komee intro =)

Turhaakin turhempi. Turhaa oli edes ottaa tätä turhaa koodivinkkiä tämän turhan sivun turhalle koodivinkkiosastolle.

Nämä ovat vain esimerkkejä.

Eikös tietokone tuu yhtee?

ei jos on teiniX!