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

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  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 2 Visitantes 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,692 veces)
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #20 en: 12 Julio 2014, 11:44 am »
Gracias elektro por tu paciencia

Puse un post donde explico un poco mejor el asunto me imagino que lo habrás leído :)

No se explicar bien el problema tratare de hacerlo mejor.

Primero en los códigos que me has mostrado pasa una cosa y es que cada ves que lo ejecuto cambian las combinaciones y deberían ser las mismas combinaciones siempre y cuando no se cambien los numeros introducidos por el usuario los numeros guías son para tomar las posiciones
de las combinaciones los numeros no son asociados ni no son para ver que posición toman en orden, ya que si pongo el de 10 de primero este toma la posición del 1 y si pongo el 20 de primero este hace lo mismo toma la posicion del 1  :)

Números  01-02-03-04-05-06-07-08-09-10-11-12-13-14
               
               01-02-03-04-05-06
               01-02-03-             07-08-09
               01-04-09-                             10-11-12
               01-          05-  07                   10         13-14
               01-            06-   08-                  11-12-13

                  02-03-04-        07-             10-          13

                  02-03-   05-                 09-    11-          14
                  02-    04-        08-                 11-       3-14
                  02-      05-06-                   10-11-12
                  03-         06-     09-                     12-13-14
                  03-            07-08-   1         10-11-12

                  03-            07-08-   10-11-12
                        04-05-06-07-08-09

Combinaciones de la rueda aquí esta la forma en como se combinan los numeros

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


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

numeros usuario: 10 13 18 25 26 28 30 32 35 37 40 42 45 47<--este seria el imput

y esta la salida

10 13 18 25 26 28
10 13 18 30 32 35
10 25 35 37 40 42
10 26 30 37 45 47
10 28 32 40 42 45
13 18 25 30 37 45
13 18 26 35 40 47
13 25 32 40 45 47
13 26 28 37 42 45
18 28 35 42 45 47
18 30 32 37 42 45
25 26 28 30 32 35


Gracias por tu infinita paciencia

Luis
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #21 en: 26 Julio 2014, 09:54 am »
Bueno unos días después de estar fuera vuelvo al ataque jejej con el tema de las combinaciones e echo a pie este código, pero ya me perdí de tanto escribir pero es la idea de lo de las combinaciones mas  o menos lo que me gustaria es poder simplificarlo.

