Bonsoir
j'utilise VelocimeterView pour afficher une température en utilisant certaines propriétés telles que:
velo1.Initialize("velo")
velo1.BottomVelocimeterColor = Colors.Transparent
velo1.ShowBottomVelocimeter = False
velo1.DigitalNumberBlurColor = Colors.Transparent
velo1.Duration = 0
velo1.ExternalProgressColor = Colors.Blue
velo1.InsideProgressColor = Colors.Transparent
velo1.InternalVelocimeterColor = Colors.Yellow
velo1.NeeddleColor = Colors.Red
velo1.NeedleBlurColor = Colors.Magenta
velo1.Min = 0
velo1.Max = 100
velo1.Units = "°"
velo1.update
je fais varier la température et je voudrais changer certaines propriétés en fonction de la température demandée telles que :
If velo1.Value < (15 * 2.22) Then
lbltemp.TextColor = Colors.Blue
velo1.DigitalNumberColor = Colors.Blue
velo1.DigitalNumberBlurColor = Colors.Blue
velo1.ExternalProgressColor = Colors.Blue
velo1.NeeddleColor = Colors.Blue
velo1.NeedleBlurColor = Colors.Blue
velo1.ProgressBlurColor = Colors.Blue
' velo1.update
End If
If velo1.Value >= (15 * 2.22) And velo1.Value < (30 * 2.22) Then
lbltemp.TextColor = Colors.Green
velo1.DigitalNumberColor = Colors.Green
velo1.DigitalNumberBlurColor = Colors.Green
velo1.ExternalProgressColor = Colors.Green
velo1.NeeddleColor = Colors.Green
velo1.NeedleBlurColor = Colors.Green
velo1.ProgressBlurColor = Colors.Green
' velo1.update
End If
If velo1.Value >= (30 * 2.22) Then
lbltemp.TextColor = Colors.Red
velo1.DigitalNumberColor = Colors.Red
velo1.DigitalNumberBlurColor = Colors.Red
velo1.ExternalProgressColor = Colors.Red
velo1.NeeddleColor = Colors.Red
velo1.NeedleBlurColor = Colors.Red
velo1.ProgressBlurColor = Colors.Red
' velo1.update
End If
si je laisse velo1.update, je plante l'appli
comment faire ?
Cordialement
Pierre
j'utilise VelocimeterView pour afficher une température en utilisant certaines propriétés telles que:
velo1.Initialize("velo")
velo1.BottomVelocimeterColor = Colors.Transparent
velo1.ShowBottomVelocimeter = False
velo1.DigitalNumberBlurColor = Colors.Transparent
velo1.Duration = 0
velo1.ExternalProgressColor = Colors.Blue
velo1.InsideProgressColor = Colors.Transparent
velo1.InternalVelocimeterColor = Colors.Yellow
velo1.NeeddleColor = Colors.Red
velo1.NeedleBlurColor = Colors.Magenta
velo1.Min = 0
velo1.Max = 100
velo1.Units = "°"
velo1.update
je fais varier la température et je voudrais changer certaines propriétés en fonction de la température demandée telles que :
If velo1.Value < (15 * 2.22) Then
lbltemp.TextColor = Colors.Blue
velo1.DigitalNumberColor = Colors.Blue
velo1.DigitalNumberBlurColor = Colors.Blue
velo1.ExternalProgressColor = Colors.Blue
velo1.NeeddleColor = Colors.Blue
velo1.NeedleBlurColor = Colors.Blue
velo1.ProgressBlurColor = Colors.Blue
' velo1.update
End If
If velo1.Value >= (15 * 2.22) And velo1.Value < (30 * 2.22) Then
lbltemp.TextColor = Colors.Green
velo1.DigitalNumberColor = Colors.Green
velo1.DigitalNumberBlurColor = Colors.Green
velo1.ExternalProgressColor = Colors.Green
velo1.NeeddleColor = Colors.Green
velo1.NeedleBlurColor = Colors.Green
velo1.ProgressBlurColor = Colors.Green
' velo1.update
End If
If velo1.Value >= (30 * 2.22) Then
lbltemp.TextColor = Colors.Red
velo1.DigitalNumberColor = Colors.Red
velo1.DigitalNumberBlurColor = Colors.Red
velo1.ExternalProgressColor = Colors.Red
velo1.NeeddleColor = Colors.Red
velo1.NeedleBlurColor = Colors.Red
velo1.ProgressBlurColor = Colors.Red
' velo1.update
End If
si je laisse velo1.update, je plante l'appli
comment faire ?
Cordialement
Pierre