Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Visual Basic. Hitno!!!

[es] :: Visual Basic 6 :: Visual Basic. Hitno!!!

Strane: 1 2

[ Pregleda: 4475 | Odgovora: 22 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

zeljan znanja
fadfafadf
nezaposlen
Doboj

Član broj: 175200
Poruke: 19
87.250.117.*

Sajt: www.bybacko.ypu.com


Profil

icon Visual Basic. Hitno!!!05.04.2008. u 23:27 - pre 195 meseci

Prije svega pozdrav za sve,

Imam jedan problem pa cu ga objasniti u par koraka.
Pravim kviz u Visual Basicu 6.0 koji se sastoji od nekih 300 pitanja iz raznih oblasti, i sve radi kako treba ali nemogu
da napravim da kada neko ima nekoliko bodova, i da kada pogrijesi i izbaci mu prozor da unese svoje ime jer je usao
medju 10 najboljih i on to uradi da u sledeci prozor koji se otvori sa labelima da tu pise ime koje je on unio u prethodnu
formu.
Nadam se da ste uspjeli razumiti u cemu je problem.
Molim vas da mi pomognete sto je prije moguce.

Hvala svima unaprijed.
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.113.*



+7 Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 01:32 - pre 195 meseci
Pa i nisi bas dobro objasnio ...
Pretpostavimo da je problem u tome sto kad ocitas tekst iz prve forme i kad ona nestane nestanu i podatci koje je korisnik upisao (zato sto su lokalni na nivou te forme).
Ako je ovo problem onda se to radi ovako (jedan od nacina)
Napravis novi VB Modul fajl i u njemu postavis jednu globalnu promenljivu
Primer
Code:

Public strIme As String

U nekom eventu prve forme ocitas tekst iz TextBoxa (u Click ili Unload npr.)
Code:

Private Sub cmdGetText_Click()
strIme = txtIme.Text
End Sub

Kad je forma nestala (Unload) podatci su sacuvani u onoj globalnoj promenljivoj (kod i promenljive iz Modula su dostupni tokom celog trajanja izvrsenja programa)
Onda u Load eventu druge forme postavis vrednost label.Caption na tu iz promenljive.
Isto mozes i da u Unload eventu prve forme podesis Caption labele sa druge forme
Ovo bi bio taj drugi nacin
Npr
Code:

Private Sub Form_Unload(Cancel As Integer) 'Unload Forme1
Form2.Label1.Caption = txtIme.Text
End Sub
HomePage http://www.eurora3d.com
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
77.46.186.*



+1 Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 01:37 - pre 195 meseci
Znaci hoces Hall of Fame tabelu? Samo nije mi jasno da li ne umes da je napravis, ili ne umes da je sacuvas?

Bilo kako bilo:

Treba ti jedan niz od recimo 10 elemenata (znaci lista 10 najboljih takmicara) tipa Rezultat

i 3 sub-a

Code:

Private Type Rezultat
        ime as string
        brojpoena as integer
End Type
const dl = 9 ' duzina liste
Dim TopLista(dl) as rezultat

' Kad ti dodje taj kraj igre onda pozoves sub ProveriRezultat sa parametrima ime igraca, brojpoena

' Kad izlazis iz igre pozoves sub SnimiRezultat

' Na form_load pozoves sub Ucitaj rezultat

public sub ProveriRezultat(byval ime as string, byval brojpoena as integer)
dim t as integer
dim t2 as integer
for t = 0 to dl 
        if brojpoena > TopLista(t).brojpoena then
                For t2 = dl To t + 1 Step -1
                        TopLista(t2).ime = TopLista(t2 - 1).ime
                        TopLista(t2).brojPoena = TopLista(t2 - 1).brojPoena
                Next t2
                toplista(t).ime = ime
                toplista(t).brojpoena = brojpoena
                exit sub
        end if
next t
end sub

Public Sub SnimiRezultat()
dim t as integer
dim ff as integer
ff = freefile()
open "rezultat.dat" for output as #ff
        for t = 0 to dl
                print #ff, toplista(t).ime
                print #ff, toplista(t).brojpoena
        next t
close #ff
End Sub

Public Sub UcitajRezultat()
on error resume next
dim t as integer
dim ff as integer
ff = freefile()
open "rezultat.dat" for input as #ff
        for t = 0 to dl
                input #ff, TopLista(t).ime
                input #ff, TopLista(t).brojpoena
        next t
close #ff
End Sub


Izvinjavam se ako ima nekih sintaxnih gresaka, ali bi to bila ta logika...

Okaci kviz kad zavrsis pa da se i mi malo poigramo!

BTW: Mogao si i malo lepse/primerenije da nazoves temu! Ovde su sve teme u vezi sa VB-om!!!

[edit] Nisam ni video da je Nebojsa okacio post, pa samo da kazem da ja mislim da je mislio na ovako nesto [/edit]
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.115.*



+7 Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 10:25 - pre 195 meseci
Bolje sto nisi video da sam ja vec nesto napisao
Ovako je veca sansa da smo pogodili sta je covek mislio ...
HomePage http://www.eurora3d.com
 
Odgovor na temu

zeljan znanja
fadfafadf
nezaposlen
Doboj

Član broj: 175200
Poruke: 19
87.250.117.*

Sajt: www.bybacko.ypu.com


Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 11:12 - pre 195 meseci
Hvala vam sto ste odgovorili,
Ali ipak nisam uspio da napravim.
Problem je u tome sto ja ucim da programiram vec nekih mjesec dana i to ne svaki dan
jer idem u skolu i nemam vremena. Odgovorili ste veoma detaljno ali ipak nisam skontao.
Napisali ste da nisam dobro objasnio pa evo pokusacu to bolje da ucinim.
Pa vas molim ako mozete da mi kod napisete nesto jednostavnije, evo napisat cu primjer kako ja
to zamisljam.
Dakle imam Form4 (jer tako dodje u mene za kviz kako sam programirao ), na njoj se nalaze Text1 i Command1,
e sada bi zelio da kada neko unese njegovo ime u Text1 i klikne na komandno dugme da mu se otvori Form5 i u njoj da
bude spisak tih 10 najboljih sa rezultatima i unesenim imenom iz Text1.
Zelio bi da ako je moguce da samo razdvojite kod koji ide u Form4 i Form5 jer mozda necu skontati.
Nadam se da je ovo razumljivije i da ce te mi moci pomoci.

Hvala svima unaprijed, a posebno " Eurora3D Team i stefanpn " jer su se jedini potrudili da odgovore
tj. da pomognu.
 
Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.xnet.hr.



+1 Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 11:30 - pre 195 meseci
Da li imas bazu podataka?
Ako da koju?

U biti gdje si smjestio rezultate?

ADO objektom definiraj upit tipa
Code:

Select razultat from Tabela where igrac = Text1.Text order by rezultat desc


Potom izdvoji deset najboljih.
steve585
 
Odgovor na temu

zeljan znanja
fadfafadf
nezaposlen
Doboj

Član broj: 175200
Poruke: 19
87.250.117.*

Sajt: www.bybacko.ypu.com


Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 11:46 - pre 195 meseci
Prvo da kazem da nemam bazu podataka jer je ne znam napraviti.
Radio sam preko nacina koji nije ispravan ali radi.

npr. Private Sub Setpitanje () ....

Mozete li mi jednostavnije objasniti npr. kroz primjer kao sto sam zamolio u prethodnom postu jer tek
ucim da programiram pa ne znam kada mi tako kazete.

Hvala
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
77.46.186.*



+1 Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 13:15 - pre 195 meseci
Evo ti najprostije moguce u atacmentu, treba samo da izmenis par redova programa:

[edit] Primer ima u form4 red sa RND f-jom koji se treba obrisati/prepraviti [/edit]

[Ovu poruku je menjao stefanpn dana 06.04.2008. u 15:05 GMT+1]
Prikačeni fajlovi
Score.rar Score.rar - 2.5k
 
Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.xnet.hr.



+1 Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 13:16 - pre 195 meseci
Nemoj raditi preko nacina koji nije ispravan.

Otvori Access napravi bazu podataka "Kviz".
Trebati ces za rezultate kreirati jednu tabelu sa kolonama Naziv_Igraca i Rezultati

Za Access imas imas dosta tutoriala i nije komplikovan.
Javi kada napravis. :-)
steve585
 
