Mensajes

Bueno todavía no doy como hacerlo

la cuestión esta en como hace los saltos para las combinaciones ???


numeros de la rueda
01)...01-02-03-04-05-06. .
02)...01-02-03-07-08-09. .
03)...04-05-06-07-08-09
04)...01-04-09-10-11-12. .
05)...02-05-06-10-11-12. .
06)...03-07-08-10-11-12


01-02-03-04-05-06-07-08-09-10-11-12 <---numeros guias

15-19-20-22-25-30-34-36-38-40-42-48 <---mis numeros


aca hice lo que explica el tema pero a mano ;(

01)...01-02-03-04-05-06<---numeros de la rueda
      15-19-20-22-25-30<---mis numeros

02)...01-02-03-07-08-09<---numeros de la rueda
      15-19-20-34-36-38<---mis numeros combinados segun la rueda

03)...04-05-06-07-08-09
      22-25-30-34-36-38

04)...01-04-09-10-11-12
      15-22-38-40-42-48

05)...02-05-06-10-11-12
      19-25-30-40-42-48

06)...03-07-08-10-11-12
      20-34-36-40-42-48


Buaaa

Luis

Hola

lo que quiero es que no se muestren los ceros


Luis

[Math.Abs()]

Hola Luis

Para convertir un número a positivo puedes usar el método Math.Abs()
Y lo que quieres hacer cuando un número es '0' no está del todo claro.

Te sugiero que apliques tus propias reglas iterando los elementos del Array, por ejemplo:

Código (vbnet) [Seleccionar] Expandir

       Dim num1 As Integer = -50I '  Un numero negativo para probar este ejemplo.

       Dim Result1 As Integer() = {num1 - 1, num1 - 2, num1 + 3, num1 + 6, num1 + 8}

       For Index As Integer = 0 To (Result1.Count - 1)

           Select Case Result1(Index)

               Case Is = 0 ' El valor es 0.
                   ' Hacer algo con el número 0 aquí.
                   ' Result1(Index) = Not 0

               Case Is < 0 ' El valor es negativo.
                   ' Lo convierto a positivo.
                   Result1(Index) = Math.Abs(Result1(Index))

           End Select '/ Result1(Index)


       Next Index

        Result1 = Result1.Distinct().ToArray
       Array.Sort(Result1)

saludos

que no se muestren ceros he probado el codigo y funciona bien con los negativos pero cuando pongo

Result1(Index) = Not 0 <------ regresan los negativos

Luis

Hola ya me mareo jejeje

es simplemente sustituir  los números de las combinaciones de la rueda por los que introduzca el usuario se supone que estos numeros van de menor a mayor. lo que todavia no logro entender es como se hacen estas combinaciones ,el codigo que hizo elektro funciona pero cambia las combinaciones cada ves que se ejecuta el codigo y se supone que con los mismos numeros deberian de ser siempre las mismas combinaciones.

Luis


Pondré ejemplo con menos numeros a ver si atinamos a saber como se hacen estas combis 

Para 9 Números en 3 Combinaciones

Poder de ganar premios
3 si 3 = 67.86%... 4 si 4 = 35.71%... 5 si 5 = 14.28%
3 si 4 = 100.0%... 4 si 5 = 100.0%... 5 si 6 = 67.86%
3 si 5 = 100.0%... 4 si 6 = 100.0%
3 si 6 = 100.0%

Para usar esta rueda: Imprime una copia de la impresora. Escribe tus números
debajo de mis números guías, úsalos como usarías una rueda de códigos infantil
para cambiar los números por los míos en las combinaciones debajo. Esto es una
rueda cargada, entonces si clasificas tus números de mejor a peor, entonces
coloca de primero las mejores opciones en la rueda yendo de izquierda a derecha.

Números guías: 01-02-03-04-05-06-07-08-09

01)...01-02-03-04-05-06. . 02)...01-02-03-07-08-09. . 03)...04-05-06-07-08-09

Para 12 Números en 6 Combinaciones
Poder de ganar premios
3 si 3 = 51.36%... 4 si 4 = 18.18%... 5 si 5 = 04.54%
3 si 4 = 95.15%... 4 si 5 = 63.64%... 5 si 6 = 24.02%
3 si 5 = 100.0%... 4 si 6 = 100.0%
3 si 6 = 100.0%

Para usar esta rueda: Imprime una copia de la impresora. Escribe tus números
debajo de mis números guías, úsalos como usarías una rueda de códigos infantil
para cambiar los números por los míos en las combinaciones debajo. Esto es una
rueda cargada, entonces si clasificas tus números de mejor a peor, entonces
coloca de primero las mejores opciones en la rueda yendo de izquierda a derecha.

Números guías: 01-02-03-04-05-06-07-08-09-10-11-12

01)...01-02-03-04-05-06. . 02)...01-02-03-07-08-09. . 03)...04-05-06-07-08-09
06)...01-04-09-10-11-12. . 04)...02-05-06-10-11-12. . 06)...03-07-08-10-11-12

Igual es xq estoy acabado de levantar, pero no entiendo nada xddd

Hay algun sitio donde se pueda consultar esa 'forma' de generar numeros y su itilidad?

Bien util para los que les guste las loterías y para quienes buscamos claves numéricas diferentes porque ya sabemos que con un generador genérico de combinaciones numéricas se producen la hostia de combinaciones pero predecibles


Pongo el contenido de lo que me encontré para este proyecto



Para usar esta rueda: Imprime una copia de la impresora. Escribe tus números
debajo de mis números guías, úsalos como usarías una rueda de códigos infantil
para cambiar los números por los míos en las combinaciones debajo. Esto es una
rueda cargada, entonces si clasificas tus números de mejor a peor, entonces
coloca de primero las mejores opciones en la rueda yendo de izquierda a derecha.

Números guías: 01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20-
21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-
46-47-48-49

01)...01-02-03-04-05-06. . 02)...01-02-03-07-08-09. . 03)...01-04-09-10-11-12
04)...01-05-17-29-41-49. . 05)...01-06-13-20-30-43. . 06)...01-08-19-26-33-44
07)...01-10-22-31-36-39. . 08)...01-11-14-28-42-47. . 09)...01-19-32-34-38-48
10)...02-04-18-30-42-49. . 11)...02-05-06-10-11-12. . 12)...02-07-16-20-31-41
13)...02-09-15-17-28-38. . 14)...02-13-22-29-33-40. . 15)...02-14-19-35-37-43
16)...02-21-26-32-39-45. . 17)...03-04-22-32-41-43. . 18)...03-05-19-25-31-42
19)...03-06-14-26-38-49. . 20)...03-07-08-10-11-12. . 21)...03-09-21-27-36-44
22)...03-11-17-20-33-39. . 23)...03-23-28-34-37-49. . 24)...04-05-06-07-08-09
25)...04-08-16-25-35-39. . 26)...04-10-17-34-40-47. . 27)...04-11-13-24-31-44
28)...04-12-21-29-38-46. . 29)...05-07-21-24-33-43. . 30)...05-10-13-18-28-46
31)...05-12-15-30-34-39. . 32)...05-15-20-26-35-40. . 33)...05-16-32-36-47-49
34)...06-07-15-25-36-45. . 35)...06-17-24-35-42-46. . 36)...06-18-21-34-41-48
37)...06-19-22-27-40-47. . 38)...07-09-14-30-32-40. . 39)...07-13-19-27-39-49
40)...07-22-28-35-38-44. . 41)...08-12-17-22-30-37. . 42)...08-14-23-36-41-46
43)...08-15-21-31-43-49. . 44)...08-20-24-27-38-45. . 45)...09-11-16-22-34-46
46)...09-12-13-25-41-49. . 47)...09-17-23-26-31-48. . 48)...09-18-24-29-37-47
49)...10-14-16-29-45-48. . 50)...10-19-24-30-33-41. . 51)...10-20-25-32-37-44
52)...11-15-27-33-37-48. . 53)...11-18-23-25-38-40. . 54)...12-16-26-27-42-43
55)...12-23-33-35-45-47. . 56)...12-24-28-36-40-48. . 57)...13-14-15-16-17-18
58)...13-14-15-19-20-21. . 59)...13-16-21-22-23-24. . 60)...14-17-18-22-23-24
61)...15-19-20-22-23-24. . 62)...15-23-29-32-42-44. . 63)...16-17-18-19-20-21
64)...25-26-27-28-29-30. . 65)...25-26-27-31-32-33. . 66)...25-28-33-34-35-36
67)...26-29-30-34-35-36. . 68)...27-31-32-34-35-36. . 69)...28-29-30-31-32-33
70)...37-38-39-40-41-42. . 71)...37-38-39-43-44-45. . 72)...37-40-45-46-47-48
73)...38-41-42-46-47-48. . 74)...39-43-44-46-47-48. . 75)...40-41-42-43-44-45

Para 50 Números En 80 Combinaciones
Poder de ganar premios
3 si 3 = 08.02%... 4 si 4 = 00.52%... 5 si 5 = 00.02%
3 si 4 = 29.18%... 4 si 5 = 02.50%... 5 si 6 = 00.13%
3 si 5 = 59.06%... 4 si 6 = 07.16%
3 si 6 = 84.30%



