Salt la conținut

SUBIECTE NOI
« 1 / 5 »
RSS
Telefonul Oppo a74 mi-a blocat ca...

A inviat Mudava

Import china alibaba

Facultate
 Vouchere de vacanta

Cand One United nu mai vand isi v...

Mandolina feliat legume

Atestat consilier de siguranta
 alarma auto Autowatch 346 RLI

Ce se intampla cu actualii tineri...

Descifrare reteta

Zapp fix
 Rulment pt diferential 4motion

Lipire filtru la baterie ikea

Meserias nu mai vine sa termine l...

Soferii prinsi bauti sau drogati ...
 

Pentru cunoscatori Visual Basic...

- - - - -
  • Vă rugăm să vă autentificați pentru a răspunde
2 răspunsuri în acest subiect

#1
Lentzi

Lentzi

    Junior Member

  • Grup: Members
  • Mesaje: 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
  • Mesaje: 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
  • Mesaje: 219
  • Înscris: 27.02.2003
eu personal am folosit ceva asemanator pentru counter-ul la un video-player realizat de mine.

Anunturi

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

Utilizatori activi: 1

0 membri, 1 vizitatori, 0 utilizatori anonimi

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