[ se4hawk @ 13.01.2008. 15:32 ] @
Sorry sto nestignem kopat po forumu trazeci potrebno, ali rokovi su su na faxu u stisci. Prije sam dosta radio u c-eu, al ne pomaže. Dobio sam jedan zadatak da ga napravim, al ga nikako nemogu dovršit . Radim u programu Microsoft Visual Studio 2005. Al to je sve isto, slično ko basic.
Zadatak je :
Potrebno je napraviti program koji ce upisivati sljedece podatke:
Ime i prezime osobe, adresu osobe, postanski broj i mjesto,broj telefona s pozivnim brojem, JMBG.
Podatke upisivati u dvodimenzionalno polje, gdje će stupci biti podaci koje treba upisati. Podatke je također kod svakog unosa potrebno ispisati u listu. Iz JMBG-a potrebno je odrediti godinu rođenja, starost osobe, te sortirati podatke o osobama uzlazno. Unijeti barem 30-tak podataka o osobama.

Zadatak i nije težak, vama je sigurno lagan al ja imam s njim problema. C mi je puno bolji.
Mislio sam podatke unosit u listwiew a ne u listbox jer mislim da je tako lakše i preglednije. Šta vi mislite?
Najveći problem ovdje mi je odrediti godinu rođenja i sortirati uzlazno na temelju unesenog JMBG-a u polju. Koje funkcije koristiti tj. kako da pregledava unutar JMBG-a samo te tri brojke koje predstavljaju godinu.
Molim vas ako znate, imate vremena i volje pomozite sto prije.
Ovo sam uspio do sada napraviti...

Code:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str(5) As String
Dim itm As ListViewItem
str(0) = txtIme.text
str(1) = txtAdresa.text
str(2) = txtPB.text
str(3) = txtTel.text
str(4) = txtJMBG.text
itm = New ListViewItem(str)
ListView1.Items.Add(itm)
End Sub
Sub listView1_ColumnClick(ByVal sender As Object, ByVal e As ColumnClickEventArgs) Handles ListView1.ColumnClick

If ListView1.Sorting = SortOrder.None Or ListView1.Sorting = SortOrder.Descending Then
ListView1.Sorting = SortOrder.Ascending
Else
ListView1.Sorting = SortOrder.Descending
End If

End Sub

Private Sub cmdObriši_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdObriši.Click

Dim i As Integer
i = ListView1.SelectedIndices.Item(0)
ListView1.Items.Item(i).Remove()
End Sub

End Class



jesam rješio sam ga i radi savršeno jedino još ne znam sortirati da izabere u JMBG brojeve godine tj 988

Unaprijed zahvaljujem.....
Pozdrav.....
[ mmix @ 13.01.2008. 17:42 ] @
Jedna od alternativa je da dodas jos jednu kolonu, npr. starost i da sracunas koliko godina je proslo od data i taj rboj upises i onda po njemu sortiras.

Broj godina mozes da sracunas ovako, malo sam razlozio u korake da vidis i sam:

Code:


            // kompenzuj za 21 vek
            int godina = 1000 + int.Parse(jmbg.Text.Substring(4, 3));
            if (godina < 1100) godina += 1000;

            int starost = DateTime.Today.Year - godina;
            string staroststr = starost.ToString("000");



i to ubacis u npr str(5), posto je starost zero-padded (npr 65 je 065) moze da prodje kroz sortiranje stringova.
[ se4hawk @ 13.01.2008. 18:06 ] @
hm...nisam te bas razumio najbolje...jel bi mogao ti napisati cjeli program gotov jer ja stvarno sam u stisci poludit cu nagurali su nam kolokvije sada za faks a ja to moram sto prije napraviti jer do cetvrtka moram predati...
pa ako ti nebi bio problem stvarno bi mi trebalo...
[ Shadowed @ 13.01.2008. 21:02 ] @
Mozda te je zbunio C#
Necemo bas da pisemo cele programe, hajde da probamo da objasnimo.
Sad, nisam siguran da li ti treba starost ili godiste.
Prvo umesto Dim str(5) As String stavi Dim str(6) As String, u tom poslednjem ce ti biti godiste (ili starost).
Godiste dobijas kodom koji je mmix dao (prevedeno na vb):
Code:

Dim godina as Integer = 1000 + Integer.Parse(jmbg.Text.Substring(4, 3))  'izvlacimo deo stringa od index-a 4 pa pa naredna 3 karaktera i dodajemo 1000
If godina < 1100 then godina += 1000  'ako je neko rodjen 2000 i neke onda deo jmbg-a 00x pa ce biti 1000 i nesto malo, u tom slucaju dodajemo jos 1000
str(5) = godina.ToString()

