C' est ici, et nul part ailleurs. « Et pis c'est tout ! » | Bonjour à tous.
Voici une petite interface pour les abonnés Orange.
Lecture avec le media VLC, par défaut.
Autre média possible: comme gnome-mplayer,
et plus si affinités.
On poufff pas : Merci.
A+.
Reivillo.
NB: Merci a ce site de m' avoir fait connaitre GB.Settings.
Je ne me rappelle plus du POST, et donc de son initiateur.
Mais qu'il en soit remercié, et vous tous aussi.
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
| ' Gambas class file
PUBLIC zapurls AS STRING[255]
PUBLIC UrlsFile AS File
PUBLIC selprog AS BYTE
PUBLIC medproc AS process
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
IF Settings["TVadslORANGE/Ouvert"] = 1 THEN ' Si le projet est ouvert alors
' Message d'information
Message.info("Le média est déja ouvert"
ME.close 'puis on ferme le projet
ELSE
Settings["TVadslORANGE/Ouvert"] = 1 'si non alors on dit qu'il est ouvert
Settings.Save() ' et on le sauvegarde dans le fichier .conf
ENDIF
_core_
END
PUBLIC SUB _core_()
DIM Wbcl AS INTEGER = 0
DIM urls AS STRING
FMain.Center
UrlsFile = OPEN Application.path & "/UrlsFile.m3u" FOR INPUT
WHILE NOT Eof(UrlsFile)
LINE INPUT #UrlsFile, zapurls[Wbcl]
INC Wbcl
WEND
CLOSE #UrlsFile
END
PUBLIC SUB Form_Close()
IF medproc THEN
medproc.Kill
ENDIF
Settings["TVadslORANGE/Ouvert"] = 0
ME.close
END
PUBLIC SUB Button_MouseDown()
selprog = LAST.tag * 2
FMain.text = zapurls[selprog - 1]
Label2.text = zapurls[selprog]
FMain.Minimized = TRUE
IF medproc THEN
medproc.Kill
ENDIF
medproc = EXEC ["vlc", zapurls[selprog]]
Timer1.Enabled = TRUE
END
PUBLIC SUB Timer1_Timer()
IF medproc.State = 0 THEN
Form_Close
ENDIF
END
PUBLIC SUB Button21_Click()
Form_Close
END
|
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015) LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous... sudo add-apt-repository ppa:gambas-team/gambas3sudo apt-get updatesudo apt-get install gambas3 -yGambas3.8.4-57.47 ( Mise à Jour Auto via mintupdate le 28-01-2016) Pour la Doc, c'est vers là: Documentation Gambas3 FR |