Débutant : Incompréhension de calcul avec progressbar et timerRésolu

Question

Bonjour,

J'essaie de me faire un petit programme qui me permettrai de faire descendre une progressbar qui représente une quantité de liquide selon une heure défini par l'utilisateur.

Textbox1.text correspond à la contenance de base (exemple : 4000ml)
Textbox2.text correspond à la dose qui sera soustrait à l'heure souhaité (exemple : 200 ml)
Label99.text correspond au résultat
label78.text me permet de faire la boucle de soustraction à chaque fois que l'heure réel arrive à l'heure choisie par l'utilisateur

L'heure choisi par l'utilisateur est saisi dans le Textbox9.text pour les heures et le Textbox10.text pour les minutes

- J'active le timer pour récupéré mon heure

Private Sub RibbonForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        'Démarrage de l'heure en temps réel        Timer1.Enabled = True    End Sub

- Je récupère l'heure de l'utilisateur au bon format dans le label89.text

Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged         'récupération de l'heure au bon format        Label89.Text = TextBox9.Text + ":" + TextBox10.Text + ":00"     End Sub

- Je récupère et compare l'heure de l'ordi par rapport à l'heure utilisateur dans le Toolstrplabel4.text 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         Timer1.Start()         'Affiche la date        ToolStripLabel2.Text = Date.Now.ToString("dd-MM-yyyy")         'Affiche l'heure        ToolStripLabel4.Text = TimeOfDay         'Résulat Pompe1        If Label89.Text = Toolstriplabel4.Text Then         Label99.Text = Label78.Text - TextBox7.Text        Label10.Text = Label99.Text + " ml"         'Calcul pourcentage        Label112.Text = (100 * Val(Label99.Text)) / Val(TextBox1.Text)        VerticalProgressBar1.Value = Label112.Text        Label117.Text = Label112.Text + " %"        Label78.Text = Label99.Text   ' -> Quand j'ajoute cette ligne le calcul n'est plus cohérent         End If     End Sub



Je m'arrache les cheveux à essayer de comprendre pourquoi le calcul s’exécute mais me donne des résultats incohérent (exemple pour 4000ml de base avec 200ml de dosage, le résultat me donne 2000ml au lieu de 3800ml

Ce qui est étrange c'est que si je n'utilise pas la nation de l'heure et que je place directement les calculs dans un événement Button_Click tout fonctionne à merveille. j'ai bien 200ml en moins à chaque clique sur le bouton...

Auriez-vous une idée ou une solution à mon problème je ne sais plus quoi faire 
Merci à tous ceux qui pourront m'aider

ucfoutu · Answer

Bonjour,
Ton label contient du TEXTE. A convertir en numérique, si tu veux l'utiliser pour faire des opérations.

vb95 · Answer

Bonjour
J'irais même plus loin 
1) Donne des noms significatifs à tes contrôles Label, TextBox . Par exemple Dosage.Text est plus parlant que Label199.Text 
2) Les contrôles ne servent que pour entrer ou afficher des informations . Leurs contenus ne doivent pas servir au calcul : passe par des variables numériques intermédiaires
Un exemple simple 
Nombre1.Text = "112"Nombre2.Text = "27"Dim Nb1 as Integer = Convert.toInt32(Nombre1.Text) ' variable numérique Nombre1Dim Nb2 as Integer = Convert.toInt32(Nombre2.Text) ' variable numérique Nombre2Dim Somme as Integer = Nb1 + Nb2 ' opération sur des numériquesLabelSomme.Text = Somme.Tostring ' affichage somme

Ensuite ce sera bien plus clair pour toi  et pour nous aussi pour t'aider
 
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

jerlo11 · Answer

les ligne 4 à 6 tu les places en dessous de Public Class Form1 ??
car j'ai des erreur

Whismeril · Answer

Bonsoir

ça n'est pas le fond d problème, mais dans cette ligne
           Dim reste1 As Integer = CInt(QtyBase1 - QtyDose1)
 
les variables sont des entiers, donc le résultat aussi, il est inutile de faire une conversion.

