Novità

x rubino da claudio

R

Roby

Guest
prova a controllare e dimmi cosa devo mettere o modificare.

questa tabella con 90 fissi orizzontali , anche se si usasse un font più piccolo è quasi illeggibile .


Codice: 
Coestratti   ---- F  i  s  s  i   
Co 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 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 
01 00 | 00 | 00 | 01 | 00 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 00 | 01 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 01 | 00 | 01 | 01 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 
02 01 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 02 | 00 | 00 | 00 | 01 | 00 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 02 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 
03 00 | 00 | 00 | 00 | 01 | 01 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 00 | 01 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 01 | 00 | 02 | 01 | 01 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 
04 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 
05 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 02 | 00 | 00 | 00 | 00 | 02 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 02 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 02 | 00 | 00 | 00 | 00 | 00 | 
06 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 02 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 
07 00 | 00 | 00 | 00 | 01 | 01 | 00 | 01 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 01 | 00 | 00 | 00 | 00 | 01 | 00 | 01 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 02 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 01 | 01 | 02 | 00 | 00 | 00 | 00 | 01 | 01 | 01 | 01 | 00 | 00 | 01 | 00 | 01 | 00 | 00 | 
08 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 |
 
C

claudio8

Premium Member
Ti rimando lo script che ho modificato sulla base della tua impostazione eliminando i vari - if.. else ... end - perchè la formula "ix = Fuori90(90 -(Estratto(es,r1,1) - mt(i,2)))" comprende la gestione di un numero maggiore di mt(i,2).

Ho inserito i coestratti secondo quanto intendevo.

Adesso bisognerebbe solo capire se è possibile impostare la tabella nella modalità da me richiesta con l'estetica di quella attuale esistente in questo script perchè l'ultima propostami è brutta illeggibile e poco intuitiva.

Ti ringrazio ancora per l'aiuto.
Ciao
Ps: :D:DSan Gennaro ha fatto il miracolo 56 a NA :D:D

Grazie

