Peticion de un DADO 1X2 trucado.

Programas, sistemas, condiciones, filtros...
Avatar de Usuario
YORKIE
10
10
Mensajes: 141
Registrado: Sab 23 Jun, 2018 9:50 am

Peticion de un DADO 1X2 trucado.

Mensaje por YORKIE »

Hola compañeros. Quiero pedir una pequeña utilidad si alguien es tan amable de programar un dado 1X2 en el que se pueda modificar la distribución de los resultados. Por ejemplo que me de resultados donde salga mas el signo ''1'', la ''X'' o el ''2'' (ejemplo: 50-30-20).

Pido esto por que he probado el dado del escrutador del Megaquin1x2 pero no se puede hacer lo que tengo en mente.

Muchas gracias por vuestro tiempo y amabilidad. :ok:
El AZAR NO TIENE ATAJOS.
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: Peticion de un DADO 1X2 trucado.

Mensaje por juanknito »

Hola YORKIE,

te adjunto el hilo con el código qbasic de un programa que lo hace, 50 30 y 20%

te pongo el programa exe para descargar en el siguiente post, por si no lo consigues realizar:

hilo, primeros pasos en basic;
viewtopic.php?f=34&t=87790&p=2504460&hi ... c#p2433472


CLS
RANDOMIZE TIMER
FOR n = 1 TO 15
g = INT(RND * 6) + 1

SELECT CASE g

CASE IS < 4
PRINT "1"

CASE 6
PRINT "2"

CASE ELSE
PRINT "X"

END SELECT

NEXT n
Última edición por juanknito el Dom 19 Ago, 2018 8:46 pm, editado 1 vez en total.

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: Peticion de un DADO 1X2 trucado.

Mensaje por juanknito »

he realizado una pequeña adaptación sobre la marcha, para que genere el nº de columnas que deseemos, y que además nos las guarde en un fichero de texto, que llamaremos: Aleatorias.txt
en el mismo directorio donde tengamos el programa (link de descarga al final de éste post)

el programilla es éste:


CLS

LOCATE 15, 1
PRINT " ESTE PROGRAMA CREA UN No. DE COLUMNAS ALEATORIAS QUE DESEEMOS Y LAS ARCHIVA EN: Aleatorias.txt "
PRINT
PRINT " EL FICHERO SE GUARDA EN MISMO DIRECTORIO DEL PROGRAMA ALEATORIAS_2018.exe "
PRINT
PRINT " LOS % INICIALES SON: 50% AL 1 30% AL X y 20% AL 2"

LOCATE 25, 1: INPUT " introduce No. columnas aleatorias que deseas y pulsa <Ù "; col

OPEN "Aleatoias.txt" FOR OUTPUT AS #1
FOR w = 1 TO col
RANDOMIZE TIMER
FOR n = 1 TO 15
g = INT(RND * 6) + 1

SELECT CASE g

CASE IS < 4
PRINT "1";
PRINT #1, "1";

CASE 6
PRINT "2";
PRINT #1, "2";

CASE ELSE
PRINT "X";
PRINT #1, "X";

END SELECT


NEXT n
PRINT: PRINT #1,
NEXT w

CLOSE #1
STOP


para hacer el programa existe un editor-compilador moderno de qbasic aquí en windows:
http://www.qb64.net/

se lleva bien con windosw 7, 10 etc.




el resultado, al pedirle 1000 columnas es éste,

fichero guardado: Aleatorias.txt

