 12 | |
| Auteur | Messages |
|---|---|
| ecitoyen | #16 Posté le 27/3/2010 à 21:22:00 |
| :santa: Dans un de mes programmes j'utilise cette fonction pour lire des fichiers musicaux(elle lit les fichiers midi et mp3 entre autres) Dans les propriétés du programme cela requiert gb.gtk gb.sdl.sound (Regardez L'EXEMPLE DE GAMBAS MusicPlayer...) Cela fonctionne correctement... Et dans la form du programme... au tout debut il faut la ligne suivante. STATIC PRIVATE $bDoNotMove AS Boolean PUBLIC SUB sldVolume_Change() Music.Volume = 1 - sldVolume.Value / sldVolume.MaxValue END PUBLIC SUB timMusic_Timer() DIM iPos AS Integer DIM iVal AS Integer DIM sPos AS String DIM iInd AS Integer iPos = Music.Pos IF NOT $bDoNotMove THEN Object.Lock(sldPos) IF iPos > sldPos.MaxValue THEN sldPos.MaxValue = sldPos.MaxValue * 2 ENDIF sldPos.Value = iPos Object.Unlock(sldPos) ENDIF FOR iInd = 0 TO 2 iVal = iPos MOD 60 iPos = Int(iPos / 60) IF iInd THEN sPos = Format(iVal, "00") & ":" & sPos ELSE sPos = Format(iVal, "00") ENDIF NEXT lblPos.Text = sPos END PUBLIC SUB btnOpen_Click() IF Dialog.OpenFile() THEN RETURN ' lblTitle.Text = File.Name(Dialog.Path) ' Approximation... sldPos.MaxValue = 600 Music.Load(Dialog.Path) btnPlay_Click END PUBLIC SUB btnPlay_Click() Music.Load(Dialog.Path) timMusic.Enabled = TRUE Music.Play END PUBLIC SUB btnPause_Click() Music.Pause END PUBLIC SUB btnStop_Click() Music.Stop timMusic.Enabled = FALSE lblPos.Text = "" sldPos.Value = 0 END | |
| manu | #17 Posté le 27/3/2010 à 23:15:00 |
Avec Gambas ca roule ! | oui.... et donc ..... ? c'est une demonstration ou une question ?  Jeanne d'arc, elle a frit, elle a tout compris !  Config : Manjaro linux (excellent !) XFCE 4.1 (simple et efficace) Gambas 3 dans les dépots (confort total) |
| ecitoyen | #18 Posté le 28/3/2010 à 10:40:00 |
| Cher Manu... une demonstration ou une question...? C'est plutot un exemple comme quoi cela fonctionne correctement... un exemple fournit par Gambas... salutations.  | |
| gambix | #19 Posté le 28/3/2010 à 14:22:00 |
Faire simple ! | manu c'est la page 2 ... il répondait ... ou sont tes lunette ? Moins de texte dans une signature c'est agrandir son espace. |
| manu | #20 Posté le 28/3/2010 à 15:10:00 |
| Avec Gambas ca roule ! | Ha oui zut.... quel âne je fais....  Excuses moi ecitoyen !Jeanne d'arc, elle a frit, elle a tout compris ! Config : Manjaro linux (excellent !) XFCE 4.1 (simple et efficace) Gambas 3 dans les dépots (confort total) |
| ecitoyen | #21 Posté le 28/3/2010 à 17:14:00 |
| :arrow: Merci Gambix... et puis... c'est bien de savoir qui l'on est... comme ca je ne suis pas toujours obligé de dire des choses méchantes.... | |
| 12 | |