Discussion :

[hacker59]

bonjour , j'ai deux problème pour afficher un chrono et pour enregistrer.

voici une partie de mes codes:

Code :

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

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
Private Sub ReadFile()
        Try
            Dim reader As New PackageIO.Reader(Me.FilePath, PackageIO.Endian.Little, 0)
            reader.Position = &HC
            Me.NumericUpDown4.Value = Reverse(New Decimal(reader.ReadUInt32))
            reader.Position = &H8
            Dim span As TimeSpan = TimeSpan.FromSeconds(Reverse(CDbl(reader.ReadInt32)))
            Me.NumericUpDown1.Value = New Decimal(span.Hours)
            Me.NumericUpDown2.Value = New Decimal(span.Minutes)
            Me.NumericUpDown3.Value = New Decimal(span.Seconds)
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            Interaction.MsgBox(Conversion.ErrorToString, MsgBoxStyle.ApplicationModal, Nothing)
            ProjectData.ClearProjectError()
        End Try
    End Sub
    Private Sub WriteFile()
        Dim writer As New PackageIO.Writer(Me.FilePath, PackageIO.Endian.Little, 0)
        Try
            writer.Position = &HC
            writer.WriteInt32(Convert.ToInt32(Me.NumericUpDown4.Value))
            writer.Position = &H8
            Dim span As New TimeSpan(Convert.ToInt32(Me.NumericUpDown1.Value), Convert.ToInt32(Me.NumericUpDown2.Value), Convert.ToInt32(Me.NumericUpDown3.Value))
            writer.WriteUInt32(DirectCast(Math.Round(span.TotalSeconds), UInt32))
            Interaction.MsgBox("  Sauvegarde enregistrer ", MsgBoxStyle.ApplicationModal, Nothing)
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            Interaction.MsgBox(Conversion.ErrorToString, MsgBoxStyle.ApplicationModal, Nothing)
            ProjectData.ClearProjectError()
            End
        End Try
    End Sub

1) probleme avec writer: (Math.Round(span.TotalSeconds) = message erreur = impossible de convertir une valeur de type double en uinteger.

2) comme vous voyez dans le SYS-DATA (voir l' image en dessus) dans ma sauvegarde , il m'affiche en HEX: 00 00 00 05 = 00:00:01=> chrono.
si je remplace 00 00 00 10 = 00:00:02=>chrono ou 00 00 00 15 = 00:00:03=>chrono, je vous demande comment affiche le mémé résulta mais avec mon projet. merci
voici mon projet + mon SYS-DATA + ERREUR dans pièces jointes.