Teen erästä peliä qb:llä ( katso http://koti.mbnet.fi/cpp/project1.php ), muttakun tiedoston avaaminen suorittaa virhetilanteen. Tein peliin 'Blackbox'-systeemin, jotta tietäisin mitä ohjelman aikana tapahtuu.
Koodia:
pääohjelman osa:
OPEN "data\LOGS\BLACKBOX.LOG" FOR APPEND AS #1 PRINT #1, " " PRINT #1, " Avataan suojaustiedostoja...." CLOSE #1 OPEN "data\ACCESSCONFIG.CFG" FOR BINARY AS #1 A = LEN(SECMDE$) GET #1, 1, A FOR I = 1 TO A GET #1, , AA SECMDE$ = SECMDE$ + CHR$(AA) NEXT CLOSE OPEN "data\LOGS\BLACKBOX.LOG" FOR APPEND AS #1 PRINT #1, " Suojaustiedostot avattu onnistuneesti." CLOSE #1
BlackBox:
Avataan peliin kuuluvia tiedostoja.... Tiedostot avattu onnistuneesti. Selvitetään hakemistoa.... Luodaan väliaikaistiedostoa.... Kirjoitetaan väliaikaiseen tiedostoon.... Tuhotaan väliaikainen tiedosto.... Väliaikaisen tiedoston luonti, tiedostoon kirjoittaminen ja siitä lukeminen, sekä tiedoston tuhoaminen suoritettu onnistuneesti loppuun! Hakemisto selvitetty onnistuneesti. Tarkistetaan suojaustiedostoista, onko salasanasuojaus käytössä.... Avataan suojaustiedostoja.... --- ERROR ---
errori:
ON ERROR GOTO virhe
LABEL virhe:
CLS OPEN "data\LOGS\BLACKBOX.LOG" FOR APPEND AS #1 PRINT #1, " " PRINT #1, "--- ERROR ---" CLOSE #1 COLOR 6 PRINT "--- ERROR ---" PRINT "" PRINT "" PRINT "" COLOR 4 PRINT "Pelin aikana tapahtui virhe. Jos virhe tapahtui profiilin" PRINT "luonnin yhteydessä, pelin uudelleenkäynnistäminen" PRINT "korjaa ongelman." PRINT "" PRINT "Jos virhe ei sattunut latauksen yhteydessä, kulje tämän" PRINT "pelin päähakemistosta seuraava polku:" PRINT "'data\LOGS\BLACKBOX.LOG', ja lähetä kyseinen tiedosto" PRINT "sp:llä osoitteeseen emtuomi@hotmail.com." PRINT "" PRINT "" COLOR 2 PRINT "Poistu pelistä painamalla [CTRL]..." SLEEP END
Vastailkaa tässä viikon sisällä sitten. Palaan ongelmaan viikon kuluttua. Että pyytäisin ystävällisesti niitä vastauksia.
Kokeile: ACCESSCONFIG.CFG -> ACCESS~1.CFG
Toksia
Aihe on jo aika vanha, joten et voi enää vastata siihen.