Keskustelu: Ohjelmointikysymykset: QB: Pystyyköhän Qb...

Saada kirjaimet tähdiksi?

Pystyy saada. Mitä sinä tarkoita?

Jos tarkoitat sitä, mitä luulen niin pystyy.

INPUT "Anna tähditettävä teksti: ", teksti$

teksti$ = LCASE$(teksti$)
FOR i = 1 TO LEN(teksti$)
  MID$(teksti$, i, 1) = "*"
NEXT
PRINT teksti$

Tästä saisi myös salasanatyyppisen, mutta silloin joutuisi tekemään hieman erilaisen koodin.

Kuinkahan sitten tuollainen salasanahomma onnistuu?

https://www.ohjelmointiputka.net/koodivinkit/23397-qb-haastaja-input-käskylle
tuota muokkaamalla pitäisi onnistua helposti.

Tai eihän salasanakyselyyn tarvita välttämättä tähtiä jos voi sijasta käyttää jotain muutakin, kuten sillaista, että kirjoitettua salasanaa ei näy esimerkiksi ja se onnistuu näin

alku:
color 15
pass$ = "juhaz"

print "PASSWORD: ";: color 0: input "", c$
if c$ = pass$ then goto oikea
print "Wrong password!"
sleep
goto alku

oikea:
color 15
print "RIGHT PASSWORD!"
sleep
end

Ellei kellään ole parempaa ehdottaa ;)
Olen tekemässä siihen UNIX/LINUX tyyliseen fake ossiin viimeisiä pikku juttuja joista yksi on tämä salasanakysely.