[es] - Date funkcija i ...

BGoran

Član broj: 91587
Poruke: 85
*.dlp102.bih.net.ba.

Profil

^{25.04.2006. u 20:47 - pre 218 meseci}

Ovako, zanima me kako da uradim sljedece;
1)
Postavio sam sedam check buttons objekata na formu. Svaki od njih treba da predstavlja jedan dan u sedmici.
Kad je check1.value = 1 onda je odabran ponedeljak check2 utorak itd..Znaci kako da upravljam s njima? Recimo da to zelim prikazati na
jednoj labeli. Pa ako je check1.value = 1 kako da mi na labeli prikaze iz sistemskog datuma dan Ponedeljak. Pravim jedan alarm pa mi to treba.
Ako je opet recimo check1.value = 1 sta da upisem u timer da bi VB mog'o provjerit dal' je ponedeljak, i ako jest onda ja napisem
komandu koja ce se izvrsavat. Npr ovako:
Ako je check1.value = 1 (To bi bio ponedeljak) ja hocu da se program izgasi na taj dan. Znaci koji kod bi upiso u timer
da provjeri jel doso ponedeljak i ako jest da se program izgasi k'o sto sam vec reko.
Nadam se da sam bio jasan. I jos dvije stvari.
2) Kako da program posaljem u system tray?
3)I zadnja stvar, kako da program ubacim u start up al' tako da nastavi tamo gdje je zadnji put bio. Znaci da ostanu snimljene
sve promjene od zadnjeg pokretanja programa. Bas ovo iznad sto sam napis'o. Ako je odabran ponedeljak, program posaljem u tray,
i nakon restarta da se opet pokrene zajedno sa tim opcijama. Ovo zadnje mi se cini malo komplikovano al'..Ako neko moze pomoc rijesit
bilo koji od ovih problema zamolio bih ga za odgovor. Hvala.

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

Re: Date funkcija i ...

^{26.04.2006. u 00:16 - pre 218 meseci}

1) hm, ako sam te dobro razumeo:

Code:

Private Sub check1_Click()
if Check1.Value then Label1.Caption = "Ponedeljak"
End Sub
Private Sub check2_Click()
if Check2.Value then Label1.Caption = "Utorak"
End Sub
'i tako dalje

mada ako koristis checkbox-ove onda korisnik moze da ti odabere vise dana (nisam bas siguran da li tako zelis ili ne) ako hoces da korisnik moze da odabere samo jedan od sedam dana onda koristi OptionButton umesto CheckBox

za proveru dana mozes da koristis WeekDay funkciju:

Code:

Private Sub Timer1_Timer()
  If Check1.Value And WeekDay(Now) = vbMonday Then
     'cekiran je ponedeljak i trenutno je ponedeljak
  End If

  If Check2.Value And WeekDay(Now) = vbTuesday Then
     'cekiran je utorak i trenutno je utorak
  End If
  '  i tako dalje
End Sub

2) koristi pretragu bilo je reci o tome vise puta ( u TOP temi imas link ka jednoj od takvih tema)

3) da bi ti se program startovao sa windowsom (start up) moras da ga stavis u startup folder u start meniju ili (sto je bolje resenje) da upises to u registri.
prvo skini RegistryAcces klasu odavde zatim je dodaj u tvoj projekat (dodaj samo clsRegistryAccess.cls):

Code:

Private Sub Form_Unload()
  Dim Registry As New clsRegistryAccess
  Registry.WriteString "HKCU\Software\Microsoft\Windows\CurrentVersion\Run", _
                              "Ime Tvog Programa", "Putanja\do\tvog\programa.exe"
End Sub

a za cuvanje podataka moz da koristis registri:

Code:

Private Sub Form_Load
  Dim Registry As New clsRegistryaccess

  check1.value = REgistry.readDword("HKCU\Software\Tvoj program", "check1")
  check2.value = REgistry.readDword("HKCU\Software\Tvoj program", "check2")
  check3.value = REgistry.readDword("HKCU\Software\Tvoj program", "check3")
  check4.value = REgistry.readDword("HKCU\Software\Tvoj program", "check4")
  check5.value = REgistry.readDword("HKCU\Software\Tvoj program", "check5")
  check6.value = REgistry.readDword("HKCU\Software\Tvoj program", "check6")
  check7.value = REgistry.readDword("HKCU\Software\Tvoj program", "check7")
End Sub

Private Sub Form_Unload()
  Dim Registry As New clsRegistryAccess

  Registry.WriteString "HKCU\Software\Microsoft\Windows\CurrentVersion\Run", _
                              "Ime Tvog Programa", "Putanja\do\tvog\programa.exe"

   Registry.WriteDWORD "HKCU\Software\Tvoj program", "check1", check1.Value
   Registry.WriteDWORD "HKCU\Software\Tvoj program", "check2", check2.Value
   Registry.WriteDWORD "HKCU\Software\Tvoj program", "check3", check3.Value
   Registry.WriteDWORD "HKCU\Software\Tvoj program", "check4", check4.Value
   Registry.WriteDWORD "HKCU\Software\Tvoj program", "check5", check5.Value
   Registry.WriteDWORD "HKCU\Software\Tvoj program", "check6", check6.Value
   Registry.WriteDWORD "HKCU\Software\Tvoj program", "check7", check7.Value
End Sub

misim da nisam nigde pogresio...

poz

_{[Ovu poruku je menjao krckoorascic dana 26.04.2006. u 01:20 GMT+1]}

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

BGoran

Član broj: 91587
Poruke: 85
*.dlp85.bih.net.ba.

Profil

Re: Date funkcija i ...

^{26.04.2006. u 19:59 - pre 218 meseci}

