Novità

Rrichiesta, script, figure, 5 estratti. Grazie!

irepi

Junior Member
Chiedo cortesemente se e possibile 1 script che trasformi i 5 estratti in figure su 1 e piu ruote, oppure uno script su 2 ruote sempre che trasformi gli estratti in figure e li unisca.
Esempio bari estratti 51 21 68 46 81 figure 6 3 5 1 9
cagliari estratti 47 84 6 51 1 figure 2 3 6 6 1
unire 62 33 56 16 1 (? e' giusto mettere 1 oppure in questo caso unito sarebbe 91, quale devo considerare?)
 

irepi

Junior Member
Nessuno che mi possa aiutare?? ho cercato su Lottoced ma non ho trovato, io purtroppo non sono capace, so solo fare piccole variazioni.
 

Joe91

Advanced Member >PLATINUM PLUS<
Ciao,

normalmente quelli ... oltre il 90 passano per "Fuori" ... ho adottato, l' "Uno", come dal tuo esempio.

E' una bozza ... ma dovrebbe fare quanto avevi richiesto.

Codice:
'Per Irepi By Joe
Sub Main
	Ini = EstrazioneFin : Fin = EstrazioneFin
	For Es = Ini To Fin
	Scrivi DataEstrazione (Es),1
		For Ra = 1 To 9
			For Rb = Ra + 1 To 10
				Scrivi SiglaRuota(Ra) & "-" & SiglaRuota(Rb) & " ",1,0
				For P = 1 To 5
					Fa = Figura(Estratto(Es,Ra,P)) : Fb = Figura(Estratto(Es,Rb,P)) : Nn = Fa & Fb
					Scrivi Format2(Fuori90(Nn)) & " ",0,0
				Next : Scrivi 	
			Next
		Next
		
	Next	
End Sub

:) Buona serata a tutte/i.
 

irepi

Junior Member
Grazie Joe91, sei stato gentilissimo, se non chiedo troppo e' possibile fare la variazione per avere le previsioni e la statistica?:mad:
 

Joe91

Advanced Member >PLATINUM PLUS<
Ciao,

prova così:

Codice:
'Due Figure = Un Numero.  Per Irepi By Joe V.1.0 del 10/04/2014.
Sub Main
	Dim Nu(5),Ru(2),Rt(1),Po(5),Pt(5),Co : Rt(1) = 11: Co = 13
	Po(2) = 0.6 : Po(3) = 0.2 : Po(4) = 0.1 : Po(5) = 0.1
	Pt(3) = 0.8 : Pt(4) = 0.1 : Pt(5) = 0.1
	Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
	IM = 13 : IM = CInt(InputBox("Es:" & IM & "° Estrazione","ESTRAZIONE (Mensile) CALCOLO  PRONOSTICO",IM))
	For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
		If IndiceMensile(Es) = IM Then
			Scrivi DataEstrazione(Es),1
			J = 0 ' Azzera contatore giocate
			For Ra = 1 To 9 : Ru(1) = Ra
				For Rb = Ra + 1 To 10 : Ru(2) = Rb
					For P = 1 To 5
						Fa = Figura(Estratto(Es,Ra,P)) : Fb = Figura(Estratto(Es,Rb,P)) : Nn = Fa & Fb
						Nu(P) = Fuori90(Nn)
					Next
					J = J + 1 : ImpostaGiocata J,Nu,Ru,Po,Co,2
					'J = J + 1 : ImpostaGiocata J,Nu,Rt,Pt,Co,3 'Tutte
				Next
			Next
			Gioca Es,True
			Scrivi String(110,"="),1
		End If
	Next
	ScriviResoconto
End Sub

:) Buona Giornata.
 

irepi

Junior Member
:)Grazie!!! Gli esiti sembrano buoni, ma i numeri sono troppi e.........i soldi sono pochi per poterli giocare tutti. Ancora grazie per la tua disponibilita', buona giornata anche a te.
 

irepi

Junior Member
Buonasera Joe91, scusami se approfitto della tua pazienza, chiedo un'altra cortesia...anzie due, e' possibile modifice lo script con input box per la scelta delle ruote per la somma delle figure e quella di gioco?
Sempre se e' possibile, altrimenti ti ringrazio lo stesso per tutto quello che fai.
Ho provato ma purtroppo nn sono capace anche se seguo le tue lezioni, ma non abbastanza visto i risultati......forse un giorno riusciro anch io.
Grazie!
 
Ultima modifica:

Joe91

Advanced Member >PLATINUM PLUS<
Ciao & Buona Serata a tutte/i.

Dovrebbe essee qualcosa di simile:

Codice:
'Due Figure = Un Numero.  Per Irepi By Joe V.2.0 del 14/04/2014.
Sub Main
	Dim Nu(5),Ru(1),Rt(1),Po(5),Pt(5),Co : Rt(1) = 11: Co = 13
	Po(2) = 0.6 : Po(3) = 0.2 : Po(4) = 0.1 : Po(5) = 0.1
	Pt(3) = 0.8 : Pt(4) = 0.1 : Pt(5) = 0.1
	Ra  = InputBox ("Es: 1 = Bari","Prima Ruota",1) 
	Rb  = InputBox ("Es: 2 = Cagliari","Seconda Ruota",2)
	Ru(1) = InputBox ("Es: 12 = Nazionale","Ruota di Gioco",12)
	Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
	IM = 13 : IM = CInt(InputBox("Es:" & IM & "° Estrazione","ESTRAZIONE (Mensile) CALCOLO  PRONOSTICO",IM))
	For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
		If IndiceMensile(Es) = IM Then
			Scrivi DataEstrazione(Es),1
			J = 0 ' Azzera contatore giocate
					For P = 1 To 5
						Fa = Figura(Estratto(Es,Ra,P)) : Fb = Figura(Estratto(Es,Rb,P)) : Nn = Fa & Fb
						Nu(P) = Fuori90(Nn)
					Next
					J = J + 1 : ImpostaGiocata J,Nu,Ru,Po,Co,2
					'J = J + 1 : ImpostaGiocata J,Nu,Rt,Pt,Co,3 'Tutte			
			Gioca Es,True
			Scrivi String(110,"="),1
		End If
	Next
	ScriviResoconto
End Sub

:)
 
Ultima modifica:

irepi

Junior Member
Grazie Joe91!!!!!!!!! Sempre disponibile con tutti! Grazie Grazie Grazie Grazieeeeeeeeeee!!!!!!!!!!!!
 

Joe91

Advanced Member >PLATINUM PLUS<
Ciao.

Ho corretto un piccolo errore nel box per la seconda ruota.

Mentre mi permetto di evidenziare che inserendo 11

come ruota di gioco, otiiene la ricerca "a tutte".


Buona giornata.

:)
 

irepi

Junior Member
Grazie Joe91. Volevo correggerlo ma nn sapevo come fare.
Ho provato a fare una variazione (o un pasticcio???). Volevo impostare le figure in diagonale es. BA 27 CA 54 diventano 24 e 57 vorrei inserire anche i vertibili ma nn so come fare. Allego lo script con la variazione
Buona giornata:)

HTML:
'Due Figure = Un Numero.  Per Irepi By Joe V.2.0 del 14/04/2014.
Sub Main
	Dim Nu(5),Nu1(5),Ru(1),Rt(1),Po(5),Pt(5),Co : Rt(1) = 11: Co = 13
	Po(2) = 0.6 : Po(3) = 0.2 : Po(4) = 0.1 : Po(5) = 0.1
	Pt(3) = 0.8 : Pt(4) = 0.1 : Pt(5) = 0.1
	Ra  = InputBox ("Es: 1 = Bari","Prima Ruota",1) 
	Rb  = InputBox ("Es: 2 = Cagliari","Seconda Ruota",2)
	Ru(1) = InputBox ("Es: 12 = Nazionale","Ruota di Gioco",12)
	Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
	IM = 13 : IM = CInt(InputBox("Es:" & IM & "° Estrazione","ESTRAZIONE (Mensile) CALCOLO  PRONOSTICO",IM))
	For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
		If IndiceMensile(Es) = IM Then
			Scrivi DataEstrazione(Es),1
			J = 0 ' Azzera contatore giocate
					For P = 1 To 5
						Fa = Figura(Estratto(Es,Ra,P)) : Fb = Figura(Estratto(Es,Rb,P)) : Nn = Fa & Fb
						Nu(P) = Fuori90(Nn)
						Fa = Figura(Estratto(Es,Ra,P)) : ab = Figura(Estratto(Es,Rb,P)) : Nn = Ff & ab  '<<<variazione
						Nu1(P) = Fuori90(Nn)

					Next
					J = J + 1 : ImpostaGiocata J,Nu,Ru,Po,Co,2
					J = J + 1 : ImpostaGiocata J,Nu1,Ru,Po,Co,2

					'J = J + 1 : ImpostaGiocata J,Nu,Rt,Pt,Co,3 'Tutte			
			Gioca Es,True
			Scrivi String(110,"="),1
		End If
	Next
	ScriviResoconto
End Sub
 

Joe91

Advanced Member >PLATINUM PLUS<
Ciao.

Per la seconda richiesta non c'è problema. Ma non so a quale scritpt si riferisce.

Mentre, per quella al messaggio #11, penso che la parte "unitaria" dell' Estratto, a cui accenni,

lottologicamente (e in script), dovrebbe essere la Cadenza.