Código
  1. Public Class Form1
  2.  
  3.  
  4.     Dim maximum As Short = 99
  5.     Dim Número As Double
  6.     Private TextBoxes As TextBox() = {Nothing}
  7.  
  8.  
  9.     Private r1 = 5
  10.     Private r2 = 15
  11.     Private r3 = 25
  12.     Private r4 = 35
  13.     Private r5 = 40
  14.     Private r6 = 45
  15.  
  16.     Private ar1 = 6
  17.     Private br2 = 10
  18.     Private cr3 = 20
  19.     Private dr4 = 30
  20.     Private er5 = 40
  21.     Private sr6 = 4
  22.  
  23.  
  24.  
  25.     Private _textBox As Object
  26.     Private Property ListBox1Count As Integer
  27.     ReadOnly MAX As Integer = 8
  28.     Dim Result22 As Integer
  29.     Dim Counter, Counter2 As Integer
  30.     Dim myLabelArray(6) As Label
  31.     Private Sub Limpiar_Cajas(ByVal f As Form)
  32.         ' recorrer todos los controles del formulario indicado  
  33.         For Each c As Control In f.Controls
  34.             If TypeOf c Is TextBox Then
  35.                 c.Text = "" ' eliminar el texto  
  36.             End If
  37.         Next
  38.     End Sub
  39.  
  40.     Private Sub Button4_Click( _
  41.         ByVal sender As System.Object, _
  42.         ByVal e As System.EventArgs) Handles Button4.Click
  43.         ' pasar el formulario  
  44.         Call Limpiar_Cajas(Me)
  45.  
  46.  
  47.     End Sub
  48.  
  49.  
  50.  
  51.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
  52.         'funcion para introducir manualmente r1 = Val(TextBox1.Text)
  53.     End Sub
  54.  
  55.  
  56.  
  57.     'funcion unir o formar combinaciones
  58.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  59.         ListBox1.Items.Add(TextBox1.Text)
  60.         ListBox1.Items.Add(TextBox6.Text)
  61.         ListBox1.Items.Add(TextBox7.Text)
  62.         ListBox1.Items.Add(TextBox8.Text)
  63.         ListBox1.Items.Add(TextBox10.Text)
  64.         ListBox1.Items.Add(TextBox12.Text)
  65.         'funcion unir o formar combinaciones segundo lisb
  66.         ListBox2.Items.Add(TextBox1.Text)
  67.         ListBox2.Items.Add(TextBox2.Text)
  68.         ListBox2.Items.Add(TextBox4.Text)
  69.         ListBox2.Items.Add(TextBox31.Text)
  70.         ListBox2.Items.Add(TextBox33.Text)
  71.         ListBox2.Items.Add(TextBox36.Text)
  72.         'funcion unir o formar combinaciones terce lisb
  73.         ListBox3.Items.Add(TextBox1.Text)
  74.         ListBox3.Items.Add(TextBox2.Text)
  75.         ListBox3.Items.Add(TextBox4.Text)
  76.         ListBox3.Items.Add(TextBox6.Text)
  77.         ListBox3.Items.Add(TextBox7.Text)
  78.         ListBox3.Items.Add(TextBox8.Text)
  79.         'funcion unir o formar combinaciones cuarto lisb
  80.         ListBox4.Items.Add(TextBox1.Text)
  81.         ListBox4.Items.Add(TextBox2.Text)
  82.         ListBox4.Items.Add(TextBox4.Text)
  83.         ListBox4.Items.Add(TextBox13.Text)
  84.         ListBox4.Items.Add(TextBox14.Text)
  85.         ListBox4.Items.Add(TextBox15.Text)
  86.         'funcion unir o formar combinaciones quinto lisb
  87.         ListBox5.Items.Add(TextBox1.Text)
  88.         ListBox5.Items.Add(TextBox5.Text)
  89.         ListBox5.Items.Add(TextBox14.Text)
  90.         ListBox5.Items.Add(TextBox15.Text)
  91.         ListBox5.Items.Add(TextBox34.Text)
  92.         ListBox5.Items.Add(TextBox35.Text)
  93.         'funcion unir o formar combinaciones sesta lisb
  94.         ListBox6.Items.Add(TextBox2.Text)
  95.         ListBox6.Items.Add(TextBox5.Text)
  96.         ListBox6.Items.Add(TextBox13.Text)
  97.         ListBox6.Items.Add(TextBox14.Text)
  98.         ListBox6.Items.Add(TextBox15.Text)
  99.         ListBox6.Items.Add(TextBox33.Text)
  100.         'funcion unir o formar combinaciones 7o lisb
  101.         ListBox7.Items.Add(TextBox6.Text)
  102.         ListBox7.Items.Add(TextBox5.Text)
  103.         ListBox7.Items.Add(TextBox2.Text)
  104.         ListBox7.Items.Add(TextBox10.Text)
  105.         ListBox7.Items.Add(TextBox11.Text)
  106.         ListBox7.Items.Add(TextBox18.Text)
  107.         'funcion unir o formar combinaciones 8o lisb
  108.         ListBox8.Items.Add(TextBox1.Text)
  109.         ListBox8.Items.Add(TextBox3.Text)
  110.         ListBox8.Items.Add(TextBox5.Text)
  111.         ListBox8.Items.Add(TextBox19.Text)
  112.         ListBox8.Items.Add(TextBox27.Text)
  113.         ListBox8.Items.Add(TextBox29.Text)
  114.         'funcion unir o formar combinaciones 9o lisb
  115.         ListBox9.Items.Add(TextBox22.Text)
  116.         ListBox9.Items.Add(TextBox25.Text)
  117.         ListBox9.Items.Add(TextBox27.Text)
  118.         ListBox9.Items.Add(TextBox30.Text)
  119.         ListBox9.Items.Add(TextBox31.Text)
  120.         ListBox9.Items.Add(TextBox32.Text)
  121.         'funcion unir o formar combinaciones 10o lisb
  122.         ListBox10.Items.Add(TextBox24.Text)
  123.         ListBox10.Items.Add(TextBox26.Text)
  124.         ListBox10.Items.Add(TextBox28.Text)
  125.         ListBox10.Items.Add(TextBox33.Text)
  126.         ListBox10.Items.Add(TextBox34.Text)
  127.         ListBox10.Items.Add(TextBox35.Text)
  128.         'funcion unir o formar combinaciones 11o lisb
  129.         ListBox11.Items.Add(TextBox2.Text)
  130.         ListBox11.Items.Add(TextBox4.Text)
  131.         ListBox11.Items.Add(TextBox23.Text)
  132.         ListBox11.Items.Add(TextBox31.Text)
  133.         ListBox11.Items.Add(TextBox32.Text)
  134.         ListBox11.Items.Add(TextBox34.Text)
  135.         'funcion unir o formar combinaciones 12o lisb
  136.         ListBox12.Items.Add(TextBox1.Text)
  137.         ListBox12.Items.Add(TextBox2.Text)
  138.         ListBox12.Items.Add(TextBox4.Text)
  139.         ListBox12.Items.Add(TextBox32.Text)
  140.         ListBox12.Items.Add(TextBox33.Text)
  141.         ListBox12.Items.Add(TextBox35.Text)
  142.         'funcion unir o formar combinaciones 13o lisb
  143.         ListBox13.Items.Add(TextBox6.Text)
  144.         ListBox13.Items.Add(TextBox13.Text)
  145.         ListBox13.Items.Add(TextBox31.Text)
  146.         ListBox13.Items.Add(TextBox33.Text)
  147.         ListBox13.Items.Add(TextBox35.Text)
  148.         ListBox13.Items.Add(TextBox36.Text)
  149.  
  150.         'funcion unir o formar combinaciones 14o lisb
  151.         ListBox14.Items.Add(TextBox13.Text)
  152.         ListBox14.Items.Add(TextBox14.Text)
  153.         ListBox14.Items.Add(TextBox30.Text)
  154.         ListBox14.Items.Add(TextBox31.Text)
  155.         ListBox14.Items.Add(TextBox33.Text)
  156.         ListBox14.Items.Add(TextBox35.Text)
  157.         'funcion unir o formar combinaciones 15o lisb
  158.         ListBox15.Items.Add(TextBox6.Text)
  159.         ListBox15.Items.Add(TextBox7.Text)
  160.         ListBox15.Items.Add(TextBox8.Text)
  161.         ListBox15.Items.Add(TextBox12.Text)
  162.         ListBox15.Items.Add(TextBox14.Text)
  163.         ListBox15.Items.Add(TextBox15.Text)
  164.         ListBox15.Items.Add(TextBox30.Text)
  165.         'funcion unir o formar combinaciones 16o lisb
  166.         'funcion unir o formar combinaciones 17o lisb
  167.         'funcion unir o formar combinaciones 18o lisb
  168.         'funcion unir o formar combinaciones 19o lisb
  169.         'funcion unir o formar combinaciones 20o lisb
  170.  
  171.  
  172.  
  173.     End Sub
  174.  
  175.  
  176.  
  177.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  178.         Me.Close()
  179.     End Sub
  180.  
  181.     Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
  182.         TextBox1.Text = r1 + 1
  183.         TextBox2.Text = r1 + 2
  184.         TextBox3.Text = r1 + 3
  185.         TextBox4.Text = r1 - 1
  186.         TextBox5.Text = r1 - 2
  187.         TextBox6.Text = r1 - 3
  188.  
  189.         TextBox7.Text = r2 + 1
  190.         TextBox8.Text = r2 + 2
  191.         TextBox9.Text = r2 + 3
  192.         TextBox10.Text = r2 - 1
  193.         TextBox11.Text = r2 - 2
  194.         TextBox12.Text = r2 - 3
  195.  
  196.         TextBox13.Text = r3 + 1
  197.         TextBox14.Text = r3 + 2
  198.         TextBox15.Text = r3 + 3
  199.         TextBox16.Text = r3 - 1
  200.         TextBox17.Text = r3 - 2
  201.         TextBox18.Text = r3 - 3
  202.  
  203.  
  204.         TextBox19.Text = r4 + 1
  205.         TextBox20.Text = r4 + 2
  206.         TextBox21.Text = r4 + 3
  207.         TextBox22.Text = r4 - 1
  208.         TextBox23.Text = r4 - 2
  209.         TextBox24.Text = r4 - 3
  210.  
  211.         TextBox25.Text = r5 + 1
  212.         TextBox26.Text = r5 + 2
  213.         TextBox27.Text = r5 + 3
  214.         TextBox28.Text = r5 - 1
  215.         TextBox29.Text = r5 - 2
  216.         TextBox30.Text = r5 - 3
  217.  
  218.  
  219.         TextBox31.Text = r6 + 1
  220.         TextBox32.Text = r6 + 2
  221.         TextBox33.Text = r6 + 3
  222.         TextBox34.Text = r6 - 1
  223.         TextBox35.Text = r6 - 2
  224.         TextBox36.Text = r6 - 3
  225.  
  226.  
  227.     End Sub
  228.  
  229.     Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
  230.         TextBox1.Text = ar1 + 1
  231.         TextBox2.Text = ar1 + 2
  232.         TextBox3.Text = ar1 + 3
  233.         TextBox4.Text = ar1 - 1
  234.         TextBox5.Text = ar1 - 2
  235.         TextBox6.Text = ar1 - 3
  236.  
  237.         TextBox7.Text = br2 + 1
  238.         TextBox8.Text = br2 + 2
  239.         TextBox9.Text = br2 + 3
  240.         TextBox10.Text = br2 - 1
  241.         TextBox11.Text = br2 - 2
  242.         TextBox12.Text = br2 - 3
  243.  
  244.         TextBox13.Text = cr3 + 1
  245.         TextBox14.Text = cr3 + 2
  246.         TextBox15.Text = cr3 + 3
  247.         TextBox16.Text = cr3 - 1
  248.         TextBox17.Text = cr3 - 2
  249.         TextBox18.Text = cr3 - 3
  250.  
  251.  
  252.         TextBox19.Text = dr4 + 1
  253.         TextBox20.Text = dr4 + 2
  254.         TextBox21.Text = dr4 + 3
  255.         TextBox22.Text = dr4 - 1
  256.         TextBox23.Text = dr4 - 2
  257.         TextBox24.Text = dr4 - 3
  258.  
  259.         TextBox25.Text = er5 + 1
  260.         TextBox26.Text = er5 + 2
  261.         TextBox27.Text = er5 + 3
  262.         TextBox28.Text = er5 - 1
  263.         TextBox29.Text = er5 - 2
  264.         TextBox30.Text = er5 - 3
  265.  
  266.  
  267.         TextBox31.Text = sr6 + 1
  268.         TextBox32.Text = sr6 + 2
  269.         TextBox33.Text = sr6 + 3
  270.         TextBox34.Text = sr6 - 1
  271.         TextBox35.Text = sr6 - 2
  272.         TextBox36.Text = sr6 - 3
  273.     End Sub
  274.  
  275.     Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
  276.  
  277.     End Sub
  278.  
  279.     Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
  280.  
  281.     End Sub
  282.  
  283.     Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
  284.  
  285.     End Sub
  286.  
  287.     Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
  288.  
  289.     End Sub
  290.  
  291.  
  292.  
  293.  
  294.  
  295.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  296.  
  297.         Dim Num As Double
  298.         Randomize()
  299.         Num = Rnd()
  300.         MsgBox(Num)
  301.     End Sub
  302.  
  303.  
  304.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  305.  
  306.         ListBox1.Items.Clear()
  307.         ListBox2.Items.Clear()
  308.         ListBox3.Items.Clear()
  309.         ListBox4.Items.Clear()
  310.         ListBox5.Items.Clear()
  311.         ListBox6.Items.Clear()
  312.         ListBox7.Items.Clear()
  313.         ListBox8.Items.Clear()
  314.         ListBox9.Items.Clear()
  315.         ListBox10.Items.Clear()
  316.         ListBox11.Items.Clear()
  317.         ListBox12.Items.Clear()
  318.         ListBox13.Items.Clear()
  319.         ListBox14.Items.Clear()
  320.         ListBox15.Items.Clear()
  321.         ListBox16.Items.Clear()
  322.         ListBox17.Items.Clear()
  323.         ListBox18.Items.Clear()
  324.         ListBox19.Items.Clear()
  325.         ListBox20.Items.Clear()
  326.  
  327.     End Sub
  328. End Class
  329.  
  330.  
  331.  
  332.  
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.866



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #22 en: 26 Julio 2014, 10:40 am »
Hola

Antes de nada quiero avisarte de que todos los códigos los he escrito al vuelo (en el Notepad) si algo da error de sintaxis, disculpa.




Citar
Código
  1.         For Each c As Control In f.Controls
  2.            If TypeOf c Is TextBox Then
  3.                c.Text = "" ' eliminar el texto  
  4.            End If
  5.        Next

Esa parte se puede simplificar un poquito (solo un poquito):

Utiliza el método 'OfType' para especificar el tipo de control.
Y utiliza el método "Clear" del TextBox.

Código
  1. for each tb as textbox in Me.f.Controls.OfType(Of TextBox) 
  2. tb.Clear()
  3. next tb




Citar
Código
  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Esa parte es demasiado grande pero no percibo el patron que sigues al añadir los textbox como para poder ayudarte a simplificar el código.

Lo único, que podrías utilizar el método "AddRange" para añadir varios objetos a la colección, en una sola instrucción:

Código
  1. ListBox1.Items.addrange({TextBox1.Text,TextBox6.Text,TextBox7.Text,TextBox8.Text,TextBox10.Text,TextBox12.Text})




Citar
Código
  1. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
  2. Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
  3. Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
  4. Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
  5. Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
  6. Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged

Aquí el patrón que usaste es perceptible.

( Podrías hacerlo de varias maneras, pero no te voy a confundir con más código que este )

