problem sa programom u vb

[ stefan16 @ 12.01.2008. 18:40 ] @

Napravio sam u visual basicu program koji izracunava prosek ocena ali naznam kako da napravim da kada unesem nekog ucenika i njegove posle klika na neku opciju sejv sledeci put kada ukljucim program one opet budu tu!!!

[ Marko_L @ 12.01.2008. 20:20 ] @

Pa moraš negde da ih negde da ih zapišeš, text fajl, baza podataka...

[ djpero.84 @ 12.01.2008. 20:34 ] @

Da li mislis samo na zadnje racunanje prosjeka ocijena ili za sve ucenike ?

[ Shadowed @ 12.01.2008. 20:52 ] @

To zavisi od tvog programa. Najjednostavnije receno - ono sto treba da se sacuva, to sacuvas :)

[ Aleksandar Vasic @ 12.01.2008. 21:37 ] @

Citat:

djpero.84: Da li mislis samo na zadnje racunanje prosjeka ocijena ili za sve ucenike ?

ja mislim da je mislio sve :D

u drugom slucaju ako zelis samo poslednje upisano ides 'vako

Code:
On Error Resume Next
Open App.Path + "\\podaci.txt" for Input as #1
Write #1, Text1.Text
Write #1, Text2.Text
Write #1, Text3.Text

Gde su ti Text1,2 i 3 podaci koje unosis,ukoliko ti treba vishe samo dodaj kao sto ti je napisano.....a logicno ako hoces manje obrishi ove sto imaju,ovo stavis na tvoje dugme Save :D

a ovo ti je ucitavanje,to stavi na Form_Load...

Code:
Dim a, s, d As String
On Error Resume Next
Open App.Path + "\\podaci.txt" For Input As #1
Input #1, a
Input #1, s
Input #1, d
Close #1

Text1.Text = a
Text2.Text = s
Text3.Text = d

_{[Ovu poruku je menjao The_End_is_close dana 13.01.2008. u 16:07 GMT+1]}

_{[Ovu poruku je menjao The_End_is_close dana 13.01.2008. u 16:07 GMT+1]}

[ stefan16 @ 13.01.2008. 10:30 ] @

Meni taj program nece da radi!!!ima li neko neki drugi predlog

[ Marko_L @ 13.01.2008. 12:17 ] @

Pa onda ništa... izgleda da takav program i ne može da se napravi... šteta...

[ Rollback @ 13.01.2008. 12:36 ] @

Pa dobro, recimo da je The_End_is_close malo pogresio sa ucitavanjem podataka iz baze tj u prvom delu koda i to bi islo ovako:

Code:
On Error Resume Next
Open App.Path + "\podaci.txt" For Output As #1
Write #1, Text1.Text
Write #1, Text2.Text
Write #1, Text3.Text

A drugi deo (za ucitavanje) je kao i gore:

Code:
Dim a, s, d As String
On Error Resume Next
Open App.Path + "\podaci.txt" For Input As #1
Input #1, a
Input #1, s
Input #1, d
Close #1

Text1.Text = a
Text2.Text = s
Text3.Text = d

Eto, sad bi trebalo da radi.

[ Marko_L @ 13.01.2008. 13:28 ] @

Pa recimo onda da je pogrešio i kod deklaracije varijabli (što doduše neće uticati na izvršenje programa), ali valja znati, a i pričali smo jedno 5.000 puta o tome. a i s će biti varijant, a ne string. No, nije poenta u tome. Dečko je došao i rekao program ne radi dajte nešto drugo, a da se nije potrudio ni da pita zašto ne radi, niti da kaže na koji način se ispoljava to "ne radi", koju mu grešku izbacuje i tome slično, što samo pokazuje da ga ne interesuje da nešto nauči, nego da mu neko da parče koda koje će da mu odradi posao, po mogućstvu bez ijedne greške... pa sam zato reagovao onako kako sam reagovao. VB forum polako postaje servis za naručivanje kodova...

[ Aleksandar Vasic @ 13.01.2008. 15:05 ] @

Slucajno sam stavio dve kose crte

@Marko_L Znam to za deklaraciju promenjljivih ali iz licnog iskustva sam znao da nece uticati na rad programa,pa posto sam ovaj kod pisao iz glave,mrzelo me da za svaku pishem posebno "as string"

p.s. Slazem se sa tobom za ovo da VB postaje servis za naručivanje kodova...

[ Rollback @ 13.01.2008. 15:31 ] @

Marko, decko je trazio neki drugi predlog ne "nesto drugo" pa sam mojim komentarom hteo da mu stavim do znanja da je The_End_is_close dao i predlog i resenje samo je trebao malo pogledati kod i videti u cemo je problem - zasto ne radi. Nisam hteo da cepidlacim sa variablama jer je problem (zasto kod nije radio) upravo u pogresno upisanom keyword-u sto verujem da nije namerno.
I ja se slazem da VB forum polako postaje servis za narucivanje kodova i izvinjavam se sto nisam citirao stefana pa je ispalo da se post odnosi na tebe.
Pozdrav!

[ Aleksandar Vasic @ 13.01.2008. 15:43 ] @

ali izgleda da mu je bilo teshko da malo procita kod i razmisli sto ne radi nego je samo hteo copy/paste al aj....(odnosi se na stefana)

[ goranvuc @ 13.01.2008. 16:24 ] @

OK ljudi, vidim da se dosta nas slaže oko kvaliteta tema koje postavljaju neki korisnici. Još samo kad bi se dotični bar malo potrudili da ne bude tako očigledno

Inače, ja nemam problem sa takvim temama ako se dobro opišu i postave, ali ako su povratne informacije nakon pomoći koju pružiš tipa: "Ovo ne radi!", "Izbacuje mi grešku!" i sl. onda umem da se iznerviram. Koliko vidim - u poslednje vreme ima puno više ljudi koji su raspoloženi i umeju da pruže pomoć, tako da uvek imamo nekoliko "dežurnih" koji se brzo nađu i pomognu.

Ukoliko neko dopuni nečiji tuđi kod nema potrebe to shvatati kao "pametovanje" već ja to doživljavam samo kao dodatni prilog rešenju
- i kao neki vid konstruktivne rasprave.

[ Aleksandar Vasic @ 13.01.2008. 19:01 ] @

sad ja shvatam shto se vi nervirate kad dobijete nejasno pitanje :D