Instruction "SOUND" (pchit,paf,booom,ec...) à compléter

L'école Instruction "SOUND" (pchit,paf,booom,ec...) à compléter

MSXlegend

Conseiller Municipal

Rang

Groupe : Shoutbox

Inscrit le : 18/06/2010 à 22h42

Messages: 6284

Le 09/02/2013 à 13h43

Bonjour

Je recherche des bruitages, des effets sonores pour intégrer au basic. Je pense que se sera du PSG. L'instruction SOUND semble pleinement compatible avec le XBASIC

Il serait intérréssant de lister ici les différents bruitages/ Effets sonores que vous connaissez ou disponible dans les livres MSX. Merci pour votre aide

Si la FM peut etres utilisé ici, ça m'interresse fortement !!!

Voici quelques exemples

bouilloire (enfin je crois

) :

10 REM bouilloire

20 FOR K=255 TO 0 STEP -1

30 SOUND 0,K:SOUND 1,0:SOUND 8,10

40 NEXT K

explosion :

Valeur 1 :K=10:L=10:M=10

Valeur 2 :K=20:L=20:M=20

10 INPUT K,L,M

20 SOUND 0,250:SOUND 1,0

30 SOUND 6,K:SOUND 7,L:SOUND 13,M

40 FOR J=15 TO 0 STEP-0.05

50 SOUND 8,J

60 NEXT J

Edité par MSXlegend Le 09/02/2013 à 13h56

KCX Bluetooth emitter Mono/ Stéréo, Smart USB

E-mail Site web

popolon

Villageois

Rang

Groupe : Shoutbox

Inscrit le : 28/07/2010 à 22h07

Messages: 357

Le 09/02/2013 à 16h01

un de mes préféré, la friture de tempura (beignets Japonais)
10 SOUND8,15:B=RND(1)*40:SOUND0,B:SOUND0,0:GOTO 10

tout, tout, tout, vous saurez tout sur la zizi...que

Site web

gradius

Maire-adjoint

Rang

Inscrit le : 06/10/2009 à 18h27

Messages: 613

Le 09/02/2013 à 17h45

SEE (Sound Effect Editor) de chez Fuzzy logic permet de créer des effets sonores en PSG.

Version compatible BlueMSX ici :
http://www.thefuzz.nl/msx/files/apps/utils/see3B.rar

Quelques sons (surtout du Konami) pour aider à comprendre ce soft.
http://www.thefuzz.nl/msx/?file=thefuzz_downloads&dir=files/appsdata/see

Par contre je ne sais pas du tout comment utiliser les sons créés sous BASIC.

A suivre...

MSX Turbo-R FS A1GT - 1 Mo de RAM - Disque dur SCSI Syquest cartouches de 270 Mo - Lecteur CD. Musique, musique, musique et encore musique !

Jipe

Maire-adjoint

Rang

Inscrit le : 02/10/2009 à 19h41

Messages: 10731

Le 10/02/2013 à 11h30

bruits tirés du livre MSX Guide du basic de Sybex

Citation :

HELICOPTERE

110 GOSUB 1000:TIME=0

120 FOR I=0TO10:SOUNDI,30:NEXT

130 SOUND 13?&B1010:SOUND11,255

140 R=INT(RND(1)*8):T=TIME

150 IFT/60>R AND R>4THEN160ELSE120

160 END

1000 FORI=0TO13:SOUNDI,0:NEXT

1010 RETURN

Citation :

MITRAILLETTE

210 GOSUB 1000:TIME=0

220 R=10:SOUND6,15:SOUND7,7

230 FORJ=1TOR

240 FORI=8TO10:SOUNDI,16:NEXT

250 SOUND12,16:SOUND13,0:FORX=1TO50:NEXT

255 NEXT

260 R=INT(RND(1)*10)

270 FORS=0TO200:NEXT

275 T=TIME

280 IFT/60>R OR R>5 THEN END ELSE 230

1000 FORI=0TO13:SOUNDI,0:NEXT

1010 RETURN

Citation :

SIFFLEMENT D'UNE BOMBE

310 GOSUB 1000

320 SOUND 7,62:SOUND8,15:SOUND9,16

330 SOUND10,16:SOUND12,16:FORX=50TO185:A=2*SIN(4/3)

340 SOUND0,X:NEXT

1000 FORI=0TO13:SOUNDI,0:NEXT

1010 RETURN

Citation :

EXPLOSION D'UNE BOMBE

410 GOSUB1000

420 SOUND6,15:SOUND7,7:SOUND12,130:SOUND11,0

430 FORX=8TO10:SOUNDX,16:NEXT

440 SOUND13,0:FORX=1TO1000:NEXT

1000 FORI=0TO13:SOUNDI,0:NEXT

1010 RETURN

Citation :

BRUIT D'AVION

510 SOUND7,62:SOUND8,15:SOUND9,16:SOUND10,16

520 SOUND12,16:SOUND1,250

530 FORX=50TO250:SOND0,X:A=SIN(1.2):NEXT

540 FORX=250TO15STEP-1:SOUND0,X:A=SIN(1.2):NEXT

Site web

MSXlegend

Conseiller Municipal

Rang

Groupe : Shoutbox

Inscrit le : 18/06/2010 à 22h42

Messages: 6284

Le 10/02/2013 à 14h00

je testerais des que possible. J'irais fouiner dans les livres basic au cas ou

KCX Bluetooth emitter Mono/ Stéréo, Smart USB

E-mail Site web

Répondre

Vous n'êtes pas autorisé à écrire dans cette catégorie