Novità

A volte basta uno script facile per tutti.

Missione Impossibile.

Advanced Member >PLATINUM<
Sub Main()
Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,2)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,77))
'ee = InputBox("Estrazioni da controllare",,200)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 8950'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If DecinaNaturale(x) = DecinaNaturale (y) And DecinaNaturale(x) = DecinaNaturale(sp) Then
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y

nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
Scrivi "Sviluppo solo coppie in decina spia " & sp,1,,,2,3
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End Sub
 

genios

Advanced Member >PLATINUM<
grazie Missione Impossibile ma questo lo avevo trovato ho frainteso io l' uso dello script : pensavo ad esempio che usando la spia 29 a BA si potesse scegliere chesso' le ambate piu probabili della decina 71 -80 .

Comunque grazie
Eugenio
 

KEN

Member
Tanto per chiarire Mission quindi il 9 e 70 non è una previsione attendibile ?
Ia spia 53 a Milano me lo dava come numero più frequente.
 

Codicebinario

Advanced Member >PLATINUM<
Divertiti e pensa alle ferie...
(y)🍻
Mi associo a TOON,divertiti e non pensare al lotto...Messaggio per TOON
Molto tempo fa',su altro sito,frequentato sia da me che da te, Jai Jai (che saluto esprimendo la mia totale stima) pubblico un metodo passato agli annali "Super Big Bang Entropia numerica".Correva l'anno 2019 credo ,forse prima.Jai Jai spiegò che quel metodo doveva essere aggiornato ogni qual volta la somma della sestina scelta con il metodo NON doveva superare il valore 389 (in media 2/3 anni).Ci fu' un tuo intervento dove dicevi di aver aggiornato quel valore...ora la domanda è:

In seguito lo hai piu' aggiornato?Se si,mi posti quel valore? (Stavo provando a metterci mano con altro calcolo oggetto di studio e solo poche ruote ,max 4) ma se non hò l'aggiornamento dell'originale vuol dire partire con un dubbio,e questo è fuorviante e foriero di dubbi di procedure.....Grazie per il tempo dedicatomi.....e per Batters...Grazie fratello di tutto! divertiti e ......(non lo dico che poi il solito mi accusa di essere scurrile e senza rispetto per le donne...)
 

toon

Advanced Member
Io ho questi:

' Formattazione Testo
tst = " ********** "
tst1 = "L'AMBATA ENTROPICA"
spc1 =(90 - Len(tst + tst1 + tst))/2
tst2 = "... la Decina 80 presenta il conto su Bari ..."
spc2 =(90 - Len(tst + tst2 + tst))/2
tst3 = "... coppia Freq.10 in 144 estrazioni (6 cicli da 24 estrazioni) ..."
spc3 =(90 - Len(tst + tst3 + tst))/2

Scrivi Space(spc1) & tst & tst1 & tst & Chr(10),1
Scrivi Space(spc2) & tst & tst2 & tst & Chr(10),1
Scrivi Space(spc3) & tst & tst3 & tst & Chr(10),1

ColoreTesto 2 : Scrivi Space((90 - Len("by Jai.Jai"))) & "by Jai.Jai" & Chr(10),1
ColoreTesto 1 : Scrivi String(48,"*") & "listato by Jai.Jai" & Chr(10),1
ColoreTesto 0
'-----------------------------------------------------------------------------------------------------------

Sub Main()
Dim ruote(2),v(9),rr(1),nu(1),numeri1(5),numeri2(5),posta(3),poste(3),vv(2),ruogioc(1),prog(5,9)
posta(1) = 1
'posta(2)=1

k = 9
y = 2
prog(1,1) = 1
prog(1,2) = 1
prog(1,3) = 2
prog(1,4) = 4
prog(1,5) = 8
prog(1,6) = 16
prog(1,7) = 31.5
prog(1,8) = 62
prog(1,9) = 122

fin = EstrazioneFin
ini = fin - 500 '<--------estrazioni da controllare 500
For es = ini To fin
Messaggio "elab. estr. [" &(es) & _
"] di " & DataEstrazione(es,1)

