[GB3]Simple Animation d'un Thermomètre.

Auteur : Reivillo
Date d'envoi : le 30/10/2014 à 08:59:54
Catégorie : Exemples & Tutos
Niveau : Débutant
Version : Gambas 3

À propos de ce code

Bonjour @ Toutes, & Tous.

Voici un exemple tout simple d'Animation d'un Thermomètre...
Au lancement de l'application:
le Thermomètre indique la Température du Disque Dur, si < hddtemp >,est intallé.
Pour Tester l'Animation, utiliser la Roulette, ou les Touches de directions Haut/Bas...

Reivillo.

Code source

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 ' Gambas class file PRIVATE $sOUTSHELL AS STRING = "" PRIVATE $iTEMP AS INTEGER = 0 PUBLIC SUB MAXMINTEMP() IF $iTEMP > 200 THEN $iTEMP = 200 ELSE IF $iTEMP < -200 THEN $iTEMP = -200 ENDIF REFRESHTERMO($iTEMP) Label1.Text = Str$($iTEMP / 4) & "°C" END PUBLIC SUB REFRESHTERMO(OPTIONAL $iREFRESH AS STRING) PictureBox3.H = 215 - $iREFRESH END PUBLIC SUB Form_Open() ME.Center ME.Y = 0 IF NOT Exist("/usr/bin/hddtemp") THEN Message.Info("hddtemp n'est pas installé!" ELSE SHELL "hddtemp -n /dev/sda" TO $sOUTSHELL IF $sOUTSHELL = "" THEN $sOUTSHELL = 0 $iTEMP = Val($sOUTSHELL) * 4 ENDIF MAXMINTEMP() END PUBLIC SUB PictureBox1_MouseWheel() $iTEMP = $iTEMP + Mouse.Delta MAXMINTEMP() END PUBLIC SUB Form_KeyPress() IF Key.Code = key.Up THEN $iTEMP = $iTEMP + 1 ELSE IF Key.Code = key.Down THEN $iTEMP = $iTEMP - 1 ENDIF MAXMINTEMP() END

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	' Gambas class file PRIVATE $sOUTSHELL AS STRING = "" PRIVATE $iTEMP AS INTEGER = 0 PUBLIC SUB MAXMINTEMP() IF $iTEMP > 200 THEN $iTEMP = 200 ELSE IF $iTEMP < -200 THEN $iTEMP = -200 ENDIF REFRESHTERMO($iTEMP) Label1.Text = Str$($iTEMP / 4) & "°C" END PUBLIC SUB REFRESHTERMO(OPTIONAL $iREFRESH AS STRING) PictureBox3.H = 215 - $iREFRESH END PUBLIC SUB Form_Open() ME.Center ME.Y = 0 IF NOT Exist("/usr/bin/hddtemp") THEN Message.Info("hddtemp n'est pas installé!" ELSE SHELL "hddtemp -n /dev/sda" TO $sOUTSHELL IF $sOUTSHELL = "" THEN $sOUTSHELL = 0 $iTEMP = Val($sOUTSHELL) * 4 ENDIF MAXMINTEMP() END PUBLIC SUB PictureBox1_MouseWheel() $iTEMP = $iTEMP + Mouse.Delta MAXMINTEMP() END PUBLIC SUB Form_KeyPress() IF Key.Code = key.Up THEN $iTEMP = $iTEMP + 1 ELSE IF Key.Code = key.Down THEN $iTEMP = $iTEMP - 1 ENDIF MAXMINTEMP() END

Commentaires

Merci pour cet exemple :-)
chez moi, j'ai un souci avec les permissions

Permission non accordée

Même en super user :

gbr3 thermo.gambas

Qu'est-ce que je fais de faux ?

Suis sur Mint 17.3 64 bit avec Cinnamon 2.8.8
3.19.0-32-generic #37~14.04.1-Ubuntu SMP Thu Oct 22 09:41:40 UTC 2015 x86_64 x86_64 x86_64 GNU/Linux