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]
Da sam znao da je internet ovako dobar ja bih to postavio jos pre 30 godina.
Visual Basic. Hitno!!!
Re: Visual Basic. Hitno!!!
Quiz nije vise: Hitno!!!