Ma, dividendo ogni estratto nella sua Cadenza e nella sua Figura per poi unire le cifre ... di fatto, li "raddoppi".

Quindi i 5 numeri, diventano 10 e lo script "deve" essere reimpostato.

Prima, però, dovresti stabilire quale script e come considerare tutto ciò.

In pratica .... non ho capito "cosa" mi hai chiesto.

:)
 

irepi

Junior Member
Ciao Jole91, Volevo correggerlo ma nn sapevo come fare e' riferito a quanto da te scritto nel msg 10:
Ho corretto un piccolo errore nel box per la seconda ruota.
Ho provato a fare una variazione (o un pasticcio???). Volevo impostare le figure in diagonale es. BA 27 CA 54 diventano 24 e 57 vorrei inserire anche i vertibili ma nn so come fare.... e' riferito alla variazione fatta da me all'ultimo script cioe' questa:
Fa = Figura(Estratto(Es,Ra,P)) : ab = Figura(Estratto(Es,Rb,P)) : Nn = Ff & ab '<<<variazione nello script inserita da me
Nu1(P) = Fuori90(Nn)
Scusami ma, nn sono esperta......ne' lottologicamente.... ne' con gli script....cosa significa: " la parte "unitaria" dell' Estratto"?
Grazie. Buona serata
 
Ultima modifica:

Alien.

Advanced Premium Member
ottimo ,si potrebbe inserire quando sviluppa il metodo anche le ruote immesse la ruota DI GIOCO E L'ESTRAZIONE 1°,2° 13° ECC... GRAZIE.Con un po di pazienza rende bene....
 

Joe91

Advanced Member >PLATINUM PLUS<
Penso di aver capito "la parte unitaria" e riferito a unita' = cadenza.
Buona giornata
:)

Ciao Irepi ...

Si, esatto.

Se si dimentica per un attimo la lottologia, pertanto ... le ruote, i numeri sono: 27 e 54

2 decine e 7 unità il primo.

5 decine e 4 unità il secondo.

2 / 7 / 5 / 4 ... sono essi stessi "4 numeri". Meglio sarebbe dire "Cifre".

Fossero "Figure & Cadenze" (Lottologiche) anzicchè "Decine & Unita" (Matematiche) ...

sarebbero "diversi" nella sostanza, ma ... sempre "4 Cifre" nella quantità.

Componendole a coppie si ricavano 6 numeri giocabili ... in qualche modo.

Sono: 27 / 25 / 24 / 75 / 74 / 54.

In lottologia ... 6 Numeri per Estratto ... sono ormai, una lunghetta per le sorti superiori.

Moltiplicabili per 2,3, ... o più ruote (adiacenti, gemelle, diametrali, complementari ... ).

Se fossero una sestina "per Ambo", sarebbero praticamente ingiocabili "a Tutte".

Come pure 6 numeri per Estratto, a Ruota, sono perdenti, anche se estratti,

senza una progressione costosissima, già dopo il primo colpo di gioco.

E' certo che continuando a "moltiplicarli", ad esempio aggiungendo i Vertibili, o testandoli in più ruote,

i risultati che si otterranno "aumentano", secondo statistica.

E' matematicamente certo che quando saranno 90 numeri , si indovineranno SEMPRE

5 ESTRATTI, 10 AMBI .... 10 TERNI ... 5 QUATERNE ... UNA CINQUINA .... tutti i colpi, in ogni ruota.

Contestualmente, però, aumenta la spesa necessaria per sostenere la giocata.

In sintesi "il metodo" rende ... come tutti i metodi di questo tipo ... "Rende".

E' sempre possibile trovare risultati, tra le innumerevoli proposte di esso.

Ma questo, è a scapito della spesa che non è mai, praticamente, sostenibile.

"Grande" da un lato. Che dissipa tutto l'utile, nei risultati sicuramente perdenti, dall'altro.

Secondo le regole del gioco e di come ... troppo poco ... vengono pagate le vincite.

Quindi, questi metodi (non me ne vogliano) sono quelli tipici dei ciarlatani ... si aggiunge ... e si dimostra che ...

Sono fumo negli occhi, calcoli, spesso "difficili" da capire, fare, gestire ... risultati, di tanto in tanto.

Rendiconti sempre perdenti, se considerati, con il minimo di tempo perchè ciò accada.

"Guadagni", per loro, che li vendono, o spacciano, in qualche modo ... per vincenti.

Ai tapini malcapitati, rimane "il costo" per il medodo, "l'onere" del calcolo e/o per avere "i numeri" ...

... "la spesa, in ricevitoria" ... e l'avere, l'amara sorpresa.

Quando sarà, purtroppo tardi, e l'esito del gioco, una realtà ormai incontrovertibile dal nome: "Rimetterci".

Terminata la doverosa (ed a me, per primo) assai sgradita premessa ...

