'Ciao a tutti, con questo solo esempio molto chiaro si può andare a beccare l'ambata 90 e spesso anche l'ambo.
'Esempio del 15/12/2018
'09.10.2018 Ca 14.06.53.13.44 ----> 14 + 53 + 44 = 21
'09.10.2018 Ba 19.34.01.35.26 ----> 34 + 35 = 69
'69+21= 90 ambata
'Quindi lo script dovrà solo cercare la condizione dove il 1°/3°/5° di una ruota
'e il 2°/4° dell'altra ruota diano come somma il 90 .
'(Le ruote possono anche essere lette al contrario , devono essere consecutive.
'La previsione sarà In questo caso BA-CA ambata 90 x ambo e terno i numeri che l'hanno generata : 14-53-44-34-35
'Al 2 colpo di gioco sorti ambata 90 e ambo secco 90-34 su BARI.
Option Explicit
Sub Main
Dim FIn,Ini,Es,Clp1,Clp2,Salvo50
Dim R1,R2,Caso,Casi,C,D
Dim P1,P2,P3,P4,E1,E2
Dim Ruo(2),Posta(1),Ambata(1),Poste(4)
Dim Sest(6),A(5),B(5)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambate? ",,3)
Clp2 = InputBox("Per quanti colpi vuoi giocare la Sestina? ",,8)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(1) & " Postato da Matematico - Somma 90 - Script Salvo50",1,,4,,3,,1
Posta(1) = 1
Poste(2) = 1
'Poste(3) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
R2 = R1 + 1
If R2 = 11 Then R2 = 12
For P1 = 1 To 5
A(P1) = Estratto(Es,R1,P1)
B(P1) = Estratto(Es,R2,P1)
Next
C = Fuori90(A(1) + B(2) + A(3) + B(4) + A(5))
If C = 90 Then
Ambata(1) = C
Sest(1) = 90 : Sest(2) = A(1) : Sest(3) = A(3)
Sest(4) = A(5) : Sest(5) = B(2) : Sest(6) = B(4)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(96,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(87,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A(1) Or E1 = A(3) Or E1 = A(5) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = B(2) Or E2 = B(4) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
ImpostaGiocata 1,Ambata,Ruo,Posta,Clp1
ImpostaGiocata 2,Sest,Ruo,Poste,Clp2
Gioca Es,1
End If
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 10
R2 = R1 + 1
If R2 = 11 Then R2 = 12
For P1 = 1 To 5
A(P1) = Estratto(Es,R1,P1)
B(P1) = Estratto(Es,R2,P1)
Next
C = Fuori90(B(1) + A(2) + B(3) + A(4) + B(5))
If C = 90 Then
Ambata(1) = C
Sest(1) = 90 : Sest(2) = A(2) : Sest(3) = A(4)
Sest(4) = B(1) : Sest(5) = B(3) : Sest(6) = B(5)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(96,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(87,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A(2) Or E1 = A(4) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P4 = 1 To 5
E2 = Estratto(Es,R2,P4)
If E2 = B(1) Or E2 = B(3) Or E2 = B(5) Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
ImpostaGiocata 1,Ambata,Ruo,Posta,Clp1
ImpostaGiocata 2,Sest,Ruo,Poste,Clp2
Gioca Es,1
End If
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
