Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Merita un Termostat Smart pentru ...

Sfat achizitie MTB Devron Riddle

Problema mare cu parintii= nervi ...

switch microtik
 Permis categoria B la 17 ani

Sfaturi pentru pregatirea de eval...

Crapaturi placa

cum imi accesez dosarul electroni...
 Momentul Aprilie 1964

Sursa noua - zgomot ?

A fost lansat Ubuntu 24.04 LTS

Pareri apartament in zona Berceni?
 Free streaming SkyShowtime de la ...

Skoda Fabia 1.0 TSI (110 CP)- 19 ...

Mezina familiei, Merida BigNine

The Tattooist of Auschwitz (2024)
 

Pentru cunoscatori Visual Basic...

- - - - -
  • Please log in to reply
2 replies to this topic

#1
Lentzi

Lentzi

    Junior Member

  • Grup: Members
  • Posts: 171
  • Înscris: 10.11.2002
Daca stie cineva cumva.. sau are asa ceva, il rog disperat sa ma ajute :)
Ce vreau sa fac? Un micut program, un fel de contor... care sa-mi afiseze... ani, zile, ore, minute si secunde trecute de la o anumita data si pana in prezent.. adica, daca data respectiva ar fi 1 februarie 2003, cand rulez programul pe data de 28 februarie 2003, programul sa-mi afiseze cam asa ceva:

0 ani, 27 zile, m ore, n secunde... si sa numere in continuare. asta ar fi cel mai important.. adica nu doar sa-mi afiseze.. ci sa numere in continuare.. sa mearga contorul asta.. exact ca un ceas.... dar un ceas care sa nu-mi arate timpul normal, ci timpul trecut de la data respectiva.

daca are cineva vreun cod in sensul asta, il rog foarte mult sa ma ajute.
multumesc.

#2
AndiOliver

AndiOliver

    Junior Member

  • Grup: Members
  • Posts: 219
  • Înscris: 27.02.2003
In primul rind visual basic iti pune la dispozitie un control de care te poti folosi: Timer
acesta poate invoca, in functie de intervalul ales o anumita functie. Evident, intervalul tau va fi de o secunda.

Vei avea nevoie de un Timer (sa-l denumim Timer1), precum si 3 textbox-uri
1) txtOra
2) txtMin
3) txtSec

In proprietatile Timer-ului seteze intervalul la 1000 (1sec)
Acum in procedora form_load:
Private Sub Form_Load()
' Initializare a textbox-urilor
txtSec = 0: txtmin = 0: txtora = 0
End Sub

In procedura Timer:
Private Sub Timer1_Timer(Index As Integer)
' Chemarea functiei
    Call GetMyTime
End Sub

Function GetMyTime()
' Aici boxul secundelor va incrementa fiecare secunda
    txtSec = txtSec + 1
    
' daca a ajuns la 60 incrementezi minutele si resetezi secundele
if txtSec = 60 then
txtmin = txtmin +1
txtsec = 0
end if

if txtmin = 60 then
txtora = txtora +1
txtmin = 0
end if
End Function

In mare cam asa s-ar face un ceas. De aici (zi, saptamina, luna an, estetica preluare informatii etc,) nu ramane decit sa scrii ce anume doresti.

Succes!

#3
AndiOliver

AndiOliver

    Junior Member

  • Grup: Members
  • Posts: 219
  • Înscris: 27.02.2003
eu personal am folosit ceva asemanator pentru counter-ul la un video-player realizat de mine.

Anunturi

Bun venit pe Forumul Softpedia!

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate