[es] - Pisanje u fajl, command button

JordaMelior
Jorda Melior

Član broj: 27174
Poruke: 24
*.teol.net

Profil

^{24.05.2004. u 19:56 - pre 243 meseci}

Pozdrav svima!
Imam dva pitanja, i siguran sam da ce mi neko znati odgovoriti na njih jer su jednostavna da bi ih i sam skontao da imam MSDN, ali posto nemam... :) Ok, evo pitanja:
1) Kako se moze napraviti u VB-u da naredbeno dugme (Command1) kada ga svaki novi put kliknem izvede jednu novu radnju. Da pojednostavim; imam formu i imam naredbeno dugme, kliknem na to dugme (OK) i BackColor postane, recimo crvena a potom pritisnem jos jednom to isto dugme a boja pozadine se promeni u plavu, pa nakon narednog klika u zutu itd.
Probao sam ovako:

Code:
Private Sub Command1_Click()
MsgBox "Prvi klik!"
End Sub
Private Sub Command1_Click2()
MsgBox "Drugi klik!"
End Sub

Nije mi uspelo... zato please help!
2) Drugo pitanje ima veze s radom s file-ovima. Recimo, otvorim file i upisem u njega neki broj, potom ga zatvorim. Sada ponovo otvaram file da upisem drugi broj, ali on, nazalost, brise onaj prvi upisani broj. Dakle kako da dodaje pored postojeæeg znaka novi znak, a da ne brise stari?
Napominjem da nisam koristio FSO jer nisam dobar u tome:) Koristio sam se iskljucivo ovim kodom:

Code:
OPEN "C:\primer.txt" FOR OUTPUT AS #1
PRINT #1, "Ovaj text ce biti upisan u file."
CLOSE #1

Unapred hvala!

EDIT: promenjen naziv teme

[Ovu poruku je menjao mladenovicz dana 26.05.2004. u 11:50 GMT]

Jason Newsted rulazzzzzz!

Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Private Sub Command1_Click(), i nesto vezano za file-ove

^{24.05.2004. u 21:15 - pre 243 meseci}

Najednostavniji način ti je da upotrebiš neku promenljivu, recimo a

Code:
Dim a As Integer 'ovo stavis u General Declarations
Private Sub Command1_Click()
a = a + 1
If a = 1 Then Command1.BackColor = RGB(256, 0, 0) 'crvena
If a = 2 Then Command1.BackColor = RGB(0, 256, 0) 'zelena
If a = 3 Then Command1.BackColor = RGB(0, 0, 256) 'plava
If a = 4 Then Command1.BackColor = RGB(256, 256, 0) 'zuta
If a = 5 Then
Command1.BackColor = RGB(256, 0, 256) 'ljubicasta
a = 0 'vrati promenljivu na nulu i kreces ispocetka
End If
End Sub

Naravno nemoj da zaboraviš da u properties command buttona staviš Style da bude Graphical.
A što se tiče drugog pitanja, pogledaj jednu od TOP tema gde je obrađen FSO.

-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

JordaMelior
Jorda Melior

Član broj: 27174
Poruke: 24
*.teol.net

Profil

Re: Private Sub Command1_Click(), i nesto vezano za file-ove

^{24.05.2004. u 22:28 - pre 243 meseci}

E, ok je ovo s promenjivom "a". Hvala! Skontao sam kako da je primenim na moj slucaj, ali me zeza ovo s file-ovima.
Jel moze ikako bez FSO-a? Jel moze neko da mi napise gotov kod, bojim se da je File System Object komplikovana stvar... Bar mi tako deluje:)

Jason Newsted rulazzzzzz!

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.scnet.yu

+104 Profil

Re: Private Sub Command1_Click(), i nesto vezano za file-ove

^{25.05.2004. u 08:12 - pre 243 meseci}

OPEN "C:\primer.txt" FOR Append AS #1

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

JordaMelior
Jorda Melior

Član broj: 27174
Poruke: 24
*.teol.net

Profil

Re: Private Sub Command1_Click(), i nesto vezano za file-ove

^{25.05.2004. u 10:09 - pre 243 meseci}

E to! Hvala puno! :)

Jason Newsted rulazzzzzz!

Odgovor na temu

JordaMelior
Jorda Melior

Član broj: 27174
Poruke: 24
*.teol.net

Profil

Re: Private Sub Command1_Click(), i nesto vezano za file-ove

^{25.05.2004. u 12:26 - pre 243 meseci}

Hm... taman sam kontao da sam sredio stvar, kad ono opet problem:) Nemojte se cuditi, jer sto se ovog tice, zestoki sam pocetnik:)
Kad koristim OPEN "C:\primer.txt" FOR Append AS #1 aplikacija unosi tekst u novi red kad edituje postojeci file. E sad je problem u tome sto moja aplikacija unosi broj bodova. Na kraju treba da saberem te bodove. Meni ne bi bio problem da to uradim da je sve u jednom redu:) al ovako... Jel moze neko da mi da savet kako to da izvedem. Dakle, aplikacija tokom rada unosi neke brojeve u file C:\bodovi.txt a u tom fileu bodovi se pisu npr. ovako:
12
15
13...
dakle, svaki unos novi red. Kako da ih na kraju sve saberem?
Hvala unapred!

Jason Newsted rulazzzzzz!

Odgovor na temu

JordaMelior
Jorda Melior

Član broj: 27174
Poruke: 24
*.teol.net

Profil

Re: Private Sub Command1_Click(), i nesto vezano za file-ove

^{25.05.2004. u 14:57 - pre 243 meseci}

Narode, siguran sam da neko zna kako se ovo može rešiti (ovo poslednje pitanje), pomagajte pls!!!
Dakle, kako da izbegnem to da mi pise svaki put u novi red, ili ako vec pise u novi red, kako da ja to procitam sve i saberem? Ako, dakle, u file-u imam ispisano ovako:
45
23
52...
kako onda da moj program sabere te brojeve i dobije rezultat, naravno, 120???

Jason Newsted rulazzzzzz!

Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Jos uvek niko da objasni ovo poslednje pitanje...

^{26.05.2004. u 09:32 - pre 243 meseci}

Čekaj, zašto bi sabirao bodove u txt fajlu.Najlakše ti je da za te svrhe koristiš promenljive.Na pr. promenljiva neka se zove bodovi i onda sabiraj ovako:

Citat:

bodovi = bodovi + 45
bodovi = bodovi + 23
bodovi = bodovi + 52

I sada ta promenljiva bodovi ima vrednost 120, a ti je prikaži gde i u čemu hoćeš (Label, Textbox...)

Odgovor na temu

JordaMelior
Jorda Melior

Član broj: 27174
Poruke: 24
*.teol.net

Profil

Re: Pisanje u fajl, command button

^{26.05.2004. u 10:11 - pre 243 meseci}

Pa da, u pravu si... moze i tako. Hvala.
Upisivanje u file je bila moja ideja, naravno, postoje i druge:) Zato sam ja pitao za savet. Hvala Marko_L!
Ipak, ako neko skonta kako bi moglo da upisuje u file i sa njega cita, nek napise... zanima me i to:) Hvala!

Jason Newsted rulazzzzzz!

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
62.108.109.*

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Pisanje u fajl, command button

^{26.05.2004. u 10:25 - pre 243 meseci}

Code:

    Dim FNum As Integer
    Dim txt As String

    FNum = FreeFile
    Open FileName For Input As FNum

    While Not EOF(FNum)
        Line Input #FNum, txt
        Debug.Print txt
    Wend

    Close FNum

Blue Man Group

Odgovor na temu