Keskustelu: Koodit: QB: Kirjautumisjärjestelmä

Päätinpä tässä aikanikuluksi väsätä ensimmäisen QB-ohjelmani, jonka olen kokonaan itse tehnyt; kirjautumis-systeemin.

Ohjelma kysyy käynnistyessään ensin tunnusta, sitten salasanaa. Jos tunnus/salasana ovat väärin, ohjelma kirjautuu automaattisesti ulos. Jos tunnus ja salasana ovat oikein, ohjelma kirjautuu tietysti sisään. Kun kirjautuminen onnistuu, pystyy tarkastelemaan omia salaisia tietoja, kuten salasanoja ja erinäisiä "huippusalaisia" tunnuksia.

Tässä ohjelmassa käyttäjätunnus on "tunnus", ja salasana on "salasana".

En kuitenkaan suosittele salasanojen jättämistä ohjelman huolittavaksi ilman, ettei ohjelmaa ole salattu.

Ohjelmaa saa täysin vapaasti käyttää miten haluaa, milloin haluaa, ja missä haluaa, eikä tekijän nimeä tarvitse mainita.

Ohjelmaa on testattu QB 4.5:lla.

SCREEN 12

CLS

tunnus:
 INPUT "Käyttäjätunnus: ", user$
  IF user$ = "tunnus" THEN GOTO pwd ELSE GOTO failed

pwd:
 INPUT "Salasana: ", password$
  IF password$ = "salasana" THEN GOTO login ELSE GOTO failed

login:
 CLS
  PRINT "Kirjautuminen onnistui!"
  PRINT ""
  PRINT "Jatka painamalla mitä tahansa näppäintä..."
   SLEEP
 CLS

COLOR 12
 PRINT "Salasanat:"
 PRINT ""
COLOR 14
 PRINT "WINDOWS : loginwin32"
 PRINT "OHJELMOINTIPUTKA : pwd12"
PRINT ""
PRINT ""
PRINT ""

 COLOR 10
  PRINT "Jatka painamalla mitä tahansa näppäintä..."
  SLEEP

 CLS
COLOR 12
  PRINT "Tärkeät tunnuket:"
  PRINT ""

   COLOR 14
    PRINT "LUOTTOKORTTI - 1234"
    PRINT ""
    PRINT ""
    PRINT ""

COLOR 15
 PRINT "Jatka painamalla mitä tahansa näppäintä..."
  SLEEP

CLS
PRINT "Kirjaudu ulos painamalla mitä tahansa näppäintä..."
 SLEEP
 GOTO logout

failed:
 CLS
  PRINT "Kirjautuminen epäonnistui!"
  SLEEP

logout:
 CLS
  PRINT "Olet juuri kirjautunut ulos. Sulje ohjelma painamalla jotain..."
   SLEEP

Voisit olla käyttämättä tuota GOTOa, myös SLEEP on minusta hieman kyseenalainen ja vain lähinnä "misc"-kikka! :-)
Mutta koodi itsessään on aika alkeita. En usko, että tästä on hyötyä monellekaan.

Mitä sen GOTO:n sijasta pitäisi käyttää? GOSUB?

Olen vasta-alkaja --> koodini on aloittelija-tasoa.
Mutta oppaita lukemalla, ja kokeilemalla oppii lisää. Sen olen huomannut: päivä ennen tuon tekoa, en osannut mitään :D.

Käytä vaikka mieluummin silmukoita, niillä on kiva kikkailla. Mutta vaikka olet vasta-alkaja ja koodisi on aloittelijamaista, niin eihän sitä tänne putkaan tarvitse lähettää? Eihän?

Ainiin. Ei tietenkään. Välillä vaan tulee semmonen tunne, että tekee mieli lähettää jonnekin. Eräänlaista uteliaisuutta ;).