Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main()
Dim dati(10,5)
Dim dati2(10,5,10) '''estrattiUGUALIqta 2 estraz.consec.
Dim dati3(10,5,10) '''ambi qta
Dim rie(999)
es = InputBox("Quante estrazioni vuoi controllare ?",,100)
v = CInt(InputBox("Ambi Verifica in n.colpi",,2))
det = InputBox("Vuoi Lista ambi Usciti? S/N ",,"N")
es = CInt(es)
inizio = EstrazioneFin - es
oggi = EstrazioneFin - v
For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi String(90,Chr(11)):ColoreTesto(0) :Scrivi " Mod. GHIO-15 (Spaz.) e (L8) ",1
Scrivi "Condizione : Verifica Ambi n.colpi di gioco " & v,1
Scrivi "Condizione : Vuoi Lista degli Ambi Usciti? " & det,1
Scrivi: ColoreTesto(1)
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
For i = inizio To EstrazioneFin
AvanzamentoElab inizio,EstrazioneFin,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto(i,ru,p)
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
'''calcola uscite
dati(ru,p) = dati(ru,p) + 1
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
'''controlla se ambo uscito a colpo
ReDim an(2),ar(2),matriceestrritorno(10,5)
For rr = 1 To 10
For w = 1 To 5
matriceestrritorno(rr,w) = Estratto(i,rr,w)
Next
Next
''''
For b = 1 To 5
an(1) = es1
an(2) = Estratto(i + 1,ru2,b)
'''verifica esito
'''''
For z1 = 1 To v ''' ncolpi
'
For z2 = 1 To 10 '''' nruote
If z2 = ru Or z2 = ru2 Then
'
ca = 0:cz = 0
For z3 = 1 To 5 ''' estratti
If Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(1)) Or Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(2)) Then
ca = ca + 1
End If
Next
If ca = 2 Then
ColoreTesto(0)
dati3(ru,p,ru2) = dati3(ru,p,ru2) + 1
cg = cg + 1
cz = 1
If det = "S" Then Scrivi "-ESITO---> " & i & " e " & i + 1 & " pos." & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " nr. " & Format2(an(1)) & "." & Format2(an(2)) & " " & i + 1 + z1 & " Colpo n." & z1 & " " & an(1) & "." & an(2),1
ColoreTesto(0)
End If
End If
Next
Next
'''''riepiloga previsioni in corso
If i >= oggi And an(1) <> an(2) Then
ar(1) = ru
ar(2) = ru2
Call StatisticaFormazioneTurbo(an,ar,2,retrit,retritmax,,,3950,EstrazioneFin)
qq = qq + 1
rie(qq) = i & " / " & i + 1 & " Ruote " & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " Nr." & es1 & "-" & es2 & " In gioco per n.colpi.." &(i + 1 + v) - EstrazioneFin & " Ambo..." & an(1) & " " & FormatSpace(an(2),5) & " Ritn.colpi " & EstrazioneFin -(i + 1)
End If
Next
'''''
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5 "
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
Scrivi
ColoreTesto(0)
Scrivi Space(20) & "E S T R A T T I " & Space(20) & " A M B I ",1
For ru = 1 To 10
ColoreTesto(0)
Scrivi Space(13) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "NR-2E NR-1E NR-UE",1
ColoreTesto(1)
For p = 1 To 5
Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,4) + _
FormatSpace(dati2(ru,p,1),5) + _
FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
FormatSpace(dati2(ru,p,10),4) + "|" + FormatSpace(p,1) + FormatSpace("|",3) + _
FormatSpace(dati3(ru,p,1),5) + _
FormatSpace(dati3(ru,p,2),5) + FormatSpace(dati3(ru,p,3),5) + _
FormatSpace(dati3(ru,p,4),5) + FormatSpace(dati3(ru,p,5),5) + _
FormatSpace(dati3(ru,p,6),5) + FormatSpace(dati3(ru,p,7),5) + _
FormatSpace(dati3(ru,p,8),5) + FormatSpace(dati3(ru,p,9),5) + _
FormatSpace(dati3(ru,p,10),4) + "|" + FormatSpace(p,1) + + FormatSpace("|",3) + _
Format2(Estratto(EstrazioneFin - 2,ru,p)) + " " + Format2(Estratto(EstrazioneFin - 1,ru,p)) + " " + Format2(Estratto(EstrazioneFin,ru,p))
Next
Scrivi String(161,"-")
Next
ColoreTesto(0)
Scrivi " Totale Ambi usciti in " & V & " colpi di gioco sulle 2 ruote di elaborazione..." & cg,1
''''riepilogo previsioni in corso
Scrivi
Scrivi "E l e n c o A m b i R i l e v a t i Non ancora Usciti nelle Ultime 2 Estrazione In Archivio ",1
For n = 1 To qq
key2 = Mid(rie(n),20,11)
If key1 <> key2 Then
Scrivi "----------"
key1 = key2
End If
Scrivi rie(n)
Next
Scrivi " Totale Ambi in Elenco x " & V & " colpi di gioco sulle 2 ruote di elaborazione..." & qq,1
End Sub
Tabella 1
La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva.
Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle
estrazioni successive.
Tabella 1 Resoconto Complessivo
E1 E2 E3 E4 E5
49 54 77 57 60
50 58 47 56 46
51 57 58 54 59
40 73 63 46 64
47 54 59 59 47
52 60 58 58 52
56 44 51 45 52
58 45 57 51 50
54 50 63 48 51
60 64 61 56 45
Tabella 2
Questa tabella indica, in maniera dettagliata, quante volte l'estratto
in una determinata posizione, si ripete in ogni ruota. Esempio:
(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a
Bari, 0 volte a Cagliari e 1 volta a Firenze.
Tabella 2 Resoconto Dettagliato
Ba Ca Fi Ge Mi Na Pa Ro To Ve
Ba Pos 1 7 3 4 7 5 4 3 6 4 6
Ba Pos 2 4 5 8 10 4 3 5 5 4 6
Ba Pos 3 12 9 7 9 4 8 5 9 6 8
Ba Pos 4 6 5 1 8 6 5 3 6 10 7
Ba Pos 5 6 7 8 4 4 2 6 9 7 7
-
Ba Ca Fi Ge Mi Na Pa Ro To Ve
Ca Pos 1 3 7 8 7 3 3 1 5 6 7
Ca Pos 2 4 11 4 8 4 7 6 3 5 6
Ca Pos 3 8 4 4 3 2 6 5 5 6 4
Ca Pos 4 5 9 3 5 3 11 2 5 5 8
Ca Pos 5 4 6 3 3 6 5 6 3 3 7
-
Ba Ca Fi Ge Mi Na Pa Ro To Ve
Fi Pos 1 7 9 5 2 2 7 8 4 3 4
Fi Pos 2 4 9 5 11 3 3 3 5 5 9
Fi Pos 3 6 3 7 5 4 6 5 5 4 13
Fi Pos 4 3 6 4 5 7 8 3 4 3 11
Fi Pos 5 5 8 4 6 7 3 7 7 3 9
-
Ba Ca Fi Ge Mi Na Pa Ro To Ve
Ge Pos 1 2 3 2 3 3 6 6 5 5 5
Ge Pos 2 7 5 8 8 5 9 7 9 10 5
Ge Pos 3 4 9 5 9 5 6 7 8 3 7
Ge Pos 4 7 3 3 5 2 6 5 4 4 7
Ge Pos 5 6 9 7 7 6 4 3 5 8 9
-
Ba Ca Fi Ge Mi Na Pa Ro To Ve
Mi Pos 1 8 5 5 6 2 5 2 5 6 3
Mi Pos 2 4 5 8 4 8 3 3 3 4 12
Mi Pos 3 8 6 5 2 4 4 7 7 9 7
Mi Pos 4 7 4 3 9 9 7 6 6 5 3
Mi Pos 5 6 6 4 5 3 6 3 4 6 4
-
Ba Ca Fi Ge Mi Na Pa Ro To Ve
Na Pos 1 4 7 6 4 6 7 9 4 1 4
Na Pos 2 5 8 7 5 5 4 5 9 7 5
Na Pos 3 5 3 7 11 5 6 8 4 6 3
Na Pos 4 4 5 5 7 8 7 5 5 5 7
Na Pos 5 7 2 5 4 4 6 7 3 5 9
-
Ba Ca Fi Ge Mi Na Pa Ro To Ve
Pa Pos 1 5 6 5 7 3 8 8 4 5 5
Pa Pos 2 3 3 4 3 8 5 6 2 8 2
Pa Pos 3 3 3 5 8 6 7 3 2 5 9
Pa Pos 4 3 4 3 6 4 6 3 4 7 5
Pa Pos 5 3 8 4 4 6 8 6 6 4 3
-
Ba Ca Fi Ge Mi Na Pa Ro To Ve
Ro Pos 1 8 9 3 4 6 6 2 7 8 5
Ro Pos 2 4 4 4 6 3 4 7 4 5 4
Ro Pos 3 3 6 4 7 6 3 8 5 8 7
Ro Pos 4 4 5 8 7 3 4 3 3 5 9
Ro Pos 5 8 3 4 5 5 2 5 8 4 6
-
Ba Ca Fi Ge Mi Na Pa Ro To Ve
To Pos 1 2 6 4 7 7 5 4 7 6 6
To Pos 2 4 3 4 8 8 4 4 5 6 4
To Pos 3 6 6 4 3 7 9 8 8 7 5
To Pos 4 5 4 8 3 5 8 7 4 2 2
To Pos 5 5 5 7 6 5 4 6 5 4 4
-
Ba Ca Fi Ge Mi Na Pa Ro To Ve
Ve Pos 1 9 5 3 4 11 6 4 3 9 6
Ve Pos 2 5 4 8 6 6 6 8 7 6 8
Ve Pos 3 7 4 7 8 6 7 5 6 4 7
Ve Pos 4 5 2 6 11 5 2 8 6 6 5
Ve Pos 5 4 4 5 2 2 2 9 3 9 5
Sub Main()
Dim dati(10,5)
Dim dati2(10,5,10) '''estrattiUGUALIqta 2 estraz.consec.
Dim dati3(10,5,10) '''ambi qta
Dim rie(2999),very(2999,5)
es = InputBox("Quante estrazioni vuoi controllare ?",,100)
v = CInt(InputBox("Ambi Verifica in n.colpi",,2))
det = InputBox("Vuoi Lista ambi Usciti? S/N ",,"N")
es = CInt(es)
inizio = EstrazioneFin - es
oggi = EstrazioneFin - v
For ru = 1 To 10
For p = 1 To 5
For ru2 = 1 To 10
dati2(ru,p,ru2) = 0
Next
Next
Next
ColoreTesto 2
Scrivi String(90,Chr(11)):ColoreTesto(0) :Scrivi " Mod. GHIO-16 (Spaz.) e (L8) ",1
Scrivi "Condizione : Verifica Ambi n.colpi di gioco " & v,1
Scrivi "Condizione : Vuoi Lista degli Ambi Usciti? " & det,1
Scrivi: ColoreTesto(1)
Scrivi "Tabella 1"
Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
Scrivi "estrazioni successive."
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
For i = inizio To EstrazioneFin
AvanzamentoElab inizio,EstrazioneFin,i
Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
If i = EstrazioneFin Then Exit For
For ru = 1 To 10
For p = 1 To 5
es1 = Estratto(i,ru,p)
For ru2 = 1 To 10
For p2 = 1 To 5
es2 = Estratto(i + 1,ru2,p2)
If es1 = es2 Then
'''calcola uscite
dati(ru,p) = dati(ru,p) + 1
dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
'''controlla se ambo uscito a colpo
ReDim an(2),ar(2),matriceestrritorno(10,5)
For rr = 1 To 10
For w = 1 To 5
matriceestrritorno(rr,w) = Estratto(i,rr,w)
Next
Next
''''
For b = 1 To 5
an(1) = es1
an(2) = Estratto(i + 1,ru2,b)
'''verifica esito
'''''
For z1 = 1 To v ''' ncolpi
'
For z2 = 1 To 10 '''' nruote
If z2 = ru Or z2 = ru2 Then
'
ca = 0:cz = 0
For z3 = 1 To 5 ''' estratti
If Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(1)) Or Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(2)) Then
ca = ca + 1
End If
Next
If ca = 2 Then
ColoreTesto(0)
dati3(ru,p,ru2) = dati3(ru,p,ru2) + 1
cg = cg + 1
cz = 1
If det = "S" Then Scrivi "-ESITO---> " & i & " e " & i + 1 & " pos." & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " nr. " & Format2(an(1)) & "." & Format2(an(2)) & " " & i + 1 + z1 & " Colpo n." & z1 & " " & an(1) & "." & an(2),1
ColoreTesto(0)
End If
End If
Next
Next
'''''riepiloga previsioni in corso
If i >= oggi And an(1) <> an(2) Then
ar(1) = ru
ar(2) = ru2
Call StatisticaFormazioneTurbo(an,ar,2,retrit,retritmax,,,3950,EstrazioneFin)
qq = qq + 1
rie(qq) = i & " / " & i + 1 & " Ruote " & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " Nr." & es1 & "-" & es2 & " In gioco per n.colpi.." &(i + 1 + v) - EstrazioneFin & " Ambo..." & an(1) & " " & FormatSpace(an(2),5) & " Ritn.colpi " & EstrazioneFin -(i + 1)
very(qq,1) = i + 1
very(qq,2) = ru
very(qq,3) = ru2
very(qq,4) = an(1)
very(qq,5) = an(2)
End If
Next
'''''
End If
Next
Next
Next
Next
Next
ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
Scrivi
Scrivi " E1 E2 E3 E4 E5 "
ColoreTesto 2
ScriviMatrice dati,,4
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi "Tabella 2"
Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
ColoreTesto 2
Scrivi String(90,Chr(11)): ColoreTesto 1
Scrivi
Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
Scrivi
ColoreTesto(0)
Scrivi Space(20) & "E S T R A T T I " & Space(20) & " A M B I ",1
For ru = 1 To 10
ColoreTesto(0)
Scrivi Space(13) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
Space(3) & "To" & Space(3) & "Ve" & Space(2) & "|-|" & Space(2) & "NR-2E NR-1E NR-UE",1
ColoreTesto(1)
For p = 1 To 5
Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,4) + _
FormatSpace(dati2(ru,p,1),5) + _
FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
FormatSpace(dati2(ru,p,10),4) + "|" + FormatSpace(p,1) + FormatSpace("|",3) + _
FormatSpace(dati3(ru,p,1),5) + _
FormatSpace(dati3(ru,p,2),5) + FormatSpace(dati3(ru,p,3),5) + _
FormatSpace(dati3(ru,p,4),5) + FormatSpace(dati3(ru,p,5),5) + _
FormatSpace(dati3(ru,p,6),5) + FormatSpace(dati3(ru,p,7),5) + _
FormatSpace(dati3(ru,p,8),5) + FormatSpace(dati3(ru,p,9),5) + _
FormatSpace(dati3(ru,p,10),4) + "|" + FormatSpace(p,1) + + FormatSpace("|",3) + _
Format2(Estratto(EstrazioneFin - 2,ru,p)) + " " + Format2(Estratto(EstrazioneFin - 1,ru,p)) + " " + Format2(Estratto(EstrazioneFin,ru,p))
Next
Scrivi String(161,"-")
Next
ColoreTesto(0)
Scrivi " Totale Ambi usciti in " & V & " colpi di gioco sulle 2 ruote di elaborazione..." & cg,1
''''riepilogo previsioni in corso
Scrivi
Scrivi "E l e n c o A m b i R i l e v a t i Non ancora Usciti nelle Ultime 2 Estrazione In Archivio ",1
For n = 1 To qq
key2 = Mid(rie(n),20,11)
If key1 <> key2 Then
Scrivi "----------"
key1 = key2
End If
'''prepara campi per verifica esito
ReDim ruote(2),num(2)
id = very(n,1)
ruote(1) = very(n,2)
ruote(2) = very(n,3)
num(1) = very(n,4)
num(2) = very(n,5)
Call VerificaEsitoTurbo(num,ruote,id + 1,2,,,,,retestratti,retidestr)
If retestratti = "" Then
Scrivi rie(n)
Else
ColoreTesto(0)
Scrivi rie(n)
ColoreTesto(2)
Scrivi "---- esito positivo ---- " & retidestr & " colpo n. " & retidestr - id & " " & retestratti,1
csuc = csuc + 1
ColoreTesto(0)
End If
Next
ColoreTesto(1)
Scrivi: Scrivi " Totale Ambi in Elenco x " & V & " colpi di gioco sulle 2 ruote di elaborazione..." & qq,1
Scrivi " Totali Ambi con esito positivo negli ultimi " & V & " colpi di gioco " & csuc,1
End Sub
OPPURE DA UNA BASE DI NUMERI VERGINI RIMASTI SEMPRE DALL ESTRAZIONE PRECEDENTE,SE IO AVESSI GIOCATO I 38 NUMERI DELL ESTRAZIONE DEL 11//7/2019 SULL 13/7/2019 EFETTIVAMENTE AVREI FATTO UN TERNOSE A BARI FOSSERO 7 ESTRAZIONE CHE GIOCANDO GLI ESTRATTI DELL ESTRAZIONE PRECEDENTE NON AVESSERO ANCORADATO ESITODI AMBO SAPREI CHE 7 SU UNA BASE DI 220 ESTRZIONI SAREBBE IL LIMITE MASSIMO DI RITARDOQUI ANDREI QUASI SICURAMENTE A FARE AMBO CERTO A COLPO O PIU ADESSO