Si, ti posso aiutare ed è giusto ... provarci.

Bisogna sempre verificare se qualcosa, di interessante lo si può ricavare ... nonostante tutto.

Ma se mi consenti, quello che è difficile ... veramente difficile, (se non impossibile)

è trovare pochi numeri ... in poche ruote ... che in pochi colpi diano qualche risultato.

:) ... Con le scuse per il ritardo nella risposta.
 

Joe91

Advanced Member >PLATINUM PLUS<
Propongo dunque un abbattimento ... drastico.

Se è vero che 2 per 1 è uguale a 1 per 2 ... cioè 2, in matematica,

in Lottologia, se si prendono "2 Estrazioni" in una ruota ... alla fine, si ha una sola ruota.

Cosicchè in 2 Estrazioni ed in una Ruota, abbiamo 10 Estratti da cui si ricavano 10 Figure e 10 Cadenze.

Proporrei di provare a ricavare "il poronostico" quando, in due estrazioni,

si ricavano (in scompenso) una sola Figura ed una sola Cadenza, da comporre in un Unico Estratto, a Ruota,

secondo questa tavola:

Codice:
01 F1 + C1 => 11
02 F2 + C2 => 22
03 F3 + C3 => 33
04 F4 + C4 => 44
05 F5 + C5 => 55
06 F6 + C6 => 66
07 F7 + C7 => 77
08 F8 + C8 => 88
09 F9 + C9 => 09
10 F1 + C0 => 10
11 F2 + C1 => 21
12 F3 + C2 => 32
13 F4 + C3 => 43
14 F5 + C4 => 54
15 F6 + C5 => 65
16 F7 + C6 => 76
17 F8 + C7 => 87
18 F9 + C8 => 08
19 F1 + C9 => 19
20 F2 + C0 => 20
21 F3 + C1 => 31
22 F4 + C2 => 42
23 F5 + C3 => 53
24 F6 + C4 => 64
25 F7 + C5 => 75
26 F8 + C6 => 86
27 F9 + C7 => 07
28 F1 + C8 => 18
29 F2 + C9 => 29
30 F3 + C0 => 30
31 F4 + C1 => 41
32 F5 + C2 => 52
33 F6 + C3 => 63
34 F7 + C4 => 74
35 F8 + C5 => 85
36 F9 + C6 => 06
37 F1 + C7 => 17
38 F2 + C8 => 28
39 F3 + C9 => 39
40 F4 + C0 => 40
41 F5 + C1 => 51
42 F6 + C2 => 62
43 F7 + C3 => 73
44 F8 + C4 => 84
45 F9 + C5 => 05
46 F1 + C6 => 16
47 F2 + C7 => 27
48 F3 + C8 => 38
49 F4 + C9 => 49
50 F5 + C0 => 50
51 F6 + C1 => 61
52 F7 + C2 => 72
53 F8 + C3 => 83
54 F9 + C4 => 04
55 F1 + C5 => 15
56 F2 + C6 => 26
57 F3 + C7 => 37
58 F4 + C8 => 48
59 F5 + C9 => 59
60 F6 + C0 => 60
61 F7 + C1 => 71
62 F8 + C2 => 82
63 F9 + C3 => 03
64 F1 + C4 => 14
65 F2 + C5 => 25
66 F3 + C6 => 36
67 F4 + C7 => 47
68 F5 + C8 => 58
69 F6 + C9 => 69
70 F7 + C0 => 70
71 F8 + C1 => 81
72 F9 + C2 => 02
73 F1 + C3 => 13
74 F2 + C4 => 24
75 F3 + C5 => 35
76 F4 + C6 => 46
77 F5 + C7 => 57
78 F6 + C8 => 68
79 F7 + C9 => 79
80 F8 + C0 => 80
81 F9 + C1 => 01
82 F1 + C2 => 12
83 F2 + C3 => 23
84 F3 + C4 => 34
85 F4 + C5 => 45
86 F5 + C6 => 56
87 F6 + C7 => 67
88 F7 + C8 => 78
89 F8 + C9 => 89
90 F9 + C0 => 90

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 maggio 2024
    Bari
    71
    67
    47
    25
    88
    Cagliari
    24
    54
    06
    42
    02
    Firenze
    12
    33
    75
    30
    68
    Genova
    51
    70
    74
    37
    73
    Milano
    50
    81
    15
    25
    71
    Napoli
    58
    54
    43
    63
    52
    Palermo
    50
    80
    31
    04
    67
    Roma
    26
    57
    85
    89
    05
    Torino
    18
    07
    82
    14
    78
    Venezia
    54
    49
    86
    34
    28
    Nazionale
    51
    07
    24
    90
    75
    Estrazione Simbolotto
    Milano
    43
    23
    31
    10
    01

Ultimi Messaggi

Alto