[R] Retirer des chifres après une virgule.

[genaille08]

Bonjour à tous, sa f'sait longtemps lol

Je suis actuellement sur la réalisation d'un chronometre ( a commande vocale )
Donc j'utilise les fonction timerinit et timerdiff
Sauf que je voudrais affiché une GUI pour ce chronometre avec des label qui compte
et la fonction timerdiff m'affiche "13456.4321..." hors je ne veux pas de ce qu'il y a après le point et je ne sais pas coment faire
donc si vous pouviez m'aider please

j'ai chercher dans les stringis... mais je n'ai rien trouver
a si "stringisdigit" avec un if mais je probleme c'est qu'il n'y a rien qui s'affiche
aider moi s'il vous plait

[Dast]

Bonjour,

Tu veux un truc comme ça?

Code : Tout sélectionner

$tonTempsAvant = 15.34087

$tonTempsApres = StringSplit($tonTempsAvant, ".")

MsgBox(0, "", "Ton temps avant : "&$tonTempsAvant&", et ton temps après : "&$tonTempsApres[1])

La fonction StringSplit() sépare les bouts de string qui se trouvent entre les "." et les met dans un tableau. Et si tu veux récupérer ce que tu as après ton point tu prends tonTempsApres[2].
++

[Tlem]

C'est effectivement une solution, mais la solution la plus évidente est d'utiliser la fonction Int :

Code : Tout sélectionner

$begin = TimerInit()
While 1
    $dif = Int(TimerDiff($begin)/1000) ; Temps en seconde
    ConsoleWrite($dif & @CRLF)
    sleep(1000)
    If $dif = 10 Then ExitLoop
WEnd

[genaille08]

c'est aussi ce que je voulais mettre mais je n'ai pas eu la conexion hier et je n'ai pas pus dire que j'avais trouvé "int"
et ensuite pour rester dans le sujet
existe-t-il une fonction permetant de mettre le timerinit en pause ???

et voici un petit code

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>

Opt( "MustDeclareVars", 1 )

Dim $Form1, $Heures, $Minutes, $Secondes, $Centieme,$Dixiemes, $Milliemes, $Start, $Hour, $Mins, $Secs, $timerdiff, $DepartChronometre, $nMsg, $i
Global $Paused, $Stop

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Chronomètre", 225, 116, 226, 216)
$Heures = GUICtrlCreateLabel("00", 8, 8, 42, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Minutes = GUICtrlCreateLabel("00", 59, 8, 42, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Secondes = GUICtrlCreateLabel("00", 109, 8, 42, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Centieme = GUICtrlCreateLabel("0", 179, 8, 23, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Dixiemes = GUICtrlCreateLabel("0", 159, 8, 23, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Milliemes = GUICtrlCreateLabel("0", 197, 8, 23, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel(":", 49, 8, 14, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel(":", 99, 8, 14, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlCreateLabel(":", 149, 8, 14, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Start = GUICtrlCreateButton("Start", 8, 56, 65, 49, 0)
$Stop = GUICtrlCreateButton("Stop", 80, 56, 65, 49, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            
        Case $Start
            GUIctrlSetState ( $Start, $GUI_DISABLE )
            chronometre()
            
        Case $Stop
            GUICtrlSetState ( $start, $GUI_ENABLE )
            stop()

    EndSwitch
WEnd

Func chronometre()
    $DepartChronometre = TimerInit()
    While $nMsg <> $GUI_EVENT_CLOSE Or $nMsg <> $Stop
        $i = Int(TimerDiff($DepartChronometre))
        _TicksToTime( $i, $Hour, $Mins, $Secs)
        GUICtrlSetData ( $Heures, $Hour )
        GUICtrlSetData ( $Minutes, $Mins )
        GUICtrlSetData ( $Secondes, $Secs )
        $timerdiff = Int(TimerDiff($DepartChronometre))
        GUICtrlSetData( $Milliemes, StringRight($timerdiff,1) )
        GUICtrlSetData( $Centieme, StringTrimRight(StringRight($timerdiff,2),1))
        GUICtrlSetData( $Dixiemes, StringTrimRight(StringRight($timerdiff,3),2))
    WEnd
EndFunc

Func stop()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
    WEnd
EndFunc

While 1
    Sleep ( 100 )
WEnd

pourquoi quand je clik sur stop ça ne se stop pas
merci d'avance

[arrkhan]

autre solution plutot que d'utiliser int:
Round($String, 0)