Je rebondis sur cette phrase
Mais tu as raison si le user quitte le logiciel, alors toutes les valeurs des txtbox et label serton sauvegardé en "propertyBinding" donc mon probleme n'est pas là. 

Le code que tu montres ne fais pas de binding, au contraire tout est affiché "à la main".
Si tu veux voir ce que donne le binding en .Net, j'ai écrit un petit tuto dessus pour Winform http://codes-sources.commentcamarche.net/faq/1291-utilisation-du-binding-au-travers-de-l-objet-databindingsource
C'est autrement plus puissant pour WPF.

A l'instar de VB, puisqu'il s'agit d'un calcul quotidien (si j'ai bien compris), je sauverai chaque jours tous les paramètres, dans un fichier xml, json ou même bases de données (mais 365 enregistrements / an ne le justifient peut être pas).

Toutes ces valeurs serraient stockées dans une list(of) ou autre collection (BindingList, ObservableCollection {qui a l'avantage de posséder des événements sur l'ajout ou la suppression}...).

Ainsi, tu pourrais refaire tes calculs, corriger une valeur mal saisie, ect... et en cas de démarrage de l'appli, tu recharges les données.
 
Quand j'étais petit, la mer Morte n'était que malade.
George Burns

jerlo11 · Answer

Bonjour,

ben le calcul executé dans le Timer1_Tick, si je traduis ce qu'il ce passe :
avec txtbase = 4000 ml
avec txtdose = 200 ml

Je compare l'heure du PC avec l'heure saisi

Si l'heure saisie = heure du PC alors
le label reste1 = QTE saisie par utilisateur soit 4000 - quantité de la dose à enlever soit 200

donc label reste1 = 3800ml

calcul du pourcentage restant = (100 * reste1 / QTE saisie par utilisateur)
= 95%

Puis il faut que je lui dise que MAINTENANT la base à baissée pour que le prochain calcul me donne :

label reste1 = 3800 - 200 = 3600ml
pourctentage = 90%

ect...

c'est cette boucle que je n'arrive pas a réaliser et qui me donne 2200ml au lieu de 3800ml

Whismeril · Answer

Alors, un petit exemple, ou j'ai pris quelques libertés plutôt que revenir poser pleins de questions. J'ai commenté ces "libertés" par "il me semblait logique...." au dans le style. Tout d'abord la classe qui va contenir les paramètre, gérer les intervalles et signaler le nouveau solde, le seuil d'alerte etc... J'ai fait en sorte que tout soit paramétrable si un jour tu veux passer de 24h à quelques secondes. Je pense avoir suffisamment commenté, mais si t'as des questions n'hésite pas. J'ai pris quelques précautions que je ne sais pas si elles sont nécessaire en basic. Imports System.Text Imports System.Threading.Tasks Imports System.Timers Imports System.Windows.Threading '''

''' Délégué décrivant la signature de l'évenement alertant le passage du seuil '''

''' Public Delegate Sub SeuilAtteintEvent(ByVal QuantiteRestante As Integer) Public Delegate Sub DiversEvent() Public Class LeTrucAJerlo 'Puisque ton besoin est d'une fois par jour un timer à le seconde est sur-qualitatif 'mais pour l'exemple je vais te le faire toutes les 10s... Private monTimer As New Timer(1000) 'Association d'une date à attendre et d'un débit Private echeance As KeyValuePair(Of Date, Integer) 'Cet objet sert à parler en dehors du timer sans poser de problèmes inter thread Private dispacther As Dispatcher '''

''' Construction d'un nouveau Truc avec les paramètres d'initialisation utiles '''

''' ''' ''' ''' Public Sub New(ByVal QuantiteDepart As Integer, ByVal DebitDefaut As Integer, ByVal SeuildAlerte As Integer, ByVal HeureDefaut As TimeSpan, Optional ByVal ProchaineEcheanceAjouteeEtAttendueAutomatiquement As Boolean = True) dispacther = Dispatcher.CurrentDispatcher QuantiteInitiale = QuantiteDepart DebitParDefaut = DebitDefaut SeuilAlerte = SeuildAlerte HeureParDefaut = HeureDefaut LesDebits = New Dictionary(Of Date, Integer)() AddHandler monTimer.Elapsed, AddressOf monTimer_Elapsed If ProchaineEcheanceAjouteeEtAttendueAutomatiquement Then AjouterEcheance() End If End Sub #Region "Propriétés" Public Property QuantiteInitiale() As Integer Public Property DebitParDefaut() As Integer Public Property SeuilAlerte() As Integer Public Property HeureParDefaut() As TimeSpan Private soldeActuel_Renamed As Integer '''

''' Propriété donnant le solde actuel, elle comprend une variable interne pour signaler sont changement '''

Public Property SoldeActuel() As Integer Get Return soldeActuel_Renamed End Get Private Set(ByVal value As Integer) 'le set est privé car seul l'objet peut mettre à jour ce champ If value = soldeActuel_Renamed Then 'même valeur on s'en va Return End If soldeActuel_Renamed = value dispacther.Invoke(New Action(Sub() RaiseEvent QuantiteRestanteMiseAJour()), DispatcherPriority.Normal) End Set End Property '''

''' Dictionnaire liant chaque débit à sa datation '''

Public Property LesDebits() As Dictionary(Of Date, Integer) #End Region #Region "Méthodes" '''

''' Retourne la quantité restante maintenant '''

''' Public Function QuantiteRestante() As Integer Return QuantiteRestante(Date.Now) End Function '''

''' Retourne la quantité restante à un instant donné '''

''' ''' Public Function QuantiteRestante(ByVal Quand As Date) As Integer 'on additionnes tous les débits antérieurs au moment quand Dim totalDebit As Integer = LesDebits.Where(Function(x) x.Key <= Quand).Sum(Function(x) x.Value) Dim reste As Integer = QuantiteInitiale - totalDebit If reste <= SeuilAlerte Then dispacther.Invoke(New Action(Sub() RaiseEvent SeuilAtteint(reste)), DispatcherPriority.Normal) End If Return reste End Function '''

''' Ajoute la prochaine échéance avec les paramètres par défaut '''

Public Sub AjouterEcheance() Dim heureCalcul As Date = Date.Now.Date + HeureParDefaut 'si l'heure est déjà passée ce sera pour le lendemain If heureCalcul < Date.Now.Date Then heureCalcul = heureCalcul.AddDays(1) End If AjouterEcheance(heureCalcul, DebitParDefaut) End Sub '''

''' Ajoute une échéance '''

Public Sub AjouterEcheance(ByVal [Date] As Date, ByVal CeDebit As Integer) LesDebits.Add([Date], CeDebit) 'il me parrait logique de lancer l'attente automatiquement mais si ça te covinet pas il suffit de supprimer la ligne suivante AttendreLaProchaineEcheance() End Sub '''

''' Lance la procédure pour attendre l'échéance suivante '''

Public Sub AttendreLaProchaineEcheance() 'on vérife qu'on est pas déjà en train d'attendre If monTimer.Enabled Then Return End If 'on vérifie qu'il y a une échéance à attendre If LesDebits.Last().Key < Date.Now Then dispacther.Invoke(New Action(Sub() RaiseEvent PasdEcheanceAVenir()), DispatcherPriority.Normal) 'il me parrait logique d'ajouter la prochaine échéance de suite, si ça ne te convient il faudra quitter la méthode AjouterEcheance() End If 'on prends la première échéance à venir, imaginons que l'utilisateur en rentre plein d'avance echeance = LesDebits.Where(Function(x) x.Key > Date.Now).First() 'lance l'attente monTimer.Start() End Sub Private Sub monTimer_Elapsed(ByVal sender As Object, ByVal e As ElapsedEventArgs) If Date.Now >= echeance.Key Then monTimer.Stop() 'la date est atteinte ou dépassée SoldeActuel = QuantiteRestante() 'il me parrait logique de relancer de suite pour la prochaine échéance, si ça ne te convient il te suffit de supprimer la ligne en dessous AttendreLaProchaineEcheance() End If End Sub #End Region '''

''' Evément signalant que le seuil d'alerte est atteint ou dépassé '''

Public Event SeuilAtteint As SeuilAtteintEvent '''

''' Evénement signalant qu'il n'y a pas déchance dans le futur '''

Public Event PasdEcheanceAVenir As DiversEvent '''

''' Evénement signalant la mise à jour de la quantité restante, sans passer de paramètre '''

Public Event QuantiteRestanteMiseAJour As DiversEvent End Class Le formulaire de test contient deux boutons et un label Imports System.ComponentModel Imports System.Text Imports System.Threading.Tasks Partial Public Class Form1 Inherits Form Private truc As LeTrucAJerlo Public Sub New() InitializeComponent() End Sub Private Sub truc_SeuilAtteint(ByVal QuantiteRestante As Integer) MessageBox.Show("Quantité inférieure ou égale au seuil.") End Sub Private Sub truc_QuantiteRestanteMiseAJour() label1.Text = "Le solde est : " & truc.SoldeActuel End Sub Private Sub truc_PasdEcheanceAVenir() MessageBox.Show("Il n'y a plus d'échéances.") End Sub Private Sub butNouvelleSequence_Click(ByVal sender As Object, ByVal e As EventArgs) Handles butNouvelleSequence.Click 'cette séquence teste va arriver un un nombre de séquence insuffisant Dim HeureParDefautDeTest As TimeSpan = Date.Now.TimeOfDay + TimeSpan.FromSeconds(5) 'initialisation d'un truc truc = New LeTrucAJerlo(4000, 200, 400, HeureParDefautDeTest) 'on abonne les méthodes aux événements de truc AddHandler truc.PasdEcheanceAVenir, AddressOf truc_PasdEcheanceAVenir AddHandler truc.QuantiteRestanteMiseAJour, AddressOf truc_QuantiteRestanteMiseAJour AddHandler truc.SeuilAtteint, AddressOf truc_SeuilAtteint 'j'ajoute des échéances personnalisées pour que l'exemple ne dure que quelques secondes Dim heureSuivante As Date = Date.Now.Date + HeureParDefautDeTest + TimeSpan.FromSeconds(5) truc.AjouterEcheance(heureSuivante, 200) truc.AjouterEcheance(heureSuivante.AddSeconds(5),500) truc.AjouterEcheance(heureSuivante.AddSeconds(10), 200) truc.AjouterEcheance(heureSuivante.AddSeconds(15), 500) truc.AjouterEcheance(heureSuivante.AddSeconds(20), 500) End Sub Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button2.Click 'cette séquence teste va passer sous le seuil Dim HeureParDefautDeTest As TimeSpan = Date.Now.TimeOfDay + TimeSpan.FromSeconds(5) 'initialisation d'un truc truc = New LeTrucAJerlo(4000, 800, 400, HeureParDefautDeTest) 'on abonne les méthodes aux événements de truc AddHandler truc.PasdEcheanceAVenir, AddressOf truc_PasdEcheanceAVenir AddHandler truc.QuantiteRestanteMiseAJour, AddressOf truc_QuantiteRestanteMiseAJour AddHandler truc.SeuilAtteint, AddressOf truc_SeuilAtteint 'j'ajoute des échéances personnalisées pour que l'exemple ne dure que quelques secondes Dim heureSuivante As Date = Date.Now.Date + HeureParDefautDeTest + TimeSpan.FromSeconds(5) truc.AjouterEcheance(heureSuivante, 800) truc.AjouterEcheance(heureSuivante.AddSeconds(5), 800) truc.AjouterEcheance(heureSuivante.AddSeconds(10), 900) truc.AjouterEcheance(heureSuivante.AddSeconds(15), 500) truc.AjouterEcheance(heureSuivante.AddSeconds(20), 500) End Sub End Class

Débutant : Incompréhension de calcul avec progressbar et timer

6 réponses

Votre réponse