Utilidad que graba todos los premios de una columna

Programas, sistemas, condiciones, filtros...
Responder
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Utilidad que graba todos los premios de una columna

Mensaje por juanknito »

Saludos,

aprovechando el paso a la jubilación y disponer algo más de tiempo, he decidido desempolvar códigos sin terminar de ideas de programas que pueden suplir las carencias de los programas comerciales que ya existen, o por lo menos facilitar el trabajo de tener en archivos TXT, lo que buscamos más rápidamente.

en éste caso, la pequeña utilidad, a partir de una columna que introduzcamos nos vuelca un resumen de las columnas premiadas por signos que contienen, y además nos archiva en ficheros TXT, todas las columnas de los 4 casos de categorías de premio que da esa única columna introducida, es decir, nos archiva; 1 columna de 14 (la introducida), y los 4 ficheros con; los 28 premios de 13, 364 premios de 12, 2.912 premios de 11 y los 16.016 premios de 10, que sumarían las 19.321 columnas con premio, que emanan de esa columna inicial introducida.

el nombre de los ficheros de premios, se denominan con los signos de la propia columna de 14, más la categoría de premio que contienen, así no se machacan los archivos que tengamos almacenados, excepto si tienen el mismo nombre, naturalmente ¡¡

el programa es parco y sin florituras, del antiguo QBASIC, pero hace lo que le pido y para mi, suficiente, espero les sirva, el código lo pongo en el link del BASIC aplicado a las quinielas, y el ejecutable, lo alojaré en alguna web para compartir, alguna sugerencia ? (es un exe y no todas lo admiten).


Columna introducida: 11111111XXXX22
Total columnas buscadas : 4782969
Total columnas premiadas: 19321

Total 14: 1
Total 13: 28
Total 12: 364
Total 11: 2912
Total 10: 16016


N.caso (X) (2) Premios: 14 13 12 11 10
------ --- --- -------- ---- ---- ---- ---- ----
1 0 2 1 0 0 0 0 1
2 0 3 4 0 0 0 0 4
3 0 4 6 0 0 0 0 6
4 0 5 4 0 0 0 0 4
5 0 6 1 0 0 0 0 1
6 1 1 8 0 0 0 0 8
7 1 2 28 0 0 0 4 24
8 1 3 68 0 0 0 12 56
9 1 4 116 0 0 0 12 104
10 1 5 100 0 0 0 4 96
11 1 6 32 0 0 0 0 32
12 2 0 6 0 0 0 0 6
13 2 1 32 0 0 0 12 20
14 2 2 188 0 0 6 24 158
15 2 3 384 0 0 12 60 312
16 2 4 470 0 0 6 96 368
17 2 5 416 0 0 0 48 368
18 2 6 168 0 0 0 0 168
19 3 0 16 0 0 0 4 12
20 3 1 176 0 0 8 16 152
21 2 6 987 0 7 14 259 707
22 2 7 721 0 0 21 84 616
23 2 8 245 0 0 0 35 210
24 2 9 35 0 0 0 0 35
25 3 1 20 0 0 0 0 20
26 3 2 160 0 0 0 30 130
27 3 3 660 0 0 20 90 550
28 3 4 1320 0 5 35 230 1050
29 3 5 1554 0 7 35 322 1190
30 3 6 1344 0 0 42 147 1155
31 3 7 490 0 0 0 105 385
32 3 8 140 0 0 0 0 140
33 4 1 30 0 0 0 0 30
34 4 2 260 0 0 0 30 230
35 4 3 730 0 0 10 140 580
36 4 4 1400 0 0 35 175 1190
37 4 5 1246 0 0 21 210 1015
38 4 6 700 0 0 0 105 595
39 4 7 210 0 0 0 0 210
40 5 1 20 0 0 0 0 20
41 5 2 220 0 0 0 10 210
42 5 3 560 0 0 0 70 490
43 5 4 700 0 0 0 105 595
44 5 5 560 0 0 0 35 525
45 5 6 140 0 0 0 0 140
46 6 1 5 0 0 0 0 5
47 6 2 70 0 0 0 0 70
48 6 3 210 0 0 0 0 210
49 6 4 175 0 0 0 0 175
50 6 5 35 0 0 0 0 35

...

se lee:
que en el número de caso, 1er n. de cada horizontal (n. 20), salen 3(X) y 1(2) y obtiene 176 premios, de los cuales 8 son de 12, 16 de 11 y 152 de 10. (suman 176).

que en el número de caso (n. 50, último), salen 6(X) y 5(2) y obtiene 35 premios, todos de 10.

podemos observar que hay 49 casos de figuras distintas (a las de las X y 2 jugadas), que obtienen premio, mas la de 14 4(X) y 2(2), total 50 casos.

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: Utilidad que graba todos los premios de una columna

Mensaje por juanknito »

link de descarga (Google Drive):

viewtopic.php?p=2883811#p2883811

ACTUALIZADA A V.1.2

Ahora permite búsqueda de aciertos en columnas de menos de 14 signos:

link descarga V.2: (actualizo adjuntando un segundo link (a uppit), por si es más fácil su descarga desde ahí.
viewtopic.php?p=2883811#p2883811

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: Utilidad que graba todos los premios de una columna

Mensaje por juanknito »

Imagen de pantalla de la utilidad, mostrando el resumen de casos de premios:

en ésta podemos ver que en el caso 41 de 45 posibles, se obtienen 588 premios de ellos 84 de tres fallos, y 504 de cuatro cuando salen premiadas columnas con 6 equis y 2 doces:
çImagen

el archivo TXT con parte del resumen de casos:
Imagen

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Responder