[es] - Pomoc pocetniku!!!

robocop011

Član broj: 177741
Poruke: 4
*.adsl.net.t-com.hr.

Profil

^{05.04.2008. u 04:28 - pre 195 meseci}

Pozdrav svima!!!Molio bih nekoga tko zna a ima volje da mi pomogne!Totalni sam pocetnik sam u podrucju programiranja ,a trebao bih napraviti u VB.NET-U do ponedjeljka jedan zadatak!Naime u vb.net-u program za kontrolu JMBG-a i to prema tocno predvidjenom algoritmu-tj.REGOS-ovom obrascu!Evo tog obrasca uz napomenu ako je JMBG tocan program vraca true ako nije naravno false!

KONTROLA MATIČNOG BROJA (JMBG ili MB stranca – fizičke osobe)
1. Matični broj ima 13 znamenaka od kojih je trinaesta znamenka kontrolna
2. Oblik matičnog broja je DDMMGGGRRSSSK, gdje je :
• DD – dan rođenja
• MM – mjesec rođenja
• GGG – godina rođenja bez prve znamenke
• RR – oznaka regije (od 30 do 39 za državljane RH, 03 za strance koji žive u RH)
• SSS – redni broj osobe unutar datuma rođenja i regije + oznaka spola (SSS<500 ==> muški
spol, SSS>499 ==> ženski spol)
• K – kontrolna znamenka (od 0 do 9)
3. Računanje kontrolne znamenke :
D D M M G G G R R S S S K
7 6 5 4 3 2 7 6 5 4 3 2
Pomnožimo gornji broj s donjim i dobivene umnoške zbrojimo.
Nazovimo dobiveni zbroj ZZZ.
Cjelobrojno (s ostatkom) podijelimo ZZZ s 11.
Nazovimo dobiveni ostataka OST.
Oduzmemo OST od 11 i dobivenu razliku nazovemo RAZ (RAZ=11-OST).

• ako je ostatak 1 (OST=1, RAZ=10) matični broj je pogrešan
• ako je ostatak 0 (OST=0 tj. broj ZZZ je djeljiv s 11 bez ostatka) kontrolna znamenka K je 0
(K=0)
• ako je ostatak broj između 1 i 11 (1<OST<11) kontrolna znamenka K je razlika između 11 i
ostatka (K=RAZ)
• ako je K različito od RAZ matični broj je pogrešan
Primjer : JMBG 0308964384007
ZZZ=(0*7)+(3*6)+(0*5)+(8*4)+(9*3)+(6*2)+(4*7)+(3*6)+(8*5)+(4*4)+(0*3)+(0*2)=
0 +18 + 0 +32 +27 +12 +28 +18 +40 +16 +0 +0 =
191
191:11=17
81
4
11-4=7 ====> JMBG je ispravan

Moze li mi netko ovo rijesit,pa ako nije problem da mi tu ostavi kod jer to sam nikako nisam uspio?! Jednostavno ne kuzim ovo a potrebno mi je rijesenje! Unaprijed se zahvaljujem na razumjevanju za jednog pocetnika!

Odgovor na temu

fpedja
Beograd

Član broj: 145092
Poruke: 76
*.xdsl.beograd.com.

Profil

Re: Pomoc pocetniku!!!

^{05.04.2008. u 09:13 - pre 195 meseci}

Evo ti f-ja koja ti proverava jmbg i vraća poruku. Možeš malo da prepraviš ova ispitivanja na kraju, nisu baš lepa, ali... Za unos jmbg-a koristi maskedTextBox da ne bi moglo da bude unešeno slovo umesto broja! Primer je školski tako da se nisam mnogo trudio da preduhitrim neke greške (tipa ako je dan>31, mesec>12 itd.). Nadam se da će ti koristiti!

Code:

Function izracunaj(ByVal jmbg As String) As String
        Dim i, j As Integer
        Dim zzz, raz, ost As Integer

        zzz = 0
        j = 7
        For i = 0 To 11
            zzz = zzz + CInt(jmbg.Substring(i, 1)) * j
            j = j - 1
            If j = 1 Then
                j = 7
            End If
        Next

        ost = zzz Mod 11
        raz = 11 - ost

        If ost = 1 Then
            Return "Matični broj je pogrešan!!"
        ElseIf ost = 0 And CInt(jmbg.Substring(12, 1)) <> 0 Then
            Return "Kontrolni broj treba da bude 0!!"
        ElseIf ost < 11 And ost > 1 And CInt(jmbg.Substring(12, 1)) <> raz Then
            Return "Kontrolni broj treba da bude " & raz & " !!"
        Else
            Return "JMBG je ispravan!!"
        End If

    End Function

Odgovor na temu

robocop011

Član broj: 177741
Poruke: 4
*.adsl.net.t-com.hr.

Profil

Re: Pomoc pocetniku!!!

^{05.04.2008. u 15:43 - pre 195 meseci}

Zahvaljujem i da zapravo moja greska ,jer to je funkcija!!! Zahvaljujem se jos jednom!Pozdrav!

Odgovor na temu

robocop011

Član broj: 177741
Poruke: 4
*.adsl.net.t-com.hr.

Profil

Re: Pomoc pocetniku!!!

^{05.04.2008. u 20:36 - pre 195 meseci}

Pozdrav!!!Ubacio sam kod u vb.net i ne radi!U cemu je greska i koja je funkcija ovoga Cint??

Odgovor na temu

robocop011

Član broj: 177741
Poruke: 4
*.adsl.net.t-com.hr.

Profil

Re: Pomoc pocetniku!!!

^{05.04.2008. u 21:15 - pre 195 meseci}

Moze li mi netko to slozit da radi u .NET-u??

Odgovor na temu

flighter_022
L2 Applications Administrator
NS

Član broj: 18499
Poruke: 737
41.204.224.*

ICQ: 23089150

+232 Profil

Re: Pomoc pocetniku!!!

^{06.04.2008. u 11:46 - pre 195 meseci}

Ako uz VB.NET imas instaliran i MSDN za njega, markiraj (highlight) to Cint, i pritisni F1. To bi trebalo da te odvede na help za tu funkciju.

Odgovor na temu

fpedja
Beograd

Član broj: 145092
Poruke: 76
*.xdsl.beograd.com.

Profil

Re: Pomoc pocetniku!!!

^{07.04.2008. u 08:09 - pre 195 meseci}

Ovo ti je baš za VB.Net. F-ja CInt ti vrši konverziju u tip integer. Kod mene je radilo, nekada

. Stavi jedan maskedTextBox sa maskom "0000000000000" i ubaci nekih 13 cifara. Na event (npr. mtb.leave) pozovi ovu f-ju i neka ti ispiše poruku u neki label. To ti je najjednostavnije. Npr:
Label1.Text=Izracunaj(mtb.Text)
I treba da ti ispiše jednu od onih poruka na kraju f-je. Probaj

Odgovor na temu