numeri2(1) = 0
numeri1(1) = 0
numeri1(1) = 0
ciclg = 9 '<--------colpi da giocare 9
cicl = 144 '<--------estrazioni retroattive per controllo frequenza numeri 144
nfreq = 10 '<-------- Freq. che devono avere la coppia dei numeri da controllare
r1 = 1 '<-------- RUOTA DI RICAVO PREVISIONE E CONTROLLO STATISTICO 1=Bari
ini1 = es
fin1 = ini1 - cicl
rr(1) = r1
ruogioc(1) = 1 ' <-------- RUOTA DI GIOCO 1=Bari
'ruogioc(2)2
AvanzamentoElab ini,fin,es
'Scrivi
'Scrivi DataEstrazione(es)&" "& NomeRuota(r1)
'Freq 80
nu(1) = 80
frab1r1 = SerieFreq(fin1,ini1,nu,rr,1)
v(0) = frab1r1
'Scrivi "Freq. numero " & Format2 (nu(1)) &" dal " & DataEstrazione(fin1) & " al " & DataEstrazione(ini1) & " " & frab1r1 & " " & NomeRuota(r1)
'Freq 81
nu(1) = 81
frab1r1 = SerieFreq(fin1,ini1,nu,rr,1)
v(1) = frab1r1
'Scrivi "Freq. numero " & Format2 (nu(1)) &" dal " & DataEstrazione(fin1) & " al " & DataEstrazione(ini1) & " " & frab1r1 & " " & NomeRuota(r1)
'Freq 82
nu(1) = 82
frab1r1 = SerieFreq(fin1,ini1,nu,rr,1)
v(2) = frab1r1
'Scrivi "Freq. numero " & Format2 (nu(1)) &" dal " & DataEstrazione(fin1) & " al " & DataEstrazione(ini1) & " " & frab1r1 & " " & NomeRuota(r1)
'Freq 83
nu(1) = 83
frab1r1 = SerieFreq(fin1,ini1,nu,rr,1)
v(3) = frab1r1
'Scrivi "Freq. numero " & Format2 (nu(1)) &" dal " & DataEstrazione(fin1) & " al " & DataEstrazione(ini1) & " " & frab1r1 & " " & NomeRuota(r1)
'Freq 84
nu(1) = 84
frab1r1 = SerieFreq(fin1,ini1,nu,rr,1)
v(4) = frab1r1
'Scrivi "Freq. numero " & Format2 (nu(1)) &" dal " & DataEstrazione(fin1) & " al " & DataEstrazione(ini1) & " " & frab1r1 & " " & NomeRuota(r1)
'Freq 85
nu(1) = 85
frab1r1 = SerieFreq(fin1,ini1,nu,rr,1)
v(5) = frab1r1
'Scrivi "Freq. numero " & Format2 (nu(1)) &" dal " & DataEstrazione(fin1) & " al " & DataEstrazione(ini1) & " " & frab1r1 & " " & NomeRuota(r1)
'Freq 86
nu(1) = 86
frab1r1 = SerieFreq(fin1,ini1,nu,rr,1)
v(6) = frab1r1
'Scrivi "Freq. numero " & Format2 (nu(1)) &" dal " & DataEstrazione(fin1) & " al " & DataEstrazione(ini1) & " " & frab1r1 & " " & NomeRuota(r1)
'Freq 87
nu(1) = 87
frab1r1 = SerieFreq(fin1,ini1,nu,rr,1)
v(7) = frab1r1
'Scrivi "Freq. numero " & Format2 (nu(1)) &" dal " & DataEstrazione(fin1) & " al " & DataEstrazione(ini1) & " " & frab1r1 & " " & NomeRuota(r1)
'Freq 88
nu(1) = 88
frab1r1 = SerieFreq(fin1,ini1,nu,rr,1)
v(8) = frab1r1
'Scrivi "Freq. numero " & Format2 (nu(1)) &" dal " & DataEstrazione(fin1) & " al " & DataEstrazione(ini1) & " " & frab1r1 & " " & NomeRuota(r1)
'Freq 89
nu(1) = 89
frab1r1 = SerieFreq(fin1,ini1,nu,rr,1)
v(9) = frab1r1
'Scrivi "Freq. numero " & Format2 (nu(1)) &" dal " & DataEstrazione(fin1) & " al " & DataEstrazione(ini1) & " " & frab1r1 & " " & NomeRuota(r1)
ccc = 0
For i = 0 To 9
If v(i) = nfreq Then
ccc = ccc + 1
End If
Next
If ccc = 2 Then
xx = 0
For i = 0 To 9
If v(i) = nfreq Then
jst = CStr("8" + CStr(i))
vv(xx) = Eval(jst)
xx = xx + 1
End If
Next
numeri1(1) = vv(0)
numeri1(2) = vv(1)
'numeri1(3)=Vert (vv(0))
'numeri1(4)=Vert (vv(1))
ImpostaGiocata 1,numeri1,ruogioc,posta,ciclg,1
ImpostaProgressione 1,prog

