Welcome, Guest. Please login or register.


Author Topic: Általános BASIC Kérdések (Read 423762 times)

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1545 on: 2022.January.12. 18:24:54 »
részt az edit 0-ban, és RUN parancs kiadása után valahol átadja a futást edit 1-ben futó programnak, akkor az a$ függvény itt is használható?
A run törli a változókat. De programból nem is tudja meghívni egyik program a másikat, erre szerintem a chain parancs való.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline gflorez

  • EP addict
  • *
  • Posts: 3607
  • Country: es
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1546 on: 2022.January.12. 19:44:59 »
Az angol nyelvű kézikönyvben az Indexen a Lánc parancs helytelenül a 195. oldalon található.

-----

On the English manual, the Chain command is wrongly indexed on pag. 195.

CHAIN       -> 152
EDIT          -> 159
PROGRAM -> 175

[ Guests cannot view attachments ]

Offline Tomato77

  • EP user
  • *
  • Posts: 397
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1547 on: 2022.January.12. 20:55:58 »
Azért nem semmi, hogy az Enterprise IS-Basic-je ilyet tud. Nem is emlékszem, hogy hasonló gépek tudtak-e akkoriban egyszerre több programot betölteni. Általános iskolás koromban ezt egyszer arra használtam, hogy egy versenyen az akkori összes kis basic programomat betöltöttem különböző helyekre, aztán amikor rám került a sor, azonnal tudtam mutogatni őket. Gondolom, meg se várták volna, amíg befütyüli őket a magnó. :) Egyszerű programok voltak, nem is nyertem velük semmit, de akkoriban nagy élmény volt, hogy valaki megnézi őket. Apuval cipeltük a gépet, magnót meg a Junoszty tévét valahová Budára villamossal.
Kotasoft

Offline Ferro73

  • EP lover
  • *
  • Posts: 967
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1548 on: 2022.January.12. 21:15:02 »
Magyar leírásban nem emlékszem erre.

A változókat ezért POKE-val oldottam meg. Problémás volt ezért elvettettem.
És a vissza térés EDIT 0 ra? Újra elveszted a változókat?
Vagy programról programra végig mész.

Offline Tomato77

  • EP user
  • *
  • Posts: 397
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1549 on: 2022.January.12. 22:55:17 »
És a vissza térés EDIT 0 ra? Újra elveszted a változókat?
CHAIN 0
A változók más környezetben sem szoktak elérhetőek lenni más programoknak, ha hívogatják egymást, csak a paraméterekben átadott értéket látják.
Kotasoft

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1550 on: 2022.January.13. 20:44:08 »
On the English manual, the Chain command is wrongly indexed on pag. 195.
Ezt a paraméterátadást sosem értettem. Az a baj, nem mutatták be gyakorlati példán, hogy a meghívott program mit tud csinálni azokkal a dolgokkal, amiket megadunk neki az egyik programból. A PROGRAM utasítás után a programnév után is meg lehetett adni zárójelben valamiket, de erre se láttam még példát, hogy hogyan lehet aztán felhasználni.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 967
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1551 on: 2022.January.13. 21:12:56 »
CHAIN 0
A változók más környezetben sem szoktak elérhetőek lenni más programoknak, ha hívogatják egymást, csak a paraméterekben átadott értéket látják.
Még ilyet ?
Végül is talán meg lehet oldani azt is.
  PROGRAM "START" (START,X,Y,Z.....)

  IF start="" then
       LET X=1:LET Y=2:LET Z=3: ...

Offline gflorez

  • EP addict
  • *
  • Posts: 3607
  • Country: es
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1552 on: 2022.January.14. 00:04:46 »
Ezt a paraméterátadást sosem értettem. Az a baj, nem mutatták be gyakorlati példán, hogy a meghívott program mit tud csinálni azokkal a dolgokkal, amiket megadunk neki az egyik programból. A PROGRAM utasítás után a programnév után is meg lehetett adni zárójelben valamiket, de erre se láttam még példát, hogy hogyan lehet aztán felhasználni.

Oké, adnak egy egyszerű példát:

------

Ok, they are already giving you an easy example:

[ Guests cannot view attachments ]





Offline Tomato77

  • EP user
  • *
  • Posts: 397
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1553 on: 2022.January.14. 09:44:18 »
Ezt a paraméterátadást sosem értettem.
Dióhéjban kb. ugyanaz, mint amikor DEF szubrutinok hívják egymást, és paraméterekben adnak át egymásnak értékeket, mert egymás változóit nem látják. A programoknál is hasonlóan működik, ők is értékeket adnak át egymásnak. Más környezetben is létezik ez, pl. DOS batch parancsfájlok és .EXE programok is adhatnak át egymásnak paramétereket.

Pl. ha írsz egy MIDI lejátszót, akkor lehet a bemenő paramétere egy fájlnév, és akkor azt tölti be.
Kotasoft

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1554 on: 2022.March.26. 10:14:27 »
Biztos nagyon egyszerű a válasz, de ezt hogy lehet megcsinálni rövidebben, valamilyen FOR-ciklussal?

Code: [Select]
6510   SET #2:PALETTE COLT(A,1),COLT(A,2),COLT(A,3),COLT(A,4),COLT(A,5),COLT(A,6),COLT(A,7)
 6520   SET #2:PALETTE COLT(A,1),COLT(A,3),COLT(A,4),COLT(A,5),COLT(A,6),COLT(A,7),COLT(A,2)
 6530   SET #2:PALETTE COLT(A,1),COLT(A,4),COLT(A,5),COLT(A,6),COLT(A,7),COLT(A,2),COLT(A,3)
 6540   SET #2:PALETTE COLT(A,1),COLT(A,5),COLT(A,6),COLT(A,7),COLT(A,2),COLT(A,3),COLT(A,4)
 6550   SET #2:PALETTE COLT(A,1),COLT(A,6),COLT(A,7),COLT(A,2),COLT(A,3),COLT(A,4),COLT(A,5)
 6560   SET #2:PALETTE COLT(A,1),COLT(A,7),COLT(A,2),COLT(A,3),COLT(A,4),COLT(A,5),COLT(A,6)

Annyi a lényege, hogy (az első paraméter kivételével) mindig 1-et adjon hozzá a függvény második tömbjéhez, de ha ez valamikor nagyobb lenne, mint 7, akkor kezdje 2-től. Akkor csak egyetlen SET PALETTE lenne, de az cikluson belül.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline geco

  • EP addict
  • *
  • Posts: 7082
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1555 on: 2022.March.26. 10:53:49 »
Code: Text
  1. 10 FOR I=0 TO 5                      
  2. 20   PRINT "1";MOD(I,6)+2;MOD(I+1,
  3.      6)+2;MOD(I+2,6)+2;MOD(I+3,6)+
  4.      2;MOD(I+4,6)+2;MOD(I+5,6)+2    
  5. 30 NEXT I                          
  6.  

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1556 on: 2022.March.26. 13:12:24 »
Köszi! Sejtettem, hogy valami turpisság lesz a dologban. Azt hittem, valami band, bor műveletek jók erre.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 967
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1557 on: 2022.March.26. 19:49:13 »
Code: [Select]
 
  200   LET A=1:LET B=2:LET C=3:LET D=4:LET E=5:LET F=6:LET G=7
  210   FOR I=0 TO 5
  220     PRINT A;B;C;D;E;F;G
  230     LET BB=B:LET B=C:LET C=D:LET D=E:LET E=F:LET F=G:LET G=BB
  240   NEXT I
Ez sem egy utolsó megoldás.

Offline Povi

  • EP addict
  • *
  • Posts: 2296
  • Country: hu
    • http://povi.fw.hu
Re: Általános BASIC Kérdések
« Reply #1558 on: 2022.March.26. 20:10:21 »
De egyébként Szipucsu megoldása lesz a leggyorsabb mind közül :-) Cserébe az foglalja a legtöbb helyet.
*** Speicherplatz zu klein

Offline geco

  • EP addict
  • *
  • Posts: 7082
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1559 on: 2022.March.27. 08:30:21 »
A helyfoglalásban se vagyok 100%-ig biztos, mert ugyan a Ferroé és az enyém rövidebb, az a kérdés, hogy a Basic hogy tárolja a tömböket, ha teljes nevén, akkor mi nyertünk :D
Sebességre meg sztem az enyém a leglassabb a sok számolás miatt, majd Ferroé, és a leggyorsabb Szipucsué.