LOGICIELS GAMBAS 2 - Lecteur musical
Rédigé par spheris
Aucun commentaire
Classé dans : audio, gambas 2, Logiciels, multimedia

Il semble qu'il y avait un problème lors des déplacements. Depuis mon passage a ubuntu10.10, je n'ai plus le problème. L'application fonctionnant bien, vous pourrez apprécier ce lecteur de qualité.
Merci Taoteblue

Voici le code de l'application gambas 2 :
' Gambas class file PUBLIC X1 AS Integer PUBLIC Y1 AS Integer PUBLIC action AS Boolean PUBLIC action3 AS Boolean PUBLIC position AS Integer = 0 PUBLIC XR1 AS Integer PUBLIC XR2 AS Integer PUBLIC YR1 AS Integer PUBLIC YR2 AS Integer PUBLIC TRX1 AS Integer PUBLIC TRY1 AS Integer PUBLIC DifX1 AS Integer PUBLIC DifY1 AS Integer PUBLIC SUB Form_open() DIM mypic AS Picture mypic = picture["lecteur.png"] ME.Width = mypic.Width ME.Height = mypic.Height ME.Mask = mypic ME.Center ToolButton2.Move(388, 13) ToolButton4.Move(323, 13) ToolButton5.Move(257, 13) ToolButton1.Move(193, 13) 'ComboBox1.Move(216, 70) 'ToolButton3.Move(192, 70) Label2.Move(40, 225, 400, 12) Label1.Move(200, 100, 200, 60) ToolButton3.Move(20, 223) DrawingArea1.Move(140, 65) XR1 = 0 XR2 = 39 YR1 = 10 YR2 = 26 Music.Volume = 1 - 10 / 145 Dessiner() END PUBLIC SUB Form_MouseDown() X1 = Mouse.X Y1 = Mouse.Y action = TRUE END PUBLIC SUB Form_MouseUp() action = FALSE END PUBLIC SUB Form_MouseMove() IF action = TRUE THEN ME.Move(ME.X - (X1 - Mouse.X), ME.Y - (Y1 - Mouse.Y)) ENDIF END PUBLIC SUB Form_DblClick() Music.Stop ME.Close END PUBLIC SUB ToolButton2_Click() Music.Stop ME.Close END PUBLIC SUB ToolButton5_Click() IF position = 0 THEN IF Label2.Text = "" THEN RETURN Music.Load(label2.Text) ENDIF Music.Play CATCH Message.Error("Une erreur est survenue", "Ok") END PUBLIC SUB ToolButton3_Click() Dialog.Title = "Choisir un fichier musique" Dialog.Filter = ["*.*", "Tous les fichiers", "*.mp3", "Fichiers mp3", "*.wav", "Fichiers wave"] IF Dialog.OpenFile() THEN RETURN Label2.Text = Dialog.Path Label1.Text = File.Name(Dialog.Path) Position = 0 END PUBLIC SUB ToolButton4_Click() Music.Stop Position = 0 ToolButton5.Enabled = TRUE Label1.Text = "" END PUBLIC SUB ToolButton1_Click() ToolButton5.Enabled = TRUE position = Music.Pos Music.Pause END PUBLIC SUB DrawingArea1_MouseMove() IF action3 = TRUE THEN IF Mouse.X > 0 AND Mouse.X < 39 AND Mouse.Y > 10 AND Mouse.Y < 145 THEN Draw.Begin(DrawingArea1) Draw.Tile(picture["barrelecteur.PNG"], 0, 0, 41, 156) Draw.Tile(picture["curseurlecteur.PNG"], 0, Mouse.Y - DifY1, 39, 16) Draw.End XR1 = Mouse.X - DifX1 YR1 = Mouse.Y - DifY1 Music.Volume = 1 - Mouse.Y / 145 XR2 = XR1 + 39 YR2 = YR1 + 16 ELSE action3 = FALSE ENDIF ENDIF END PUBLIC SUB DrawingArea1_MouseDown() IF Mouse.X > XR1 AND Mouse.X < XR2 AND Mouse.Y > YR1 AND Mouse.Y < YR2 THEN TRX1 = Mouse.X TRY1 = Mouse.Y DifX1 = TRX1 - XR1 DifY1 = TRY1 - YR1 action3 = TRUE ENDIF END PUBLIC SUB DrawingArea1_MouseUp() action3 = FALSE END PUBLIC SUB Dessiner() DIM mypic1 AS Picture mypic1 = picture["barrelecteur.PNG"] DrawingArea1.Width = mypic1.Width DrawingArea1.Height = mypic1.Height Draw.Begin(DrawingArea1) Draw.Tile(picture["barrelecteur.PNG"], 0, 0, mypic1.Width, mypic1.Height) Draw.Tile(picture["curseurlecteur.PNG"], 0, 10, 39, 16) Draw.End END