X211X221XXX112X
11X11X1X22212X1
21X11X2X2X1X1X1
221X211XXX1X1X2
XX1XX2X1X2X1X1X
1XX11XXX2121111
11111122X111X1X
X11211X11X1X21X
X111X21XX1111X2
111212X2X11X1XX
21X1XX1XX11X1X2
21X111122112X11
2X111XX12111122
1X111XX11X1111X
X111XX1XXXX1X1X
111X1211X11121X
11X111112X21X11
X1XX1112X221111
111X112X1X11XXX
21XX11211111111
11X1X11X1221111
XXXXX11XX122X11
112XX12211X2211
2X1211XXXX1XX22
1221111111X21X1
X111X1X1X11XX1X
111X21XX11X11XX
X2XX111X212XXX1
1X2111X211X21X1
XX1XX111XX11X2X
21X22X1X2X2X111
1X1X1X1X1112X12
111XX1XX1X12112
1122XX2112X2X11
1221X111XXX12X1
X1X1X1121X21111
2X1X1XX1X21X21X
12211X22X1XX121
X1X1X212111X1X1
XXXX1111XX11X11
21XX2XXX112XX21
111X22111111222
12X111X11121121
212X2111122XX11
1XX12121X11XX11
1X111X1XXX122X2
1111111X1X1X11X
11X11221111XXX1
X12X1XX1XXXX111
X11111X112XX1XX
12X2X1111X12121
X2X2X12X1XX21X1
11XX11XX12XXX11
1X212X11X1X1X11
X1122X12X1X11XX
X1X111X1XX11X21
12112111111112X
X1X1112111111X1
121X12X12112X2X
X12X212211X1121
XX112XXX1111X2X
XXX111XX1X1X111
11221111XXX11X1
21X111111121X11
11XX21XX2X11XX1
111XXX1112X1X1X
X2112211XXXX12X
X1111121X1XX21X
1XXXX12212111X2
2X111121X11112X
21X11X1X11211X1
11X11X11XX2XX11
112X11X111X1111
11X1X2X1211XX11
X221XXX111XX211
X211111X11X2111
XX2112111121111
12XXXXX21X21X21
11XX11X11X11XX1
1X21221XX121X11
121X21X1XX11XXX
X11X11XX12111XX
X2X21X112X21111
X11X1111XXX122X
2X121111X2X122X
1X12XXXX1112XXX
1112111XX112XX2
XX21211X1XXX111
11X2211X1111X11
11X11X2211XX1X1
X2XXXX21X111111
1X121X2XX11X11X
1111111X1112212
1XX2XXX11XX1111
2X111X111X1XX1X
2X2221X1X1X21X1
X12X1X1XXXX2121
2111X2121212X1X
221X1X111X11X12
X211112XXX1121X
XXX21212122XXX1
2X11211X111X212
1111X11X11XXX2X
112X1XX11XX1121
X11XX221111XX1X
X12X21X221X1X11
12112111111111X
X112X1X1111X12X
2X11XX1111XXX1X
2X2121111XX2X21
1X22X111XX2X211
X11X1111X1XX111
121X11211X1X2X2
111X1X21221X212
1211X1X1X2X2X11
1X111X1XXX1222X
1X11X1X1121X112
12XX1X122111121
11X1X1XX1121111
111X1X111XX111X
1122111X112X1X1
11111X11X1X111X
12X211111122111
121XXX1X1111112
11X1X11X2121111
1X1X1X1X1XXX1XX
11X1X1112X11111
2X1XX11X11X112X
1112X11XXXX1X1X
21X211X1X211121
12XXX1X1121X111
11X11X111X1XXX2
21221X1X22X1111
X2X2X1X2X111XX1
X11X12XXX11111X
1X1XXX2X2X1X11X
22121X1121112X2
X11XX111X11XXXX
1X111111211XX12
1X112XXX1112122
1X1X11X211112XX
2X12X12XXX11X1X
111121121XX111X
XX11X1X1111111X
21X11XXXXX21111
11X1XX111221XX1
1X1111X1X2111XX
12X21XXX1X11X11
XXX12XX11211X11
1XX11211212X111
X1211XXX11X2111
1111XX112X1X1X2
X111XX1X11X1X2X
11122XX1111X112
XX12X21111X1XXX
11X1XXX1X11X1X1
1X1XX12111X2X21
12112XXXXX11212
X1XX1212XX2X111
X11121111112112
111212111X1221X
212X111112X2111
XX2X122122X11X1
1XXX1X1X1X21X21
111121XXX21X11X
XX21X1XXX1XXXX1
211X1XXXX11XX12
111222212X11112
12X2X111X12X1X1
1112XX2XX111XX2
XXX12X11X1211X1
12X1XX12X121111
XXXXX2X2211X121
22XX11121X121X1
X1111XX21X1XXX2
111X2XX1111X1X2
1111X1XXXXXXXXX
112X2X1212XXXX1
XX111X211212XX2
112X2X112X221X1
1X21112122XX1X1
1X1X121XX1X111X
1111X1211111X1X
1XX2XX2X1X11111
111111XX211X21X
21X111X21111211
2X111X1111121XX
1222X2XXX1X11X1
1X121111111121X
1XXX12X1XX1X211
212XXXXXXXX1XX1
XXX2X1XX2121111
21X1XXX11X111X1
X111111212X111X
2X1XXX11X2XXXXX
12212XX22XXX111
XXX12X111211XX1
XX11X11X11X1X1X
11XX211111212X1
11XXX2111X2X1X1
2111XX2211X1X11
11XX1X11112X111
1X2X11X111XX121
11121XX111X12XX
21XX1X2XX1X1X11
XXX1111X1X211X1
11X1X1XX2X111X1
11XXXX112121121
X111122X1X112XX
1111X2X11211X2X
1XX121121221221
1211121X1XX11XX
1X11X112X2X1XXX
221X222211121X2
11111211X1121XX
21X1X1X11XXX111
11X1X121X111111
2121X111212XXX1
1XX111X22111X22
121X121211XX21X
XX12XX112112112
1X2XX22X1XX1X11
111X112X1X1X12X
1121XXX121X2111
12X111X12XX2XX1
X11X211122122X2
1X121112X21111X
1111X211X1111XX
1X2X11112222121
1X1XXX11111XX1X
2X112XX1X1XX11X
1X1112XX1XX121X
1111111XX1XX2XX
11111X21X1X1111
1X1XX1X21111X1X
221111XX11112XX
111X111X11XX111
XX1211XX1XX2111
1121112XXXXX121
1X111X1XX1XX21X
21X1XX1X1X1X122
11X11211X21X111
1X21111222X2111
211XX2X2XX1211X
XX111X12X21X222
XXX2112111112X2
1XXX11X11111111
2X1111111XX12XX
X1X11X111121X11
211211X1X1X1X1X
X1211X1X11222X1
111112X12211XX2
1XX12111X121XX1
1211X212XXXXXXX
X11X121X1X11X12
11111X21X1112XX
X211X221XXX112X
11X11X1X22212X1
21X11X2X2X1X1X1
X121X112111X2X1
12XX1121XX21111
2211122XX21111X
1X21111112X1111
XXXX1111XXX2111
112111X212X12X1
21X22111X1X2XX1
X1121XXX11XXXX1
X1122111XX1111X
X1211X1XX1X12X1
1XX11211X1XXX11
X1X112XX11X1111
2XXX11X111X1111
1111X1XXXX1111X
X11X11X11X1121X
212X1X1X1XXX1X1
X11X1111211XX1X
2X111XX21X1121X
111X1XX2121211X
1X1X1111X211112
X222X1121XXX121
21X11XX11121XX2
11X11X2111XX111
21XXXX2XX12X2X1
X11X2122X2121XX
1X1111211121XX2
X22X11XXX1X1121
X112XXXXX112X1X
1X1X22XX21X1111
212X1X2221X1211
1112X2111X11112
1111111XXX111X2
X11111X12111X2X
X2XX2X111XX2X11
21X22111121XX22
1X111111121XX1X
1X1X211X1X11111
X11XXX2X111212X
212XX1X11111X21
1111212X11111XX
X11XX1X11X1X11X
1211X111111211X
1221X21X1111XX1
21X1XXXX11XXX11
2X11211X211X1XX
1111112XXX2XX12
XXX121211X2XXX2
111211XX2X11X2X
11121X122112XXX
1X1XX1122X1X11X
1X11XXX11221112
XXXXX211X2XX2X1
1X112X211X1112X
11X1X1X1X1XX121
1X121X1121111XX
112X111XX1X1121
X111X1111X11122
XXX1X21111XX121
X1111112111211X
111211XX1121112
XX1121X1211X11X
111XX112X11X1XX
1XXX12XX2X2X111
11X1X1XX1XX2221
X1X21111X11XX11
2X1X11111X112X1
X2X1211X12X1X21
XX112XX222111XX
1X121X111X1211X
111X111X1111X12
XX11112XX11211X
1111111X111X112
11X1XXX21X21112
121111X11111X1X
111X1221211X12X
1111112X21111X1
2211X1XXX111112
X1XXXX111XX11X1
11XX1X221XX1XX1
X11222XXXX1X11X
11XX1XX1X12XX21
X2X2XXX11X21X21
12XX1X2X12X21X1
2X221XX212X11X1
1X11XX1X1X1X112
211XXX12121111X
11111211211X2XX
X11X121X1111X1X
11X2XX1X12X2121
2X212X122111X11
1X1X1X11111121X
XXX11X1121X2111
XX12X11XX1111X2
X11X121XX111X22
X12111X12XX1111
X1211XX11XX1111
11X11X12X1X1111
1X1XX1X12X121XX
X221X1X222XXX11
1XX111X2X22X122
1XXXXX211X21122
11XXX11XX1X2111
X11XX121X121112
X1X1XX11X1X1211
11221X112XXX221
X2X1XXX11122111
XX11X12X2121122
XX121XX1111X112
XXXXX1X1X12X112
112X11111X1XXX1
1111XX11XX1XX11
21X11X21XX21112
11X11XXXX1X2121
122111211XXX211
111X1211X21112X
1X12X122121XX1X
1XX1X2111XX1111
111211X2121XXXX
11X122X1X121X21
211X2X11111211X
112XXXX22XX1211
1X1111XXX11X21X
12XX2XXXX1X2XX1
2X1111X1X1X1X11
X2XX11X211XX221
21X2XXXX1XXX111
X11X11111X1X12X
111XX1112X12X1X
11112XX111XX1X1
XX121XX2XX21X12
X112111112111XX
1XXXX12XX2X1211
1XX11X1XXXX2211
X12X2XX1X111XX1
XXXX111111X21X1
112111X1X11X111
1121X21X2211221
1X21212121X1XX1
X2X21112X1XX111
1XX2X1X11121211
XX21111X11X1211
XX111X22X111X1X
1X111XX11X111XX
11X1X1111XXX211
11122211111X11X
1211X2112X1111X
2X12111XX21222X
X111221X2211112
1X21X2XXXXXX2X1
X1X212XXX2211X1
2X22X21X11XXX11
11X211X111211X1
11111X111X12XXX
22XX1X111111122
1121XX2211X1X21
1X112121111211X
1X21XXX11111221
112221XX1XX1X11
XX1XX11X1X11212
111X2111XX111XX
211X12XX11111XX
1XX2X122XXX2111
1211XX1X121X1X2
X11X1X1X121X111
2X22X111XX11211
111211X111122XX
11221X1211111X1
1211X2X11111XXX
111112X11X1XX1X
1X1X1111X11X22X
X11X11X111X11XX
XX21122121XX1X1
1X2XXX11111X2X1
11X11112112X1X1
211XX1X11X2X1X2
X22112111X111X1
111XX2X1X1111X2
X2111X11XX1XX12
X2XX21X21221X11
21X11X1XX2XX111
2212121X1X11X1X
21X12X1XX1XXX11
X111X1111111X11
X2X2XX2121X2XX1
211X111X1211XXX
12XX211121XXX11
2X1XX12X1112X1X
XXXX1X1111211X2
1X1X1X2XX11XX1X
X11112212X1X21X
11X22X111XXXX11
X2XX1X11XXX21X1
2111X111X12X112
X111X2XX2X111XX
11X11XX212X1111
111XX11X1211XXX
XX1X11XX1X12XXX
XXX11X11X211112
111X1XX1211221X
X2112X21112X122
11XX12211X21XX1
XX1XXX12111111X
12111XXX111X2XX
2X11XX12X111XXX
1X1X1X11X111X2X
11X1211X11X1XX1
21X111112XX1121
2211XX112X1XX2X
X1X1X11XX1X11X1
1XX1X111XXX11X1
X121X11122X2XX1
1121X11XX211XX1
XX1111111X1XX1X
1111111X111121X
X1111111X11X1XX
22111111X111121
21XX11111XX2X11
X21212X1X111211
2211X11X211111X
1XXXX11211X2221
1X111221X121X1X
2111XX11XX111XX
1X2XXX21XXX1XX1
12XXX1X11XX1X11
21X1111111X12X1
22111XX1XX12X2X
1X2X121X121X111
XXX1XX11X22X211
X2X11112XX21X21
11X121X2X2X2X11
1XX12X1XX111X12
12XX111111X1111
X1X1112212XX1X1
1XXX111211XXX12
11X22X12X121X12
1X112112111X12X
1XX11X2X112XX11
X1111X1X2X1X221
2X1111XX1X1X11X
121111X1XX21112
X12XX12111X1211
XX2122X11XXXX21
1212X11X2211XX1
2X1XXX11221X11X
XXX111XXXXX1XX1
X111X21X111X11X
XXXX112X1121111
X11112XX1111112
2121X121XXX11X1
2X12XXX1111X1XX
21X111X1X1221X1
1X2X111X2111111
1XX2121X11XX1X1
11X11111XXXXX22
1111X2X2XX1XXXX
X111XX1XXX121XX
X121X112111X2X1
12XX1121XX21111
2211122XX21111X
1X21111112X1111
XXXX1111XXX2111
112111X212X12X1
21X22111X1X2XX1
X1121XXX11XXXX1
X1122111XX1111X
X1211X1XX1X12X1
1XX11211X1XXX11
X1X112XX11X1111
2XXX11X111X1111
1111X1XXXX1111X
X11X11X11X1121X
212X1X1X1XXX1X1
X11X1111211XX1X
2X111XX21X1121X
111X1XX2121211X
1X1X1111X211112
X222X1121XXX121
21X11XX11121XX2
11X11X2111XX111
21XXXX2XX12X2X1
X11X2122X2121XX
1X1111211121XX2
X22X11XXX1X1121
X112XXXXX112X1X
1X1X22XX21X1111
212X1X2221X1211
1112X2111X11112
1111111XXX111X2
X11111X12111X2X
X2XX2X111XX2X11
21X22111121XX22
1X111111121XX1X
1X1X211X1X11111
X11XXX2X111212X
212XX1X11111X21
1111212X11111XX
X11XX1X11X1X11X
1211X111111211X
1221X21X1111XX1
21X1XXXX11XXX11
2X11211X211X1XX
1111112XXX2XX12
XXX121211X2XXX2
111211XX2X11X2X
11121X122112XXX
1X1XX1122X1X11X
1X11XXX11221112
XXXXX211X2XX2X1
1X112X211X1112X
11X1X1X1X1XX121
1X121X1121111XX
112X111XX1X1121
X111X1111X11122
XXX1X21111XX121
X1111112111211X
111211XX1121112
XX1121X1211X11X
111XX112X11X1XX
1XXX12XX2X2X111
11X1X1XX1XX2221
X1X21111X11XX11
2X1X11111X112X1
X2X1211X12X1X21
XX112XX222111XX
1X121X111X1211X
111X111X1111X12
XX11112XX11211X
1111111X111X112
11X1XXX21X21112
121111X11111X1X
111X1221211X12X
1111112X21111X1
2211X1XXX111112
X1XXXX111XX11X1
11XX1X221XX1XX1
X11222XXXX1X11X
11XX1XX1X12XX21
X2X2XXX11X21X21
12XX1X2X12X21X1
2X221XX212X11X1
1X11XX1X1X1X112
211XXX12121111X
11111211211X2XX
X11X121X1111X1X
11X2XX1X12X2121
2X212X122111X11
1X1X1X11111121X
XXX11X1121X2111
XX12X11XX1111X2
X11X121XX111X22
X12111X12XX1111
X1211XX11XX1111
11X11X12X1X1111
1X1XX1X12X121XX
X221X1X222XXX11
1XX111X2X22X122
1XXXXX211X21122
11XXX11XX1X2111
X11XX121X121112
X1X1XX11X1X1211
11221X112XXX221
X2X1XXX11122111
XX11X12X2121122
XX121XX1111X112
XXXXX1X1X12X112
112X11111X1XXX1
1111XX11XX1XX11
21X11X21XX21112
11X11XXXX1X2121
122111211XXX211
111X1211X21112X
1X12X122121XX1X
1XX1X2111XX1111
111211X2121XXXX
11X122X1X121X21
211X2X11111211X
112XXXX22XX1211
1X1111XXX11X21X
12XX2XXXX1X2XX1
2X1111X1X1X1X11
X2XX11X211XX221
21X2XXXX1XXX111
X11X11111X1X12X
111XX1112X12X1X
11112XX111XX1X1
XX121XX2XX21X12
X112111112111XX
1XXXX12XX2X1211
1XX11X1XXXX2211
X12X2XX1X111XX1
XXXX111111X21X1
112111X1X11X111
1121X21X2211221
1X21212121X1XX1
X2X21112X1XX111
1XX2X1X11121211
XX21111X11X1211
XX111X22X111X1X
1X111XX11X111XX
11X1X1111XXX211
11122211111X11X
1211X2112X1111X
2X12111XX21222X
X111221X2211112
1X21X2XXXXXX2X1
X1X212XXX2211X1
2X22X21X11XXX11
11X211X111211X1
11111X111X12XXX
22XX1X111111122
1121XX2211X1X21
1X112121111211X
1X21XXX11111221
112221XX1XX1X11
XX1XX11X1X11212
111X2111XX111XX
211X12XX11111XX
1XX2X122XXX2111
1211XX1X121X1X2
X11X1X1X121X111
2X22X111XX11211
111211X111122XX
11221X1211111X1
1211X2X11111XXX
111112X11X1XX1X
1X1X1111X11X22X
X11X11X111X11XX
XX21122121XX1X1
1X2XXX11111X2X1
11X11112112X1X1
211XX1X11X2X1X2
X22112111X111X1
111XX2X1X1111X2
X2111X11XX1XX12
X2XX21X21221X11
21X11X1XX2XX111
2212121X1X11X1X
21X12X1XX1XXX11
X111X1111111X11
X2X2XX2121X2XX1
211X111X1211XXX
12XX211121XXX11
2X1XX12X1112X1X
XXXX1X1111211X2
1X1X1X2XX11XX1X
X11112212X1X21X
11X22X111XXXX11
X2XX1X11XXX21X1
2111X111X12X112
X111X2XX2X111XX
11X11XX212X1111
111XX11X1211XXX
XX1X11XX1X12XXX
XXX11X11X211112
111X1XX1211221X
X2112X21112X122
11XX12211X21XX1
XX1XXX12111111X
12111XXX111X2XX
2X11XX12X111XXX
1X1X1X11X111X2X
11X1211X11X1XX1
21X111112XX1121
2211XX112X1XX2X
X1X1X11XX1X11X1
1XX1X111XXX11X1
X121X11122X2XX1
1121X11XX211XX1
XX1111111X1XX1X
1111111X111121X
X1111111X11X1XX
22111111X111121
21XX11111XX2X11
X21212X1X111211
2211X11X211111X
1XXXX11211X2221
1X111221X121X1X
2111XX11XX111XX
1X2XXX21XXX1XX1
12XXX1X11XX1X11
21X1111111X12X1
22111XX1XX12X2X
1X2X121X121X111
XXX1XX11X22X211
X2X11112XX21X21
11X121X2X2X2X11
1XX12X1XX111X12
12XX111111X1111
X1X1112212XX1X1
1XXX111211XXX12
11X22X12X121X12
1X112112111X12X
1XX11X2X112XX11
X1111X1X2X1X221
2X1111XX1X1X11X
121111X1XX21112
X12XX12111X1211
XX2122X11XXXX21
1212X11X2211XX1
2X1XXX11221X11X
XXX111XXXXX1XX1
X111X21X111X11X
XXXX112X1121111
X11112XX1111112
2121X121XXX11X1
2X12XXX1111X1XX
21X111X1X1221X1
1X2X111X2111111
1XX2121X11XX1X1
11X11111XXXXX22
1111X2X2XX1XXXX
X111XX1XXX121XX
X121X112111X2X1
12XX1121XX21111
2211122XX21111X
1X21111112X1111
XXXX1111XXX2111
112111X212X12X1
21X22111X1X2XX1
X1121XXX11XXXX1
X1122111XX1111X
X1211X1XX1X12X1
1XX11211X1XXX11
X1X112XX11X1111
2XXX11X111X1111
1111X1XXXX1111X
X11X11X11X1121X
212X1X1X1XXX1X1
X11X1111211XX1X
2X111XX21X1121X
111X1XX2121211X
1X1X1111X211112
X222X1121XXX121
21X11XX11121XX2
11X11X2111XX111
21XXXX2XX12X2X1
X11X2122X2121XX
1X1111211121XX2
X22X11XXX1X1121
X112XXXXX112X1X
1X1X22XX21X1111
212X1X2221X1211
1112X2111X11112
1111111XXX111X2
X11111X12111X2X
X2XX2X111XX2X11
21X22111121XX22
1X111111121XX1X
1X1X211X1X11111
X11XXX2X111212X
212XX1X11111X21
1111212X11111XX
X11XX1X11X1X11X
1211X111111211X
1221X21X1111XX1
21X1XXXX11XXX11
2X11211X211X1XX
1111112XXX2XX12
XXX121211X2XXX2
111211XX2X11X2X
11121X122112XXX
1X1XX1122X1X11X
1X11XXX11221112
XXXXX211X2XX2X1
1X112X211X1112X
11X1X1X1X1XX121
1X121X1121111XX
112X111XX1X1121
X111X1111X11122
XXX1X21111XX121
X1111112111211X
111211XX1121112
XX1121X1211X11X
111XX112X11X1XX
1XXX12XX2X2X111
11X1X1XX1XX2221
X1X21111X11XX11
2X1X11111X112X1
X2X1211X12X1X21
XX112XX222111XX
1X121X111X1211X
111X111X1111X12
XX11112XX11211X
1111111X111X112
11X1XXX21X21112
121111X11111X1X
111X1221211X12X
1111112X21111X1
2211X1XXX111112
X1XXXX111XX11X1
11XX1X221XX1XX1
X11222XXXX1X11X
11XX1XX1X12XX21
X2X2XXX11X21X21
12XX1X2X12X21X1
2X221XX212X11X1
1X11XX1X1X1X112
211XXX12121111X
11111211211X2XX
X11X121X1111X1X
11X2XX1X12X2121
2X212X122111X11
1X1X1X11111121X
XXX11X1121X2111
XX12X11XX1111X2
X11X121XX111X22
X12111X12XX1111
X1211XX11XX1111
11X11X12X1X1111
1X1XX1X12X121XX
X221X1X222XXX11
1XX111X2X22X122
1XXXXX211X21122
11XXX11XX1X2111
X11XX121X121112
X1X1XX11X1X1211
11221X112XXX221
X2X1XXX11122111
XX11X12X2121122
XX121XX1111X112
XXXXX1X1X12X112
112X11111X1XXX1
1111XX11XX1XX11
21X11X21XX21112
11X11XXXX1X2121
122111211XXX211
111X1211X21112X
1X12X122121XX1X
1XX1X2111XX1111
111211X2121XXXX
11X122X1X121X21
211X2X11111211X
112XXXX22XX1211
1X1111XXX11X21X
12XX2XXXX1X2XX1
2X1111X1X1X1X11
X2XX11X211XX221
21X2XXXX1XXX111
X11X11111X1X12X
111XX1112X12X1X
11112XX111XX1X1
XX121XX2XX21X12
X112111112111XX
1XXXX12XX2X1211
1XX11X1XXXX2211
X12X2XX1X111XX1
XXXX111111X21X1
112111X1X11X111
1121X21X2211221
1X21212121X1XX1
X2X21112X1XX111
1XX2X1X11121211
XX21111X11X1211
XX111X22X111X1X
1X111XX11X111XX
11X1X1111XXX211
11122211111X11X
1211X2112X1111X
2X12111XX21222X
X111221X2211112
1X21X2XXXXXX2X1
X1X212XXX2211X1
2X22X21X11XXX11
11X211X111211X1
11111X111X12XXX
22XX1X111111122
1121XX2211X1X21
1X112121111211X
1X21XXX11111221
112221XX1XX1X11
XX1XX11X1X11212
111X2111XX111XX
211X12XX11111XX
1XX2X122XXX2111
1211XX1X121X1X2
X11X1X1X121X111
2X22X111XX11211
111211X111122XX
11221X1211111X1
1211X2X11111XXX
111112X11X1XX1X
1X1X1111X11X22X
X11X11X111X11XX
XX21122121XX1X1
1X2XXX11111X2X1
11X11112112X1X1
211XX1X11X2X1X2
X22112111X111X1
111XX2X1X1111X2
X2111X11XX1XX12
X2XX21X21221X11
21X11X1XX2XX111
2212121X1X11X1X
21X12X1XX1XXX11
X111X1111111X11
X2X2XX2121X2XX1
211X111X1211XXX
12XX211121XXX11
2X1XX12X1112X1X
XXXX1X1111211X2
1X1X1X2XX11XX1X
X11112212X1X21X
11X22X111XXXX11
X2XX1X11XXX21X1
2111X111X12X112
X111X2XX2X111XX
11X11XX212X1111
111XX11X1211XXX
XX1X11XX1X12XXX
XXX11X11X211112
111X1XX1211221X
X2112X21112X122
11XX12211X21XX1
XX1XXX12111111X
12111XXX111X2XX
2X11XX12X111XXX
1X1X1X11X111X2X
11X1211X11X1XX1
21X111112XX1121
2211XX112X1XX2X
X1X1X11XX1X11X1
1XX1X111XXX11X1
X121X11122X2XX1
1121X11XX211XX1
XX1111111X1XX1X
1111111X111121X
X1111111X11X1XX
22111111X111121
21XX11111XX2X11
X21212X1X111211
2211X11X211111X
1XXXX11211X2221
1X111221X121X1X
2111XX11XX111XX
1X2XXX21XXX1XX1
12XXX1X11XX1X11
21X1111111X12X1
22111XX1XX12X2X
1X2X121X121X111
XXX1XX11X22X211
X2X11112XX21X21




PD:

el link del descarga del programa ALEATORIAS_2018.EXE:
http://ge.tt/2Nufq7r2


también se podría modificar los % de cada signo, o las limitar las variantes totales de cada columna,...
todo es ponerse.

otra posibilidad es mandarlo al correo, cambiando la terminación EXE, si eso mandeme un privado
el que lo desee.

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: Peticion de un DADO 1X2 trucado.

Mensaje por juanknito »

preparo una versión con posibilidad de
:

1- introducir una columna base y numero de partidos variable, de 1 a 14, con mínimo y máximo de aciertos.

2- añado limitar n° variantes mínimo y máximo.

3- permitir modificar los % de los signos aleatorios 1, X y 2.


así podremos adaptar nuestro "dado" a nuestro gusto.

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
JoseVicente
14
14
Mensajes: 9631
Registrado: Mar 02 Oct, 2007 3:17 pm

Re: Peticion de un DADO 1X2 trucado.

Mensaje por JoseVicente »

Hay por ahí un programilla que te genera de forma aleatoria las columnas que quieras con la distribución de signos exacta que quieras.
Mi quiniela es perfecta, son los equipos los que no hacen lo que deberían.
Avatar de Usuario
YORKIE
10
10
Mensajes: 141
Registrado: Sab 23 Jun, 2018 9:50 am

Re: Peticion de un DADO 1X2 trucado.

Mensaje por YORKIE »

juanknito escribió:preparo una versión con posibilidad de
:

1- introducir una columna base y numero de partidos variable, de 1 a 14, con mínimo y máximo de aciertos.

2- añado limitar n° variantes mínimo y máximo.

3- permitir modificar los % de los signos aleatorios 1, X y 2.


así podremos adaptar nuestro "dado" a nuestro gusto.

Muchas gracias por tu atención, pensaba que nadie me respondería. :ok:
El AZAR NO TIENE ATAJOS.
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: Peticion de un DADO 1X2 trucado.

Mensaje por juanknito »

Hola YORKIE y JoseVicente,

al final éstos retos los utilizo para poner a disposición de los foreros el código de éste lenguaje de los 90
y ver como nos puede sacar de un apuro, dado el caso.

eso si, no pierdo el tiempo en colores ni presentación en pantalla, es lo que utilizo si me hace falta alguna
herramienta.

JoseVicente, gracias por la información,
ésto es como "las garbanzas de la abuela", hechas en casa, ni comparación con los programas comerciales, jajajaja, seguro que ese programa le da 20 vueltas a éste grupo de líneas de código que solo hacen lo que se le pide, sin florituras.

a ver si soy capaza de montar un avance de la versión 1.2, ésta noche,...
(nos indicará las variantes al lado de cada columna generada),

así:

11X1XX1XX1XX1X1 8
111111212112112 4
X11111112111X11 3
X12X1X11X21111X 7
12XX2X1XX1XXX21 11
2211X121211XX11 7
2X21XX1XX1XX21X 11
1XX2XX1X11X11XX 9
111XX1X1XX1XX1X 8
X1X1X111XXX111X 7

PD
pues ahora, no me admite el archivo exe, el programa Ge.tt ... a ver si alguien me puede decir como compartirlo, lo único que se me ocurre es el envio a email (mandarme un privado), ésta noche lo tendré listo.

adelanto 500 aleatorias y coincidencias con 3 signos como Columna Base, y sus variantes:
son éstas:


la columna base es: signo 1 (partidos 1 y 2) y signo 2 al partido 14, se lee V:variantes y A:aciertos.

Columna Base:
11NNNNNNNNNNN2 V_A

12X12XX1X1X11X 8 1
XX22X1111X1211 7 0
1112211X1XX112 6 3
X2111X11121112 5 1
XXXX112111X221 8 0
111X1121X11111 3 2
X111X112X11111 4 1
1X12XX11X121X1 7 1
2X112111XX2X11 7 0
111111X11X2111 3 2
111112111X11X1 3 2
1XX2121212X112 8 2
2X111121X11X11 5 0
X1XX1XXX11X111 7 1
2122211X2111X1 7 1
121112XX21111X 6 1
1X1111X11X11X1 4 1
1121212X1X112X 7 2
12X11X112XX221 8 1
1X11X1X11222X1 7 1
1X2XX111211111 5 1
111XXX12X112X1 7 2
11X1111X11XX21 5 2
XXX111X1X1X21X 8 0
X1X11111XXXXX2 8 2
2211112X121X11 6 0
11X1221211X11X 6 2
212XX12X111XX1 8 1
1112121XX11X11 5 2
1111XXX21X221X 8 2
1111121X1X1X12 5 3
X221X1X1XX1111 7 0
1XX11X2112X111 6 1
11121X12X11XXX 7 2
X1X2111211X111 5 1
X1XXXX1X11X11X 8 1
1X21X1X11111X2 6 2
1121X1111XX121 5 2
22XX21X11XX111 8 0
1211X11X1211XX 6 1
X1X11X1211XX2X 8 1
111X2211211121 5 2
X1112XXXX1211X 8 1
2XX11111X1X111 5 0
X111XX1X1XX1X1 7 1
121111211X12XX 6 1
2112X112X12112 7 2
11X2111X11X2XX 7 2
211X11XX211XXX 8 1
X21XX11XX112X1 8 0
211X111X1X11X2 6 2
111X1XX21X1X11 6 2
X2X11X1112XX12 8 1
112XX1XX211111 6 2
211121X1112X12 6 2
11X111XX11XX22 7 3
1XX11211111XX1 5 1
11X1111XXX12X1 6 2
11X1111X2XXX11 6 2
1X112111X2112X 6 1
11X121XX11XX11 6 2
11112XXX211122 7 3
111X112XX11111 4 2
121X21XXX1211X 8 1
1112X21X1XXX11 7 2
211111X21X1111 4 1
111X12XXX11XX1 7 2
11X1122111X1X1 5 2
1221X221111111 5 1
XX112X1111112X 6 0
XX1X1XX11X111X 7 0
112XX2X1XX11X1 8 2
XX212111X111XX 7 0
X11111XXX11211 5 1
2XX1X1211XX11X 8 0
1111X2XX1X2X11 7 2
2XX1111111212X 6 0
X1212X12211X21 8 1
X2111X11211XX1 6 0
2X1X11X1212X1X 8 0
1X1XX121XX121X 8 1
2112X1111X1XX1 6 1
111X1X2X1X11XX 7 2
1X1X1111X11212 5 2
1111X12XX1X1X1 6 2
22X211111111X1 5 0
XX2X2121111121 7 0
1X1111111X1XX2 5 2
XX1X1X21121111 6 0
21111112X1111X 4 1
1211X111X1211X 5 1
1XX21X11XXX121 8 1
11X11212XX2111 6 2
X112111X1X121X 6 1
1X1XXXX1112111 6 1
1222X211111X1X 7 1
1X121111211211 4 1
XX111X111X1111 4 0
2112211X1X1X21 7 1
2121X11XXX1X12 8 2
XX111XX1X111X1 6 0
12X12XX1X1X11X 8 1
XX22X1111X1211 7 0
1112211X1XX112 6 3
X2111X11121112 5 1
XXXX112111X221 8 0
111X1121X11111 3 2
X111X112X11111 4 1
1X12XX11X121X1 7 1
2X112111XX2X11 7 0
111111X11X2111 3 2
111112111X11X1 3 2
1XX2121212X112 8 2
2X111121X11X11 5 0
X1XX1XXX11X111 7 1
2122211X2111X1 7 1
121112XX21111X 6 1
1X1111X11X11X1 4 1
1121212X1X112X 7 2
12X11X112XX221 8 1
1X11X1X11222X1 7 1
1X2XX111211111 5 1
111XXX12X112X1 7 2
11X1111X11XX21 5 2
XXX111X1X1X21X 8 0
X1X11111XXXXX2 8 2
2211112X121X11 6 0
11X1221211X11X 6 2
212XX12X111XX1 8 1
1112121XX11X11 5 2
1111XXX21X221X 8 2
1111121X1X1X12 5 3
X221X1X1XX1111 7 0
1XX11X2112X111 6 1
11121X12X11XXX 7 2
X1X2111211X111 5 1
X1XXXX1X11X11X 8 1
1X21X1X11111X2 6 2
1121X1111XX121 5 2
22XX21X11XX111 8 0
1211X11X1211XX 6 1
X1X11X1211XX2X 8 1
111X2211211121 5 2
X1112XXXX1211X 8 1
2XX11111X1X111 5 0
X111XX1X1XX1X1 7 1
121111211X12XX 6 1
2112X112X12112 7 2
11X2111X11X2XX 7 2
211X11XX211XXX 8 1
X21XX11XX112X1 8 0
211X111X1X11X2 6 2
111X1XX21X1X11 6 2
X2X11X1112XX12 8 1
112XX1XX211111 6 2
211121X1112X12 6 2
11X111XX11XX22 7 3
1XX11211111XX1 5 1
11X1111XXX12X1 6 2
11X1111X2XXX11 6 2
1X112111X2112X 6 1
11X121XX11XX11 6 2
11112XXX211122 7 3
111X112XX11111 4 2
121X21XXX1211X 8 1
1112X21X1XXX11 7 2
211111X21X1111 4 1
111X12XXX11XX1 7 2
11X1122111X1X1 5 2
1221X221111111 5 1
XX112X1111112X 6 0
XX1X1XX11X111X 7 0
112XX2X1XX11X1 8 2
XX212111X111XX 7 0
X11111XXX11211 5 1
2XX1X1211XX11X 8 0
1111X2XX1X2X11 7 2
2XX1111111212X 6 0
X1212X12211X21 8 1
X2111X11211XX1 6 0
2X1X11X1212X1X 8 0
1X1XX121XX121X 8 1
2112X1111X1XX1 6 1
111X1X2X1X11XX 7 2
1X1X1111X11212 5 2
1111X12XX1X1X1 6 2
22X211111111X1 5 0
XX2X2121111121 7 0
1X1111111X1XX2 5 2
XX1X1X21121111 6 0
21111112X1111X 4 1
1211X111X1211X 5 1
1XX21X11XXX121 8 1
11X11212XX2111 6 2
X112111X1X121X 6 1
1X1XXXX1112111 6 1
1222X211111X1X 7 1
1X121111211211 4 1
XX111X111X1111 4 0
2112211X1X1X21 7 1
2121X11XXX1X12 8 2
XX111XX1X111X1 6 0
12X12XX1X1X11X 8 1
XX22X1111X1211 7 0
1112211X1XX112 6 3
2111X121121X11 5 1
1211X21X111111 4 1
1XXX11XX11111X 6 1
X1X111221121XX 7 1
12XX112X112X1X 8 1
1X112X21XX111X 7 1
X11XXX211X11X1 7 1
121X121X121X2X 8 1
2XX2X11121X111 7 0
X111XX11X11111 4 1
1X1X121X1X11X2 7 2
X12121211XX2X1 8 1
11X112112211XX 6 2
12111XXX12X11X 7 1
XX111X1X1112XX 7 0
11X1X11X11X212 6 3
211211112X1X2X 7 1
111XX1111X1X1X 5 2
1X111111X11X1X 4 1
XX112XX1111X2X 8 0
21XX1111111XX1 5 1
X2111X1XX11222 8 1
111111111X111X 2 2
X211X1XX1212X1 8 0
1XX1X1XX21211X 8 1
XX121121X1X112 7 1
11111X1X211111 3 2
2212111X211X11 6 0
1X1X1X2X1XX121 8 1
11X2X211XXX11X 8 2
111X1XX12211X2 7 3
XX11XXX1X111XX 8 0
21X11111112111 3 1
11XXX2X1112111 6 2
12XXX11X11X111 6 1
1111XX121X1212 6 3
211X111212X112 6 2
1XX1112X112121 6 1
1X21122XX1X211 8 1
1112X111X11XX1 5 2
111211211112XX 5 2
1X11X11XXX11X1 6 1
1X12121X111111 4 1
12X1X11X211X11 6 1
1121221121XXX1 7 2
111XX2XX121XX1 8 2
1XX1XX1121X211 7 1
XX111X11X111X1 5 0
11111X11111121 2 2
11X2X211111112 5 3
1XX2111XXX11X2 8 2
1X11211X2X112X 7 1
1122112112X111 5 2
XX12XX11111X1X 7 0
X11X1X11X11111 4 1
211XX122X111X2 8 2
21112111X11X22 6 2
X1121X111X111X 5 1
21X1X111XX111X 6 1
111XX1X112X1X2 7 3
1X112111111211 3 1
X1X11111112X1X 5 1
X121111121X211 5 1
112X111121X111 4 2
1XX1XX111XX211 7 1
11121X12121XXX 7 2
11X1X221X221X1 8 2
211XX1X1X11XXX 8 1
1112221XX11X11 6 2
11X11211111111 2 2
121112XXXX1XX1 8 1
XX11XX111X11X2 7 1
112122X11XXX12 8 3
11122X21121221 7 2
1XXX12111121XX 7 1
112121X121X1XX 7 2
11111111X111X1 2 2
111XXX12X11XX1 7 2
XX2111X11XX111 6 0
X111211212111X 5 1
X1211X1212XX11 7 1
1X1X21XX111112 6 2
11XX12X1112122 7 3
X1X21X1X11X1X1 7 1
111111X12X1221 5 2
X1111XX112X121 6 1
X1X21112221111 6 1
22121112X1X221 8 0
11111X22X11X12 6 3
11112XX1X1121X 6 2
X11X11X2X11121 6 1
1X11X1X11X1XX1 6 1
111X11X11XXX11 5 2
11X111XX222XX1 8 2
2111X1121211XX 6 1
11111121X1XX2X 6 2
221111X221X11X 7 0
2X21111X1XXX1X 8 0
11X112X1XX2111 6 2
2111X121121X11 5 1
1211X21X111111 4 1
1XXX11XX11111X 6 1
X1X111221121XX 7 1
12XX112X112X1X 8 1
1X112X21XX111X 7 1
X11XXX211X11X1 7 1
121X121X121X2X 8 1
2XX2X11121X111 7 0
X111XX11X11111 4 1
1X1X121X1X11X2 7 2
X12121211XX2X1 8 1
11X112112211XX 6 2
12111XXX12X11X 7 1
XX111X1X1112XX 7 0
11X1X11X11X212 6 3
211211112X1X2X 7 1
111XX1111X1X1X 5 2
1X111111X11X1X 4 1
XX112XX1111X2X 8 0
21XX1111111XX1 5 1
X2111X1XX11222 8 1
111111111X111X 2 2
X211X1XX1212X1 8 0
1XX1X1XX21211X 8 1
XX121121X1X112 7 1
11111X1X211111 3 2
2212111X211X11 6 0
1X1X1X2X1XX121 8 1
11X2X211XXX11X 8 2
111X1XX12211X2 7 3
XX11XXX1X111XX 8 0
21X11111112111 3 1
11XXX2X1112111 6 2
12XXX11X11X111 6 1
1111XX121X1212 6 3
211X111212X112 6 2
1XX1112X112121 6 1
1X21122XX1X211 8 1
1112X111X11XX1 5 2
111211211112XX 5 2
1X11X11XXX11X1 6 1
1X12121X111111 4 1
12X1X11X211X11 6 1
1121221121XXX1 7 2
111XX2XX121XX1 8 2
1XX1XX1121X211 7 1
XX111X11X111X1 5 0
11111X11111121 2 2
11X2X211111112 5 3
1XX2111XXX11X2 8 2
1X11211X2X112X 7 1
1122112112X111 5 2
XX12XX11111X1X 7 0
X11X1X11X11111 4 1
211XX122X111X2 8 2
21112111X11X22 6 2
X1121X111X111X 5 1
21X1X111XX111X 6 1
111XX1X112X1X2 7 3
1X112111111211 3 1
X1X11111112X1X 5 1
X121111121X211 5 1
112X111121X111 4 2
1XX1XX111XX211 7 1
11121X12121XXX 7 2
11X1X221X221X1 8 2
211XX1X1X11XXX 8 1
1112221XX11X11 6 2
11X11211111111 2 2
121112XXXX1XX1 8 1
XX11XX111X11X2 7 1
112122X11XXX12 8 3
11122X21121221 7 2
1XXX12111121XX 7 1
112121X121X1XX 7 2
11111111X111X1 2 2
111XXX12X11XX1 7 2
XX2111X11XX111 6 0
X111211212111X 5 1
X1211X1212XX11 7 1
1X1X21XX111112 6 2
11XX12X1112122 7 3
X1X21X1X11X1X1 7 1



por cierto, como se añade una ventana para ocupar menos espacio dentro del hilo?

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
victrope
11
11
Mensajes: 479
Registrado: Sab 17 Mar, 2018 12:44 am
Contactar:

Re: Peticion de un DADO 1X2 trucado.

Mensaje por victrope »

Hola Juanknito, te quería comentar sobre el programa. Si me admites la sugerencia, no entiendo porque generas un entero al azar del 1 al 6, para que las distribuciones sean 50, 30, 20.

g = INT(RND * 6) + 1

SELECT CASE g

CASE IS < 4
PRINT "1";
PRINT #1, "1";

CASE 6
PRINT "2";
PRINT #1, "2";

CASE ELSE
PRINT "X";
PRINT #1, "X";

--------------------------------------------

Yo generaría un entero del 1 al 100. De 1 a 50 sería 1, de 51 a 80 sería X y del 81 al 100 un 2.
No sé si las sentencias en basic pueden ser algo parecido a esto. Quizás la doble comparación no se pueda poner en el case, no lo sé.

g = INT(RND * 100) + 1

SELECT CASE g

CASE IS <= 50
PRINT "1";
PRINT #1, "1";

CASE IS >= 50 AND <= 80
PRINT "X";
PRINT #1, "X";

CASE ELSE
PRINT "2";
PRINT #1, "2";


Quizás lo puedas hacer con if anidado también.


Un saludo
Avatar de Usuario
YORKIE
10
10
Mensajes: 141
Registrado: Sab 23 Jun, 2018 9:50 am

Re: Peticion de un DADO 1X2 trucado.

Mensaje por YORKIE »

Hola de nuevo juanknito, una sugerencia ¿Las columnas generadas podrían estar ordenadas por orden de acierto de la columna base? De esta manera si genero 1000 apuestas aleatorias puedo decidir jugar solo las que tengan 7 aciertos en la columna base por ejemplo. saludos. :wink:
El AZAR NO TIENE ATAJOS.
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: Peticion de un DADO 1X2 trucado.

Mensaje por juanknito »

Hola victrope y YORKIE

victrope
la mejora del programa que sugieres igual es equivalente, lo miraré, ahora ahora parece funcionar bien.
gracias igualmente.

YORKIE,
al final se me lió la tarde, pero lo de seleccionar las coincidencias con la Columna Base es sencillo, basta con introducir máximo y mínimo, que puede ser un mismo nº.

no creo que pueda hacerlo esta noche, llegué ahora a casa mañana al medio día tengo la limitación de variantes y aciertos en las columnas, también grabará 2 ficheros de salida, con las mismas columnas pero uno de ellos, con las columnas solamente, sin datos extra.

hablamos.

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: Peticion de un DADO 1X2 trucado.

Mensaje por juanknito »

Saludos,

adjunto la versión mejorada para descargar y algunos pantallazos:

Imagen


Imagen


Imagen


después de descargarlo, hay que renombrar la extensión (no es lo mismo que el nombre), del archivo de terminación: .xe a terminación: .exe o NO funcionará.

y el link de descarga:
http://ge.tt/4W2NyAr2




si tenemos dificultad para cambiar la extensión (3 letras después del punto) de un archivo en windows:

Imagen

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
YORKIE
10
10
Mensajes: 141
Registrado: Sab 23 Jun, 2018 9:50 am

Re: Peticion de un DADO 1X2 trucado.

Mensaje por YORKIE »

Excelente trabajo compañero, es programa hace perfectamente lo que se le pide... ¿Por cierto como se cambian los porcentajes iniciales?


Saludos! :ok:
El AZAR NO TIENE ATAJOS.
Avatar de Usuario
victrope
11
11
Mensajes: 479
Registrado: Sab 17 Mar, 2018 12:44 am
Contactar:

Re: Peticion de un DADO 1X2 trucado.

Mensaje por victrope »

Hola juanknito,

Yo creo que no son equivalentes a 50 30 20, fíjate que si generas un número al azar entre 1 y 6 y tus condiciones para seleccionar signos son que si es menor de 4 es 1, tienes un 50% de unos, siempre que el aleatorio te de 1,2,3, exactamentes el 50 %, pero si le pones que cuando sea 6 ponga un 2, la probabilidad de 2 es 1/6=0,166666667, y en los demás casos equis es decir si sale 4 o 5 tienes 2/6 = 0,33. En realidad estas generando apuestas con 50% al 1, 33% a X y 17% a 2. Jugando un dado de 10 caras, es decir un aleatorio de 1 a 10, lo puedes ajustar más finamente a 50 30 20.

Un saludo
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: Peticion de un DADO 1X2 trucado.

Mensaje por juanknito »

Saludos victrope, gracias por tu colaboración e indicaciones.

pues los % los vamos a poner ajustables a elección del usuario, como nos recuerda YORKYE, por cierto, gracias a ustedes por motivar e impulsar ideas diferentes en el foro.

efectivamente victrope, los % no son correctos, es más sencillo hacero de 1 a 100, con 50, 30 y 20 respecticamente para los % de 1, X y 2.

espero tenerlo listo sobre la marcha, muy probablemente mañana, creo victrope propuso el código de modificación, falta hacer los % ajustables a demanda.

el Karma Instantáneo existe, REPARTE con los que COMPARTEN.
Avatar de Usuario
victrope
11
11
Mensajes: 479
Registrado: Sab 17 Mar, 2018 12:44 am
Contactar:

Re: Peticion de un DADO 1X2 trucado.

Mensaje por victrope »

juanknito escribió:Saludos victrope, gracias por tu colaboración e indicaciones.

pues los % los vamos a poner ajustables a elección del usuario, como nos recuerda YORKYE, por cierto, gracias a ustedes por motivar e impulsar ideas diferentes en el foro.

efectivamente victrope, los % no son correctos, es más sencillo hacero de 1 a 100, con 50, 30 y 20 respecticamente para los % de 1, X y 2.

espero tenerlo listo sobre la marcha, muy probablemente mañana, creo victrope propuso el código de modificación, falta hacer los % ajustables a demanda.
Hola juanknito,

Me ha dado por entretenerme hoy con el código que has puesto, hacia como unos 20 años fácil que no programaba en basic. :). Me he divertido :), no sé si es muy legible el código.

Te dejo lo que me ha salido por si te vale, está hecho sobre tu código. Es un codigo que graba las apuestas aleatorias en aleatorias.txt, pero a la vez lee los porcentajes de cada partido de un fichero porcen.txt y los pasa a un array que utiliza en el for, para que cada partido tenga un porcentaje distinto. El formato del fichero porcen.txt siempre son dos cifras, el porcentaje de 1 y de X de los 14 partidos separados de una coma:

Ejemplo:

porcen.txt
80,10
50,30
.
.
.
. Hasta 14

No necesito el porcentaje de 2 porque es el resto de 100 menos la suma de las dos cifras. Los porcentajes se alamacenan en un array y se utilizan en el Loop cada vez que se genera una apuesta.


----------------------------------------------------------------------------------------------------------

PRINT "ESTE PROGRAMA CREA UN No. DE COLUMNAS ALEATORIAS QUE DESEEMOS Y LAS ARCHIVA EN: Aleatorias.txt"
PRINT
PRINT "EL FICHERO SE GUARDA EN MISMO DIRECTORIO DEL PROGRAMA ALEATORIAS_2018.exe"
PRINT
PRINT "LOS % INICIALES SON: 50% AL 1 30% AL X y 20% AL 2"
INPUT " introduce No. columnas aleatorias que deseas y pulsa <Ù "; col

REM ABRE FICHERO PARA ESCRIBIR APUESTAS
OPEN "Aleatorias.txt" FOR OUTPUT AS #1

REM DECLARO ARRAY PARA CARGAR PORCENTAJES DE ARCHIVO PORCEN
DIM porcen!(1,13)


RANDOMIZE TIMER

REM ABRO EL ARCHIVO E PORCENTAJES Y LO CARGO EN EL ARRAY
OPEN "porcen.txt" FOR INPUT AS #2
PRINT "Contenido del fichero:"
contador = 0
DO WHILE NOT EOF(2)
LINE INPUT #2, linea$
a$ = LEFT$(linea$, 2)
b$ = RIGHT$(linea$, 2)
porcen! (0,contador) = VAL(a$)
porcen! (1,contador) = VAL(b$)
contador = contador + 1
LOOP
CLOSE #2



REM GENERO LAS APUESTAS TENIENDO EN CUENTA LOS PORCENTAJES

FOR w = 1 TO col
FOR n = 0 TO 13


g = INT(RND * 100) + 1

REM p es el limite de la x
p = porcen!(0,n) + porcen!(1,n)

If (g < porcen!(0,n)) Then
PRINT "1";
PRINT #1, "1";
ElseIf ((g > porcen!(0,n)) AND (g < p)) Then
PRINT "X";
PRINT #1, "X";
Else
PRINT "2";
PRINT #1, "2";
End If


NEXT n
PRINT
PRINT #1,
NEXT w

CLOSE #1
END
-------------------------------------------------------------------------

Por si te vale, hay una cosa que no estamos teniendo en cuenta y es que las apuestas se pueden repetir. Habría que generar un método para que no se repitiesen.


Un saludo
Avatar de Usuario
victrope
11
11
Mensajes: 479
Registrado: Sab 17 Mar, 2018 12:44 am
Contactar:

Re: Peticion de un DADO 1X2 trucado.

Mensaje por victrope »

Se me olvidaba si algún porcentaje es menos de dos cifras hay que poner un "0" delante, 05, son cadenas que paso a enteros.

Así quedaría el porcen.txt de esta semana

32,30
10,10
22,27
67,21
11,13
45,31
72,18
21,32
44,33
73,17
42,35
71,18
59,26
38,35
Avatar de Usuario
victrope
11
11
Mensajes: 479
Registrado: Sab 17 Mar, 2018 12:44 am
Contactar:

Re: Peticion de un DADO 1X2 trucado.

Mensaje por victrope »

Y las 16 apuestas que me generan, jajajaja, estoy por jugarlas, jajajjaja

122122XXX1111X
222X2X21212211
X22X2X12122212
X2XX2212111122
121X22121111X1
X122211X1111X1
22112112111112
12X12112X11111
11X12X1X212X21
1221X221112X22
X2112X121X1221
22X11211211121
1211X12221X112
221X1XX1X111XX
222X221211111X
12212XX1111X2X
Avatar de Usuario
juanknito
11
11
Mensajes: 584
Registrado: Dom 20 Mar, 2016 12:16 pm
Ubicación: Tenerife

Re: Peticion de un DADO 1X2 trucado.

Mensaje por juanknito »

Hola de nuevo victrope

pues para hacer 20 años .... te veo muy fresco jeje

pues tú igual que yo, usas la programación para divertirte, yo en lugar de hacer sudokus, pues programo !! ,... lo compatibilizo con el ajedrez, por eso de mitigar el deterioro cognitivo, dicen... hago receteo de neuronas, jugando partidas a un minuto o dos en liChess.

son geniales las ideas que planteas, lo de las repetidas es facil passndolas a excel, ... voy a miralo

ya tengo listo el código para cambiar % de 1, X y 2 y más cosas,... lo hago a ratos en el trasporte a la empresa, (la peor manera de programar, porque cuando lo retomas, no te acuerdas de la mitad de las cosas,..) pero me falta tiempo de meterlo del teléfono al pc y chequear errores,... lo mas pesado.

espero publicar las mejoras hoy, aunque sea en el rato de la comida, jeje.

y gracias victrope.

PD por cierto, el codigo es correcto, creo que es una mejora importante,..



y adelanto algunas de las mejoras que quiero implementar: (en el resumen de Aleatorias2.txt)

Imagen

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: Peticion de un DADO 1X2 trucado.

Mensaje por juanknito »

Saludos,

ultima versión de la utilidad:
LINK EN SIGUIENTE POST

Portada de inicio:
Imagen
what is ammonia formula


la pantalla de datos introducidos, ahora permite Mín. / Máx. de X y 2. y Columna Base:
Imagen
what is ammonia formula


pantalla final, aceptamos la simulación y columnas aceptadas 99<- o generamos otra nueva <- :
Imagen
what is ammonia formula

la pantalla final con información de columnas Generadas, Aceptadas, filtros usados,.. etc:
Imagen
what is ammonia formula

quedan cosas pendientes, como poder actualizar los % de signos
ahora se adaptaron a 50% al 1 30% a la X y 20% al 2.

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: Peticion de un DADO 1X2 trucado.

Mensaje por juanknito »

Se adapta la opción de introducción de % al 1, X y 2

Imagen
what is ammonia formula

así queda el resumen:
Imagen
what is ammonia formula

el link de descarga V.1.3:
http://ge.tt/4W29fDr2


editado para actualizar link de descarga en Ge.TT
Última edición por juanknito el Sab 25 Ago, 2018 1:23 pm, editado 1 vez en total.

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