Utilisation de Range Slider avec les Heures

**wd_newbie** · 14/01/2014, 18h20

Bonjour,

j'ai une petite question : dans une fenêtre je dois mettre des heures de début et de fin ( arrivée et départ ).

J'ai mis des SPIN pour incrémenter mes heures (avec différents arrondis selon les préférences)

Je trouve assez sympa le contrôle Range Slider, mais je n'arrive pas a piger comment faire pour que la première valeur corresponde a mon heure de départ et la seconde à l'heure de départ.

Avec les SPIN c'est plus facile , j'incrémente ou décrémente les minutes a chaque modification ... avec le range slide ... je sèche.

Merci d'avance

Olivier

**laurent30s** · 15/01/2014, 00h01

Code à placer dans la section de code : Initialisation RGS_SansNom1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
hHeureDebut est une Heure = SAI_Heure_debut
hHeureFin est une Heure   = SAI_Heure_Fin
 
nHeureDebutEnMin est un entier = hHeureDebut..Heure * 60 + hHeureDebut..Minute
nHeureFinEnMin est un entier   = hHeureFin..Heure * 60 + hHeureFin..Minute
 
RGS_SansNom1..BorneMin			= 0
RGS_SansNom1..EtendueTotale		= 1439
RGS_SansNom1..Valeur			= nHeureDebutEnMin
RGS_SansNom1..EtendueVisible 	= nHeureFinEnMin - nHeureDebutEnMin

Code à placer dans les 2 sections de code :
- A chaque modification de RGS_SansNom1
- Modification de l'étendue (zoom) de RGS_SansNom1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
hHeureDebut est une Heure 
hHeureDebut..Heure  = PartieEntière(RGS_SansNom1..Valeur/60)
hHeureDebut..Minute = RGS_SansNom1..Valeur - PartieEntière(RGS_SansNom1..Valeur/60)*60
SAI_Heure_debut = hHeureDebut
 
hHeureFin est une Heure   = SAI_Heure_debut
hHeureFin..Heure  += PartieEntière(RGS_SansNom1..EtendueVisible/60)
hHeureFin..Minute += RGS_SansNom1..EtendueVisible - PartieEntière(RGS_SansNom1..EtendueVisible/60)*60
SAI_Heure_Fin = hHeureFin

Dans l'exemple l'amplitude va de 00:00 ..BorneMin
à 1439min --> 23:59 ..EtendueTotale

Si tu veux que la plage aille de 06:00 à 18:00 dans ce cas
..BorneMin = 6*60 = 360
..EtendueTotale = (18-6)*60 = 720

A toi d'adapter suivant ton besoin...