Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)

[es] :: Visual Basic 6 :: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)

[ Pregleda: 1137 | Odgovora: 12 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)05.04.2005. u 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]
Zdravo
05.04.2005. u 22:22 

Marko_L
Marko Lošonc
Founder and Owner, Jurassic Software
Beograd

Moderator
Član broj: 20532
Poruke: 2219
*.yubc.net.

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoftware.com


Profil

icon Re: Brojcanik u label105.04.2005. u 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.
-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
05.04.2005. u 22:48 

Aleksandrov
profesionalni ubica
Novi Sad

Član broj: 47782
Poruke: 143
*.ftn.ns.ac.yu.



Profil

icon Re: Brojcanik u label105.04.2005. u 22:57
mozes npr. zapisivati u registry mislim da je prakticnije i jednostavnije.
Koristi funkcije GetSetting i SaveSetting
---------------------
****
< 9 9 > My name
..( o ).. is
. . -- . .MX86251 ?
05.04.2005. u 22:57 

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Brojcanik u label105.04.2005. u 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.
Zdravo
05.04.2005. u 23:08 

Marko_L
Marko Lošonc
Founder and Owner, Jurassic Software
Beograd

Moderator
Član broj: 20532
Poruke: 2219
*.yubc.net.

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoftware.com


Profil

icon Re: Brojcanik u label105.04.2005. u 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.
-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
05.04.2005. u 23:26 

Aleksandrov
profesionalni ubica
Novi Sad

Član broj: 47782
Poruke: 143
*.ftn.ns.ac.yu.



Profil

icon Re: Brojcanik u label105.04.2005. u 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.
---------------------
****
< 9 9 > My name
..( o ).. is
. . -- . .MX86251 ?
05.04.2005. u 23:59 

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)17.04.2005. u 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
Zdravo
17.04.2005. u 16:55 

Marko_L
Marko Lošonc
Founder and Owner, Jurassic Software
Beograd

Moderator
Član broj: 20532
Poruke: 2219
*.yubc.net.

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoftware.com


Profil

icon Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)17.04.2005. u 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

-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
17.04.2005. u 19:20 

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)17.04.2005. u 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
Zdravo
17.04.2005. u 20:35 

Marko_L
Marko Lošonc
Founder and Owner, Jurassic Software
Beograd

Moderator
Član broj: 20532
Poruke: 2219
*.yubc.net.

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoftware.com


Profil

icon Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)17.04.2005. u 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

-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
17.04.2005. u 20:51 

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)17.04.2005. u 21:40
Marko_L
Hvala to sam trazio
Zdravo
17.04.2005. u 21:40 

Aleksandar Ružičić
Aleksandar Ružičić
Junior Developer, Spoonlabs d.o.o
20°27'46'' - 44°48'8''

SuperModerator
Član broj: 26939
Poruke: 2356
*.neobee.net.

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


Profil

icon Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)17.04.2005. u 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...
17.04.2005. u 22:04 

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 9021
*.etf.bg.ac.yu.

Sajt: www.diskusije.net


Profil

icon Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)18.04.2005. u 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. :)
18.04.2005. u 12:18 

[es] :: Visual Basic 6 :: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)

[ Pregleda: 1137 | Odgovora: 12 ]

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.