Tässä on toinen koodivinkkini. Kuten ensimmäisessä noista tyhmistä hattupäisistä u-kirjaimista tulee koristuksia. Ei taida toimia hyvin. Ja sitten on sellainen ongelma etten osaa laittaa sitä tallentamaan rivejä erikseen.
ON ERROR GOTO vika toimi: CLS LOCATE 1, 1: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜKimmon EDITÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" LOCATE 2, 1: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛTallennaÛÛAvaaÛÛTietoa ohjelmasta KEDITÛÛLopetaÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" PRINT "Komento suoritetaan kirjoittamalla KEDIT-(Komento merkkitarkasti, ei sulkuja)" IF A = 0 THEN INPUT "Mikä polku ja tiedostonimi. Kirjoita polku ja tiedostonimi"; tiedosto$ IF tiedosto$ = "KEDIT-Avaa" THEN GOTO toimi IF tiedosto$ = "KEDIT-Lopeta" THEN GOTO loppu IF tiedosto$ = "KEDIT-Tietoa ohjelmasta KEDIT" THEN GOTO tietoa IF tiedosto$ = "KEDIT-Näytä" THEN GOTO naytto LET A = 1 CLS OPEN tiedosto$ FOR OUTPUT AS #1 PRINT #1, "" CLOSE #1 kirjoitus: OPEN tiedosto$ FOR INPUT AS #1 LOCATE 1, 1: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÜKimmon EDITÜÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" LOCATE 2, 1: PRINT "ÛÛÛÛÛÛÛÛÛÛÛÛNäytäÛÛÛÛÛÛÛÛÛAvaaÛÛTietoa ohjelmasta KEDITÛÛLopetaÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" LOCATE 3, 1: INPUT b$ IF b$ = "KEDIT-Avaa" THEN GOTO toimi IF b$ = "KEDIT-Lopeta" THEN GOTO loppu IF b$ = "KEDIT-Tietoa ohjelmasta KEDIT" THEN GOTO tietoa IF b$ = "KEDIT-Näytä" THEN GOTO naytto IF b$ = "KEDIT-Tulosta" THEN LET p = 1 IF p = 1 THEN GOTO tulostus LET teksti$ = teksti$ + b$ + " " CLOSE #1 tallennus: OPEN tiedosto$ FOR OUTPUT AS #1 PRINT #1, teksti$ LOCATE 3, A: PRINT " " CLOSE #1 GOTO kirjoitus tietoa: LOCATE 1, 1: PRINT "KEDIT 1.0 (C) Kimmo Merikivi 2002" SLEEP GOTO kirjoitus naytto: CLOSE #1 INPUT tiedosto$ OPEN tiedosto$ FOR OUTPUT AS #1 PRINT #1, FOR A = 1 TO 1000 STEP 1 NEXT A SLEEP CLOSE #1 SLEEP GOTO toimi loppu: CLOSE #1 END tulostus: LET p = 0 PRINT "Tulostus ohjelmasta." CLOSE #1 OPEN tiedosto$ FOR OUTPUT AS #1 LPRINT 1 CLOSE #1 GOTO kirjoitus vika: BEEP: BEEP: BEEP: BEEP: BEEP LOCATE 6, 1: PRINT "ERROR!" PRINT "Tässä tuli vähän ongelmia." PRINT "Tarkista että tekstissä ei ole pilkkuja. QBASIC ei hyväksy niitä. Älä tee myöskään liian pitkiä rivejä, KEDITissä ei ole automaattista rivinvaihtoa. Jos ongelma ilmenee jossain muussa niin lähettäkää sähköpostia kimmo.merikivi@pp1.inet.fi . Poluissa ei saa olla ääkkösiä, ja ne eivät saa olla olemattomalla kiintolevyllä. Muuten KEDIT luo kansion. Nyt joudut aloittamaan tämän rivin kirjoituksen alusta." FOR A = 1 TO 10000 STEP 1 NEXT A SLEEP GOTO kirjoitus
Niin. Miltä näyttää?
Ei näytä kyllä hyvältä. Goto -käskyistä sun pitää varmaan ekana päästä eroon, koska niitä ei tarvitse käyttää.
Ja tiedoston kirjoitus/lukeminen -koodi taitaa täällä jo olla... :/
sisennys!!!
IF kake$=kikkare$ THEN PRINT "Voi suo sentään" END IF
hups.. tää ottaa välilyönnit rivin alusta pois. ANTTI!!! korjaa!!
Niin
Olen saanut valmiiksi korjaillun (muttei silti vieläkään hyvän) version. Olisiko järkeä laittaa se tänne?
ei :D
voe ristus. jotain järkeä nyt tähän touhuun
Aihe on jo aika vanha, joten et voi enää vastata siihen.