Codice: 
Sub Main()
	Dim Coestr(90)
	Dim FissiA(90)
	Dim Fissi01(90)
	Dim Fissi02(90)
	Dim Fissi03(90)
	Dim Fissi04(90)
	Dim Fissi05(90)
	Dim Fissi06(90)
	Dim Fissi07(90)
	Dim Fissi08(90)
	Dim Fissi09(90)
	Dim Fissi10(90)
	Dim rut(10),rutt(10),ru(10),rru(10)
	Dim clp,tes,a,b,cs_el,ambata,casi
	Verif = 1 'CInt(InputBox("Quante volte vuoi verifiche gli esiti ?","Verifiche",1))
	casi = CInt(InputBox("Quanti casi vuoi ogni verifica ?","Casi di verifica",15))
	testo = 1	'InputBox("Vuoi elenco-output dei casi ? ( 1=Si   0=No )","Elenco Casi",1)
	tes = 0	'CInt(InputBox("Totale estr. da fine arch. a inizio spia caso ?" & Chr(13) & _
	'Chr(13) & "( considerare entrambe comprese per escludere il nuovo caso )","SOLO per ANALISI",1))			'<-----estrazioni da togliere
	'	'la riga sopra serve per staccare l'analisi dall'ultima estrazione in archivio, potremo così vedere
	'	'nelle estrazioni che decidiamo di mettere nell'inputbox (valore tes), quali numeri sono già sortiti...
	'	-------------------------------------------------------------------------------------------------
	r1 = CInt(InputBox("Ruota di sortita 1^ spia " & Chr(13) & Chr(13) & "( 1 Ba.   2 Ca.   3 Fi.     4 Ge. )" & Chr(13) & _
	"( 5 Mi.    6 Na.  7 Pa.    8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","1^ RUOTA - SPIA 1",1)) '						'<-----Ruota1
	p1 = CInt(InputBox("Posizione estratto ruota di   " & FormatSpace(NomeRuota(r1),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 1^ SPIA",2))'  '<-----Posiz1
	r2 = CInt(InputBox("Ruota di sortita 2^ spia " & Chr(13) & Chr(13) & "( 1 Ba.   2 Ca.   3 Fi.     4 Ge. )" & Chr(13) & _
	"( 5 Mi.    6 Na.  7 Pa.    8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","2^ RUOTA - SPIA 2",2))'						'<-----Ruota2
	p2 = CInt(InputBox("Posizione estratto ruota di   " & FormatSpace(NomeRuota(r2),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 2^ SPIA",3))'	'<-----Posiz1
	passo = CInt(InputBox("Distanza negativa tra estrazioni di rilevamento spie.","DISTANZA ESTRAZIONI ",1))
	clp = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))	 ' 10 <--COLPI 'provato = 10, ha dato max-pres 4 il 57-46-90 centrando l'ambo 38 46
	prec = 2 	'CInt(InputBox("Numero colpi precedenti la Spia x verifica presenza ambata ?.","Presenza di ambata",2))
	'
	For cs_el = 1 To verif 	' questo  "For"  serve per ripetere le verifiche del Metodo che si sta Costruendo
		ReDim mt(4005,4),n(2),n1(2),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3),nn3(2),mt4(90,3)
		ReDim mtt(4005,4)
		cs1 = casi + cs_el ' Casi richiesti + casi elencati
		ru(1) = r1 'CInt(InputBox("RUOTE DI RICERCA DEI + FREQ. ","1° RUOTA",r1))
		ru(2) = r2 'CInt(InputBox("RUOTE DI RICERCA DEI + FREQ. ","2° RUOTA",r2))
		rut(1) = r1 	'eval(CInt(InputBox(" RUOTA SINGOLA X FREQ. ","1° RUOTA",r1))) frequenti sulle ruote di esito
		rutt(1) = r2	'eval(CInt(InputBox(" RUOTA SINGOLA X FREQ. ","2° RUOTA",r2))) frequenti sulle ruote di esito
		rru(1) = 11 'freq a tutte
		'	 					'BLOCCO FOR x DETERMINARE L'INIZIO ESTRAZIONI SULLA BASE DEI CASI IMPOSTATI
		cc = 0						' imposto il contatore dei casi  cc = 0
		tme1 = 0						' totale-meno-estrazioni1 riferito alle estrazioni
		For es = EstrazioneFin - tes To 1 Step - 1 'legge le estrazioni dall'ultima - tes alla 1a , si ferma al n. casi richiesti e rileva il tme1
			a = Estratto(es,r1,p1) 			' definisco gli estratti da trovare
			b = Estratto(es - passo,r2,p2) 	' co
 
C

claudio8

Premium Member
x rubino:
:D:Dcome volevasi dimostrare, per Kulo, caso o miracolo :D:D:
Codice: 
CASO SPIA  28.05.2011  8383  BA  68.10.20.22.51 | 51 - 51 | NA  85.50.79.10.51 -> Ambata |  51 - 56 | - caso escluso dall'elaborazione della verifica - 10 casi - 7 colpi.
****************************************************************************************************************************************************************
Riepilogo fissi e presenze Posizionali 5 + 5 
 Fisso    Coest    Ambata    1° R1    2° R1    3° R1    4° R1    5° R1    1° R2    2° R2    3° R2    4° R2    5° R2   01    1  2  1     1     02  2             03   1   1  1  1  1    1  1  1  04   1  1   1  1  1   1    1  05   2  1  1  1   2    1   2  06   1   2   1  1   1   2  1  07     2   1     1    08  1  1  2   3  1  1   1    1  09    1   1    1  1     10  1  1  1  1   1  1   2  2  1  1  11  1  1   1   1  1  2     1  12     1  1       1   13      1         14  1  1      1  1   1   1  15    1    3     1  1   16  1        2  1     17  3    1      1   1   18   1   2  2   1     1  1  19   1   1   3  1   2   1  1  20   2   1  1   2    1   2  21  1        1   1    22  1   1  1  1  2    2  2  1   23  1   1      1      24   3  1  1  1  1  3   1  1  3  3  25  1    2  1    1   1    26   1      1  1     1  27   1     1  1  1  1    1  28  2  1  2  1    1  1  1    1  29      2    3    1   30  1    2   1   1  2     31   2    1   2     2  2  32   1  1    1  1     1  1  33  1   2   1     3   2   34     1  1  1   2  1  2    35  1   1      3  1  1  1   36  1    1   1     1    37   1   1  1   1  1  1   2  1  38  2  1    2  1  1  1  1    1  39   1  1    1  1  1   1   1  40  1  1  1     1  1  1    1  41    1   1  1      1   42    2  1  5    1      43     1  1  1    1  2  2   44  2  2  2     2  1  1    2  45  2  1     1  1      1  46   1     1  1   1   1  1  47  2   2      1    1   48   1      1   1  1  1  1  49    1  1          50       1    1  3    51     1     1  1     52      1     2     53  1  1      1  2     1  54    1   1    1   1    55   2     1  2    3  1  2  56      2         57  1  1  1    1  1   1    1  58  1    1  2    1  1     59  1  1   1    1  2    1  1  60         1    1   61    2   2  2   1  1  1  1   62  2  2  2  1  1   2   2  2   2  63   1  2   1  1  1  2     1  64   1     1  1   1  1   1  65    1      1      66    1  1       2  3   67   1     1  1   1   1  1  68  1   1   1  1        69   1   1  1   1  1  1  2   1  70  1   2  1  1  3   1      71  1   1  2   1   1  1  1  1   72  1   1  1   1   1  2     73    2  1   2     1  1   74  1  1    1   1     1  1  75  1      4   2    2   76  2  1  1  1    1    1  1  1  77  2  1  1  1  2  1  1    2   1  78  1  1   4    1  1   1  2  1  79   1      1   3    1  80   1  2    1  1  1   1  2  1  81    1   1  1    1  1  1   82  1  1  1  1    1  1   1   1  83   1   1    1    1  1  1  84  1  1  1   1  2  1    2  1  1  85  1     1    1    2   86  2  1  1  2  1  1  1   3  3   1  87  1  1   1    1  1  1  1   1  88  1  1    1  1  1  1  1   1  1  89  1   1  1          90    1  2  2    2   2  2

com l'ambata 51 - 56 BA NA potevano abbinarsi il 3°R1+42 = 62 ,2°R1+78 = 88 e 4°R1+75 = 7 ... ambo secco 56-62.... sarà per la prossima volta

Ps: Per chi legge : Non è sempre domenica, non facciamoci illusioni.
però... tentar non nuoce.
 
E

elephantbig

Advanced Member >PLATINUM<
Ciao Claudio
a noi interessa poco se "per Kulo,caso o miracolo":)
L'importante è andare alla cassa. VERO ? :D:D

Un saluto per il caro Fillotto,Keeper,Rubino,Angie e tutti gli altri.
:):):):)
 
