visual basic – compile error – pomoč

ma jaz se malo učim visual basic, imam visual basic 6.0(SP3)

učim se pa po eni knjigici, ki je za VB6 learning edition

no, koda je taka:

General:

Dim NakljucnoSt(1)
Dim NakljucnoSt(2)
Dim NakljucnoSt(3)
—————————————————
Private Sub GeneriranjeSt()
Dim i As Byte
For i = 1 To 3
NakljucnoSt(i) = Int(Rnd * 6) + 1
Debug.Print NakljucnoSt(i)
End Sub
——————————————————-

Private Sub cmdKonec_Click()
End
End Sub
——————————————————–
Private Sub Form_Load()
Randomize
GeneriranjeSt
End Sub

no, meni javi, da je compile error, da je ambigous name detected NakljucnoSt,

v knjigi pa je napisano tako: NakljucnoSt() naj bi bilo polje spremenjlivk(array), ki se med sabo ločijo po indeksu v oklepaju,

potem naključne vrednosti (s pomočjo zanke For) preko indeksov priredimo spremenjlivkam v polju

kaj je tu narobe, da mi javi tako napako???? no, nimam helpa, ker nimam msdn – ja, pa če kdo ve, bi prosila en odgovor tako po domače,

hvala

sicer nimam vb-ja da bi lahko preveril, samo se mi zdi da imaš kar nekaj napak tukajle v kodi:

Dim NakljucnoSt

—————————————————
Private Sub GeneriranjeSt()
Dim i As Byte
For i = 1 To 3
NakljucnoSt(i) = Int(Rnd * 6) + 1
Debug.Print NakljucnoSt(i)

————–kje je pa tukaj kakšen Next

End Sub
——————————————————-

Private Sub cmdKonec_Click()
End
End Sub
——————————————————–
Private Sub Form_Load()
Randomize
GeneriranjeSt
End Sub

pa še kakšna malenkost bi se našla.

lp

hm, pravzaprav si tu napisal eno napako – da manjka next, to je res, sem pozabila npisat, ker sem poskušala razne varjante in je to potem ušlo, samo to ni bistvo problema

no, sem napisala samo Dim NakljucnoSt (pa tisti next seveda:)), pa je delovalo, SAMO:

jaz imam 3 kocke,k vsaki gre po eno naključno št. – NaključnoŠt1, 2 in 3 in to bom potem rabila za primerjanje, morala se bom sklicevati na 3 različne spremenljivke, ki jih pa zdaj s tvojo rešitvijo (ki pa na tem mestu sicer deluje) tu nimam, kaj pa zdaj???

kaj je potem s tem poljem spremenljivk (ki naj bi se razlikovale v indeksu, ki naj bi ga dali v oklepaj) kot piše v knjigici??? mah, jaz se to itak komej mal učim, pa se na knjigico zanašam, pa sej bi lahko tudi drugače rešila problem (z If stavki npr, samo je pa krajše tako, pa itak me zanima princip, kaj je zdaj s tem poljem

tnx again

Živjo,

potem pa poizkusi nekaj kot:

Dim NakljucnoSt
Dim Rezultat1
Dim Rezultat2
Dim Rezultat3

—————————————————
Private Sub GeneriranjeSt()
Dim i As Byte
For i = 1 To 3
NakljucnoSt(i) = Int(Rnd * 6) + 1
Debug.Print NakljucnoSt(i)
If i = 1
Rezultat1 = NakljucnoSt(i)

if i = 2
Rezultat2 = NakljucnoSt(i)

if i = 3
Rezultat3 = NakljucnoSt(i)

Nekaj takega, žal je VB pri meni že pred časom končal svojo “Kariero:)))

Array NakljucnoSt() imaš 3x definiran, zato je ambigous name detected

Dim NakljucnoSt(1)
Dim NakljucnoSt(2)
Dim NakljucnoSt(3)

Array se definira tako, da programu poveš koliko veliko je polje, potem pa jih z indexi kličeš.

Nekako takole

Dim NakljucnoSt(5) ‘ to je array z 6 polji(0-5)

Potem pa v kodi do posameznega polja dostopaš z indexom arraya

NakljucnoSt(1)=44
NakljucnoSt(2)=5
NakljucnoSt(3)=484
.
.

Tko da v tvojem primeru definiraj spremenljivko
Dim NakljucnoSt(3)

pa bo.

Najlepša hvala obema!!! Zlata sta:)