Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)

Brojcanik u label1 (Koliko puta je aplikacija pokrenuta) 05.04.2005. u 22:22 · pre 262 meseci #1

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]}

Potpis

Zdravo

Re: Brojcanik u label1 05.04.2005. u 22:48 · pre 262 meseci #2

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.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Brojcanik u label1 05.04.2005. u 22:57 · pre 262 meseci #3

mozes npr. zapisivati u registry mislim da je prakticnije i jednostavnije.
Koristi funkcije GetSetting i SaveSetting

Potpis

---------------------
****
< 9 9 > My name
..( o ).. is
. . -- . .MX86251 ?

Re: Brojcanik u label1 05.04.2005. u 23:08 · pre 262 meseci #4

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.

Potpis

Zdravo

Re: Brojcanik u label1 05.04.2005. u 23:26 · pre 262 meseci #5

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.

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Brojcanik u label1 05.04.2005. u 23:59 · pre 262 meseci #6

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.

Potpis

---------------------
****
< 9 9 > My name
..( o ).. is
. . -- . .MX86251 ?

Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta) 17.04.2005. u 16:55 · pre 261 meseci #7

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

Potpis

Zdravo

Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta) 17.04.2005. u 19:20 · pre 261 meseci #8

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

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta) 17.04.2005. u 20:35 · pre 261 meseci #9

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

Potpis

Zdravo

Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta) 17.04.2005. u 20:51 · pre 261 meseci #10

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

Potpis

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta) 17.04.2005. u 21:40 · pre 261 meseci #11

Marko_L
Hvala to sam trazio

Potpis

Zdravo

Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta) 17.04.2005. u 22:04 · pre 261 meseci #12

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...

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta) 18.04.2005. u 12:18 · pre 261 meseci #13

Ili razdvojis na bitove pa postavljas poslednji bit na 1, 2, 3, 5, 8, 13,... dalje pixel i to naizmenicno R, G pa B. :)

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Srodne teme