Gioca es
numeri2(1) = 0
numeri1(1) = 0
numeri1(1) = 0
End If
Next
ScriviResoconto
End Sub
Sub Main()
Dim n1,r1,r2,p1,p2,c

' Formattazione Testo
tst = " ********** "
tst1 = "SUPER BIGBENG"
spc1 =(90 - Len(tst + tst1 + tst))/2
tst2 = "L'Apocalisse del Lotto!!!!"
spc2 =(90 - Len(tst + tst2 + tst))/2
Scrivi Space(spc1) & tst & tst1 & tst & Chr(10),1
Scrivi Space(spc2) & tst & tst2 & tst & Chr(10),1
ColoreTesto 2 : Scrivi Space((90 - Len("by Jai.Jai"))/2) & "by by Jai.Jai" & Chr(10),1
ColoreTesto 1 : Scrivi String(48,"*") & "listato by Jai.Jai" & Chr(10),1
ColoreTesto 0

nn1 = CInt(InputBox("Estrazione di partenza","Super Big Beng by Jai.Jai",1))

esfin = EstrazioneFin
For n1 = nn1 To esfin
AvanzamentoElab nnn1,EstrazioneFin,n1

c = 1

r1 = 1
r2 = 2
p1 = 3
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 5
p1 = 3
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 8
p1 = 3
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 6
r2 = 9
p1 = 3
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 6
r2 = 10
p1 = 3
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1


r1 = 2
r2 = 8
p1 = 4
p2 = 4
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 9
p1 = 4
p2 = 4
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 2
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 3
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 4
r2 = 5
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 6
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 8
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 9
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 10
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 3
r2 = 5
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 6
r2 = 10
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 1
p1 = 2
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 2
p1 = 2
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 7
r2 = 7
p1 = 4
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 4
r2 = 4
p1 = 1
p2 = 4
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 2
p1 = 1
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 7
r2 = 7
p1 = 1
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 4
r2 = 4
p1 = 2
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 2
p1 = 3
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 4
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 7
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 6
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 10
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 3
r2 = 10
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 4
r2 = 10
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 2
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 3
r2 = 4
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 10
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 7
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1


r1 = 2
r2 = 8
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 9
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

Gioca n1
ResettaGiocate

Next

ScriviResoconto

End Sub

Function Previsione(n,ruota1,ruota2,posiz1,posiz2,cc)
Dim ruote(1)
Dim poste(3)
Dim a1(6)
Dim prog(5,100)

prog(2,1) = 1
prog(2,2) = 3
prog(2,3) = 8
prog(2,4) = 21
prog(2,5) = 63
prog(2,6) = 189
prog(2,7) = 567
prog(2,8) = 1701
prog(2,9) = 5103

'prog(3,1)=7
'prog(3,2)=7.50
'prog(3,3)=8
'prog(3,4)=8.50
'prog(3,5)=9
'prog(3,6)=9.50
'prog(3,7)=10
'prog(3,8)=11
'prog(3,9)=11.50


ruote(1) = 11
poste(2) = 1
'poste(3)=0

a1(1) = Estratto(n,ruota1,posiz1)
a1(2) = Estratto(n,ruota2,posiz2)
a1(3) = Abs(a1(1) - a1(2))
a1(4) = Fuori90(a1(1)*a1(2))
a1(5) = Fuori90(a1(3) + a1(4))
a1(6) = Vert(a1(5))
st = a1(1) + a1(2) + a1(3) + a1(4) + a1(5) + a1(6)
If NumeriRipetuti(a1) = 0 Then
If st > 389 Then
If cc < 2 Then
Scrivi "***************************************************************************"
End If
ColoreTesto 2
Scrivi CStr(cc) & ". " & "Ruote ricavo: " & CStr(NomeRuota(ruota1)) & "-" & CStr(NomeRuota(ruota2)) & " Posizione Estratti " & CStr(posiz1) & "°/" & CStr(posiz2) & "°"
ColoreTesto 0

ImpostaGiocata cc,a1,ruote,poste,9,2
ImpostaProgressione cc,prog
cc = cc + 1
End If
End If
Previsione = cc
End Function

Sub Main()
Dim n1,r1,r2,p1,p2,c

' Formattazione Testo
tst = " ********** "
tst1 = "BIGBENG"
spc1 =(90 - Len(tst + tst1 + tst))/2
tst2 = "L'Epifania del gioco!!!!"
spc2 =(90 - Len(tst + tst2 + tst))/2
Scrivi Space(spc1) & tst & tst1 & tst & Chr(10),1
Scrivi Space(spc2) & tst & tst2 & tst & Chr(10),1
ColoreTesto 2 : Scrivi Space((90 - Len("by Clod"))/2) & "ClodDx 227" & Chr(10),1
ColoreTesto 1 : Scrivi String(48,"*") & "listato by Jai.Jai and Clod" & Chr(10),1
ColoreTesto 0

nn1 = CInt(InputBox("Estrazione di partenza","Big Beng by Clod",9600))

esfin = EstrazioneFin
For n1 = nn1 To esfin
AvanzamentoElab nnn1,EstrazioneFin,n1

c = 1

r1 = 1
r2 = 2
p1 = 3
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 5
p1 = 3
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 8
p1 = 3
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 6
r2 = 9
p1 = 3
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 6
r2 = 10
p1 = 3
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1


r1 = 2
r2 = 8
p1 = 4
p2 = 4
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 9
p1 = 4
p2 = 4
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 2
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 3
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 4
r2 = 5
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 6
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 8
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 9
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 10
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 3
r2 = 5
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 6
r2 = 10
p1 = 5
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 1
p1 = 2
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 2
p1 = 2
p2 = 3
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 7
r2 = 7
p1 = 4
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 4
r2 = 4
p1 = 1
p2 = 4
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 2
p1 = 1
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 7
r2 = 7
p1 = 1
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 4
r2 = 4
p1 = 2
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 2
p1 = 3
p2 = 5
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 4
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 7
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 6
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 10
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 3
r2 = 10
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 4
r2 = 10
p1 = 1
p2 = 1
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 2
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 3
r2 = 4
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 1
r2 = 10
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 7
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1


r1 = 2
r2 = 8
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

r1 = 2
r2 = 9
p1 = 2
p2 = 2
prev1 = Previsione(n1,r1,r2,p1,p2,c)
c = prev1

Gioca n1
ResettaGiocate

Next

ScriviResoconto

End Sub

Function Previsione(n,ruota1,ruota2,posiz1,posiz2,cc)
Dim ruote(1)
Dim poste(3)
Dim a1(6)
Dim prog(5,100)

prog(2,1) = 1
prog(2,2) = 3
prog(2,3) = 8
prog(2,4) = 21
prog(2,5) = 63
prog(2,6) = 189
prog(2,7) = 567
prog(2,8) = 1701
prog(2,9) = 5103

'prog(3,1)=7
'prog(3,2)=7.50
'prog(3,3)=8
'prog(3,4)=8.50
'prog(3,5)=9
'prog(3,6)=9.50
'prog(3,7)=10
'prog(3,8)=11
'prog(3,9)=11.50


ruote(1) = 11
poste(2) = 1
'poste(3)=0

a1(1) = Estratto(n,ruota1,posiz1)
a1(2) = Estratto(n,ruota2,posiz2)
a1(3) = Abs(a1(1) - a1(2))
a1(4) = Fuori90(a1(1)*a1(2))
a1(5) = Fuori90(a1(3) + a1(4))
a1(6) = Vert(a1(5))
st = a1(1) + a1(2) + a1(3) + a1(4) + a1(5) + a1(6)
If NumeriRipetuti(a1) = 0 Then
If st > 227 Then
If cc < 2 Then
Scrivi "***************************************************************************"
End If
ColoreTesto 2
Scrivi CStr(cc) & ". " & "Ruote ricavo: " & CStr(NomeRuota(ruota1)) & "-" & CStr(NomeRuota(ruota2)) & " Posizione Estratti " & CStr(posiz1) & "°/" & CStr(posiz2) & "°"
ColoreTesto 0

ImpostaGiocata cc,a1,ruote,poste,5,2
ImpostaProgressione cc,prog
cc = cc + 1
End If
End If
Previsione = cc
End Function
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 11 aprile 2024
    Bari
    56
    79
    36
    08
    40
    Cagliari
    83
    65
    43
    82
    04
    Firenze
    19
    90
    88
    25
    08
    Genova
    86
    54
    18
    33
    80
    Milano
    09
    06
    33
    30
    05
    Napoli
    90
    21
    23
    55
    62
    Palermo
    63
    01
    49
    55
    16
    Roma
    37
    12
    38
    30
    63
    Torino
    80
    53
    40
    19
    76
    Venezia
    40
    89
    25
    47
    80
    Nazionale
    78
    15
    53
    37
    25
    Estrazione Simbolotto
    Genova
    35
    36
    06
    34
    44

Ultimi Messaggi

Alto