Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Proszę o pomoc!
Groszek




Typ: neutral
Postów: 12
Zarejestrowany: Sep 2004
Proszę o pomoc!

Poszukuję kodu do wersji czasowej i ilościowej uruchomień aplikacji.

[Post edytowany dnia 22-09-2004 23:55 przez Groszek]


_____________________________________________
Groszek.

22-09-2004 23:54
Pokaż profil Groszek  Wyślij email do Groszek   
kicaj




Typ: neutral
Postów: 271
Zarejestrowany: Aug 2003

Dim czas as Long

'procedura load
Private Sub Form_Load()
czas=Timer
End Sub

Private Sub Form_Unload(Cancel as Intager)
On Error Resume Next
dim tmp as String
czas=timer-Czas ' Czas dzialania programu podany w sakundach
a = FreeFile
open( "C:\costam.txt" for Input as a
  Line Input #a, tmp
Close #a
tmp= String(int(tmp)+1)
a= FreeFile
open( "C:\costam.txt" for OutPut as a
  Print #a, tmp
Close #a

End Sub

'Przyklad z zapisywaniem do pliku, mozna zrobic analogicznie do rejestru
Ten program napewno nie jest wolny od bledow
pisalem go w notatniku

23-09-2004 13:32
Pokaż profil kicaj  Wyślij email do kicaj        3914568
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

Dane zapisywane do pliku muszą być oczywiście zabezpieczone! Ja użyłbym także tzw. Sumy kontrolnej, czyli ta sama liczba w dwóch plikach. Program wtedy porównuje oba pliki, i jeśli ich wartości są inne, to znaczy że ktoś w nich grzebał.

23-09-2004 13:59
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
Groszek




Typ: neutral
Postów: 12
Zarejestrowany: Sep 2004

B. dziekuję za odpowiedz. Po zastosowaniu procedury poinformuję, czy działa, lub poproszę o wyjaśnienie jakiegoś szczegółu.


_____________________________________________
Groszek.

23-09-2004 21:34
Pokaż profil Groszek  Wyślij email do Groszek   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1