primero de nada te suscribes al mismo evento de todos los checkboxes a un único event-handler:

Código
  1. Private Sub CheckBoxes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
  2. Handles CheckBox1.CheckedChanged, checkbox2.CheckedChanged, checkbox3.CheckedChanged 'etc...

y luego puedes simplificar el bloque entero en algo así:

Código
  1. dim values as integer() 
  2.  
  3. ' asigno los valores apropiados al array, según el checkbox que haya lanzado el evento CheckedChanged
  4. ' el primer valor negativo '-0' se omitirá, es para compensar el índice basado en "1" de los textbox y del for
  5. select case sender.name
  6.  
  7. case "CheckBox1"
  8. values = {-0,r1,r2,r3,r4,r5,r6} 
  9.  
  10. case "CheckBox2"
  11. values = {-0,ar1 ,br2 ,cr3 ,dr4 ,er5 ,sr6 } 
  12.  
  13. case "CheckBox3"
  14. ' ...
  15.  
  16. case else
  17. ' ...
  18.  
  19. end case
  20.  
  21. for x as integer = 1 to 36 step 6 'textbox1 to textbox36
  22.  
  23. me.controls("textbox" & cstr(x)).text   = cstr(values(x) +1i) 'tb1
  24. me.controls("textbox" & cstr(x+1)).text = cstr(values(x) +2i) 'tb2
  25. me.controls("textbox" & cstr(x+2)).text = cstr(values(x) +3i) 'tb3
  26. me.controls("textbox" & cstr(x+3)).text = cstr(values(x) -1i) 'tb4
  27. me.controls("textbox" & cstr(x+4)).text = cstr(values(x) -2i) 'tb5
  28. me.controls("textbox" & cstr(x+5)).text = cstr(values(x) -3i) 'tb6
  29.  
  30. next x




Citar
Código
  1. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Aquí ya te pasaste '¬¬

Podrías haber aplicado el mismo principio que aplicaste al usar:

Citar
Código
  1. For Each c As Control In f.Controls
  2.            If TypeOf c Is ...

Pero ni eso hiciste '¬¬ (supongo que ya estarías agobiado xD)

Creo que esto ya sabrás como resolverlo, te mostré un ejemplo de lo mismo al principio :P
« Última modificación: 26 Julio 2014, 11:06 am por Eleкtro » En línea


luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #23 en: 26 Julio 2014, 12:24 pm »
Bueno ya me enrede de nuevo  :-( de verdad que lo de estas combinaciones me esta poniendo tarambana jejejje

Ahora trasteando he conseguido esto que según lo que veo me podría servir mucho ya que puedo jugar con las posiciones ahora creo que esto es para texto y no se si me sirve numerico y como evitaria los repetidos

   deshaceCombina(0)=mid(cadena,1,1)
   deshaceCombina(1)=mid(cadena,2,1)
   deshaceCombina(2)=mid(cadena,3,1)
   deshaceCombina(3)=mid(cadena,4,1)
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
Jero67

Desconectado Desconectado

Mensajes: 14


Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #24 en: 27 Septiembre 2014, 22:03 pm »
Hola Luis.

Llevo tiempo sin entrar por aquí, así que no había visto este post.

Creo que sé lo que quieres, solo creo, y la solución es bastante sencilla, si es realmente lo que quieres.

A ver si te he entendido:

Tienes un grupo de combinaciones con números guía (01,02,03,04,05,06) y quieres cambiarlo por tus números (17,20,25,31,38,41,43,47,49), el caso es tan sencillo como meter cada grupo de combinaciones en un List o Array y tus números en otro List o Array. Después de esto crear un tercer List o Array con los números cambiados, por ejemplo:

LIST de combinaciones con los números guía
01,02,03,04,05,06
01,02,03,04,05,07
01,02,03,04,05,08
01,02,03,04,05,09

List con nuestros números
17
20
25
31
38
41
43
47
49


En el tercer List tendremos que sustituir cada uno de los números guía por los nuestros propios:

List con nuestros números:

17,20,25,31,38,41
17,20,25,31,38,43
17,20,25,31,38,47
17,20,25,31,38,49

Lo que no sé es si la combinación de números guía la quieres generar tu o bien la quieres coger desde un fichero .txt, de esta segunda forma lo tendrías mas fácil y es simplemente cargando el fichero .txt con las combinaciones en el List o Array de números guía.

Espero que sea esto lo que quieres conseguir.

Un saludo
En línea
XresH


Desconectado Desconectado

Mensajes: 384



Ver Perfil WWW
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #25 en: 27 Septiembre 2014, 22:32 pm »
fa, lo lei todo, creo que antes de comenzar a meter codigo hay que entender al 100 % lo que quiere, es decir de eso se trata programar, de llevar un problema a las manos del ordenador, pero sino captamos el problema es dificil desarrollar una posible solucion, asi no se entreveran, sinceramente todavia tengo dudas de lo que necesita el colega de luis, todos manejamos distintos terminos en varios sentidos, no se si todavia lo necesitara o ya consiguio lo que queria debido a que el post tiene bastante tiempo.

Solo lo hago para saber si hay necesidad de contestar o solamente dejarlo pasar..

Saludos.
En línea
[ - Si eres programador y quieres que tus proyectos esten en mi blog(con o sin source), consúltame! - ]
Entra A Mi Blog De Programación | | Dudas en este post :| | >>Clic para ir al Post<<
luis456


Desconectado Desconectado

Mensajes: 551



Ver Perfil
Re: Combinaciones numericas por posicion con numeros guias
« Respuesta #26 en: 28 Septiembre 2014, 16:13 pm »
Cita de: Jero67 en 27 Septiembre 2014, 22:03 pm
Hola Luis.

Llevo tiempo sin entrar por aquí, así que no había visto este post.

Creo que sé lo que quieres, solo creo, y la solución es bastante sencilla, si es realmente lo que quieres.

A ver si te he entendido:

Tienes un grupo de combinaciones con números guía (01,02,03,04,05,06) y quieres cambiarlo por tus números (17,20,25,31,38,41,43,47,49), el caso es tan sencillo como meter cada grupo de combinaciones en un List o Array y tus números en otro List o Array. Después de esto crear un tercer List o Array con los números cambiados, por ejemplo:

LIST de combinaciones con los números guía
01,02,03,04,05,06
01,02,03,04,05,07
01,02,03,04,05,08
01,02,03,04,05,09

List con nuestros números
17
20
25
31
38
41
43
47
49


En el tercer List tendremos que sustituir cada uno de los números guía por los nuestros propios:

List con nuestros números:

17,20,25,31,38,41
17,20,25,31,38,43
17,20,25,31,38,47
17,20,25,31,38,49

Lo que no sé es si la combinación de números guía la quieres generar tu o bien la quieres coger desde un fichero .txt, de esta segunda forma lo tendrías mas fácil y es simplemente cargando el fichero .txt con las combinaciones en el List o Array de números guía.

Espero que sea esto lo que quieres conseguir.

Un saludo


Si veo que cojiste la idea :) y los números se pueden cargar desde un txt o de una variable que ya contiene los números a combinar


saludos
Luis
En línea
Que tu sabiduria no sea motivo de Humillacion para los demas
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,397 Ú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,204 Último mensaje 1 Julio 2010, 23:14 pm
por SuperDraco
Combinaciones con 54 numeros
.NET (C#, VB.NET, ASP) 		mr_marley 3 9,547 Último mensaje 27 Noviembre 2011, 01:56 am
por mr_marley
Buscador de combinaciones numéricas
Dudas Generales 		hcalderon11 0 3,476 Ú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,412 Último mensaje 31 Octubre 2014, 17:48 pm
por luis456
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines