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

Da li je broj ceo?

[es] :: Visual Basic 6 :: Da li je broj ceo?

[ Pregleda: 4741 | Odgovora: 14 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

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 Da li je broj ceo?30.12.2004. u 17:20 - pre 234 meseci
Kako da vidim da li mi je neki broj (u stringu!) ceo broj? Meni na pamet pada jedino da potrazim . ili , u tom stringu? (koliko je ovo resenje dobro i da li uopste postoji neko drugo?)
 
Odgovor na temu

Pr[o_O]F
Tamna strana mjeseca ;)

Član broj: 30368
Poruke: 155
*.as3.sr.bih.net.ba.



Profil

icon Re: Da li je broj ceo?30.12.2004. u 18:44 - pre 234 meseci
Jedino sto mi pada na pamet je da broj zaokruzis s komandom

Code:

'Ovo ubacis u Sub
Select Case IsNumeric(Text1.Text) 'ovo provjerava da li je uopce broj!
Case True

If Text1.text=Round(text1.text,0) then 'ako je broj iz textboxa jednak njegovoj 
msgbox "Broj je cio!                           'zaokruzenoj vrijednosti onda...
else
msgbox "Broj nije cio!"
end if

Case Else
MsgBox "Nije broj!", vbOKOnly, "Greska!"
End Select


[ :. n!t .: ]
 
Odgovor na temu

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.smin.sezampro.yu.



Profil

icon Re: Da li je broj ceo?31.12.2004. u 20:58 - pre 234 meseci
Mozda je ipak laksi nacin:
Dim A as string
Dim B as integer

If Not isNumeric(A) then exit sub

B= CInt(A) * 2 / 2

if cInt(A)-B<>0 then
msgbox "Broj je ceo"
else
msgbox "Broj nije ceo"
end if
 
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: Da li je broj ceo?01.01.2005. u 21:58 - pre 234 meseci
hvala ljudi!
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Da li je broj ceo?01.01.2005. u 23:49 - pre 234 meseci
Ili malo optimizovano :):
Code:
Dim A as string

If Not isNumeric(A) Then Exit Sub
if cInt(A) = A then
    MsgBox "Broj je ceo"
Else
    MsgBox "Broj nije ceo"
End If

 
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: Da li je broj ceo?02.01.2005. u 00:25 - pre 234 meseci



kako se toga nisam setio???

hvala shadowed!
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Da li je broj ceo?02.01.2005. u 00:33 - pre 234 meseci
Isto moze sa Int() umesto CInt(). Trebalo bi testirati koja je brza ;).
Ili mozda...
Code:
Dim A as string

If isNumeric(A) and cInt(A) = A Then
    MsgBox "Broj je ceo"
Else
    If isNumeric(A) Then MsgBox "Broj nije ceo"
End If


A ako ti je nebitno kakav je ukoliko vec nije ceo:
Dim A as string : If isNumeric(A) and cInt(A) = A Then MsgBox "Broj je ceo"
 
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: Da li je broj ceo?02.01.2005. u 15:41 - pre 234 meseci
hmm, izgleda da je Int brza :o)
a uostalom meni je samo trebalo da vidim da li je broj deljiv sa 4...

ajd zdravo!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Da li je broj ceo?02.01.2005. u 16:40 - pre 234 meseci
Citat:
a uostalom meni je samo trebalo da vidim da li je broj deljiv sa 4...

Pa što onda tako nisi pitao :)
Code:
Dim A As String
If Not IsNumeric(A) Then Exit Sub
If A Mod 4 = 0 Then Msgbox "Broj je deljiv sa 4"

-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
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Da li je broj ceo?02.01.2005. u 19:08 - pre 234 meseci
Sta je vama ljudi :).
Dim A As String : If IsNumeric(A) And (A Mod 4 = 0) Then Msgbox "Broj je deljiv sa 4."

P.S. Ako sam dosadan, kazite :)
 
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: Da li je broj ceo?02.01.2005. u 23:36 - pre 234 meseci
nisi dosadan shadowed uvek je bolje imati sto manje koda
za sta uopste sluze ti operatori tipa MOD, XOR, AND, OR nisam nigde nasao objasnjenje toga (iskreno nisam ni trazio)?
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12846



+4783 Profil

icon Re: Da li je broj ceo?03.01.2005. u 00:18 - pre 234 meseci
Mod je ostatak pri deljenju a And, Or i Xor su logicke operacije.
Code:
True And True = True
True And False = False
False And True = False
False And False = False

True Or True = True
True Or False = True
False Or True = True
False Or False = False

True Xor True = False
True Xor False = True
False Xor True = True
False Xor False = False


[Ovu poruku je menjao Shadowed dana 03.01.2005. u 01:54 GMT+1]
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Da li je broj ceo?03.01.2005. u 00:18 - pre 234 meseci
div vraca celobrojni deo kolicnika (10 div 3 = 3)
mod vraca celobrojni ostatak (10 mod 3 = 1)

Za NOT, AND, OR, XOR, SHL & SHR najbolje konsultuj MSDN
 
Odgovor na temu

Dark Icarus
Goran Lalić
Beograd

Član broj: 19775
Poruke: 428
*.nat-pool.bgd.sbb.co.yu.



+2 Profil

icon Re: Da li je broj ceo?07.01.2005. u 17:52 - pre 234 meseci
SHL i SHR ??? u VBu??? Gde?
In a game of chess you must never let your opponent see your pieces - Zap
Brannigan
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.



+41 Profil

icon Re: Da li je broj ceo?13.08.2006. u 17:51 - pre 214 meseci
Citat:
krckoorascic: hmm, izgleda da je Int brza :o)
a uostalom meni je samo trebalo da vidim da li je broj deljiv sa 4...

ajd zdravo!


Treba obratiti paznju kod primene CInt funkcije na ovaj nacin; ukoliko string koji se konvertuje izlazi van opsega Integer dobice se overflow greska npr.
Code:

Debug.Print CInt("123456789") 'Greska

pa je u ovim slucajevima bolje koristiti Int funkciju, u sprezi sa IsNumeric, npr.
Code:

Dim A As String
Dim B As Integer

A = "123456789"
B = IIF(IsNumeric(A), Int(A), 0)

If CStr(B) = A Then
    If B >= -32768 And B <= 32768 Then
        MsgBox "Broj je ceo"
    Else
        MsgBox "Broj je van celobrojnog opsega"
    End If
Else
    MsgBox "Broj nije odgovarajuci"
End If
 
Odgovor na temu

[es] :: Visual Basic 6 :: Da li je broj ceo?

[ Pregleda: 4741 | Odgovora: 14 ] > FB > Twit

Postavi temu Odgovori

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