elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Estamos en la red social de Mastodon


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Combinaciones numericas por posicion con numeros guias
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 Ir Abajo Respuesta Imprimir
Autor Tema: Combinaciones numericas por posicion con numeros guias  (Leído 19,833 veces)
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Combinaciones numericas por posicion con numeros guias
« en: 28 Junio 2014, 18:06 pm »

Hola a todos hace tiempo que no entraba debido a motivos de salud pero ya estamos dando querrá de nuevo :)

Después de estar buscando mucho he encontrado esta forma de combinar numeros, según esto es para la lotería primitiva y se basa en algo llamado la rueda ?

bien la pregunta especifica es la siguiente.

tengo un form donde introduzco estos numeros guías mediante unos textbox (eso esta chupado jejej) lo que por supuesto no tengo idea es que me genere los numeros
como el ejemplo que pongo y me los muestre en un lixtbox.

Para 50 Números En 80 Combinaciones

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-50


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


Gracias de antemano

Luis


En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
engel lex
Moderador Global
***
Desconectado Desconectado

Mensajes: 15.514



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #1 en: 28 Junio 2014, 18:24 pm »

pienso que la manera más facil es:

colocar los números ingresados en un array, por cada combinación a crear, haces un for con tantos ciclos como números en la combinación y dentro de el un random de 0 al largo del array, de manera que escoja valores del array, organizas los números obtenidos por el random, te aseguras que no haya repetidos y listo, luego te aseguras que no hagan combinaciones repetidas y listo completo :P


En línea

El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #2 en: 29 Junio 2014, 05:59 am »

pienso que la manera más facil es:

colocar los números ingresados en un array, por cada combinación a crear, haces un for con tantos ciclos como números en la combinación y dentro de el un random de 0 al largo del array, de manera que escoja valores del array, organizas los números obtenidos por el random, te aseguras que no haya repetidos y listo, luego te aseguras que no hagan combinaciones repetidas y listo completo :P


Hola :)

Gracias por tu respuesta tan pronto me dejas enredado yo pensaba en hacer coincidir los textbos uno por uno :) ya que los numeros quías cambian eso del 1 al 50 es para el ejemplo ya que pueden empezar con cualquier numero.pero tienen que quedar en el orden que da el ejemplo
esto es lo que llevo hasta el momento



Código
  1. Public Class Form1
  2.    Dim maximum As Short = 99
  3.    Dim Número As Double
  4.    Private TextBoxes As TextBox() = {Nothing}
  5.    Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32(), Result4 As Int32(), Result5 As Int32(), Result6 As Int32(), Result7 As Int32(), Result8 As Int32(), Result9 As Int32(), Result10 As Int32(), Result11 As Int32(), Result12 As Int32(), Result13 As Int32(), Result14 As Int32(), Result15 As Int32(), Result16 As Int32(), Result17 As Int32(), Result18 As Int32(), Result19 As Int32(), Result20 As Int32()
  6.    Private _textBox As Object
  7.    Private Property ListBox1Count As Integer
  8.    ReadOnly MAX As Integer = 99
  9.  
  10.  
  11.     l
  12.  
  13.  
  14. Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
  15.        ' evitar letras
  16.        If Char.IsDigit(e.KeyChar) Then
  17.            e.Handled = False
  18.        ElseIf Char.IsControl(e.KeyChar) Then
  19.            e.Handled = False
  20.        ElseIf Char.IsSeparator(e.KeyChar) Then
  21.            e.Handled = False
  22.        Else
  23.            e.Handled = True
  24.        End If
  25.  
  26.    End Sub
  27.  
  28.  
  29. ' Elimino duplicados al mismo tiempo que selecciono los números inferiores a MAX.
  30.        Dim Resultss As IEnumerable(Of Integer) =
  31.            (
  32.                From Value As Integer
  33.                In (Result1.Concat(Result2).Concat(Result3).Concat(Result4).Concat(Result5).Concat(Result6).Concat(Result7).Concat(Result8).Concat(Result9).Concat(Result10).Concat(Result11).Concat(Result12).Concat(Result13).Concat(Result14).Concat(Result15).Concat(Result16).Concat(Result17).Concat(Result18).Concat(Result19).Concat(Result20)).Distinct
  34.                Where Value <= MAX
  35.            )
  36.  
  37.  
  38. ' concateno todos y muestro en un listbox
  39.  
  40. Dim Rand288 As New Random
  41.  
  42.        Dim Result288 As IEnumerable(Of Integer) =
  43.            (Result1.Concat(Result2).Concat(Result3).Concat(Result4).Concat(Result5).Concat(Result6).Concat(Result7).Concat(Result8).Concat(Result9).Concat(Result10).Concat(Result11).Concat(Result12).Concat(Result13).Concat(Result14).Concat(Result15).Concat(Result16).Concat(Result17).Concat(Result18).Concat(Result19).Concat(Result20).
  44.        Distinct.
  45.        Select(Function(Value As Integer)
  46.                   Return If(Value < MAX, Value, Rand.Next(0, MAX))
  47.               End Function))
  48.        ListBox12.Items.AddRange(Result288.Cast(Of Object).ToArray)
  49.  
  50.  
  51.  
  52.  End Sub
  53. End Class
  54.  



