Los foros del Guille

elGuille.hosting: La oferta avanzada:
.NET 2.0, SQL Server, 4000MB, 30GB transf. por 19.95 Eur al mes

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 
Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

09/nov/2005
Nuevo filtro en el código posteado para evitar malas intenciones.
Por supuesto, si encuentras fallos de seguridad, por favor postealo en el foro de Bugs, ya que es para beneficio de todos. Gracias.

  Foro: de VB6.a VB.NET Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 53328 - explicacion de codigo
IDAsuntoFechaNick 
53328 explicacion de codigo13/07/10 17:17funkyjorge   
hola amigos quisiera que si pueden alguien me explique este codigo pues no lo entiendo muy bien ya lo pase a VB.NET pero no obtengo los mismos resultados que en VB.NET, espero que me puedan ayudar pues lo necesito urgente.

Sub RevisarPremiosReyes()
 Dim Rta As Boolean
 Dim Temp As Boolean
 Dim I As Integer
 Dim J As Integer
 Dim Carton As Integer
 Dim ReyesAgregado As Integer
 Dim UltimaCorrecta As Boolean
 Dim Linea As String
        
 For I = 0 To 49
   ConsultaReyesTemporal(I) = ""
 Next I
 ReyesAgregado = 0
 Linea = ""        
 Carton = 0
 While TotalCartonesConsulta(Carton) <> ""
   Rta = False            
   I = 0
   UltimaCorrecta = False
   While (FigurasEnJuego(I, 0) <> 10) And (Rta <> True)
     Temp = True
     For J = 0 To 24
       If FigurasEnJuego(I, J) = True Then
         If ExaminarCartonesEnJuego(Carton, J) <> 0 Then
           If Not
                (EstaBalota(ExaminarCartonesEnJuego(Carton, J))) Then
              Temp = False
           Exit For
         Else
           If ExaminarCartonesEnJuego(Carton, J) = UltimaBalota Then
              UltimaCorrecta = True
           End If
         End If
        End If
       End If
     Next J
     If Temp = True Then
        Rta = True
     End If
     I = I + 1
   Wend
   If (Rta = True) And (UltimaCorrecta = True) Then
     ConsultaReyesTemporal(ReyesAgregado) = TotalCartonesConsulta(Carton)
     If NombresReyes(Carton) <> "Ninguno" Then
        Linea = Linea & NombresReyes(Carton) & Chr(13)
     End If
     ReyesAgregado = ReyesAgregado + 1
   End If
   Carton = Carton + 1
 Wend    
 CargarCartonesEnConsulta = False
 If RecuperacionJuego = False Then
   If ReyesAgregado <> 0 Then
     If Configurar.ChkCartonesActivos.Value = 1 Then
       If Linea <> "" Then
        If ActivarRuidos And ListaSonidos(112) <> "" And ListaSonidos(112) <> "No" Then
           ReproducirSonido App.Path & "\wav\Sonidos\" & ListaSonidos(112)
        End If
        I = MsgBox("B  I  N  G  O" & Chr(13) & Chr(13) &
             "Ha ganado un(os) Cartón(es)." & Chr(13) & "Y los siguientes reyes:" & Chr(13) & Linea & Chr(13) &
             "Revizar la consulta" & Chr(13) & "Desea Consultarlos ahora?", vbQuestion + vbYesNo +
             vbDefaultButton2, "T  E  L  E  B  I  N  G  O")
       Else
         I = MsgBox("B  I  N  G  O" & Chr(13) & Chr(13) &
              "Ha ganado un(os) Cartón(es)." & Chr(13) & Chr(13) &
              "Revizar la consulta" & Chr(13) & "Desea Consultarlos ahora?", vbQuestion + vbYesNo +
              vbDefaultButton2, "T  E  L  E  B  I  N  G  O")
       End If
       If I = vbYes Then          
          CargarCartonesEnConsulta = True
          FrmInter2.Show 1
       Else
          CargarCartonesEnConsulta = False
       End If
      Else
        If ActivarRuidos And ListaSonidos(112) <> "" And ListaSonidos(112) <> "No" Then
           ReproducirSonido App.Path & "\wav\Sonidos\" & ListaSonidos(112)
        End If
        I = MsgBox("B I N G O" & Chr(13) & "En carta rey." & Chr(13) & Linea & Chr(13) & "Desea Consultarlos ahora?", vbQuestion + vbYesNo +
             vbDefaultButton2, "B E A N O")
        If I = vbYes Then
           CargarCartonesEnConsulta = True
           FrmInter2.Show 1
        End If
      End If
     End If
   End If
End Sub
por favor necestio la ayuda... gracias
IDAsuntoFechaNick 
53621 Re: explicacion de codigo (Resp: 53328)13/08/10 08:19elGuille [MVP]   
deberías concretar más en qué es lo que no funciona igual, ir al grano que se dice...

   elGuille


Si esta respuesta resuelve tu duda, por favor pulsa en la de este mensaje. Gracias.

 
(c) Guillermo 'guille' Som, 2005-2017  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 75 - App. iniciada: 24/11/2017 1:38:24 GMT - La hora GMT del servidor es: 24/11/2017 01:59:44 GMT