Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Presbiopia - la 43 ani ?

Termen transcriere autovehicul

Cazare Timisoara pe 4-5 zile

Primele zile ale internetului per...
 Ditra 25

Casti USB-C ptr A-54

Aplicatie medicala / asistent med...

De ce vor atația politicieni...
 ERR_ADDRESS_UNREACHABLE

Legea 18/1968 Se mai aplica?

Digi conectare 2 routere prin fir

Succesiune notar versus instanta ...
 Montaj aer conditionat in balcon ...

Cont curent mulți valuta far...

Sugestii plan casa

Experiente cu firme care cumpara ...
 

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