Timeofday et DataGridView

Version imprimable

05/07/2014, 20h07
stevensavior

Timeofday et DataGridView
Bonjour j'ai besoin de votre aide pour finaliser mon appli qui est un petit agenda avec alarmes.

J'ai un label qui affiche l'heure actuelle (timeofday)
J'ai un DataGridView qui est connecté à une base Access via TableAdapters
Cela marche bien je peux ajouter des alarmes, les enregistrer ou les supprimer.

Ce que voudrai c'est que quand mon label "timeofday" correspond à une heure enregistrée dans la base Access, une fenetre s'ouvre.

Pour info J'ai donc:
Un label qui affiche timeofday (lblcurtime)
Une DataGridView (dgv1) avec un DataSet (AlarmeDataSet) et un TableAdapter (AlarmesTableAdapter)
Une base Access (alarme.accdb) qui contient quatre colonnes, dans l'ordre : ID, NOM, HEURE, STATUT
La colonne HEURE de la bd contient un type de données Date/Heure

J'ai testé ce code mais sans succés dans un Timer_Tick:
Code:

1 2 3 4 5 Dim i As Integer if ReminderTblDataGridView.Item(3, i).Value.ToString() = Format(Date.Now, "hh:mm:ss").ToString Then Form2.Show() End If
Merci de votre aide.
05/07/2014, 22h26
clementmarcotte
Bonjour,
Citation:
Envoyé par stevensavior

Bonjour j'ai besoin de votre aide pour finaliser mon appli qui est un petit agenda avec alarmes.

J'ai un label qui affiche l'heure actuelle (timeofday)
J'ai un DataGridView qui est connecté à une base Access via TableAdapters
Cela marche bien je peux ajouter des alarmes, les enregistrer ou les supprimer.

Ce que voudrai c'est que quand mon label "timeofday" correspond à une heure enregistrée dans la base Access, une fenetre s'ouvre.

Pour info J'ai donc:
Un label qui affiche timeofday (lblcurtime)
Une DataGridView (dgv1) avec un DataSet (AlarmeDataSet) et un TableAdapter (AlarmesTableAdapter)
Une base Access (alarme.accdb) qui contient quatre colonnes, dans l'ordre : ID, NOM, HEURE, STATUT
La colonne HEURE de la bd contient un type de données Date/Heure

J'ai testé ce code mais sans succés dans un Timer_Tick:

Code:

1 2 3 4 5 Dim i As Integer if ReminderTblDataGridView.Item(3, i).Value.ToString() = Format(Date.Now, "hh:mm:ss").ToString Then Form2.Show() End If

Merci de votre aide.
Je ne suis pas trop sûr de cette ligne:

Code:

if ReminderTblDataGridView.Item(3, i).Value.ToString() = Format(Date.Now, "hh:mm:ss").ToString Then

Parce que ma compréhension de la chose est qu'il est impossible, ou presque) d'arriver à une stricte égalité.
Now retourne une valeur de date qui contient la date et l'heure. Format sert seulement à l'affichage de l'heure sans changer la valeur du résultat de Now. Donc, sauf horreur de ma part, tu compares une chaîne de probablement 8 caractères (une heure) à une chaîne plus longue (une date et une heure).

Je suis porté à penser que tu aurais plus de chance avec DateTime.TimeOfDay, qui retourne seulement une heure.

Mais, je pense que tu devrais tester au pas-à-pas avec un espion pour la partie gauche et un espion pour la partie droite.

Pour jouer avec les valeurs de dates et d'heures, il faut obligatoirement, ou presque, utiliser concurremment, DateTime() et TimeSpan().
06/07/2014, 14h47
stevensavior
Effectivement cette ligne était mauvaise car prise en exemple sur un autre site. En fonction du nom de mes composants elle aurait du être:
Code:

1 2 3 4 Dim i As Integer if dgv1.Item(3, i).Value.ToString() = Format(Date.Now, "hh:mm:ss").ToString Then Form2.Show() End If
Cela dit cela ne donne rien car elle est problablement erronée comme tu l'as fait remarquer.
Mon but et de faire en sorte qu'un timer (Timer1) verifie chaque seconde que les alarmes enregistrée dans ma base access correspondent ou non à l'heure actuelle (timeofday), et si c'est le cas, cela ouvre une form.

Il me manque cette partie du code qui va effectuer cette vérification dans la datagridview (dgv1).

Je ne savais pas trop comment m'y prendre pour concevoir mon agenda, alors je suis parti sur la création d'une base access avec un tableadapter pour afficher les données dans un datagridview. Mais je suis totalement débutant dans ce domaine et j'aurais besoin de ton aide stp.

Merci

Bonjour,

Cela devrait mieux fonctionner avec quelque chose comme :

Code:

If dgv1.Item(3, i).Value.ToString() = Date.Now.ToString("HH:mm:ss") Then

personnellement je serais parti dans l'autre sens. Plutôt que de vérifier moi même chaque seconde toutes les lignes d'alarme possible, j'aurais au lancement de l'application parcouru toutes les lignes et créer pour chaque alarme un timer. J'ai testé en vitesse et ça marche parfaitement :

Code:

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
Public Class Form1
 
    Private colReveil As New List(Of Date)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Debug.WriteLine("")
        rempliCol()
        initialiseTimers()
    End Sub
 
    Private Sub rempliCol()
        colReveil.Add(Now.AddSeconds(5))
        colReveil.Add(Now.AddSeconds(10))
        colReveil.Add(Now.AddSeconds(15))
        colReveil.Add(Now.AddMinutes(1))
        colReveil.Add(Now.AddMinutes(2))
        colReveil.Add(Now.AddMinutes(3))
        colReveil.Add(Now.AddMinutes(4))
        colReveil.Add(Now.AddMinutes(5))
        colReveil.Add(Now.AddMinutes(6))
        colReveil.Add(Now.AddMinutes(7))
        colReveil.Add(Now.AddMinutes(8))
        colReveil.Add(Now.AddMinutes(9))
 
        colReveil.Add(Now.AddMinutes(10))
        colReveil.Add(Now.AddMinutes(30))
        colReveil.Add(Now.AddMinutes(60))
        colReveil.Add(Now.AddDays(1))
    End Sub
 
    Private Sub initialiseTimers()
        For Each elem In colReveil
            Debug.WriteLine("")
            Debug.WriteLine("Réveil : " & elem.ToString("ddMMyyyy HHmmss"))
            Dim reste As TimeSpan = elem - Now
            Debug.WriteLine("today : " & Now.ToString("ddMMyyyy HHmmss"))
            Debug.WriteLine("reste : " & reste.TotalMilliseconds)
            If reste.TotalMilliseconds > 0 Then
                Dim t As New Timer
                t.Interval = reste.TotalMilliseconds
                t.Tag = elem.ToString("ddMMyyyy HHmmss")
                AddHandler t.Tick, AddressOf alarme
                t.Start()
            End If
        Next
    End Sub
 
    Private Sub alarme(ByVal sender As Object, ByVal e As EventArgs)
        CType(sender, Timer).Stop()
        If CType(sender, Timer).Tag = Now.ToString("ddMMyyyy HHmmss") Then
            MsgBox("OK " & CType(sender, Timer).Tag & " vs " & Now.ToString("ddMMyyyy HHmmss"))
        Else
            MsgBox("!!! KO !!! " & CType(sender, Timer).Tag & " vs " & Now.ToString("ddMMyyyy HHmmss"))
        End If
    End Sub
 
End Class

Avantage, même si le PC est mis en veille, lors de la sortie de veille l'action du timer est déclenchée.

07/07/2014, 18h47
stevensavior

Merci je vais tester ca dès que possible et je vous tiens au jus.