Pisanje u fajl, command button

[ JordaMelior @ 24.05.2004. 19:56 ] @

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]

[ Marko_L @ 24.05.2004. 21:15 ] @

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.

[ JordaMelior @ 24.05.2004. 22:28 ] @

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:)

[ vujkev @ 25.05.2004. 08:12 ] @

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

[ JordaMelior @ 25.05.2004. 10:09 ] @

E to! Hvala puno! :)

[ JordaMelior @ 25.05.2004. 12:26 ] @

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!

[ JordaMelior @ 25.05.2004. 14:57 ] @

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???

[ Marko_L @ 26.05.2004. 09:32 ] @

Č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...)

[ JordaMelior @ 26.05.2004. 10:11 ] @

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!

[ mladenovicz @ 26.05.2004. 10:25 ] @

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