R

Roby

Guest
vorrei sapere se nella tabella riepilogativa che ti ho postato con lo script i dati sono esatti, perchè mi pare di intravvedere che la tua disposizione invece ne calcola altri.

quindi oltre all'output che ritieni da modificare vorrei sapere cosa c'è dentro.

qui i dati sono giusti o è solo un esempio con delle colonne in più rispetto al precedente?</u>
out1m.jpg
[/URL]

Uploaded with ImageShack.us[/img]


dico questo perchè
in questa tua risposta,
mi pare che ci siano delle differenze

Codice: 
CASO SPIA  28.05.2011  8383  BA  68.10.20.22.51 | 51 - 51 | NA  85.50.79.10.51 -> Ambata |  51 - 56 | - caso escluso dall'elaborazione della verifica - 10 casi - 7 colpi.
****************************************************************************************************************************************************************
Riepilogo fissi e presenze Posizionali 5 + 5 
 Fisso    Coest    Ambata    1° R1    2° R1    3° R1    4° R1    5° R1    1° R2    2° R2    3° R2    4° R2    5° R2   01    1  2  1     1     02  2             03   1   1  1  1  1    1  1  1  04   1  1   1  1  1   1    1  05   2  1  1  1   2    1   2  06   1   2   1  1   1   2  1  07     2   1     1    08  1  1  2   3  1  1   1    1  09    1   1    1  1     10  1  1  1  1   1  1   2  2  1  1  11  1  1   1   1  1  2     1  12     1  1       1   13      1         14  1  1      1  1   1   1  15    1    3     1  1   16  1        2  1     17  3    1      1   1   18   1   2  2   1     1  1  19   1   1   3  1   2   1  1  20   2   1  1   2    1   2  21  1        1   1    22  1   1  1  1  2    2  2  1   23  1   1      1      24   3  1  1  1  1  3   1  1  3  3  25  1    2  1    1   1    26   1      1  1     1  27   1     1  1  1  1    1  28  2  1  2  1    1  1  1    1  29      2    3    1   30  1    2   1   1  2     31   2    1   2     2  2  32   1  1    1  1     1  1  33  1   2   1     3   2   34     1  1  1   2  1  2    35  1   1      3  1  1  1   36  1    1   1     1    37   1   1  1   1  1  1   2  1  38  2  1    2  1  1  1  1    1  39   1  1    1  1  1   1   1  40  1  1  1     1  1  1    1  41    1   1  1      1   42    2  1  5    1      43     1  1  1    1  2  2   44  2  2  2     2  1  1    2  45  2  1     1  1      1  46   1     1  1   1   1  1  47  2   2      1    1   48   1      1   1  1  1  1  49    1  1          50       1    1  3    51     1     1  1     52      1     2     53  1  1      1  2     1  54    1   1    1   1    55   2     1  2    3  1  2  56      2         57  1  1  1    1  1   1    1  58  1    1  2    1  1     59  1  1   1    1  2    1  1  60         1    1   61    2   2  2   1  1  1  1   62  2  2  2  1  1   2   2  2   2  63   1  2   1  1  1  2     1  64   1     1  1   1  1   1  65    1      1      66    1  1       2  3   67   1     1  1   1   1  1  68  1   1   1  1        69   1   1  1   1  1  1  2   1  70  1   2  1  1  3   1      71  1   1  2   1   1  1  1  1   72  1   1  1   1   1  2     73    2  1   2     1  1   74  1  1    1   1     1  1  75  1      4   2    2   76  2  1  1  1    1    1  1  1  77  2  1  1  1  2  1  1    2   1  78  1  1   4    1  1   1  2  1  79   1      1   3    1  80   1  2    1  1  1   1  2  1  81    1   1  1    1  1  1   82  1  1  1  1    1  1   1   1  83   1   1    1    1  1  1  84  1  1  1   1  2  1    2  1  1  85  1     1    1    2   86  2  1  1  2  1  1  1   3  3   1  87  1  1   1    1  1  1  1   1  88  1  1    1  1  1  1  1   1  1  89  1   1  1          90    1  2  2    2   2  2   



com l'ambata 51 - 56 BA NA potevano abbinarsi il 3°R1+42 = 62 ,2°R1+78 = 88 e 4°R1+75 = 7 ... ambo secco 56-62.... sarà per la prossima volta



ultimo domanda:
ma come ci arrivi a selezionare il 3°R1+42 * 2°R1+78 * 4°R1+75

sarò duro di comprendonio, ma non capisco cosa hanno queste posizioni meglio di altre.
a meno che, è perchè il mio output è sbagliato e tu ci arrivi tramite il
 
C

claudio8

Premium Member
Ho appena terminato di visionare lo script per ambata su coppia di estratti di cui 1 capogioco che mi avevi indicato ed ho trovato che
alla data di ieri, ultima estrazione esclusa, la formazione 56-62 su Na (capogioco 56) aveva un valore di n.Estrazioni t.di
Attesa = 0,602200000000003, valore positivo ed inferiore ad 1.
Ti chiedo quini se è una casualità o se può essere un indice da tenere in considerazione ?

Ho letto il tuo ultimo e mi accingo a verificare nella tabella riepilogativa se i dati sono esatti.

Ciao
 
C

claudio8

Premium Member
quote:Originally posted by rubino

vorrei sapere se nella tabella riepilogativa che ti ho postato con lo script i dati sono esatti - se ti riferisci a
questa che segue, non la considerare proprio perchè ha dei dati non ben visionabili(che non ho capito cosa siano e quindi neanche
controllato),
Codice: 
Coestratti   ---- F  i  s  s  i   
Co 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 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 
01 00 | 00 | 00 | 01 | 00 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 00 | 01 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 01 | 00 | 01 | 01 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 
02 01 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 02 | 00 | 00 | 00 | 01 | 00 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 02 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 
03 00 | 00 | 00 | 00 | 01 | 01 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 00 | 01 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 01 | 01 | 00 | 02 | 01 | 01 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 
04 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 
05 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 02 | 00 | 00 | 00 | 00 | 02 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 02 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 02 | 00 | 00 | 00 | 00 | 00 | 
....
....
....
89 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 
90 02 | 00 | 00 | 01 | 01 | 03 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 01 | 00 | 00 | 00 | 00 | 02 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 00 | 01 | 02 | 00 | 00 | 00 | 01 | 00 | 00 | 00 | 02 | 00 | 01 | 01 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 | 00 |
Clicca per espandere...
 
R

Roby

Guest
ciao claudio

ho cercato di girare in orizzontale la tabella, ma non sono riuscito, probabilmente bisognerebbe chiedere a luigi, se può impostare per i comandi relativi alla creazione delle tabelle

atitoli,avalori

la direzionalità

verticale - orizzontale.


comunque modificando per il momento lo script con semplice scrivi righe
sono riuscito ad ottenere questo output, che però se scorri sulla dx
vedi che mancano alcuni dati allineati sotto le relative 90 posizioni


nelle arrays ambata-coestr-fissi etc. non tutte le posizioni sono piene di valori, pertanto probabilmente quando si va a scrivere rimandano sulla sx.



Codice: 
Riepilogo fissi e presenze Posizionali 5 + 5 
 Fisso =   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  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65  66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90
 Coestr=   02  01  01  01  03  02  02  02  03    01  01  01  01  01      02  01  01  02  02  01    01  02  01  01  01  01  03        02  01  01  02  02      01  03  02    04  01  03  01  02  01  01  01      01  04    01  01  02    02  01  02    01  01    01  02  01  02  02      01  01  02  01  01  03          02  01  01  04
 Ambata=   02  01  01  01  02  01      03  03    04      01    02  01  01  04  02        01    01  01  03  02  01  02    01  01  01    01  02  01  02  01  02  01    02    02  02    02  01  01    01    02  01  03  01  02    02  02  01    02    01  03  02  03  04  02    01    02  01  02  01  01  01    01  01    03  01  
 1°e R1=   03  02  01    01  03  01    01  01  01  01    01    01  03  01  01  01  02  02  01  01    01  01  01  01    01  02    01    01  02  01  02  01  03  03    02      02    03  01  02  01  01  02  01  01  03  03        01  02  01  01  02  01  01      02  02    03  04    03  01  01    02  01      03  01  02  02  01  01
 2°e R1=     01  05  01  01    01    04  03  02  02    03  01    02  01  04  01    01    02  01  03  02  03  02  02    02      01    01  01  01  01  03  01    01  01  02  02  02  01    01  04    01    01  02    03  01  01  02      01  02  01    01  01      01  01  01  02  03  02  02        03  01  01    01      02
 3°e R1=   01  02    02  02  01  03  05    01  02    03  01  01  01    04    01    01    01  01  02  01  01  02  02    01      02        01  03    02    01  02    01  02    02  02  01      01  01  02  03  03  01  01    02  02    03  02    01  01  01  01  03  01  02    01  02    02  02  02  03    01    01  01  02  01
 4°e R1=   02    01  03  01        02    02  02    01  01  02  01    02    01  02  01  03  03  02  01  02  01  02    01    02  01  01  02      03  01  02  01  01  03  02  01    01  02  01  03  02  03  03        03    01  01  02    01  01    02  03  02  01  02  01    02  02  01  01    02  01  01  02    02  01      01  
 5°e R1=   04    04      01    02    01  01  02  02      02        01  01  01  01  01  01  04  01    04  01  01  01  01  01    04  03  01  02  02  01  01            01  01  02  03    01  01  01  02  05  02  02  02  01  02  01    01  01  02  02  01  01  01  01  01  01  01  02  01  01  02  01  01        02  01  02  01  02  01
 1°e R2=   02      01  01  03  01  01  01    01  02  01  02    01  01    01  01    01  03  01  03  02  02  01    02  03        02  01  01  01    01  03    02  02  03  02  02  01  05    01    01  02  04  01  01        01  01    01  03  03  02  02    01  02  01    02  01    02  01    02  01    02  01    01  02  02    02
 2°e R2=   01    01    01  01    03  01  01      01  01  01  01    01  01  01  01  01  02  01  01  03  01    03  01  04  01  02  01  02  02  02  02  03    02  01  01  02    01    02  03  01  02    02  01  02  01  02    02  02      01  01  02  01    01    03  01      02    05    01  03  01  01      01  02  02  02    02  02
 3°e R2=   01  03        02  01  01  02  01  01    01  02    02  03  01  01    01  03  01  01  01  01      01  01    01
 
C

claudio8

Premium Member
Grazie Rubino ma è quasi illegibile, senza allineamento non va bene,

aspettiamo Luigi, nel frattempo mi faccio delle verifiche paer capire quali possono essere i migliori fissi x gli abbin.

Non so se Hai visto l'ambata miracolo di BA Na 51-56, poteva essere abbinata al tuo probabile max 7 colpi dovrebbe dare esito di ambata

15 60 napoli x estratto
inoltre ho notato anche dal tuo script (vedi mio post sopra Posted - 01/06/2011 : 10:35:03) la cosa del 62, cosa ne pensi, semplice coincidenza.
Hai provato questo script con la previsione 5°BA e 5°NA ? che ne pensi?
 
C

claudio8

Premium Member
X Rubino

Ti inserisco l'ultima versione dello script con alcuni aggiornamenti sulle tabelle riepilogo che insieme al valore di presenza, scrive il
numero somma ( che se si riesce a fare la rotazione occorre elminare x problemi di spazio sul video) inoltre ho attivato l'inputbox "Vuoi in elenco-output i dettagli dei casi ?" per vedere o no i fissi nel dettaglio per
tutti i casi, ci sono delle parti remmate che a fine lavoro dovranno essere eliminate, i titoli li ho trasformati nei valori effettivi.
Per quanto riguarda la rotazione della tabella, ho provato a seguire l'esempio di Luigi, ma non ho ancora risolto. La if per evidenziare
i valori min deve rimanere inalterata.
Aspetto una tua, grazie .. ci risentiamo domani pomeriggio, ciao.

Codice: 
Sub Main()
	ReDim Coestr(90)
	ReDim FissiA(90)
	ReDim Fissi01(90)
	ReDim Fissi02(90)
	ReDim Fissi03(90)
	ReDim Fissi04(90)
	ReDim Fissi05(90)
	ReDim Fissi06(90)
	ReDim Fissi07(90)
	ReDim Fissi08(90)
	ReDim Fissi09(90)
	ReDim Fissi10(90)
	Dim rut(10),rutt(10),ru(10),rru(10)
	Dim clp,tes,a,b,cs_el,ambata,ambatanew,casi
	Verif = 1 'CInt(InputBox("Quante volte vuoi verifiche gli esiti ?","Verifiche",1))
	casi = CInt(InputBox("Quanti casi vuoi ogni verifica ?","Casi di verifica",15))
	testo = InputBox("Vuoi in elenco-output i dettagli dei casi ? ( 1=Si   0=No )","Elenco Casi",0)
	tes = 0	'CInt(InputBox("Totale estr. da fine arch. a inizio spia caso ?" & Chr(13) & _
	'Chr(13) & "( considerare entrambe comprese per escludere il nuovo caso )","SOLO per ANALISI",1))			'<-----estrazioni da togliere
	'	'la riga sopra serve per staccare l'analisi dall'ultima estrazione in archivio, potremo così vedere
	'	'nelle estrazioni che decidiamo di mettere nell'inputbox (valore tes), quali numeri sono già sortiti...
	'	-------------------------------------------------------------------------------------------------
	r1 = CInt(InputBox("Ruota di sortita 1^ spia " & Chr(13) & Chr(13) & "( 1 Ba.   2 Ca.   3 Fi.     4 Ge. )" & Chr(13) & _
	"( 5 Mi.    6 Na.  7 Pa.    8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","1^ RUOTA - SPIA 1",1)) '						'<-----Ruota1
	p1 = CInt(InputBox("Posizione estratto ruota di   " & FormatSpace(NomeRuota(r1),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 1^ SPIA",2))'  '<-----Posiz1
	r2 = CInt(InputBox("Ruota di sortita 2^ spia " & Chr(13) & Chr(13) & "( 1 Ba.   2 Ca.   3 Fi.     4 Ge. )" & Chr(13) & _
	"( 5 Mi.    6 Na.  7 Pa.    8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","2^ RUOTA - SPIA 2",2))'						'<-----Ruota2
	p2 = CInt(InputBox("Posizione estratto ruota di   " & FormatSpace(NomeRuota(r2),7,- 1) & Chr(13) & Chr(13) & "(1.2.3.4.5)","POSIZ. 2^ SPIA",3))'	'<-----Posiz1
	passo = CInt(InputBox("Distanza negativa tra estrazioni di rilevamento spie.","DISTANZA ESTRAZIONI ",1))
	clp = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",10))	 ' 10 <--COLPI 'provato = 10, ha dato max-pres 4 il 57-46-90 centrando l'ambo 38 46
	prec = 2 	'CInt(InputBox("Numero colpi precedenti la Spia x verifica presenza ambata ?.","Presenza di ambata",2))
	'
	For cs_el = 1 To verif 	' questo  "For"  serve per ripetere le verifiche del Metodo che si sta Costruendo
		ReDim mt(4005,4),n(2),n1(2),nn(2),mt1(90,3),mt2(4005,4),nn2(2),mt3(90,3),nn3(2),mt4(90,3)
		ReDim mtt(4005,4)
		cs1 = casi + cs_el ' Casi richiesti + casi elencati
		ru(1) = r1 'CInt(InputBox("RUOTE DI RICERCA DEI + FREQ. ","1° RUOTA",r1))
		ru(2) = r2 'CInt(InputBox("RUOTE DI RICERCA DEI + FREQ. ","2° RUOTA",r2))
		rut(1) = r1 	'eval(CInt(InputBox(" RUOTA SINGOLA X FREQ. ","1° RUOTA",r1))) frequenti sulle ruote di esito
		rutt(1) = r2	'eval(CInt(InputBox(" RUOTA SINGOLA X FREQ. ","2° RUOTA",r2))) frequenti sulle ruote di esito
		rru(1) = 11 'freq a tutte
		'	 					'BLOCCO FOR x DETERMINARE L'INIZIO ESTRAZIONI SULLA BASE DEI CASI IMPOSTATI
		cc = 0						' imposto il contatore dei casi  cc = 0
		tme1 = 0						' totale-meno-estrazioni1 riferito alle estrazioni
		For es = EstrazioneFin - tes To 1 Step - 1 'legge le estrazioni dall'ultima - tes
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 03 maggio 2024
    Bari
    38
    11
    08
    19
    81
    Cagliari
    69
    50
    27
    65
    06
    Firenze
    60
    05
    42
    75
    84
    Genova
    17
    29
    71
    48
    80
    Milano
    02
    33
    81
    85
    63
    Napoli
    12
    10
    29
    51
    84
    Palermo
    04
    21
    69
    79
    50
    Roma
    62
    72
    84
    30
    90
    Torino
    41
    33
    46
    03
    68
    Venezia
    03
    29
    10
    85
    33
    Nazionale
    72
    03
    82
    37
    58
    Estrazione Simbolotto
    Milano
    19
    22
    24
    08
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto