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!!!
problem sa programom u vb
Zaključano
Zakačeno
Pa moraš negde da ih negde da ih zapišeš, text fajl, baza podataka...
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
-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
Da li mislis samo na zadnje racunanje prosjeka ocijena ili za sve ucenike ?
To zavisi od tvog programa. Najjednostavnije receno - ono sto treba da se sacuva, to sacuvas :)
izmenjeno 2 puta, poslednji put The_End_is_close 13.01.2008. u 16:07
Izmene poruke
- The_End_is_close13.01.2008. u 16:07zapis iz teksta poruke
- The_End_is_close13.01.2008. u 16:07zapis iz teksta poruke
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
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
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
Meni taj program nece da radi!!!ima li neko neki drugi predlog
Pa onda ništa... izgleda da takav program i ne može da se napravi... šteta...
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
-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
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:
A drugi deo (za ucitavanje) je kao i gore:
Eto, sad bi trebalo da radi.
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
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
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.
Potpis
Svoje najlepše dane proveo sam noću.
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...
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
-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
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...
@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...
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!
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!
Potpis
Svoje najlepše dane proveo sam noću.
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)
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.
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.
sad ja shvatam shto se vi nervirate kad dobijete nejasno pitanje :D