En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
engel lex
Moderador Global
***
Desconectado Desconectado

Mensajes: 15.514



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #3 en: 29 Junio 2014, 08:52 am »

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
« Última modificación: 29 Junio 2014, 08:55 am por engel lex » En línea

El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #4 en: 29 Junio 2014, 11:04 am »

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
En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Slava_TZD
Wiki

Desconectado Desconectado

Mensajes: 1.466

♪ [8675309] ♪


Ver Perfil WWW
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #5 en: 29 Junio 2014, 15:57 pm »

No entiendo muy bien lo de las 80 combinaciones, es decir, según entiendo, se han de generar X combinaciones a partir de los números 1..50 y éstas nunca deben ser iguales y deben abarcar la mayor parte de combinaciones...ejemplo:

Código:
1 2 3 21 31 35
1 2 3 21 31 36
1 2 3 21 31 37
1 2 3 21 31 38
1 2 3 21 31 39
1 2 3 21 31 40
1 2 3 21 31 41
1 2 3 21 31 42
1 2 3 21 31 43
1 2 3 21 31 44
1 2 3 21 31 45
1 2 3 21 31 46
1 2 3 21 31 47

La cosa es, si el número 'límite' de combinaciones es X, ¿como se han se elegir las combinaciones exactamente? es decir, que criterio debe seguir la función que genera números para saltar por ejemplo de 1-8-10-11-23-43 a 1-28-30-33-34-35.
En línea


The fact is, even if you were to stop bombing us, imprisoning us, torturing us, vilifying us, and usurping our lands, we would continue to hate you because our primary reason for hating you will not cease to exist until you embrace Islam.
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #6 en: 29 Junio 2014, 17:10 pm »

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)
En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #7 en: 29 Junio 2014, 19:47 pm »

La cosa es, si el número 'límite' de combinaciones es X, ¿como se han se elegir las combinaciones exactamente? es decir, que criterio debe seguir la función que genera números para saltar por ejemplo de 1-8-10-11-23-43 a 1-28-30-33-34-35.

Buena pregunta, siempre me ha traido de cabeza este problema del compañero @Luis xD.

A ver si hoy es el dia en que resuelvo lo que precisas ;):

Output:

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


