Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Mirosurile in blocurile noi

Monitor 2 blurry

Ce vrea sa zica autorul?

Blocuri drumul taberei
 Dynamic Residence 2 Brasov

Editari foto/video unice

BRICS

Cat sa fac gratarul din caramida?
 Calculator de buget

Cetatenie Romana copil nascut in ...

Ce imprimanta laser monocrom reco...

Fisuri planșeu beton
 Placa de sunet usb

Ce trebuie sa fac daca mi-am schi...

Plante fara irigatii, zona de cam...

Firma de prestari servicii a facu...
 

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

Chirurgia spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

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