Srodne teme

04.10.2004. Rad sa listama u C-u. Standardni primeri. Optimiz..
25.10.2004. Pomoć u pisanju skripte
26.10.2005. Kako da vidim broj koji me zove
10.10.2007. [Zadatak]: Malo teorije brojeva (zbir kvadrata, k..
13.08.2005. Zaokruzivanje decimalnih brojeva
30.10.2005. Deljenje dva broja bez ostatka...?
30.12.2005. Da li moze sa int-om?
23.01.2006. Kako se zove broj koji sadrzi neki drugi broj ceo..
24.03.2006. Šta je dva na pi?

Navigacija

Brisanje liste

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

Da li je broj ceo?

[es] :: Visual Basic 6 :: Da li je broj ceo?	[ Pregleda: 2465 \| Odgovora: 14 ] > FB > Twit	Postavi temu Odgovori

Autor

Aleksandar Ružičić
Software Developer, Joker Games d.o.o.
Beograd

SuperModerator
Član broj: 26939
Poruke: 2850
*.neobee.net.

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

Profil

Da li je broj ceo?

^{30.12.2004. u 17:20}

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?)

W3 Schools - An Intervention
rafforum.rs - Forum Računarskog Fakulteta

^{30.12.2004. u 17:20}

Pr[o_O]F
Tamna strana mjeseca ;)

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

Profil

Re: Da li je broj ceo?

^{30.12.2004. u 18:44}

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 .: ]

^{30.12.2004. u 18:44}

kiky
Petrovic Zoran
Beograd

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

Profil

Re: Da li je broj ceo?

^{31.12.2004. u 20:58}

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

^{31.12.2004. u 20:58}

Aleksandar Ružičić
Software Developer, Joker Games d.o.o.
Beograd

SuperModerator
Član broj: 26939
Poruke: 2850
*.neobee.net.

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

Profil

Re: Da li je broj ceo?

^{01.01.2005. u 21:58}

hvala ljudi!

W3 Schools - An Intervention
rafforum.rs - Forum Računarskog Fakulteta

^{01.01.2005. u 21:58}

Shadowed
.NET developer

Administrator
Član broj: 649
Poruke: 10608
*.vdial.verat.net.

Profil

Re: Da li je broj ceo?

^{01.01.2005. u 23:49}

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

Against stupidity the gods themselves contend in vain

^{01.01.2005. u 23:49}

Aleksandar Ružičić
Software Developer, Joker Games d.o.o.
Beograd

SuperModerator
Član broj: 26939
Poruke: 2850
*.neobee.net.

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

Profil

Re: Da li je broj ceo?

^{02.01.2005. u 00:25}

kako se toga nisam setio???

hvala shadowed!

W3 Schools - An Intervention
rafforum.rs - Forum Računarskog Fakulteta

^{02.01.2005. u 00:25}

Shadowed
.NET developer

Administrator
Član broj: 649
Poruke: 10608
*.vdial.verat.net.

Profil

Re: Da li je broj ceo?

^{02.01.2005. u 00:33}

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"

Against stupidity the gods themselves contend in vain

^{02.01.2005. u 00:33}

Aleksandar Ružičić
Software Developer, Joker Games d.o.o.
Beograd

SuperModerator
Član broj: 26939
Poruke: 2850
*.neobee.net.

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

Profil

Re: Da li je broj ceo?

^{02.01.2005. u 15:41}

hmm, izgleda da je Int brza :o)
a uostalom meni je samo trebalo da vidim da li je broj deljiv sa 4...

ajd zdravo!

W3 Schools - An Intervention
rafforum.rs - Forum Računarskog Fakulteta

^{02.01.2005. u 15:41}

Marko_L
Marko Lošonc
Founder and Owner, Jurassic Software
Beograd

Moderator
Član broj: 20532
Poruke: 2682
*.yubc.net.

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.linkedin.com/in/marko..

Profil

Re: Da li je broj ceo?

^{02.01.2005. u 16:40}

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

^{02.01.2005. u 16:40}

Shadowed
.NET developer

Administrator
Član broj: 649
Poruke: 10608
213.244.197.*

Profil

Re: Da li je broj ceo?

^{02.01.2005. u 19:08}

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 :)

Against stupidity the gods themselves contend in vain

^{02.01.2005. u 19:08}

Aleksandar Ružičić
Software Developer, Joker Games d.o.o.
Beograd

SuperModerator
Član broj: 26939
Poruke: 2850
*.neobee.net.

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

Profil

Re: Da li je broj ceo?

^{02.01.2005. u 23:36}

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)?

W3 Schools - An Intervention
rafforum.rs - Forum Računarskog Fakulteta

^{02.01.2005. u 23:36}

Shadowed
.NET developer

Administrator
Član broj: 649
Poruke: 10608
*.vdial.verat.net.

Profil

Re: Da li je broj ceo?

^{03.01.2005. u 00:18}

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]}

Against stupidity the gods themselves contend in vain

^{03.01.2005. u 00:18}

reiser
Marko Paunovic
Beograd

Član broj: 7895
Poruke: 2005
*.neobee.net.

Profil

Re: Da li je broj ceo?

^{03.01.2005. u 00:18}

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

^{03.01.2005. u 00:18}

Dark Icarus
Goran Lalić
Beograd

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

Profil

Re: Da li je broj ceo?

^{07.01.2005. u 17:52}

SHL i SHR ??? u VBu??? Gde?

_{In a game of chess you must never let your opponent see your pieces - Zap

Brannigan}

^{07.01.2005. u 17:52}

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1732
*.dialup.neobee.net.

Sajt: www.clickersoftware.com

Profil

Re: Da li je broj ceo?

^{13.08.2006. u 17:51}

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

vidi GoranVucicevic #28045

www.clickersoftware.com

^{13.08.2006. u 17:51}

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

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

Srodne teme

04.10.2004. Rad sa listama u C-u. Standardni primeri. Optimiz..
25.10.2004. Pomoć u pisanju skripte
26.10.2005. Kako da vidim broj koji me zove
10.10.2007. [Zadatak]: Malo teorije brojeva (zbir kvadrata, k..
13.08.2005. Zaokruzivanje decimalnih brojeva
30.10.2005. Deljenje dva broja bez ostatka...?
30.12.2005. Da li moze sa int-om?
23.01.2006. Kako se zove broj koji sadrzi neki drugi broj ceo..
24.03.2006. Šta je dva na pi?

Navigacija

Brisanje liste

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

Korisnici aktivni u poslednjih 10 minuta

Registrovani: 37 ( pena2008, __Mrgud__, ZaMpA, d.veljko83, Mikky, jonathan, Moreplovac, abitbp6_, donbozone, media, DSL, Goran Mijailovic, markni, Dennis, tpetrovic411, kandorus, MadTexel, pudar, hokus-pokus, Chieftec, La_odvala, cyofee, krle_zr, milanche, timotic, zlatko76, dulsrules, Bik Koji Sedi, Ixtis, night-shift, milooskv, Binary Mind, NecaBG, spasoje91, mmladenovic, HelloCode, valjan )
Gosti: 374

Linkovi

Muzika Pretraga Gojko Braca Kocic - need help
Research Paper - We are a team of professional writers, whose main goal is to provide you with excellent assistance in essay writing. custom research paper, college research paper, buy research paper, research paper help, research paper writing, research paper editing.

Small Office Business VoIP Service
DS3 Prices for Business Internet Service
Internet Security

Ostale Informacije

[ Kontakt email ]

ES uslovi koriscenja. ES kreirao Gojko Vujović . Administracija i razvoj - ES tim.

Glavni RSS feed :: RSS feed lista :: Arhiva :: EM/ES