MyCity » Visual Studio -> Visual Basic » Generator broja

Generator broja

Napisano na dan: 31.5.2007

Generator broja
Sledeća strana Pagination

Idi na vrh

Poslao: 31 Maj 2007 17:50
Idi na vrh
offline
  • Pridružio: 18 Jul 2003
  • Poruke: 4205
  • Gde živiš: U zlatnom kavezu

Treba mi code za generator cetvorocifrenog broja. To mi treba jer koristim neke sigurnosne sifre koje stalno moram da menjam pa ne mogu stalno da smisljam novu. Dakle broj mora biti cetvorocifren s tim sto u genirisanom broju ne smeju biti dve iste cifre jedna do druge recimo broj 5517 nije validan mora biti 5157.... nadam se da sam bio jasan



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 03 Jun 2007 01:16
Idi na vrh
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Hmm... Mozda da se prvo napise code za generisanje nekog slucajnog cetvorocifrenogf broja.

x = Int(((10000 - 1000 + 1) * Rnd) + 1000)

Pa posle proverimo da li u tom broju postoje dve iste cifre jedna do druge.

If Left(x, 1) = Right(Left(x, 2), 1) Then 'nesto If Right(Left(x, 2), 1) = Right(Left(x, 3), 1) Then 'nesto If Right(Left(x, 3), 1) = Right(x, 1) Then 'nesto

a ako uklopimo sve zajedno:

Dim x, a As String a = 0 Do While a = 0 a = 1 x = Int(((10000 - 1000 + 1) * Rnd) + 1000) If Left(x, 1) = Right(Left(x, 2), 1) Then a = 0 If Right(Left(x, 2), 1) = Right(Left(x, 3), 1) Then a = 0 If Right(Left(x, 3), 1) = Right(x, 1) Then a = 0 Loop

i na kraju dobijas x koji je cetvorocifreni broj u kome ne bi trebalo da se pojavi recomo 1153, 5466, 7998 itd. Koliko mogu da razmisljam u ove kasne sate, ovo treba da radi ispravno.... javi dal radi Wink



Poslao: 03 Jun 2007 10:52
Idi na vrh
offline
  • Pridružio: 18 Jul 2003
  • Poruke: 4205
  • Gde živiš: U zlatnom kavezu

Zaboravio sam da napisem meni ovo treba da se pojavi u txtbox-u kad kliknem na cmd... mozes li ga jos malo doraditi

Poslao: 03 Jun 2007 11:17
Idi na vrh
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Citat:i na kraju dobijas x koji je cetvorocifreni broj
Smile

Ali evo:

Private Sub Command1_Click() Dim x, a As String a = 0 Do While a = 0 a = 1 x = Int(((10000 - 1000 + 1) * Rnd) + 1000) If Left(x, 1) = Right(Left(x, 2), 1) Then a = 0 If Right(Left(x, 2), 1) = Right(Left(x, 3), 1) Then a = 0 If Right(Left(x, 3), 1) = Right(x, 1) Then a = 0 Loop Text1.Text = x End Sub

Poslao: 03 Jun 2007 14:15
Idi na vrh
offline
  • Pridružio: 18 Jul 2003
  • Poruke: 4205
  • Gde živiš: U zlatnom kavezu

Da, skontao sam ali kasno... vec si odgovorio....

Dopuna: 03 Jun 2007 14:15

Sve radi k'o sat, hvala puno biseru

Poslao: 05 Jun 2007 08:50
Idi na vrh
offline
  • Pridružio: 18 Jul 2005
  • Poruke: 312

ali prije Rnd pozovi Randomize()

MyCity » Visual Studio -> Visual Basic » Generator broja

Ko je trenutno na forumu
 

Ukupno su 1454 korisnika na forumu :: 248 registrovanih, 21 sakrivenih i 1185 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, 04bokibole, 100jan, 357magnum, 4fat, 5.56, A.R.Chafee.Jr., ALEKSICMILE, AleksSE, aleph_one, alex71, Alexa77, aramis s, ArmFPGA, Aska, Asparagus, Asteker, atmel, Batko.VD.65, BB, bbelic, berste23, bobo85, Bobrock1, bojankrstc, bojcistv, Bojke549, Bokiboks, Bombarder, Boskovic, Botovac, boxbole, bpvl, BradaRS, BraneS, brkan1, casual03, ccoogg123, celeron, ceman, Chainsaw, Cicumile, CikaKURE, CrazyDiablo, cuvarkuca, cvrle312, dacanaldo, dane007, dankisha, darionis, Dd41d41, Dejan_vw, dekan.m, deki1001, Despot1, Dimitrije Paunovic, djboj, djonsule, djuradj, Djuza, draganca, Dragon Order, Drugsparrow, Dukelander, Dungorth, Dzambas, Dzoni2412, feanor, Gaga_89, Goran_, Great White, grenadir, grunff2, GT, Hans Gajger, hatman, Igorkg77, igorpet, ikan, ikson, ILGromovnik, In_hero, invictuss, istokzapad, ivan1973, ivanR164, Jan, Joint Chief, K2, Kajzer Soze, Kalem, Kamov, Kapetan993, Knovakov, Koce, Komanca, Kordon, kori, kozhedub, kretino, krkalon, Kubovac, laganini123, Laluvr, leptirleptir, Levi, lucko1, luka35, Luke Pathfinder, Manjane, MareMarkic, marko.markovic, MarkoDzimi, Markov93, marsi, Maverik, medaTT, mercedesamg, Mi lao shu, Mickey91, Mig 29, Miki 84, MIKI63, milanpb, milivoje_vatrogasac, Millennium, Milo97, milos.cbr, Milovan Dinic, mishkooo, miso2709, mkukoleca, mnn2, Moldovan, monomah, Mozgonja, Mrav Obrad, Muki 123, naki011, naunwzbn, nick79, Nikolajevic, NNPD, Nole, novator, oblivion, oldtimer, operniki, Orc, ozzy, pablojepao, Paklenica, pavle_pzs, pein, Pekman, peradetlić, Perudin_92, pietro, ping15, Prečanin30, Primus17, promajauglavi, Pururin, Pv123, Radogost, RajkoB, rambod, RD84, read-only, rednap, redstar72, rokokoko, Romibrat, royst33, S2M, sabros, SamoGledam, Sase, septembar, sevenino, Sharpshooter, simazr, simicnenadbg, Sinisa76, Sitan_Lopov, skok, skvara, Sky diver 29, skylab1111, Smiljkovich, Sone1983, srbijaiznadsvega, ssekir75, stagezin, stefan95, stegonosa, Stoilkovic, strn, SympathyForTheDevil, Szigetwar, Tajpan, tamno.nebo, TBoy, travisrise, tritonus, Tumansky, UAV operator, Underdog9, Underwood, Uridium, urosbg, v0idmp3, v82, Valter071, vathra, vazduh, Velizar Laro, vensla, vidra boy, VJ, vladd, Vladoj, vladoje, vladom6, vlajkox, voja64, Vojvoda81, Volkhov-M, vrlenija, Vujkeu, vukan0799, vuksa72, wize, XBMC, xoxxvelja, xpforswodniw, yip314, yiyi, zdrebac, ZetaMan, zil10, zmajbre, zoran77, Zrcalo, zrno, Zvrk, šumar bk2, 1107