E sad, ako hoces umesto godine rodjenja starost onda umesto poslednje linije stavis:
str(5) = (DateTime.Today.Year - godina).ToString() sto od godine danasnjeg datuma oduzima godinu rodjenja i stavlja u str(5).
[ se4hawk @ 14.01.2008. 18:59 ] @
hm...
jel bi mi mogao malo pojasniti ovaj prvi dio koda sta znaci
Code:

Dim godina as Integer = 1000 + Integer.Parse(jmbg.Text.Substring(4, 3))  'izvlacimo deo stringa od index-a 4 pa pa naredna 3 karaktera i dodajemo 1000

i sta znaci
Code:

ToString()

i kako bi mogao ograniciti na maximalno 30 unosa?

[Ovu poruku je menjao se4hawk dana 14.01.2008. u 20:15 GMT+1]
[ Shadowed @ 14.01.2008. 21:34 ] @
jmbg.Text je string, string-ov metod substring vraca deo string od naznacenog indexa (pozicije, s' tim da krece od nule) pa narenih onoliko karaktera koliko je zadatko drugim paremetrom. Znaci, dobijes samo deo jmbg-a koji predstavlja godinu rodjenja.
Integer.Parse() metod od stringa kreira broj.
Posto u jmbg-u nije cela godina nego nesto tipa 978 potrebno je dodati 1000. S' tim da je za one koji su rodjeni 2000e i kasnije to 003 na primer, pa ispadne 1003 i zato ima ona kasnije provera da li da se doda jos 1000.
.ToString je metod koji vraca String (tekstualni) ekvivalent nekog objekta. Imaju ga svi objekti jer se nasledjuje od klase Object, s' tim da neke klase override-uju taj metod tako da sluzi specificnim potrebama, kao u slucaju Integera gde od broj 1978 dobijes String "1978".
[ se4hawk @ 14.01.2008. 22:11 ] @
E bok...znam da sam naporan i sve ali da li bi mi ti mogao ubaciti u onaj moj projekt sto sam napisao jer ja sam probao i neradi mi...pa daj molim te ako bi mi mogao to napraviti reci ako hoces nesto zauzvrat...
Dogovorit ce mo se...
Jer sam ja stvarno u strci nema sanse da stignem...jedino da uopce ne spavam jer imam sutra ispit,preksutra i u petak...i jos iduci tjedan 3 komada...
ajde molim te ako ti nebi bio problem to napraviti...
htio sam ti poslati preko maila ovo ili preko pm ali nemogu nisam dovoljno dugo registrirani clan foruma pa sam eto tu napisao...
unaprijed se zahvaljujem...
[ mmix @ 15.01.2008. 07:53 ] @
Citat:
Pravilnik ES-a
6. Ne tražite da Vam neko radi domaći zadatak

Ne očekujte da bilo ko obavezno odradi sav posao umesto Vas! Rado ćemo pomoći oko svakog problema u slučaju da Vam "gori pod nogama", pred neki ispit ili posao, ali morate da pokažete na delu da ste u stvari krenuli sa radom i zastali pošto ne znate kako dalje. Ako samo navedete zadatak i specifikacije, u zavisnosti od raspoloženja članova na forumu, možda će se naći neko da odradi kompletan posao, ali pošto to zavisi od entuzijazma samih članova, ne postoji garancija da će se i dogoditi! [ES] posetioci će Vam pomoći da bolje SHVATITE problem sa kojim ste suočeni, ali ponešto morate i sami da uradite!
[ se4hawk @ 15.01.2008. 12:56 ] @
hvala lijepa na tom citatu ali ja sam pokusavao i sve...i u strci sam i frci i ne znam vise za sebe ni kud cu ni kak cu od prezatrpanosti ispitima a ja za 2 dana moram bit gotov sa tim i moram znati objasniti neke stvari kad me pita...
ja cu danas staviti sve sto sam napravio do sada pa mi pomozite i recite sta nevalja i kako da sredim...
[ fpedja @ 15.01.2008. 13:55 ] @
http://msdn2.microsoft.com/en-...SID=lm71lj7i6gj5fjtebtb2srl4n3

Samo prilagodi svom programu, izvadi starost kako ti je mmix rekao i sortiraj na klik na kolonu:


Code:

...
   listView1.Columns(3).ListView.Sorting = SortOrder.Descending
...