Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** Metodo e Script By BaffoBlù ***"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Tm,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos,i,Vet_Seq(6,3),N_coppia_1,N_coppia_2,Risp
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim n(10)
Dim am1(2)
Dim am2(2)
Dim am3(2)
Dim am4(2)
Dim am5(2)
Dim am6(2)
Dim am7(2)
Dim am8(2)
Dim am9(2)
Dim am10(2)
Dim am11(2)
Dim am12(2)
Dim am13(2)
Dim am14(2)
Dim am15(2)
Dim am16(2)
poste(2) = 1
r11 = 11
' ----------------------
' Sequenza 1 : N2.N2.N1
' Sequenza 2 : N1.N1.N2
' Sequenza 3 : N2.N1.N2
' Sequenza 4 : N1.N2.N1
' Sequenza 5 : N1.N2.N2
' Sequenza 6 : N2.N1.N1
' ----------------------
N_coppia_1 = InputBox("Inserire un numero compreso fra 1 e 27 oppure compreso fra 53 e 71 per scegliere la coppia somma 53 da ricercare")
If(N_coppia_1 > 0 And N_coppia_1 <= 27) Then
N_coppia_2 = Abs(53 - N_coppia_1)
Else
If (N_coppia_1 >= 53 And N_coppia_1 <= 71) Then
N_coppia_2 = Fuori90(143 - N_coppia_1)
Else
Risp = MsgBox("Inserimento errato, riparti",0,"Errore")
If Risp = 1 Then Exit Sub
End If
End If
Vet_Seq(1,1) = Int(N_coppia_2)
Vet_Seq(1,2) = Int(N_coppia_2)
Vet_Seq(1,3) = Int(N_coppia_1)
Vet_Seq(2,1) = Int(N_coppia_1)
Vet_Seq(2,2) = Int(N_coppia_1)
Vet_Seq(2,3) = Int(N_coppia_2)
Vet_Seq(3,1) = Int(N_coppia_2)
Vet_Seq(3,2) = Int(N_coppia_1)
Vet_Seq(3,3) = Int(N_coppia_2)
Vet_Seq(4,1) = Int(N_coppia_1)
Vet_Seq(4,2) = Int(N_coppia_2)
Vet_Seq(4,3) = Int(N_coppia_1)
Vet_Seq(5,1) = Int(N_coppia_1)
Vet_Seq(5,2) = Int(N_coppia_2)
Vet_Seq(5,3) = Int(N_coppia_2)
Vet_Seq(6,1) = Int(N_coppia_2)
Vet_Seq(6,2) = Int(N_coppia_1)
Vet_Seq(6,3) = Int(N_coppia_1)
Tm = 1
Clp = 12
Ini = Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
ok = 0
For i = 1 To 6
sp1 = Vet_Seq(i,1)
sp2 = Vet_Seq(i,2)
sp3 = Vet_Seq(i,3)
For pos = 1 To 5
If(Estratto(es,r1,pos) = sp1) Then
If(Estratto(es,r2,pos) = sp2) Then
If(Estratto(es,r3,pos) = sp3) Then
ok = 1
'-------------
If ok = 1 Then
' ------------------------------
' Tutti i 10 numeri interessati
' ------------------------------
n(1) = 53
n(2) = 20
n(3) = 35
n(4) = 40
n(5) = 49
n(6) = 51
n(7) = 74
n(8) = 80
n(9) = 87
n(10) = 88
'-------------------------------------------------------------------------------------------------------
' Nello script, la Decina è solo indicativa per chi volesse osservare gli esiti espansi, le ruote etc...
' ------------------------------------------------------------------------------------------------------
' 16 Ambi Secchi da mettere in gioco
' -----------------------------------
am1(1) = 53
am1(2) = 20
am2(1) = 53
am2(2) = 35
am3(1) = 53
am3(2) = 40
am4(1) = 53
am4(2) = 49
am5(1) = 53
am5(2) = 51
am6(1) = 53
am6(2) = 74
am7(1) = 53
am7(2) = 80
am8(1) = 53
am8(2) = 87
am9(1) = 53
am9(2) = 88
am10(1) = 40
am10(2) = 49
am11(1) = 35
am11(2) = 49
am12(1) = 40
am12(2) = 87
am13(1) = 49
am13(2) = 87
am14(1) = 51
am14(2) = 35
am15(1) = 20
am15(2) = 40
am16(1) = 74
am16(2) = 87
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r1) & " : " & sp1 & " / " & SiglaRuota(r2) & " : " & sp2 & " / " & SiglaRuota(r3) & " : " & sp3,1
Scrivi String(100,"°"),1
ImpostaGiocata 1,am1,ruote,poste,Clp,2,,1
ImpostaGiocata 2,am2,ruote,poste,Clp,2,,2
ImpostaGiocata 3,am3,ruote,poste,Clp,2,,3
ImpostaGiocata 4,am4,ruote,poste,Clp,2,,4
ImpostaGiocata 5,am5,ruote,poste,Clp,2,,5
ImpostaGiocata 6,am6,ruote,poste,Clp,2,,6
ImpostaGiocata 7,am7,ruote,poste,Clp,2,,7
ImpostaGiocata 8,am8,ruote,poste,Clp,2,,8
ImpostaGiocata 9,am9,ruote,poste,Clp,2,,9
ImpostaGiocata 10,am10,ruote,poste,Clp,2,,10
ImpostaGiocata 11,am11,ruote,poste,Clp,2,,11
ImpostaGiocata 12,am12,ruote,poste,Clp,2,,12
ImpostaGiocata 13,am13,ruote,poste,Clp,2,,13
ImpostaGiocata 14,am14,ruote,poste,Clp,2,,14
ImpostaGiocata 15,am15,ruote,poste,Clp,2,,15
ImpostaGiocata 16,am16,ruote,poste,Clp,2,,16
ImpostaGiocata 17,n,ruote,poste,Clp
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End Sub
