dobbelspel maken in Access

[TomDaemen]

Heey,

voor school moet ik een programmatje maken in access. ik wil dus een dobbelspel maken. Dit is wat ik heb:

Private Sub CmdRoll_Click()

Dim lngCatch As Long
Dim intCounter As Integer
Dim intRandom As Integer
   
    Randomize
    
 Image1.Visible = False
 Image2.Visible = False
 Image3.Visible = False
 Image4.Visible = False
 Image5.Visible = False
 Image6.Visible = False
  
    intRandom = Int(Rnd * 6) + 1
        If intRandom = 1 Then
        Image1.Visible = True
        ElseIf intRandom = 2 Then
        Image2.Visible = True
        ElseIf intRandom = 3 Then
        Image3.Visible = True
        ElseIf intRandom = 4 Then
        Image4.Visible = True
        ElseIf intRandom = 5 Then
        Image5.Visible = True
        ElseIf intRandom = 6 Then
        Image6.Visible = True
        End If

End Sub

Maar het werkt niet echt, kan iemand me misschien vertellen waar er een fout inzit, of wat er nog moet worden toegevoegd?

Groet,
Tom

 

[huijb]

Schoolopdrachten worden in principe niet behandeld op Helpmij, mits je aangeeft wat jezelf allemaal heb gedaan om het probleem opgelost te krijgen. Zie ook hier http://www.helpmij.nl/forum/showthread.php/635119-Voor-huiswerkvragen-afstudeeropdrachten-zie-hier

 

[TomDaemen]

Ik heb er toch de code bijgezet die ik al heb, ik vraag gewoon om wat feedback

 

[dnties]

Wat dat Image1.Visible t/m Image6.Visible doen weet ik niet, en is door jou niet uitgelegd / toegelicht. Dus als het probleem dáár zit, kunnen we je (met de huidige informatie) niet helpen.

Ik zou beginnen met eerst eens de uitvoer te bekijken van je dobbelacties:

Private Sub CmdRoll_Click()

Dim lngCatch As Long
Dim intCounter As Integer
Dim intRandom As Integer
   
    Randomize
    
 Image1.Visible = False
 Image2.Visible = False
 Image3.Visible = False
 Image4.Visible = False
 Image5.Visible = False
 Image6.Visible = False
  
IntRandom = (Int(Rnd * 6) + 1)
  Select Case IntRandom
   Case 1
      MsgBox("1 gegooid, " & IntRandom & " was gegenereerd")
'     Image1.Visible = True
   Case 2
      MsgBox("2 gegooid, " & IntRandom & " was gegenereerd")
'     Image2.Visible = True
   Case 3
      MsgBox("3 gegooid, " & IntRandom & " was gegenereerd")
'     Image3.Visible = True
   Case 4
      MsgBox("4 gegooid, " & IntRandom & " was gegenereerd")
'     Image4.Visible = True
   Case 5
      MsgBox("5 gegooid, " & IntRandom & " was gegenereerd")
'     Image5.Visible = True
   Case 6
      MsgBox("6 gegooid, " & IntRandom & " was gegenereerd")
'     Image6.Visible = True
   Case Else
      MsgBox("Er is blijkbaar iets fout, " & IntRandom & " was gegenereerd")
  End Select
End Sub

Bovenstaande code werkt bij mij overigens, m.u.v. Image1.Visible = false ... Image6.Visible = false, die ik bij mij er even uitgelaten heb door er commentaar van te maken. Per slot weet ik niets over Image1 t/m Image6 (zie mijn eerste paragraaf).

Succes,

Tijs.

 

[snb]

@Huijb

Schoolopdrachten worden in principe niet behandeld op Helpmij, tenzij je aangeeft wat jezelf allemaal heb gedaan om het probleem opgelost te krijgen.

of

Schoolopdrachten worden in principe behandeld op Helpmij, mits je aangeeft wat jezelf allemaal heb gedaan om het probleem opgelost te krijgen.