pastbytes
|
|
« Respuesta #62 : 20 de Marzo de 2012, 07:32:21 pm » |
|
Reforme la prueba original en BASIC, que estaba hecha con SOUND en vez de PLAY, es un poco mas flexible el sonido pero al ser BASIC es imposible sincronizar la envolvente adecuadamente, por lo que el sonido es erratico, no siempre suena de la misma manera. Pero como sea, lo que importa es que si es posible desde BASIC, se puede secuenciar de alguna manera en algun programa que tenga mas precision y velocidad. Adjunto un zip con el .BAS y el .ASC del programa, porque no a todos les conviene un .DSK de 360K, y sacando los creditos, el codigo que hace el sonido es el siguiente:
200 FORI=1TO100:NEXTI 210 SOUND 0,192:SOUND 1,0:SOUND 2,192:SOUND 3,0:SOUND 8,16:SOUND 9,16 220 SOUND 7,&B11111100:SOUND 11,34:SOUND 12,0:SOUND 13,14 230 PRINT"HO";:FOR I=1 TO 100:NEXT I 240 SOUND 0,29:SOUND 1,1:SOUND 2,29:SOUND 3,1:SOUND 8,16:SOUND 9,16 250 SOUND 7,&B11111100:SOUND 11,35:SOUND 12,0:SOUND 13,14 260 PRINT"L";:FOR I=1 TO 100:NEXT I 270 SOUND 0,87:SOUND 1,0:SOUND 2,137:SOUND 3,0:SOUND 8,16:SOUND 9,16 280 SOUND 7,&B11111100:SOUND 11,36:SOUND 12,0:SOUND 13,14 290 PRINT"A";:FOR I=1 TO 100:NEXT I 300 SOUND 13,0:PRINT", ";:FOR I=1 TO 150:NEXT I 310 SOUND 0,28:SOUND 1,0:SOUND 2,28:SOUND 3,0:SOUND 8,15:SOUND 9,15 320 SOUND 7,&B11101110:SOUND 11,150:SOUND 12,2:SOUND 13,10 330 PRINT"S";:FOR I=1 TO 30:NEXT I 340 SOUND 0,87:SOUND 1,0:SOUND 2,137:SOUND 3,0:SOUND 8,16:SOUND 9,16 350 SOUND 7,&B11111100:SOUND 11,36:SOUND 12,0:SOUND 13,14 360 PRINT"A";:FOR I=1 TO 100:NEXT I 370 SOUND 0,29:SOUND 1,1:SOUND 2,29:SOUND 3,1:SOUND 8,16:SOUND 9,16 380 SOUND 7,&B11111100:SOUND 11,35:SOUND 12,0:SOUND 13,14 390 PRINT"L";:FOR I=1 TO 100:NEXT I 400 SOUND 0,64:SOUND 1,1:SOUND 2,64:SOUND 3,1:SOUND 8,16:SOUND 9,16 410 SOUND 7,&B11111100:SOUND 11,34:SOUND 12,0:SOUND 13,14 420 PRINT"U";:FOR I=1 TO 100:NEXT I 430 SOUND 7,&B11111111:FORI=1TO10:NEXTI 440 SOUND 0,56:SOUND 1,0:SOUND 2,213:SOUND 3,0:SOUND 8,16:SOUND 9,16 450 SOUND 7,&B11111100:SOUND 11,36:SOUND 12,0:SOUND 13,14 460 PRINT"D";:FOR I=1 TO 10:NEXT I 470 SOUND 0,192:SOUND 1,0:SOUND 2,192:SOUND 3,0:SOUND 8,16:SOUND 9,16 480 SOUND 7,&B11111100:SOUND 11,36:SOUND 12,0:SOUND 13,14 490 PRINT"O";:FOR I=1 TO 100:NEXT I 500 SOUND 0,28:SOUND 1,0:SOUND 2,28:SOUND 3,0:SOUND 8,15:SOUND 9,15 510 SOUND 7,&B11101110:SOUND 11,150:SOUND 12,2:SOUND 13,10 520 PRINT"S";:FOR I=1 TO 30:NEXT I 530 SOUND 7,&B11111111:PRINT"."
El programa dice HOLA, SALUDOS. Tambien lo va imprimiendo en pantalla.
|