[es] - CheckBox Pitanje

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: CheckBox Pitanje

^{28.08.2004. u 02:02 - pre 239 meseci}

Evo u vezi sa INI fajlovima, ja sam nasao ovaj modul i to OVDE! (Mogao bi i ti nekad malo da pretrazis [es] pre nego sto postavis neko pitanje)
Nije nikakva nauka samo ubacis modul u tvoj projekat i koristis dve funkcije:

Code:

GetProfile(sekcija,key,defvalue,inifile)
WriteProfile(sekcija,key,value,inifile)

Loginco je da sa GetProfile citas ini a da sa WriteProfile upisujes u njega.
Znaci ako imas ovakav ini:

Code:

[CheckBox Vrednosti]
Check1=0
Check2=1
Check3=1
...
Check13=0

Ovako bi ti izgledalo GetProfile za npr. CheckBox2

Code:

i = GetProfile("CheckBox Vrednosti","Check2","0","C:\inifile.ini")

Mislim da se sve vidi i da nema potrebe dalje da objasnjavam...

Nadam se da sam pomogao.

Pozdrav Svima!

rafforum.rs - Forum Računarskog Fakulteta

Prikačeni fajlovi

UseIni.bas - 1.7k

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 11:33 - pre 239 meseci}

Ma znam za to... Našao sam ja to tu.... I pokušavao sam nešto s tim iskombinirati ali nisam uspijo isto ko sad...

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 22:40 - pre 239 meseci}

Evo. Mislim da jednostavnije za upotrebu ne moze. Nije bas u uobicajenom formatu .ini fajla ali radi. Ako hoces promeni ekstenziju fajla. Naravno ti prilagodi ovo svojoj aplikaciji i stavi svoja imena check-ova i putanju i ime fajla.
Znaci, kad hoces da sacuvas stanje pozivas funkciju WriteSets a kad hoces da ucitas ReadSets.

Code:

Private Sub WriteSets()
    Dim fso As New FileSystemObject
    Dim MyStream As TextStream
    Dim strSettings As String

    Set MyStream = fso.OpenTextFile("c:\Setts.ini", ForWriting, True)
    strSettings = Check1.Value & Check2.Value & Check3.Value & _
    Check4.Value & Check5.Value & Check6.Value & _
    Check7.Value & Check8.Value & Check9.Value & _
    Check10.Value & Check11.Value & Check12.Value & _
    Check13.Value
    MyStream.WriteLine (strSettings)
    MyStream.Close
End Sub

Private Sub ReadSets()
    Dim fso As New FileSystemObject
    Dim MyStream As TextStream
    Dim strSettings As String

    Set MyStream = fso.OpenTextFile("c:\Setts.ini", ForReading, True)
    strSettings = MyStream.ReadLine
    MyStream.Close
    Check1.Value = Mid(strSettings, 1, 1)
    Check2.Value = Mid(strSettings, 2, 1)
    Check3.Value = Mid(strSettings, 3, 1)
    Check4.Value = Mid(strSettings, 4, 1)
    Check5.Value = Mid(strSettings, 5, 1)
    Check6.Value = Mid(strSettings, 6, 1)
    Check7.Value = Mid(strSettings, 7, 1)
    Check8.Value = Mid(strSettings, 8, 1)
    Check9.Value = Mid(strSettings, 9, 1)
    Check10.Value = Mid(strSettings, 10, 1)
    Check11.Value = Mid(strSettings, 11, 1)
    Check12.Value = Mid(strSettings, 12, 1)
    Check13.Value = Mid(strSettings, 13, 1)
End Sub

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 22:52 - pre 239 meseci}

Radi... Pravi .ini fajl ali di ja sad stvaljam te sve svoje funkcije (kodove opcija) i kako sad napravit .exe s tim određenim opcijama?Treba li mi za to compiler?
@Shadowed
Hvala

_{[Ovu poruku je menjao VRKY dana 29.08.2004. u 00:59 GMT]}

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 22:59 - pre 239 meseci}

Pa, mozes da stavis gde hoces. Samo nemoj da krsis sintaksu:).
Mozes da stavis u okviru koda te forme (tako je pravljeno) van bilo kog dogadjaja i da onda npr. u dogadjaju Click nekog tastera pozoves neku od ove dve funkcije.
Mozes da stavis u zaseban modul ali moras da prepravis Private na Public.

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 23:03 - pre 239 meseci}

