CeaS Digital

[reminton]

Am o problema , incerc sa fac un ceas digital in timp real. Ziceam ori sa-l pun intr-un notepad si la fiecare secunda sa apara alta linie cu ceasu. Sau un imput cu ceasu dar nu imi iese .Oricum fac iese aiurea si nu pot sa compilez Puteti sa-mi faceti voi unul sa vad si eo cum se face?^^ Thx

[AnaKonD]

Uite cel mai simplu ceas :

Cod:

#include
#include


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Ceas", 473, 98, 193, 125)
GUISetBkColor(0xA6CAF0)
$afisaj = GUICtrlCreateLabel("", 24, 24, 412, 49)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
GUICtrlSetData($afisaj,@HOUR & ":" & @MIN & ":" & @SEC);
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Practic tu pui numai linia:

Cod:

GUICtrlSetData($afisaj,@HOUR & ":" & @MIN & ":" & @SEC);

dar vei vedea ca face urat daca il rulezi

[reminton]

Pfoai da urat face:)) unu mai frumos nu e?^^

[AnaKonD]

Poti incerca sa pui un

Cod:

Sleep(900)

si se vede bine dar dupa aceea nu-ti mai raspunde programul adica nu mai poti iesi din el

[Challenge]

Uite cum poti rezolva, cu ajutorul unui timer :

Cod:

#include
#include


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Ceas", 473, 98, 193, 125)
GUISetBkColor(0xA6CAF0)
$afisaj = GUICtrlCreateLabel("", 24, 24, 412, 49)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$t = TimerInit()

While 1
    $nMsg = GUIGetMsg()
    If TimerDiff($t) > 900 Then
GUICtrlSetData($afisaj,@HOUR & ":" & @MIN & ":" & @SEC);
$t = TimerInit()
EndIf
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

[Smash]

Sau poti folosi o varianta mai simpla

Cod:

#include
#include
$Form1 = GUICreate("Ceas", 100, 22)
$ora_exacta = GUICtrlCreateInput("", 0, 0, 100, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY))
$ceas = ""
GUISetState(@SW_SHOW)
While 1
Sleep(100)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If $ceas <> _NowTime(5) Then
$ceas = _NowTime(5)
GUICtrlSetData($ora_exacta, $ceas)
EndIf
WEnd

[Challenge]

Mda... mai simpla da' tot intarzie cand il sting (apas pe X).

[reminton]

Pfa , e foarte simpla ... , extrem de simpla   Merci merci

offtopic: apropo scoate-ma si p mine da la ignore - remi_ice2005

[Smash]

Mda... mai simpla da' tot intarzie cand il sting (apas pe X).

Merge sa-l inchizi, dar dureaza cam o secunda pana se inchide

[DarkByte]

Din codul ala, pare ca ar trebui sa astepte maxim 0,1 secunde ... sau ma insel ?

[Smash]

^ asa este

[SkullAds]