VB tekst naar plaatje

[bas_vdl]

hallo,

ik ben bezig het bekende yatzee spel in VB.

ik heb het volgende al hij gooi 5x met 5 dobbelstenen die resultate laat hij netjes naast erlkaar zien. dan gaat hij kijken hoeveel eenen er in zitten en hoeveel twee enz.

maar nu wil ik ipv. tekst plaates gaan gebruiken. zodat je niet saai
1 3 5 2 6 als worp uitslag ziet maar netjes een plaatje van een dobbel steen emt 1 oog en een plaatje van een dobbelsteen met 3 ogen enz.

maar hoe doe ik dat......
kan iemand mij helpen

Randomize
For i = 1 To 5

dobbel(i) = Int(6 * Rnd + 1)

Next i

dit is de code voor het maken van de worpen. 1 keer klikken is gooien met 5 dobbelstenen. die laat hij zien in textboxen genaamd dobbel die in een array zijn geplaats
dit was ter info

mvg Bas

[NMe]

Ehm, gewoon 5 images op je form pleuren waar je in die for loop de locatie van bepaalt? Lijkt me niet zo'n moeilijk concept?

[Sponge]

of maak gewoon 6 plaatjs maakt van een dobbelsteen, en dan iets doet zoals:

for i = 1 to 5
set picturebox(i).picture = loadpicture(dobbel(i) & ".bmp")
next i

Dit is erg simpel, kan veel beter, maar dat is niet meteen nodig hier . Picturebox is een picturebox met een control array van 5 stuks.. (gooi 1 picturebox in je form, en plak die paar keer. Vb zal vragen om een control array te maken, of niet)

[bas_vdl]

volgend probleem
hoe voorkom ik dat hij meerde dingen afvinkt als je bijv. 5 dezelfde gooit dat hij ook 3 en 4 dezelfde afvinkt....
mijn code nu is..

a1 a2 a3 a4 a5 a6 zijn het aantal 1en 2en 3en 4en 5en 6en die er gegooid zijn in 1 worp.

'3 dezelfde
If a1 = 3 Or a2 = 3 Or a3 = 3 Or a4 = 3 Or a5 = 3 Or a6 = 3 Then Check1 = 2
'4 dezelfde
If a1 = 4 Or a2 = 4 Or a3 = 4 Or a4 = 4 Or a5 = 4 Or a6 = 4 Then Check2 = 2
'5 dezelfde
If a1 = 5 Or a2 = 5 Or a3 = 5 Or a4 = 5 Or a5 = 5 Or a6 = 5 Then Check3 = 2

'kleine straat 1234 of 2345 of 3456
If a1 = 1 And a2 = 1 And a3 = 1 And a4 = 1 Then Check4 = 2
If a2 = 1 And a3 = 1 And a4 = 1 And a5 = 1 Then Check4 = 2
If a3 = 1 And a4 = 1 And a5 = 1 And a6 = 1 Then Check4 = 2

'grote straat 12345 of 23456
If a1 = 1 And a2 = 1 And a3 = 1 And a4 = 1 And a5 = 1 Then Check5 = 2
If a2 = 1 And a3 = 1 And a4 = 1 And a5 = 1 And a6 = 1 Then Check5 = 2

'Full House
If a1 = 2 And (a2 = 3 Or a3 = 3 Or a4 = 3 Or a5 = 3 Or a6 = 3) Then Check6 = 2
If a2 = 2 And (a1 = 3 Or a3 = 3 Or a4 = 3 Or a5 = 3 Or a6 = 3) Then Check6 = 2
If a3 = 2 And (a1 = 3 Or a2 = 3 Or a4 = 3 Or a5 = 3 Or a6 = 3) Then Check6 = 2
If a4 = 2 And (a1 = 3 Or a2 = 3 Or a3 = 3 Or a5 = 3 Or a6 = 3) Then Check6 = 2
If a5 = 2 And (a1 = 3 Or a2 = 3 Or a3 = 3 Or a4 = 3 Or a6 = 3) Then Check6 = 2
If a6 = 2 And (a1 = 3 Or a2 = 3 Or a3 = 3 Or a4 = 3 Or a5 = 3) Then Check6 = 2


If Check1 = 2 And Check2 = 2 And Check3 = 2 And Check4 = 2 And Check5 = 2 And Check6 = 2 Then MsgBox ("Gewonnen")

[NMe]

Je kan een Exit Function in je code stoppen, als je tenminste dit alles in een functie doet. Of je gebruikt een boolean variabele die aangeeft of je nog iets mag afstrepen of niet.

_{Dit zijn best wel basisconcepten van programmeren, iets meer je best doen door te zoeken op Google mag wel hoor.}

[bas_vdl]

kun je iets meer geven

[NMe]

Visual Basic .NET:

Dim doorgaan as Bolean

doorgaan = true

If doorgaan And geval1 Then
  'doe iets
  doorgaan = false
End If

If doorgaan And geval2 Then
  'doe iets
  doorgaan = false
End If

Of je doet wat met If/ElseIf/Else, ik weet alleen niet of dat in VB kan.

[bas_vdl]

het bekende yathzee
ben een aardig eindje op weg maar nu de validatie van de score nog ik snap er ff niks meer van op dit moment kan iemant ff helpen...?

het formulier ziet er als volgt uit/
1 knop DOBBEL
5 textvakken in een array 0 t/m 4 dobbel(i)
en check1 check2 check3 check4 check5 check6 voor de scores afvinken

dit is een stukje code je gaat gooien dan verzamelt hij de ogen en geeft de volgende error sub or function not defined bij dobbel(x) in de 5e regel van ondere!

Private Sub Command1_Click()

Randomize
For i = 0 To 4
dobbel(x) = Int((6 * Rnd) + 1)
'Laad plaatje
Set picbox(i).Picture = LoadPicture(dobbel(x) & ".ICO")
Next i


'If Check1 = 2 And Check2 = 2 And Check3 = 2 And Check4 = 2 And Check5 = 2 And Check6 = 2 Then MsgBox ("Gewonnen")

Verzamel_dobbel_waardes

End Sub

Private Sub Verzamel_dobbel_waardes()

Dim j, x As Integer

'de mogelijke waarden van een dobbelsteen is 1 t/m 6, dus een teller van 1 t/m 6
For j = 1 To 6
'de vijf dobbelstenen in een array dat met element 0 begint dus een teller van 0 t/m 4
For x = 0 To 4
'tel het aantal malen dat een bepaald aantal ogen in een worp
'(bewaard in dobbel() array) is gegooid en bewaar dat in frequentie_ogen() array
If |HIER DUS|>>> dobbel(x) <<<|HIER DUS| = j Then frequentie_ogen(j) = frequentie_ogen(j) + 1
Next
Next
End Sub

[ Voor 5% gewijzigd door bas_vdl op 10-11-2004 16:30 ]

[curry684]

Uhm ja koop een boek en zo

P&W gaat over programmeren, niet over mensen stap voor stap wegwijs maken in de wondere wereld van software development. En lees aub de stickies mbt topictitels.