Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 232721 times)

Offline Tomato77

  • EP user
  • *
  • Posts: 283
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 86.0.4240.111 Chrome 86.0.4240.111
    • View Profile
Re: BASIC
« Reply #1500 on: 2020.November.04. 13:22:15 »
Ha elromlik Basicben a PING parancs, akkor lehet helyettesíteni:
Code: [Select]
100 ENVELOPE NUMBER 1;0,63,63,1;0,-63,-63,50
110 SOUND PITCH 79.5,ENVELOPE 1,DURATION 50
:D
Kotasoft

Offline szipucsu

  • EP addict
  • *
  • Posts: 8708
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 82.0 Firefox 82.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1501 on: 2020.November.04. 18:49:01 »
Ha elromlik Basicben a PING parancs, akkor lehet helyettesíteni:
Chuck Norris után sose tudni...
Van valami trükk is benne, mert ha SOUND-dal helyettesítjük a PING-et, akkor az nem teljesen ugyanaz, várakozik egy kicsit.

Code: [Select]
10 PROGRAM "3ENVPING.BAS"
100 ENVELOPE NUMBER 1;0,63,63,1;0,-63,-63,50
105 FOR A=1 TO 3
110   SOUND PITCH 79.5,ENVELOPE 1,DURATION 50
120 NEXT

Code: [Select]
10 PROGRAM "3PING.BAS"
105 FOR A=1 TO 3
110   PING
120 NEXT

Az előbbi programnál egyből megjelenik az "ok" üzenet, az utóbbi programnál csak a harmadik pinggel.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 818
  • Country: hu
  • OS:
  • Linux (Ubuntu) Linux (Ubuntu)
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
Re: BASIC
« Reply #1502 on: 2021.January.16. 20:50:03 »
Mit hibáztam ?
Code: [Select]
  100 TIME "00:00:00"
  110 FOR X=1 TO 3000
  120   DATA 1,2,3,4
  130   READ A,B,C,D
  140 NEXT
  150 PRINT TIME$
  160 END
Code: [Select]
START

*** Out of data in READ/INPUT
130   READ A,B,C,D
print x
2
ok
Az új DATA sor bekellene vinnie  az adatokat a memoriába.

Offline ergoGnomik

  • EP lover
  • *
  • Posts: 981
  • Country: hu
  • Stray cat from Commodore alley
  • OS:
  • Windows NT 6.3 Windows NT 6.3
  • Browser:
  • Firefox 78.0 Firefox 78.0
    • View Profile
Re: BASIC
« Reply #1503 on: 2021.January.16. 21:00:34 »
Mit hibáztam ?
Ez most beugratós kérdés?

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13801
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1504 on: 2021.January.16. 21:01:10 »
Csak 4 adat van a DATA-ban, az csak 1 ciklusra elég.

Offline Tomato77

  • EP user
  • *
  • Posts: 283
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Chrome 46.0.2490.76 Chrome 46.0.2490.76
    • View Profile
Re: BASIC
« Reply #1505 on: 2021.January.16. 21:18:59 »
Kellene RESTORE. Így a négy érték kiolvasása után kifogy a DATA sorokból. Az nem elég neki, hogy ráfut újra a DATA sorra, attól még a következő DATA sort keresi, ami itt nincs.
Kotasoft

Offline szipucsu

  • EP addict
  • *
  • Posts: 8708
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 84.0 Firefox 84.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1506 on: 2021.January.16. 21:24:18 »
Mit hibáztam ?
A FOR után RESTORE kellene. Beolvas 4 adatot, és nincs több adat, újra kell indítani elölről az adatok olvasását.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos