[ nsofft @ 05.04.2005. 22:22 ] @
Kako da na formi u label1 prikazuje koliko je puta program paljen
- dali je to uopste moguce

[Ovu poruku je menjao mladenovicz dana 06.04.2005. u 09:41 GMT+1]
[ Marko_L @ 05.04.2005. 22:48 ] @
Moguće je, samo moraš da zapisuješ taj broj negde izvan programa, recimo u ini fajlu, ili negde u bazi, i svaki put kad se startuje program taj broj povećaš za jedan, i onda ga ispisuješ u label-u.
[ Aleksandrov @ 05.04.2005. 22:57 ] @
mozes npr. zapisivati u registry mislim da je prakticnije i jednostavnije.
Koristi funkcije GetSetting i SaveSetting
[ nsofft @ 05.04.2005. 23:08 ] @
Marko_L ja bi snimao podatak u access-u ali ne znam kako da mu zadam da se polje pri svakom paljenju poveca za jedan
jel bi mogo malo da mi pojasnis.
[ Marko_L @ 05.04.2005. 23:26 ] @
Najjednostavnije je da u Load Event-u početne forme otvoriš bazu i onda očitaš to polje i povećaš ga.Kad napraviš bazu, stavi jedno polje i u njemu početnu vrednost 0 i onda u Load Event forme stavi ovako nešto (pod pretpostavkom da si otvorio rekordset).
Code:
db.Recordset.Fields(0).Value = db.Recordset.Fields(0).Value + 1

Naravno, ovo će raditi samo ukoliko ti je to polje brojčanog tipa.
[ Aleksandrov @ 05.04.2005. 23:59 ] @
Nemoj koristiti Access ako ti zaista nije potreban.
Bolje ubaci sledeci kod u funkciju form_load():

Code:

BrojOtvaranja = GetSetting(App.Title, "Podesavanja", "BrojPaljenja", 0)
BrojOtvaranja=BrojOtvaranja+1
SaveSetting App.Title, "Podesavanja", "BrojPaljenja", BrojOtvaranja


Samo toliko.
[ nsofft @ 17.04.2005. 16:55 ] @
Postavio sam ovaj kod u form Load ()
Code:
BrojOtvaranja = GetSetting(App.Title, "Podesavanja", "BrojPaljenja", 0)
BrojOtvaranja=BrojOtvaranja+1
SaveSetting App.Title, "Podesavanja", "BrojPaljenja", BrojOtvaranja

E sada kako da namestim da kada u polje BrojOtvaranja bude 10
zatrazi sifru i kada jednom unesem sifru na sledecim paljenjima vise ne trazi sifru
[ Marko_L @ 17.04.2005. 19:20 ] @
Možeš na isti taj način da pohraniš informaciju o šifri.Posle tog koda stavi prvo da se proverava da li je aplikacija startovana manje od 10 puta, pa ako nije ne tražiš šifru.Ovo pišem iz glave, pa su moguće greške.
Code:
Private Sub Form_Load()
BrojOtvaranja = GetSetting(App.Title, "Podesavanja", "BrojPaljenja", 0)
BrojOtvaranja = BrojOtvaranja + 1
SaveSetting App.Title, "Podesavanja", "BrojPaljenja", BrojOtvaranja
If BrojOtvaranja < 10 Then
Exit Sub
Else
sifra = GetSetting(App.Title, "Podesavanja", "Sifra", "")
    If sifra = "" Then
    Dim a As String
    a = InputBox("Unesite lozinku", "Provera lozinke")
    If a = "nesto" Then SaveSetting App.Title, "Podesavanja", "sifra", a
    End If
End If
End Sub
[ nsofft @ 17.04.2005. 20:35 ] @
Marko_L
Otprilike to je to
mada treba ako ne otkucas pravu sifru da te izbaci iz
programa takodje treba i kad pretisnem cancel da izadje iz programa
[ Marko_L @ 17.04.2005. 20:51 ] @
Nešto ovako onda.
Code:
Private Sub Form_Load()
BrojOtvaranja = GetSetting(App.Title, "Podesavanja", "BrojPaljenja", 0)
BrojOtvaranja = BrojOtvaranja + 1
SaveSetting App.Title, "Podesavanja", "BrojPaljenja", BrojOtvaranja
If BrojOtvaranja < 10 Then
Exit Sub
Else
sifra = GetSetting(App.Title, "Podesavanja", "Sifra", "")
    If sifra = "" Then
    Dim a As String
    a = InputBox("Unesite lozinku", "Provera lozinke")
        If a = "" Then
        Unload Me
        Exit Sub
        End If
            If a = "nesto" Then
            SaveSetting App.Title, "Podesavanja", "sifra", a
            Else
            Msgbox "Pogresna lozinka"
            Unload Me
            End If
    End If
End If
End Sub
[ nsofft @ 17.04.2005. 21:40 ] @
Marko_L
Hvala to sam trazio
[ Aleksandar Ružičić @ 17.04.2005. 22:04 ] @
hmmm, nije ti bas mnogo dobar nacin da u registryju cuvas podatke o registraciji, bolje to zapisi u neki binary fajl, recimo dopises na kraj neke slike ili nesto slicno...
[ Shadowed @ 18.04.2005. 12:18 ] @
Ili razdvojis na bitove pa postavljas poslednji bit na 1, 2, 3, 5, 8, 13,... dalje pixel i to naizmenicno R, G pa B. :)