Poslao: 29 Jul 2010 12:49
|
offline
- Pridružio: 15 Maj 2009
- Poruke: 963
|
Hteo sam da napravim program kojim cete moci da vezbate matematiku, tj. rad sa osnovnim racunskim operacijama, onako, da bi vezbao... Imate sliku forme ispod:
Necu sve da objasnjavam, da ne duzim (mada ukoliko vam je potrebano da bi resili problem, mogu i da objasnim sve redom)...
Pitanja:
1. Dva broja se biraju funkcijom Int(Rnd*11), ali uvek idu isti brojevi istim redom (kada se pokrene program ponovo, sve se ponavlja)???
2. Imam problem sa oduzimanjem i deljenjem.
Kod oduzimanja se javlja da je prvi broj manji od drugog i resenje je negativno. Kako da sredim da nema negativnih brojeva...?
Kod deljenja, pojavi mi se nekad npr. 3/9. Znaci ne bi tebalo da ima zareza nigde. Mislim da bi tu trebala da se iskoristi veza mnozenja i deljenja.
3. Kako da pustim da se cuje neka muzika?
Radim u VB6...
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
Poslao: 30 Jul 2010 18:08
|
offline
- karlos
- Građanin
- Pridružio: 25 Maj 2007
- Poruke: 114
- Gde živiš: Novi Sad, Sombor
|
1. ubaci "Randomize Timer". Na primer kad se ucita forma:
Private Sub Form_Load()
Randomize Timer
End Sub
2. primer oduzimanje
Do
prvi = Int(1 + 10 * Rnd)
drugi = Int(1 + 10 * Rnd)
Loop Until prvi > drugi
u ovom slucaju ce prvi broj uvek biti veci od drugog...
Do
prvi = Int(1 + 100 * Rnd)
drugi = Int(1 + 100 * Rnd)
Loop Until (prvi >= drugi) And (prvi Mod drugi = 0)
prvi je veci ili jednak od drugog i prvi je deljiv sa drugim brojem...
3. npr: Windows Media Player (Project -> Components -> cekiraj Windows Media Player i posle ga samo prenesi na formu)
|
|
|
|
Poslao: 30 Jul 2010 20:04
|
offline
- Pridružio: 15 Maj 2009
- Poruke: 963
|
1. Nikad cuo za Randomize Timer... Mozes to da pojasnis???
2. Tu je sve jasno...
3. A nema nekog koda za pustanje muzike??? Ja mislim da u Foxu moze da se pusti muzika jednom linijom koda...???
Ovako cu da probam Multimedia Control...
Hvala...
EDIT: Evo sada sam probao za oduzimanje i deljenje i radi... A za muziku sam iskoristio MMControl, tako da ostaje jos 1. da mi pojasnis ako mozes. Ja sam ubacio Randomize Timer u Form Load, i radi... Al' sta sam u stvari uradio ???
|
|
|
|
Poslao: 31 Jul 2010 13:16
|
offline
- karlos
- Građanin
- Pridružio: 25 Maj 2007
- Poruke: 114
- Gde živiš: Novi Sad, Sombor
|
vbexplorer.com/VBExplorer/random/random_numbers_1.asp
msdn.microsoft.com/en-us/library/8zedbtdt(VS.90).aspx
Evo ti i primer: ako stavis
Ranomize 1
dobices uvek iste brojeve istim redom svaki put kad startujes program
ako stavis
Ranomize 2
dobices neke "druge" brojeve, ali se i oni takodje ponavljaju svaki put kad startujes program
ako stavis
Ranomize 3
dobices neke "trece" brojeve, ali se i oni takodje ponavljaju svaki put kad startujes program.
...
ali ako stavis
Ranomize Timer
tada kombinacija brojeva zavisi od trenutnog vremena kad si startovao program, tj vremena kad se izvrsila instrukcija "Randomize".
Posto ni teoretski ne mozes da starujes program svaki dan u tacno isto vreme (osim ako si supermen ), nece se ni ponoviti neka od kombinacija i uvek ces dobiti neku novu kombinaciju brojeva.
Timer vraca vreme u sekundama od pocetka dana. npr: sad je kod mene na racunaru (Print Timer ili Label1.Caption = Timer) "Timer = 47521,35" sto znaci da je proslo 47521 sekunda i 35 stotinki od pocetka dana, tj od ponoci.
|
|
|
|
|
Poslao: 14 Avg 2010 22:56
|
offline
- Pridružio: 25 Maj 2005
- Poruke: 1482
- Gde živiš: Gracanica, Kosovo
|
Ovo je greska koju dobijam prilikom startovanja programa:
OS je Windows XP.
|
|
|
|
Poslao: 14 Avg 2010 23:06
|
offline
- Bogdan-Tc
- Anti Malware Fighter
Rank 1
- Pridružio: 04 Jan 2009
- Poruke: 2168
|
Pronađi negde na netu MCI32.OCX i registruj taj file.
REGSVR32 MCI32.OCX
|
|
|
|
|
|
Poslao: 15 Avg 2010 12:48
|
offline
- Pridružio: 25 Maj 2005
- Poruke: 1482
- Gde živiš: Gracanica, Kosovo
|
Da, sa preuzetim fajlom program se pokrece - hvala Bogdan-Tc. Medjutim nema muzike, a "dugmad" za pustanje su siva, i nemogu se kliknuti.
|
|
|
|