krckoorascic, hvala velika na odgovorima. Ovo za ubacivanje programa u start up i snimanja promjena unutar programa, te nakon restarta vracanja istih mi je jako pomoglo. Predpostavljam da ce ovo radit i za sve ostale objekte koje postavim na formu(option, text, label..) Sto se tice prvog pitanja nisi me u potpunosti razumio. Pomogo si mi i u prvom pitanju samo ne prvim kodom(kako ispisati text na labeli sam znao davno davno prije :)), tako da mi je za zavrsetak programa ostalo samo ovo zadnje pitanje. Kako program poslati u tray? Provjeravo sam link koji si mi dao i tema u vezi systray, neradi, tj. nemogu otvorit tu temu, ne postoji vise. Hvala jos jednom na odgovorima, a za ovo trece pitanje cu pokusati sam pronaci odgovor na netu.

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

Re: Date funkcija i ...

^{27.04.2006. u 00:19 - pre 218 meseci}

SysTray - The Easy Way

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

BGoran

Član broj: 91587
Poruke: 85
*.dlp53.bih.net.ba.

Profil

Re: Date funkcija i ...

^{27.04.2006. u 00:47 - pre 218 meseci}

Evo sad se javio novi problem..Kad hocu da snimi text iz objekta text1.text, kad zatvorim program, pomocu :
Registry.WriteDWORD "HKCU\Software\test.exe", "text1", Text1.Text
te da ka ucita kad se program opet pokrene pomocu, kao sto si mi ti reko:
Text1.Text = Registry.ReadDWORD("HKCU\Software\test.exe", "text1")
dodje do greske ako u polje za text unesem dvotacku?! Ako ne unosim dvotacku sve radi kako treba. Program je takav da se ta dvotacka mora unijet u polje za text, to nemogu izbjec. Kako da rijesim ovaj problem? Jel moguce ikako da se to spremi u neki .INI fajl, il' neki drugi nacin?

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

Re: Date funkcija i ...

^{27.04.2006. u 01:03 - pre 218 meseci}

DWORD funkcije (ReadDWORD i WriteDWORD) koristi kada radis sa brojevima a kada radis sa stringovima (textom) koristi String funkcije (ReadString i WriteString)

Code:

Registry.WriteString "HKCU\Software\test.exe", "text1", Text1.Text
i
Text1.Text = Registry.ReadString("HKCU\Software\test.exe", "text1")

a ako hoces da radis sa ini fajlovima (mada kad vec moras da koristis registry da pokrenes program sa windowsom zasto bi sad jos koristio i ini-je?) pogledaj ovaj link (pogledaj moj prvi post u toj temi)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

BGoran

Član broj: 91587
Poruke: 85
*.dlp49.bih.net.ba.

Profil

Re: Date funkcija i ...

^{27.04.2006. u 11:40 - pre 218 meseci}

Okey, hvala. INI mi sad netreba, to sam pito u slucaju ako nemognem rijesit problem, al' evo posto je sad sve rijeseno nema potrebe za INI-jem. Imam jos samo jedno pitanje u vezi tvoje registry aces clase.
Ovako, zanima me jel moguce brisati stringove iz registry-a pomocu tvoje RegistryAcces clase?
Kad zapisem string sa:
Registry.WriteString "HKCU\Software\Microsoft\Windows\CurrentVersion\Run", _
"Ime Tvog Programa", "Putanja\do\tvog\programa.exe"
kako da ga poslje izbrisem? Probao sam nesto sa KillKey funkcijom al' neide.

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

Re: Date funkcija i ...

^{27.04.2006. u 20:06 - pre 218 meseci}

koristi KeyValue bilo da brises string, dword il binary podatke

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

BGoran

Član broj: 91587
Poruke: 85
*.dlp26.bih.net.ba.

Profil

Re: Date funkcija i ...

^{27.04.2006. u 21:32 - pre 218 meseci}

Molim te, jel mozes da mi dadnes jedan primjer kako da pobrisem iz registry-a predhodni primjer:
Registry.WriteString "HKCU\Software\Microsoft\Windows\CurrentVersion\Run", _
"c:\test.exe", "c:\test.exe"

KeyValue funkciju nisam uspio naci u tvom class modulu, samo kill value, predpostavljam da si na to i mislio. Izvinjavam se ako sam "malo dosadan" sa ovolikim pitanjima, al' ovo bi mi moglo biti od koristi i u sljedecim programima, pa mi je zato vazno da naucim.

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

Re: Date funkcija i ...

^{28.04.2006. u 00:04 - pre 218 meseci}

lol, izvini, u brzini sam pogresio nije KeyValue nego KillValue (kao sto si pretpostavio, a kad si vec pretpostavio sto nisi probao? :D najbolje se uci ako uzmes pa probas funkciju po funkciju :p)

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

BGoran

Član broj: 91587
Poruke: 85
*.dlp56.bih.net.ba.

Profil

Re: Date funkcija i ...

^{28.04.2006. u 12:53 - pre 218 meseci}

Sta je tako smijesno sto si pogrijesio :?? Anyway ovo sam vec rijesio, pronaso sam odgovor ovdje na forumu.

Ako nekom bude trebala ista stvar, prvo skine krckovu klasu za pisanje i citanje ima u predhodnim postovima ove teme a za brisanje npr:
Dim Registry As New clsRegistryAccess
Registry.KillKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Run"
Registry.KillValue "HKCU\Software\Microsoft\Windows\CurrentVersion\Run", _
"c:\test.exe"

_{[Ovu poruku je menjao BGoran dana 28.04.2006. u 13:59 GMT+1]}

Odgovor na temu