Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 221872 times)

Offline Tomato77

  • EP user
  • *
  • Posts: 257
  • 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: 8620
  • 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