Números guías: 01-02-03-04-05-06-07-08-09-10-11-12-13-14
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
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- 13-14
02- 05-06- 10-11-12
03- 06- 09- 12-13-14
03- 07-08- 10-11-12
03- 07-08- 10-11-12
04-05-06-07-08-09
Combinaciones de la rueda
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
esta tendria que ser la salida con los numeros del usuario
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
codigo
Código
Public Class Form1 Dim r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, r13, r14 As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click r1 = Val(TextBox1.Text) r2 = Val(TextBox2.Text) r3 = Val(TextBox3.Text) r4 = Val(TextBox4.Text) r6 = Val(TextBox5.Text) r6 = Val(TextBox6.Text) TextBox15.Text = r1 TextBox16.Text = r2 TextBox17.Text = r3 TextBox18.Text = r4 TextBox19.Text = r5 TextBox16.Text = r6 End Sub End Class