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: 4113 | Odgovora: 12 ] > FB > Twit

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 - pre 231 meseci
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
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Brojcanik u label105.04.2005. u 22:48 - pre 231 meseci
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
 
Odgovor na temu

Aleksandrov

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



Profil

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

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 - pre 231 meseci
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
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Brojcanik u label105.04.2005. u 23:26 - pre 231 meseci
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
 
Odgovor na temu

Aleksandrov

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



Profil

icon Re: Brojcanik u label105.04.2005. u 23:59 - pre 231 meseci
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 ?
 
Odgovor na temu

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 - pre 231 meseci
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
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)17.04.2005. u 19:20 - pre 231 meseci
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
 
Odgovor na temu

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 - pre 231 meseci
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
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)17.04.2005. u 20:51 - pre 231 meseci
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
 
Odgovor na temu

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 - pre 231 meseci
Marko_L
Hvala to sam trazio
Zdravo
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

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


+44 Profil

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

Shadowed
Vojvodina

Član broj: 649
Poruke: 12849



+4784 Profil

icon Re: Brojcanik u label1 (Koliko puta je aplikacija pokrenuta)18.04.2005. u 12:18 - pre 231 meseci
Ili razdvojis na bitove pa postavljas poslednji bit na 1, 2, 3, 5, 8, 13,... dalje pixel i to naizmenicno R, G pa B. :)
 
Odgovor na temu

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

[ Pregleda: 4113 | Odgovora: 12 ] > FB > Twit

Postavi temu Odgovori

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