favor ayuda

[jaml_84]

muy buenas mire que estoy realizando un programa sobre la quinela y utuizo el siguiente codigo para que se seleccione 6 check automaticamente con el siguiente codigo
Private Sub Command2_Click()
Dim a As Integer
Dim i As Integer
i = 0

Do
m = CInt(Int((48 * Rnd) + 1))
chk0(m).Value = vbChecked
i = i + 1

If chk0(m) = 49 Then
m = m - 1
End If

If chk0(m).BackColor = vbGreen Then

m = m - 1
End If
'Label1.Caption = m
Loop Until (i = 6)
If i = 6 Then
Command2.Enabled = False
a = 0
Do
chk0(a).Enabled = False
a = a + 1
Loop Until (a = 50)


End If
End Sub


pero al momento de aplicarlo no solo escoge 6 sino que se aplica a 5 check o a veces a 7
me podrian dar alguna forma de corregir ese error o evitar y que solo se selecciones 6 check

gracias

[Heimish2000]

El problema es que si te sale dos veces el mismo número al hacer el random vuelves a poner ese check, pero le sumas uno a i por lo que te cogera un check menos (ya que uno te lo ha cogido dos veces). El caso extremo sería que te saliera con el random seis veces el mismo número y por tanto solo te aparecería un check (que has habilitado seis veces, pero visualmente será uno solo)

Antes de ponerlo checked tienes que comprobar si ya está. Si no está lo pones checked y sumas uno a i, si está ya checked no haces nada y sacas otro número aleatorio.

Código vb:

Do
m = CInt(Int((48 * Rnd) + 1))
If (chk0(m).Value != vbChecked)
chk0(m).Value != vbChecked
i = i + 1
 
If chk0(m) = 49 Then
m = m - 1
End If
 
If chk0(m).BackColor = vbGreen Then
 
m = m - 1
End If
End If
Loop Until (i = 6)
 

[jaml_84]

gracias por la respuesta lo voy a probar y haber como salen las cosas te lo cuento

[jaml_84]

muy buenas pues te comento que no se como corregirlo trato de hacer lo que indicas pero lo que pasa es que se cuelga el visual y no funciona favor de ayudarme nuevamente

[pkj]

No veo muy claro que intentas hacer, pero si solo quieres poner en verde y activos 6 checkbox de 49 que supongo que estarán indexados del 0 al 48, no necesitas tanto codigo.

Algo así valdría:

Código vb:

i=0
Do
  m = Int(49 * Rnd)
  If (chk0(m).Value <> vbChecked) Then
    chk0(m).Value = vbChecked
    chk0(m).BackColor = vbGreen
    i = i + 1
  End If
Loop Until (i = 6)
 

[Gakex]

mira aquí acabo de poner en practica el ejemplo de pkj http://www.box.net/shared/y7ivcdxz12
nadamas lo modifique un poco.

[jaml_84]

Muchas gracias por su ayuda es justo lo que estaba buscando