Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Declarație primar

Contestare amenda politia locala

PC se restarteaza cu erori ecran ...

Mercedes atego 815 oprire motor
 Ce contine Creion rani dupa ras?

Filtru sedimente inainte de pompa?

Paște fericit!

electrician constructor video curs
 Cum pot bloca transferul de date ...

Ce reprezinta in chimie abrevieri...

Google pay ma taxeaza in timp ce ...

Kia Picanto 2022 - Problema motor?
 Durere umar AC Joint

Care este cea mai sanatoasa paine?

Zgomot ritmic ce urmeaza rotirea ...

Merita Lumix FZ82 in 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

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

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