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.

[tomlev]

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

Utilise CType, et non DirectCast
DirectCast ne fait pas de conversion, mais seulement un cast (c'est-à-dire que ça ne change pas le type de la valeur, mais seulement la façon dont elle est interprétée par le compilateur)

Pour l'autre question, j'ai pas compris. Tu cherches à faire quoi exactement ?

[hacker59]

bonjour, merci pour votre réponse .

je voudrais savoir comment j'ecrire avec textbox1.text.
voici en image mon projet.

[tomlev]

je voudrais savoir comment j'ecrire avec textbox1.text.
voici en image mon projet.

Bah ça aide pas vraiment à comprendre

[hacker59]

je voudrais dire comment j'ecrire avec textbox1.text

Code :

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

1
2
3
reader.Position = &H8
            Dim span As TimeSpan = TimeSpan.FromSeconds(Reverse(CDbl(reader.ReadInt32)))
Me.textbox1.text = New Decimal(span.Hours + span.Minutes + span.Seconds )

je voudrais afficher le resulta avec textbox1.text.
comment je l'ecrie. merci

[hacker59]

j'ai trouver pour lire :

Code :

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

1
2
Dim span As TimeSpan = TimeSpan.FromSeconds(Reverse(CDbl(reader.ReadInt32)))
            Me.TextBox1.Text = span.ToString()

je voudrais pour enregistrer: il me affiche (Le format de la chaine d’entrée est incorrect.)

Code :

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

1
2
3
writer.Position = &H8
            Dim span As New TimeSpan(Reverse(Convert.ToInt32(Me.TextBox1.Text)))
            writer.WriteInt32(CType(Math.Round(span.TotalSeconds), UInt32))

voici en image.
pouvez-vous m'aider a corriger ce petit probleme.