Keskustelu: Ohjelmointikysymykset: QB, VB6: Syötettä komentoriville

command:illa han saa selville komentoriviltä tulevat syötteet. Miten näihin voi vatata? Esimerkiksi kun laitat komentoriville
ping google.com
niin sehän vastaa esim.
Reply from 255.255.255.0: bytes=1000000 time=1000h jne
Niin miten saisin ohjelmani vastaamaan samalla tavalla? esim. Project1 vastaisi hei maailma?

Ööh..?

PRINT "Hei, maailma!"

Vai mitä tarkoitat? ping on ohjelma siinä missä Project1:kin.

Ok, mutta miten sen saa printtaamaan kolminumeroisen random luvun... esim 123, 332, 453... En osaa QB:tä kovin hyvin.

gaxx, entä jos haluan mahdolliseksi myös luvun 001?

print int(rnd * 9) & int(rnd * 9) & int(rnd * 9)

aiheuttaa ainakin overflowin ja

print int(rnd * 999)

tuottaa myös 2 -ja 1-numeroisia lukuja

arvo se luku ja sitten pistät vaikka tälleen

arvo = int(rnd * 999)
if arvo > 99 then print arvo
if arvo < 100 then print "0" & arvo
if arvo < 10 then print "00" & arvo

vähän purkkaa, mutta...

Toinen tapa olisi vaikka tällainen

dim jono as string
dim arvo as integer

print int(rnd * 999)
jono = arvo
while len(jono) < 3
  jono = "0" & jono
wend

Jaa. OverFlowwaa taas noista &-merkeistä mutta toteutin sen näin:

PRINT INT(RND * 899) + 100

nyt ohjelma printtaa lukuja väliltä 100-999.

QB:ssä ei ole &-yhdistysoperaattoria kuten VB:ssä.

Jono = Right$("00" + Mid$(Str(Luku),2),3)

Antaa lukuja 000-999

Muuten hyvä, mutta str:ää ei ole QB:ssä (ainakin niin se mulle sanoo)

Juu, se pitäisi olla STR$, merkkijonon palauttaviin funktioihin tulee QB:ssä perään $.

En taaskaan tiedä toimiiko Format käsky QB:llä

Print Format$(Int(Rnd * 999), "000")