Código:
(Copiar, pegar, y compilar)
Código
  1. Public Class ComboTest : Inherits Form
  2.  
  3. #Region " Objects, Vars "
  4.  
  5.    ' La Class "Random", es necesaria para desordenar una colección
  6.    ' y esta declaración tiene que ir siempre fuera de cualquier Sub.
  7.    Private ComboRandomizer As New Random
  8.  
  9.    ' El control que creo en tiempo de ejecución, donde mostraré las combinaciones.
  10.    Private rtb As New RichTextBox With
  11.            {
  12.              .Dock = DockStyle.Fill,
  13.              .Font = New Font("Lucida Console", 10.0F)
  14.            }
  15.  
  16.    ' Una "palanca" para habilitar/deshabilitar el bloque de depuración.
  17.    Private EnableDebug As Boolean = False
  18.  
  19.    ' Instancio una lista donde iremos guardando cada combinación obtenida.
  20.    Private Combos As New List(Of Integer())
  21.  
  22.    ' Otra lista donde le daré el formato deseado a los números.
  23.    Dim ComboStrings As List(Of String) = Nothing
  24.  
  25.    ' El máximo de combinaciones.
  26.    Private Property MaxCombos As Integer = 80I
  27.  
  28.    ' El máximo de longitud para cada combinación.
  29.    Private Property MaxComboLength As Integer = 6I
  30.  
  31.    ' Los números "guías" que usaremos para rellenar cada combinación.
  32.    Private ReadOnly Numbers As Integer() =
  33.        (From n As Integer In
  34.         ("01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20-" &
  35.          "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40-" &
  36.          "41-42-43-44-45-46-47-48-49-50"
  37.         ).Split({"-"}, StringSplitOptions.RemoveEmptyEntries)).ToArray
  38.  
  39. #End Region
  40.  
  41. #Region " Constructors "
  42.  
  43.        ' De este Sub no hagas caso, es el constructor del Form.
  44.    Public Sub New()
  45.  
  46.        ' This call is required by the designer.
  47.        ' Add any initialization after the InitializeComponent() call.
  48.        InitializeComponent()
  49.  
  50.        ' Añado el control al Form.
  51.        Me.Controls.Add(rtb)
  52.  
  53.    End Sub
  54.  
  55. #End Region
  56.  
  57. #Region " Event-Handlers "
  58.  
  59.    Private Sub ComboTest() Handles MyBase.Load
  60.  
  61.        Me.DoCombos()
  62.        Me.PrintCombos()
  63.  
  64.    End Sub
  65.  
  66. #End Region
  67.  
  68. #Region " Methods "
  69.  
  70.    ' La función que se encarga de desordenar y devolverte una combinación.
  71.    ' By Elektro.
  72.    Friend Function GetRandomCombination(Of T)([Collection] As IEnumerable(Of T),
  73.                                               [Length] As Integer) As IEnumerable(Of T)
  74.  
  75.        Return (From Item As T In [Collection] Order By ComboRandomizer.Next Take [Length]).ToArray
  76.  
  77.    End Function
  78.  
  79.    Private Sub DoCombos()
  80.  
  81.        ' Añadir combinaciones a la lista, hasta que la lista tenga 'MaxComboLength' (80) elementos.
  82.        Do Until Combos.Count = (MaxCombos - 1)
  83.  
  84.            ' Obtengo una combinación.
  85.            Dim tmpCombo As Integer() = Me.GetRandomCombination(Of Integer)(Numbers, MaxComboLength)
  86.  
  87.            ' Ordeno los elementos de la combinación, de menos a mayor.
  88.            Array.Sort(tmpCombo)
  89.  
  90.            ' Añado la combinación a la lista.
  91.            Combos.Add(tmpCombo)
  92.  
  93.        Loop
  94.  
  95.        ' Ordeno los elementos de la lista, basandome en el orden de los elementos de cada Array.
  96.        ' NOTA: Puede tener fallos al ordenar, no aseguro que el orden sea perfecto.
  97.        Combos = (From Combo As Integer() In Combos Order By Convert.ToDecimal(String.Join("", Combo)) Ascending).ToList
  98.        Combos = (From Combo As Integer() In Combos Order By Combo.First Ascending).ToList
  99.  
  100.        ' Además, creo utra lista Strings, para darle formato a cada combo numérico,
  101.        ' y añadirle así un "0" a los números del "1" al "9" y que quede más bonito en la previsualización xD.
  102.        Me.ComboStrings =
  103.            (From Combo In Combos
  104.             Select (String.Join(" | ", From Value As String In Combo
  105.                                       Select If(Value.Length = 1, "0" & Value, Value)))).ToList
  106.  
  107. #If DEBUG Then
  108.  
  109.        ' El bloque de depuración.
  110.        ' Este bloque entero es para testear el formato que le quieras dar.
  111.        If Me.EnableDebug Then
  112.  
  113.            Dim sb As New System.Text.StringBuilder
  114.  
  115.            With sb
  116.  
  117.                For Index As Integer = 0 To (MaxCombos - 1)
  118.  
  119.                    sb.AppendLine(String.Format("Combo sin formato:"))
  120.                    sb.AppendLine(String.Join(", ", Combos(Index)))
  121.                    sb.AppendLine()
  122.                    sb.AppendLine(String.Format("Combo con formato:"))
  123.                    sb.AppendLine(String.Join(", ", ComboStrings(Index)))
  124.  
  125.                    MessageBox.Show(sb.ToString, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
  126.  
  127.                    sb.Clear()
  128.  
  129.                Next Index
  130.  
  131.            End With
  132.  
  133.        End If
  134.  
  135. #End If
  136.  
  137.    End Sub
  138.  
  139.    Private Sub PrintCombos()
  140.  
  141.        ' Muestro los Combos en el control.
  142.        With Me.rtb
  143.  
  144.            .SuspendLayout()
  145.            For Each Combo As String In Me.ComboStrings
  146.                .AppendText(Combo)
  147.                .AppendText(Environment.NewLine & New String("-", Combo.Length) & Environment.NewLine)
  148.            Next Combo
  149.            .ResumeLayout()
  150.  
  151.            .Select(0, 0)
  152.  
  153.        End With
  154.  
  155.    End Sub
  156.  
  157. #End Region
  158.  
  159. End Class
  160.  

PD: ¿Era eso lo que querías o tampoco? xD.

Saludos
« Última modificación: 29 Junio 2014, 20:13 pm por Eleкtro » En línea



luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #8 en: 30 Junio 2014, 05:51 am »

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




En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
Slava_TZD
Wiki

Desconectado Desconectado

Mensajes: 1.466

♪ [8675309] ♪


Ver Perfil WWW
Re:
« Respuesta #9 en: 30 Junio 2014, 09:16 am »

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?
En línea


The fact is, even if you were to stop bombing us, imprisoning us, torturing us, vilifying us, and usurping our lands, we would continue to hate you because our primary reason for hating you will not cease to exist until you embrace Islam.
Páginas: [1] 2 3 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Combinaciones numericas « 1 2 3 »
Hacking
Touring 25 26,595 Último mensaje 17 Febrero 2012, 00:35 am
por hcalderon11
Generador de claves numericas con todas las combinaciones posibles??? (RESUELTO) « 1 2 »
Scripting
SuperDraco 12 26,313 Último mensaje 1 Julio 2010, 23:14 pm
por SuperDraco
Combinaciones con 54 numeros
.NET (C#, VB.NET, ASP)
mr_marley 3 9,592 Último mensaje 27 Noviembre 2011, 01:56 am
por mr_marley
Buscador de combinaciones numéricas
Dudas Generales
hcalderon11 0 3,514 Último mensaje 16 Febrero 2012, 21:49 pm
por hcalderon11
formar combinaciones de 7 y 8 numeros con 25 numeros « 1 2 ... 5 6 »
.NET (C#, VB.NET, ASP)
luis456 51 31,616 Último mensaje 31 Octubre 2014, 17:48 pm
por luis456
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines