Exemple programmation synthèse vocal de EXl100 (Exelbasic)

[kikich]

Bonjour a tous,

travaillant sur d'autres projets exelvision,
j'ai testé la fonction synthèse vocal de EXl100,
j'ai fait ce petit programme pour m’entraîner.



et voici le code source. Si sa peu aider d'autre personne

Code:

5 CALL POKE(50500,162,5,45,162,136,45,10):CALL EXEC(50500)
10 CALL CHAR(0,"030F7F63E180C0FFD15F")
11 CALL CHAR(1,"80C0F8F8FE0603FF8BFB")
12 CALL CHAR(2,"4141404760313F0F0F03")
13 CALL CHAR(3,"828202E60888F0E0E0C0")
14 CALL CHAR(4,"0000183C7EDBFF245AA5")
20 CLS"BWW":CALL COLOR("0bLH"):X=10
21 LOCATE (11,X):PRINT"GGAAMM  PPAATT"
22 LOCATE (12,X):PRINT"GGAAMM  PPAATT"
23 LOCATE (11,X+15):PRINT"CCOOMM"
24 LOCATE (12,X+15):PRINT"CCOOMM"
25 CALL COLOR("1BW"):LOCATE (11,X+6):PRINT CHR$(0);CHR$(1)
26 LOCATE (12,X+6):PRINT CHR$(2);CHR$(3)
27 LOCATE (12,X+14):PRINT CHR$(4)
30 CALL SON(0)
50 PAUSE:CALL HROFF:CLS"BCC":END
32000 SUB SON(NO):IF INDICATEUR=1 THEN 32026 ELSE INDICATEUR=1
32001 RESTORE 32245:FOR II=0 TO 70:READ AA:CALL POKE(51072+II,AA):NEXT
32002 RESTORE 32243:CALL POKE(125,199,0):CALL EXEC(51072)
32003 RESTORE 32244:CALL POKE(125,196,0):CALL EXEC(51072)
32026 RESTORE 32201
32031 CALL EXEC(50176):CALL POKE(125,197,128):CALL EXEC(51072):CALL EXEC(50944)
32032 SUBEXIT
32200 REM DATA LPC (Ajouter Z a la fin)
32201 DATA AEEE0CAD3C629FFC1823B19C738AA59C247AF1
32202 DATA 29A654F29CC5A718423862679FA20BE1CC99BD
32203 DATA 8AA6953573712BB3142DB344ADC88A22D59AAC
32204 DATA A4A82A114A7592C2ABC9B5F54993EA24F7D527
32205 DATA AF22528C379FA2CA0C72D91C9C22CCD4691501
32206 DATA 40AE1680E7E5C3AEBCD2DD6A1FAFE80CD7987C
32207 DATA FCEA33D4BAF6096A08671FCB2E6A4A4DA963B1
32208 DATA B83A37A18C4300EB3809A0B23A014434254052
32209 DATA E121A9A6D22CE3A430C90E0F8D75E2C2A7354D
32210 DATA C9099BE816F7B82768A24A22AA1EAFE94ACAA8
32211 DATA 32BC6ADCA43D92F3935071F3D82A2C263DC52C
32212 DATA 1320507102E46C2E8094C5569B54BAA7CF3A4D
32213 DATA 11991EBAEA744575A9EAC6D365BB415E2B4FD7
32214 DATA 588DA96E3A5D67D96EB2EBB48D6587C9A6D364
32215 DATA BDC9162F4F53C414596C284DF0233C59B19449
32216 DATA A6AA78D3522611A6E2CD4A11799869344B7914
32217 DATA 61EA51376551A69A7B9C94663E4E15615D1265
32218 DATA 1947995551B44E54218D84D1197185540078Z
32243 DATA 88C5800AFB0AZ
32244 DATA 760202FCFB0AZ
32245 DATA 6,138,193,170,208,13,138,193,171,208,14,246,128,36,82,6,128,36,202
32246 DATA 252,128,36,45,90,226,32,45,0,226,240,142,199,188,35,15,190,190,190
32247 DATA 190,184,128,36,142,199,188,35,15,201,100,155,126,211,126,121,0,125
32248 DATA 224,218,5,10,42,48,45,10,231,4,35,15,40,9,10
32249 SUBEND


j’espère vous faire découvrir cet ordinateur méconnu.