Pisanje u fajl, command button

Pisanje u fajl, command button 24.05.2004. u 20:56 · pre 273 meseca #1

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]

Potpis

Jason Newsted rulazzzzzz!

Re: Private Sub Command1_Click(), i nesto vezano za file-ove 24.05.2004. u 22:15 · pre 273 meseca #2

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.

Potpis

-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

Re: Private Sub Command1_Click(), i nesto vezano za file-ove 24.05.2004. u 23:28 · pre 273 meseca #3

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

Potpis

Jason Newsted rulazzzzzz!

Re: Private Sub Command1_Click(), i nesto vezano za file-ove 25.05.2004. u 09:12 · pre 273 meseca #4

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

Potpis

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

Re: Private Sub Command1_Click(), i nesto vezano za file-ove 25.05.2004. u 11:09 · pre 273 meseca #5

E to! Hvala puno! :)

Potpis

Jason Newsted rulazzzzzz!

Re: Private Sub Command1_Click(), i nesto vezano za file-ove 25.05.2004. u 13:26 · pre 273 meseca #6

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!

Potpis

Jason Newsted rulazzzzzz!

Re: Private Sub Command1_Click(), i nesto vezano za file-ove 25.05.2004. u 15:57 · pre 273 meseca #7

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

Potpis

Jason Newsted rulazzzzzz!

Re: Jos uvek niko da objasni ovo poslednje pitanje... 26.05.2004. u 10:32 · pre 273 meseca #8

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

Potpis

-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

Re: Pisanje u fajl, command button 26.05.2004. u 11:11 · pre 273 meseca #9

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!

Potpis

Jason Newsted rulazzzzzz!

Re: Pisanje u fajl, command button 26.05.2004. u 11:25 · pre 273 meseca #10

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

Potpis

Blue Man Group

Forum kao aplikacija na telefonu

Srodne teme