Luis

Si combina bien pero , pero, ya sabes Elektro  siempre hay un pero, jeje, los numeros guías son para posicionar los numeros que hay que introducir manualmente esos numeros no son los que se van a combinar si no los que se introduzcan mediante unos texbosex.

fíjate como se ordenan los numeros mediante los numeros guías


Números guías  :  01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40

numeros propios:  10-15-18-19-22-24-36-38-39-40-41-43-44-47-50-54-56-61-63-68-68-70-71-73-75-76-77-78-79-80-81-83-84-86-87-88-59-90-91-92 < estos son los que se introducen a mano


los numeros que yo introduzco se tienen que ordenar según  estos numeros

numeros guías para tomar el orden fíjate que la combinación 01)  se ordena 1, 2 salta al 14 y hace saltos al 16 y así sucesivamente

01) 1 2 12 14 16 37 <---ordenar mis numeros en este orden o posiciones guias
02) 1 3 13 22 25 38

y el resultado seria tomando (acá usamos mis numeros)  y los ordenamos como están ordenados las combinaciones guías
es estos el orden es igual a la combinación 01 pero numeros diferentes, el 10 esta en la posición del 1, el 15 en la del dos el 43 hace el salto a la posición 14 y a si igual como lo hacen las combinaciones guías

01) 10-15-43-47-54-59
02) 10-18-44-70-75-90


Gracias por tu tiempo   y sobre todo Paciencia jejej

Luis

[Math.Abs()]

Hola Luis

Para convertir un número a positivo puedes usar el método Math.Abs()
Y lo que quieres hacer cuando un número es '0' no está del todo claro.

Te sugiero que apliques tus propias reglas iterando los elementos del Array, por ejemplo:

Código (vbnet) [Seleccionar] Expandir

       Dim num1 As Integer = -50I '  Un numero negativo para probar este ejemplo.

       Dim Result1 As Integer() = {num1 - 1, num1 - 2, num1 + 3, num1 + 6, num1 + 8}

       For Index As Integer = 0 To (Result1.Count - 1)

           Select Case Result1(Index)

               Case Is = 0 ' El valor es 0.
                   ' Hacer algo con el número 0 aquí.
                   ' Result1(Index) = Not 0

               Case Is < 0 ' El valor es negativo.
                   ' Lo convierto a positivo.
                   Result1(Index) = Math.Abs(Result1(Index))

           End Select '/ Result1(Index)


       Next Index

        Result1 = Result1.Distinct().ToArray
       Array.Sort(Result1)

saludos

Gracias Elektro

siempre tan amable lo probare y te dire

Luis

Bueno puede ser que no haya sabido explicar el problema ya que no son combinaciones como tal,es solamente acomodar los numeros en las posiciones
que da la rueda, los numeros guias son para que debajo de ellos se pongan los numeros que uno quiere :tomare solo unos cuantos

Números guías  :  01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40

numeros propios:  10-15-18-19-22-24-36-38-39-40-41-43-44-47-50-54-56-61-63-68-68-70-71-73-75-76-77-78-79-80-81-83-84-86-87-88-59-90-91-92


numeros guías

01) 1 2 12 14 16 37
02) 1 3 13 22 25 38

y el resultado seria tomando nuestros numeros

01) 10-15-43-47-54-59
02) 10-18-44-70-75-90

Como se ve los numeros que uno pongan se ponen en en el orden que se da en los numeros guías,(hasta yo me enredo jejej)

me parece que aún no has aprendido a usar arrays (arreglos) te recomiendo estúdiate un tutorial, es simple y verás como te facilita la vida de inmediato XD

Gracias de nuevo lo que creo es dificil de hacer ya que con 10 horas de curro al dia como mecánico y 54 años se me hace cuesta arriba lo que me gustaría saber es como hacerlo sin tantas pegas ya que esto es una aficcion y no trabajo y de paso me acostumbre a programar a pie ,escribir montón de código jejej

te agradezco tu interés de verdad

Luis

Me he vuelto tarimba buscando que esto no me muestre ceros y signos negativos yo envió desde un texbox un numero y aplico esta formula pero cuando pongo. ejemplo el uno me sale   -9 , 0

codigo

Código (vbnet) [Seleccionar] Expandir

Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       

        Result1 = {Num1 - 1, Num1 - 2, Num1 + 3, Num1 + 6, Num1 + 8} _
                  .Distinct().ToArray
        Array.Sort(Result1)


       End Sub