Gambas France BETA


Pas de compte ? Incription

Exemple 1 :

Mettre du son dans son programme :


Dans un module, ici nommé ModulePrinc.

Les déclarations de mise


1
2
PUBLIC bSonOn AS BOOLEAN 'oui ou non
PRIVATE MonSon AS Sound ' le composant gb.sdl2.audio doit être coché

Du nom au son :


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
PUBLIC SUB son(LeSon AS STRING) 'son($monson)

IF bSonOn = TRUE THEN 'si bSonOn est vraie
SELECT CASE LeSon
CASE "beep"
TRY MonSon = Sound.Load("beep.ogg")
CASE "ouverture3"
TRY MonSon = Sound.Load("ouverture3.ogg")
CASE "bell"
TRY MonSon = Sound.Load("bell.oga")
CASE "contact"
TRY MonSon = Sound.Load("Contact.ogg")
CASE "Message1"
TRY MonSon = Sound.Load("Message1.ogg")
CASE "Message2"
TRY MonSon = Sound.Load("Message2.ogg")
CASE "OpenApp"
TRY MonSon = Sound.Load("OpenApp.ogg")
CASE "shade"
TRY MonSon = Sound.Load("shade.ogg")
CASE "power-unplug"
TRY MonSon = Sound.Load("power-unplug.oga")
CASE "Warning"
TRY MonSon = Sound.Load("Warning.ogg")
CASE "power-plug"
TRY MonSon = Sound.Load("power-plug.oga")
CASE "camera1"
TRY MonSon = Sound.Load("camera1.ogg")
END SELECT
TRY MonSon.Play() 'alors on joue le son
ENDIF
CATCH
Message(("An error : ") & "son " & Error.Text)

END

Pour que cela fonctionne, ne pas oublier de cocher le composant gb.sdl2.audio dans les propriétés de son projet.
Les sons eux mêmes sont enregistrés dans les données du projet.
On peut en trouver des gratuits et libres de droit sur internet ou sur sa propre machine en cherchant bien.



Pour appeler un son (par son nom) de n'importe où dans le programme :


Penser à mesurer le temps de jeu du son.
1
2
3
ModulePrinc.bSonOn = TRUE '<----------------------------' pour que le son soit joué
ModulePrinc.son("ouverture3") '<-------------' appel du son choisi
WAIT delay (delay= longueur de jeu du son) '<-----------' pour que le son soit joué dans son intégralité avant de passer à la suite

La balise boolean bSonOn, permet de contrôler si on veut ou non du son et peut être modifiable par l'utilisateur, à volonté dans une case à cocher, par exemple.



====================

Commandes utilisées :


Select case
Try
Message
catch


====================

Navigation :



<-- Liens du Wiki : <--
<-- Accueil du WIKI : <--

====================

Documentation :



====================