Welcome, Guest. Please login or register.


Author Topic: Elakadtam IS-Basic Programozás közben (Read 9985 times)

Offline Tuby128

  • EP addict
  • *
  • Posts: 1449
  • Country: hu
Elakadtam IS-Basic Programozás közben
« on: 2023.April.16. 14:33:46 »
Írtam a múltkor egy BMP fájl kiolvasó programot BASIC-ben.

Most elkészítettem egy másik programot, és próbáltam a kiolvasó rutint átvenni.
Első csatolmány szerint a föprogramból (nincs ciklus) a 735 sorban elugrok 1120 sorba, hogy ott megnyissam a file-t. Kiolvassak belöle dolgokat.
Ott müködik is minden beolvassa az elejét szépen ahogy kell (csatolmány 2) majd a 1390-sorban visszaugrok a föprogramhoz. A fájl nagy, csak az első néhány byte-ot olvasom ki.
A 1390 elötti a sorokban leellenörzöm, hogy valóban a fájlból olvas-e. Minden rendben.
A visszaugrás után (1. csatolmány) 740. sortól a GET nem müködik, mindig csak decimális 66-ot olvas és sosem fogy el a puffer. Nincs hibaüzenet sem. (3. csatolmány)
Mi lehet a baj?

System:
Basic 2.1 + BRD
« Last Edit: 2023.April.16. 15:19:49 by MrPrise, Reason: language tag »

Offline lgb

  • EP addict
  • *
  • Posts: 3563
  • Country: hu
  • æðsta yfirmaður
    • http://lgb.hu/
Re: Elakadtam IS-Basic Programozás közben
« Reply #1 on: 2023.April.16. 15:08:00 »
Nem csoda, ezt irtad:  ORD("B$") ... Ez ugye a B$-t constant string-nek tekinti, tehat megnezi a B ascii kodjat ... Gondolom ezt akartad volna irni: ORD(B$)

Offline Tuby128

  • EP addict
  • *
  • Posts: 1449
  • Country: hu
Re: Elakadtam IS-Basic Programozás közben
« Reply #2 on: 2023.April.16. 15:22:29 »
Ahh! Ezer köszönet!
Fáradt vagyok már nem látom meg.

Offline Ferro73

  • EP lover
  • *
  • Posts: 980
  • Country: hu
Re: Elakadtam IS-Basic Programozás közben
« Reply #3 on: 2023.April.16. 15:25:52 »
Úgy emlékszem meg kellene adni az y,x pozíciót is és utána kiolvasni mert így a 0,0 pozíciót olvasod állandóan.

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14733
  • Country: hu
    • http://enterprise.iko.hu/
Re: Elakadtam IS-Basic Programozás közben
« Reply #4 on: 2023.April.16. 15:31:47 »
Amúgy arra a sok randa gotora mi szükség van? Ez nem C64 BASIC :oops:

Offline Tuby128

  • EP addict
  • *
  • Posts: 1449
  • Country: hu
Re: Elakadtam IS-Basic Programozás közben
« Reply #5 on: 2023.April.16. 15:51:38 »
GOSUB RETURN volt bent eredetileg, de azt hittem az átír valamit emiatt nem megy ezért GOTO-ra cseréltem

Néhány kérdés merült fel a BASIC használatakor
- Hogy lehet csak az 1000 sor utáni részt újszámozni, hogy 10-es lépésekben sorszámozzon.
- Hogy tudok EDIT 0-án lévő programból részleteket az EDIT 1-ben lévő programba átmásolni?
- Ha elkészül egy program hogyan tudom kimásolni szövegfájlkét adathordozóra?

Offline Ferro73

  • EP lover
  • *
  • Posts: 980
  • Country: hu
Re: Elakadtam IS-Basic Programozás közben
« Reply #6 on: 2023.April.16. 16:04:36 »
- Hogy lehet csak az 1000 sor utáni részt újszámozni, hogy 10-es lépésekben sorszámozzon.

RENUMBER 1000 to 1500 at 1000 step 10

Bár problémák adódhatnak .
- Hogy tudok EDIT 0-án lévő programból részleteket az EDIT 1-ben lévő programba átmásolni?

Ezt én úgy oldom meg hogy, edit 0 list kb. 30-40 sor ami a bufferbe befér
edit 1
 kurzor vissza a lista elejére és enter,enter....

- Ha elkészül egy program hogyan tudom kimásolni szövegfájlkét adathordozóra?

Jó pár helyen megtalálható
Én
open #1:"filename" access output
ok
list #1
ok
close #1
használom

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14733
  • Country: hu
    • http://enterprise.iko.hu/
Re: Elakadtam IS-Basic Programozás közben
« Reply #7 on: 2023.April.16. 16:07:22 »
GOSUB RETURN volt bent eredetileg, de azt hittem az átír valamit emiatt nem megy ezért GOTO-ra cseréltem
És miért nem DEF blokk?

Offline Tuby128

  • EP addict
  • *
  • Posts: 1449
  • Country: hu
Re: Elakadtam IS-Basic Programozás közben
« Reply #8 on: 2023.April.16. 16:15:03 »
Hogyal lehet az editor text puffer méretét megnövelni? Ha jól emlékszem valamelyik csatornát le kell zárni, átírni egy rendszerváltozót és újranyitni, de már nem emlékszem.
Esetleg az is érdekelne mennyi a default, és mennyi a max?
Ugye amikor az ember már 512+ MB géppel dolgozik, akkor szívesen adna több memóriát a szeretett gépének.

Offline Ferro73

  • EP lover
  • *
  • Posts: 980
  • Country: hu
Re: Elakadtam IS-Basic Programozás közben
« Reply #9 on: 2023.April.16. 16:56:47 »

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9928
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Elakadtam IS-Basic Programozás közben
« Reply #10 on: 2023.April.16. 19:41:19 »
- Hogy tudok EDIT 0-án lévő programból részleteket az EDIT 1-ben lévő programba átmásolni?
Én kiírnám txt fájlba az edit 0-ás programot, ott módosítanám a PC-n, majd a módosított verziót betölteném az edit 1-re.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 980
  • Country: hu
Re: Elakadtam IS-Basic Programozás közben
« Reply #11 on: 2023.April.17. 22:07:00 »
Én kiírnám txt fájlba az edit 0-ás programot, ott módosítanám a PC-n, majd a módosított verziót betölteném az edit 1-re.

Persze csak akkor ha nem több 16k-nál a BASIC program.

Offline Tuby128

  • EP addict
  • *
  • Posts: 1449
  • Country: hu
Re: Elakadtam IS-Basic Programozás közben
« Reply #12 on: 2023.April.17. 22:17:13 »
Ferro ezt hogy érted?
 Már 5 sort sincs kedvem pc-re átmásolni.

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9928
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Elakadtam IS-Basic Programozás közben
« Reply #13 on: 2023.April.17. 22:33:41 »
Már 5 sort sincs kedvem pc-re átmásolni.
Hogyhogy átmásolni? Legfeljebb a copy-paste módszerrel kell másolni. Vagy nem az emulátorral dolgozol?
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Tuby128

  • EP addict
  • *
  • Posts: 1449
  • Country: hu
Re: Elakadtam IS-Basic Programozás közben
« Reply #14 on: 2023.April.17. 23:01:28 »
Mesélj, hogy működik a copy-paste? Melyik emulátoron van ez és hogyan kell kérni?