Odgovor na temu

zeljan znanja
fadfafadf
nezaposlen
Doboj

Član broj: 175200
Poruke: 19
87.250.117.*

Sajt: www.bybacko.ypu.com


Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 13:49 - pre 195 meseci
Hvala vam sto ste ovako napravili jer nisam ocekivao da ce mi
bas neko ovako da uradi.
Samo ponovo imam jedan problem u ovome jer broj bodova koji bude osvojen u kvizu
nebude prikazan u listi, nego bude prikazan sasvim neki drugi.
U ovom vasem primjeru samo sam mijenjao:
lblBrojPoena u lblbodovi(tako se kod mene zove)
bpoena u lblbodovi
Rnd * 100 u Rnd * 50 (jer u mene se toliki broj bodova dobiva za tacan odgovor, ali nisam siguran jesteli na to mislili)
i premjestio sam redove koje ste rekli.
Sto se tice baze podataka pokusat cu naci tutorijale i uraditi.

Nadam se da ce te mi opet pomoci
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
77.46.186.*



+1 Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 13:52 - pre 195 meseci
Funkcija RND ti vraca slucajno generisan broj!!!

Obrisi taj red, to sam postavio cisto da vidis kako primer radi.

bpoena je variabla tipa integer, nisi mogao da je zamenis labelom.

Ako hoces da ti pomognemo jos vise, postavi projek u zip arhivu i okaci ga na forum, pa cemo ti ispraviti greske.

Pozdrav.

[Ovu poruku je menjao stefanpn dana 06.04.2008. u 15:07 GMT+1]
 
Odgovor na temu

zeljan znanja
fadfafadf
nezaposlen
Doboj

Član broj: 175200
Poruke: 19
87.250.117.*

Sajt: www.bybacko.ypu.com


Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 14:15 - pre 195 meseci

Evo sada sam izbrisao taj red i onda uopste nece da unese ime koje
se unese u Form4.
Je li do toga ili nesto drugo

:C

znam da sam dosadan al sta cu kad ne znam, a u knjigama koje sam skidao nema nista.
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
77.46.186.*



+1 Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 14:19 - pre 195 meseci
Nisi dosadan, ne brini se...

Postavi na forum tvoju formu4 i formu5 da ih ispravim.
 
Odgovor na temu

zeljan znanja
fadfafadf
nezaposlen
Doboj

Član broj: 175200
Poruke: 19
87.250.117.*

Sajt: www.bybacko.ypu.com


Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 14:32 - pre 195 meseci

Evo vam forme
Prikačeni fajlovi
Form4 i form5.zip Form4 i form5.zip - 1.9k
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
77.46.186.*



+1 Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 14:45 - pre 195 meseci
Evo ispravke...

FormX.lblBodovi.Caption trebas ispraviti u ime_tvoje_forme.lblBodovi.Caption

I jos jedna stvar ako ti se labela zove samo "Bodovi" nemoj da pises "lblBodovi" vec xxxx.Bodovi.Caption!!!

Prikačeni fajlovi
Form4.frm Form4.frm - 2.13k
 
Odgovor na temu

zeljan znanja
fadfafadf
nezaposlen
Doboj

Član broj: 175200
Poruke: 19
87.250.117.*

