Forum » Programiranje » Problem pri programiranju z VB 6.0
Problem pri programiranju z VB 6.0
skorpijon_v ::
Problem pri programiranju z VB 6.0
Rabil bi pomoč pri seminarski nalogi in sicer narediti bi moral enostaven programček, ki analizira mete kovanca.
In sicer, v textbox vpišeš število metov kovanca, ta pa naj bi naključno generiral mete, ter jih vpisal v datoteko in sicer, če pade mož je 0, če pade cifra pa 1.
To naj bi izgledalo nekako takole
Št.metov 20 - (če je n=20)
-----------------
1
0
0
1
1
1
0
1
1
0
0
0
1
0
1
1
1
1
0
1
Do tu mi je nekako uspelo, za zapis sem uporabil sekvenčno datoteko(ne vem pa, če je najbolj primerna, ampak deluje).
Ne vem pa kako bi rešil naprej. Program naj bi izpisal kolikokrat se je ponovila 0 (oz. mož) in kolikokrat 1 (cifra) in sicer nekaj takega:
Analiza metov
0(mož) 1(cifra)
_______________
2 1
1 3
3 2
1 1
1 4
1
Najlepša hvala za pomoč
Rabil bi pomoč pri seminarski nalogi in sicer narediti bi moral enostaven programček, ki analizira mete kovanca.
In sicer, v textbox vpišeš število metov kovanca, ta pa naj bi naključno generiral mete, ter jih vpisal v datoteko in sicer, če pade mož je 0, če pade cifra pa 1.
To naj bi izgledalo nekako takole
Št.metov 20 - (če je n=20)
-----------------
1
0
0
1
1
1
0
1
1
0
0
0
1
0
1
1
1
1
0
1
Do tu mi je nekako uspelo, za zapis sem uporabil sekvenčno datoteko(ne vem pa, če je najbolj primerna, ampak deluje).
Ne vem pa kako bi rešil naprej. Program naj bi izpisal kolikokrat se je ponovila 0 (oz. mož) in kolikokrat 1 (cifra) in sicer nekaj takega:
Analiza metov
0(mož) 1(cifra)
_______________
2 1
1 3
3 2
1 1
1 4
1
Najlepša hvala za pomoč
Enjoy today because tommorow is yet to come.
zdobersek ::
ustvari sest novih spremenljivk:
IncGlava, povecuje se ob stevilu padcev kovanca na glavo, default 0
IncCifra, povecuje se ob stevilu padcev kovanca na cifro, default 0
ArrayGlava, array, ki bo vseboval stevilo padcev na glavo v doloceni seriji
ArrayCifra, array, ki bo vseboval stevilo padcen na cifro v doloceni seriji
ArrayNumGlava, povecuje se ob novih serijah, natancneje doloca ArrayGlava, default 0
ArrayNumCifra, povecuje se ob novih serijah, natancneje doloca ArrayCifra, default 0
delovanje bom poskusil pokazat kar na tvojem primeru:
- prvic pade kovanec na cifro, IncCifra se poveca na 1
- drugic pade kovanec na glavo, ArrayCifra[ArrayNumCifra] se nastavi na IncCifra, ArrayNumCifra se poveca na 1, IncCifra se zmanjsa na 0, IncGlava se poveca na 1
- tretjic pade kovanec na glavo (zopet), IncGlava se poveca na 2
- cetrtic pade kovanec na cifro, ArrayGlava[ArrayNumGlava] se nastavi na IncGlava(=2), ArrayNumGlava se poveca na 1, IncGlava se nastavi na 0, IncCifra se poveca za 1
- etc., etc. ...
tako sem si zamislil, ne recem, da je prav. z VBjem ze dolgo nisem delal, niti nimam dosti znanja ... upam, da ti vseeno da idejo.
lp
IncGlava, povecuje se ob stevilu padcev kovanca na glavo, default 0
IncCifra, povecuje se ob stevilu padcev kovanca na cifro, default 0
ArrayGlava, array, ki bo vseboval stevilo padcev na glavo v doloceni seriji
ArrayCifra, array, ki bo vseboval stevilo padcen na cifro v doloceni seriji
ArrayNumGlava, povecuje se ob novih serijah, natancneje doloca ArrayGlava, default 0
ArrayNumCifra, povecuje se ob novih serijah, natancneje doloca ArrayCifra, default 0
delovanje bom poskusil pokazat kar na tvojem primeru:
- prvic pade kovanec na cifro, IncCifra se poveca na 1
- drugic pade kovanec na glavo, ArrayCifra[ArrayNumCifra] se nastavi na IncCifra, ArrayNumCifra se poveca na 1, IncCifra se zmanjsa na 0, IncGlava se poveca na 1
- tretjic pade kovanec na glavo (zopet), IncGlava se poveca na 2
- cetrtic pade kovanec na cifro, ArrayGlava[ArrayNumGlava] se nastavi na IncGlava(=2), ArrayNumGlava se poveca na 1, IncGlava se nastavi na 0, IncCifra se poveca za 1
- etc., etc. ...
tako sem si zamislil, ne recem, da je prav. z VBjem ze dolgo nisem delal, niti nimam dosti znanja ... upam, da ti vseeno da idejo.
lp
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | Problem 3 (strani: 1 2 )Oddelek: Znanost in tehnologija | 8051 (6735) | Thomas |
| » | Digitalna evolucija (strani: 1 2 3 4 … 26 27 28 29 )Oddelek: Znanost in tehnologija | 81824 (31993) | pietro |
| » | Verjetnost, kombinatorika, al kokrkoli se temu reče...Oddelek: Znanost in tehnologija | 2684 (2110) | whatever |
| » | Verjetnost ... spet čudna naloga (strani: 1 2 3 )Oddelek: Znanost in tehnologija | 10394 (7728) | Thomas |
| » | MySQL & PHP napaka..Oddelek: Programiranje | 2030 (1845) | lordgreg |