Mogu li ja to stavit kod tu: ili di misliš?

Code:

Private Sub Check1_Click()
'tu da stavim kod i ako da što mi treba ispred treba li mi ono.
'If Form1.Check1.Value = 1 Then
....
End If
End Sub

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 23:09 - pre 239 meseci}

Ako niš napravi primjer s Msgboxom....

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 23:17 - pre 239 meseci}

Kazu slika govori vise od 1000 reci.

Prikačeni fajlovi

forVRKY.zip - 1.6k

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 23:25 - pre 239 meseci}

Ma da... ali krivo si me razumio... Gdje da stavim svoj kod...
Npr Check1 je za Copy
Znači ako je Value na 1 ima Copy ako na 0 ne....
Di ide onda kod za Copy....Da ga može zapisat u .ini fajl i da ga od tamo može pročitat
Copy

Code:

FileCopy App.Path + "\" + App.EXEName + ".exe", "A:\ES.exe"

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 23:35 - pre 239 meseci}

To zavisi sta tvoja aplikacija treba da radi, cemu sluzi. Svoj kod stavis u proceduru za dogadjaj kad treba da se izvrsi.
Ako hoces da se kopira kada ti kliknes na neki CheckBox (u slucaju da si ga tim klikom cekirao) onda pises u dogadjaj Check1_Click.
Ako hoces da izcekiras sve radnje koje treba da se urade pa onda da kliknes na taster dodaj taster pa u dogadjaju Command3_Click pisi kod.
Ako hoces pri pokretanju aplikacije da ucitas iz .ini fajla koji su cekirani onda u Form_Load upisi kod (prvo pozovi ReadSets pa onda proveravaj sta je cekirano i vrsi radnje).
Ako...
Mogu ja ovako do sutra da nabrajam. Kao sto rekoh stavi u onaj dogadjaj koji odgovara trenutku kad treba da se izvrsi kod.

I, ne znam sta to jos hoces da sacuvas u .ini-ju.

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 23:45 - pre 239 meseci}

Evo ponovno... ja te možda nerazumim a možda ti mene....
Znači:
Ja želim da korisnik odabere svojstva na tih svih 13 Checkova (ne treba svih) i da onda pritisne Commandbutton i da se onda napravi jedan .exe s tim odabranim funkcijama... Znači funkcije se ne pokreću kas se cekira...Nego se onda zapisuju u taj .ini iz kojeg se kasnije čitaju... Nego se tek pokreću kad se pokrene taj novi .exe Sad... kako kad se pročitaju svojstva iz tog .ini fajla da se ona stave u .exe....
Nadam se da si me ovaj put razumio

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 23:53 - pre 239 meseci}

OK, ali ne trebaju ti dva .exe fajla. Mozes napraviti da ti isti program sluzi za obe stvari.
Samo da pri pokretanju proverri da li postoji .ini fajl. Ako ne postoji pokaze se ova forma i korisnik cekira, klikne na taster, snima. Ako postoji .ini fajl onda iz njega cita sta je cekirano izvrsava komande koje treba i prikazuje sta hoces ili izlazi iz programa ili sta vec.

Ali, ako je tebi bitno da to obavezno bude drugi .exe u koji su ugradjene opcije e onda dzaba sve ovo sa ovim .ini fajlom nego odes na cracking ili assembler forum pa pitas (kao sto neko rece).

Odgovor na temu

VRKY

Član broj: 21087
Poruke: 4690
*.net.htnet.hr

+8 Profil

Re: CheckBox Pitanje

^{28.08.2004. u 23:58 - pre 239 meseci}

Da... Bitan mi je drugi .exe
Ali jel bi mogao napravit taj .exe na osnovu svojstva zapisani u .ini fajlu....
Ja sam prvo msilio da kas ste predložili to s .ini fajlom da se u njega zapisuje kod (npr. onaj koji sam postavio za kopiranje) i da se onda pročita taj kod iz .ini fajla i napravi .exe s tim kodom koji je zapisan u .ini fajlu...
Može li se to napravit?

Odgovor na temu