Sajt: www.bybacko.ypu.com


Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 15:01 - pre 195 meseci
Ma opet nece da radi.
Evo ti citav kviz pa pogledaj, stavio sam password koji cu ti poslati na mail tako da drugi nemogu koristiti.



[edit]

izbrisan fajl uz poruku, ukoliko ne zelis da ostali clanovi foruma budu u mogucnosti da otvore arhivu onda istu nemoj kaciti na forumu nego posalji na mejl onome kome je "dozvoljeno" da je otvori

[/edit]


[Ovu poruku je menjao Aleksandar Ružičić dana 06.04.2008. u 16:25 GMT+1]
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 15:28 - pre 195 meseci
@zeljan znanja: obrisao sam ti fajl koji si okacio uz poruku, ako hoces da ti ostali clanovi foruma pomognu onda nemoj stavljati sifru na arhivu

mene licno ovakvi postupci odbijaju da pomognem, pogotovu kada su u pitanju pocetnici. kakav to super tajni program neko pravi a ne zna osnove programiranja? koja je svrha sakrivanja koda ako si jos uvek pocetnik i ako trazis pomoc za pocetnicka pitanja?

i jos nesto, posto vidim da si nov na forumu savetujem ti da procitas Pravilnik za korisnike

u Pravilniku, izmedju ostalog pise da treba koristiti [code][/code] tagove kada postujes kod, sto ti ne postujes koliko mogu da vidim (ali moguce je da nisi znao, pa sam ti zato dao link ka Pravilniku gde imas sve lepo objasnjeno)
rafforum.rs - Forum Računarskog Fakulteta
 
Odgovor na temu

zeljan znanja
fadfafadf
nezaposlen
Doboj

Član broj: 175200
Poruke: 19
87.250.117.*

Sajt: www.bybacko.ypu.com


Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 15:32 - pre 195 meseci
Razumio sam Aleksandre, samo za tvoju informaciju passworda nije ni bilo
to sam napisao samo da neko ne bi kopirao pitanja, ali u svakom slucaju hvala
na kritici i procitacu pravila.

A evo sada kviz pa ako mozes pomozi.
Prikačeni fajlovi
kviz.zip kviz.zip - 18.81k
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
77.46.186.*



+1 Profil

icon Quiz nije vise: Hitno!!!06.04.2008. u 15:36 - pre 195 meseci
Evo sad radi!!!

Samo, jako si me zasmejao sa zastitom koju si tako "strucno" postavio...

Jedva sam se snasao u tvom kodu. Da si ovo napisao malo optimalnije imao bi maksimum 30-ak redova i pitanja u bazi...

Ali sta sad, i ja sam tako pocinjao. Vremenom ces shvatiti sve.

Sve najbolje u radu!

[edit] Ružičiću bre pa ti dušu nemaš, što obrisa čoveku atačment, trebao si prvo da vidiš kakva je zaštita u pitanju! [/edit]
Prikačeni fajlovi
kviz sa passwordom.rar kviz sa passwordom.rar - 15.89k
 
Odgovor na temu

zeljan znanja
fadfafadf
nezaposlen
Doboj

Član broj: 175200
Poruke: 19
87.250.117.*

Sajt: www.bybacko.ypu.com


Profil

icon Re: Visual Basic. Hitno!!!06.04.2008. u 15:43 - pre 195 meseci

Koliko vidim pogledao si kviz prije nego je Aleksandar obrisao,
Hvala ti na svemu samo da ti kazem taj password koji si vidio
to sam cisto pokusavao da vidim kako zastiti neki program
tako da nisam probao zastiti zip ako si na to mislio pa se smijes ali
nema veze hvala svima.

Najbolji ste
 
Odgovor na temu

[es] :: Visual Basic 6 :: Visual Basic. Hitno!!!

Strane: 1 2

[ Pregleda: 4475 | Odgovora: 22 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.