home *** CD-ROM | disk | FTP | other *** search
/ Macmaailma Vuosikerta 1994 to 1996 / TK1996_3CD.ISO / pc / k_portti / tk0894 / sekunti.frm (.txt) < prev    next >
Visual Basic Form  |  1994-12-11  |  3KB  |  56 lines
  1. formSekunti
  2. Sekuntikello
  3. Form15
  4. Timer1
  5. Command1
  6. ynnist
  7. Label1
  8. Aika:
  9. lblTime
  10. 00:00:00
  11. Arial
  12. JuoksevaAika
  13. ValiAika
  14. Command1_Click
  15. Command1
  16. Caption
  17.     Kaynnista
  18. Pysayta&
  19. Nollaa
  20. Timer1
  21. Interval
  22. Enabled
  23. lblTime
  24. Timer1_Timer
  25. Tunnit
  26. Minuutit
  27. Sekunnit
  28. formSekunti
  29. WindowStateX
  30.  (C) Copyright Sampo Suvisaari 1994
  31. Command1_Click
  32. ynnist
  33. Kaynnista
  34.  kellon nollaus ja referenssimuuttujan aloitusarvo
  35.  Timer-objektin keskeytysv
  36. liksi 1000 millisekuntia
  37. Nollaa
  38.  kellon nollaus
  39. 00:00:00
  40. ynnist
  41. Pysayta
  42.  stop clock
  43. &Nollaa
  44. Timer1_Timer
  45.  kelloa normaalisti
  46.  kello on ylitt
  47. nyt klo 12:00, joten Timer-funktio on
  48.  nollautunut. Lis
  49. n JuoksevaAika-muuttujan arvoao
  50.  ottaen t
  51.  huomioon. Sekunteja/vrk 24 x 60 x 60 = 84000 
  52.  muutetaan sekuntit tunneiksi, minuuteiksi ja sekunneiksi 
  53.  kokonaislukujakolaskullak
  54. n etunollat tarvittaessa
  55. n ruudulla jos ohjelma ei ole pienennettyn
  56.