si eccolo
Sub main()
Dim Ruote(2),RTT(1),Ambate(2),Frm1(3),Frm2(3),FrmT(4),Posta(1),Poste(2),PosteT(3)
Posta(1)=1 : Poste(2)=1 : PosteT(2)=1 : PosteT(3)=1
Ini = InputBox("Inizio Ricerca",,8790)
Colpi = InputBox("Colpi di Verifica",,12)
Fine = EstrazioneFin
For es = Ini To Fine
'IMPOSTO LA RICERCA DAL 1° AL 4° ESTRATTO (I 5° ESTRATTI SONO GLI ABBINAMENTI)
For R1 = 1 To 10
For P1 = 1 To 4
a = Estratto(es,R1,P1)
For R2 = R1+1 To 12 :If R2 = 11 Then R2 = 12
For P2 = 1 To 4
b = Estratto(es,R2,P2)
If (a = 87 And b = 83) Or (a = 83 And b = 87) Then
Abb1 = Estratto(es,R1,5)
Abb2 = Estratto(es,R2,5)
Ruote(1) = R1 : Ruote(2) = R2 : RTT(1)= 11
k=k+1:scrivi String(80,"=")&" Caso n°"& Format2(k),1
Scrivi DataEstrazione(es)&" "& SiglaRuota(R1)&" "& StringaEstratti(es,R1)&" Spia "& a &" ["& P1 &"°Pos]"
Scrivi DataEstrazione(es)&" "& SiglaRuota(R2)&" "& StringaEstratti(es,R2)&" Spia "& b &" ["& P2 &"°Pos]"
Ambate(1) = a
Ambate(2) = b
ImpostaGiocata 1,Ambate,Ruote,Posta,Colpi
Frm1(1) = a
Frm1(2) = b
Frm1(3) = Abb1
ImpostaGiocata 2,Frm1,Ruote,Poste,Colpi,0
Frm2(1) = a
Frm2(2) = b
Frm2(3) = Abb2
ImpostaGiocata 3,Frm2,Ruote,Poste,Colpi,0
FrmT(1) = a
FrmT(2) = b
FrmT(3) = Abb1
FrmT(4) = Abb2
ImpostaGiocata 4,FrmT,RTT,PosteT,Colpi,0
Gioca es
End If
Next
Next
Next
Next
Next
Scrivi + VbCrlf : ScriviResoconto
End Sub
ultima previsione scaturita
30.04.2015 Fi 24.11.87.51.79 Spia 87 [3°Pos]
30.04.2015 Pa 81.38.83.02.51 Spia 83 [3°Pos]
gio 30.04.2015 [8996]
G 1: M 87.83 Fi Pa 2/12
M 83 su Fi 1° colpo [8997/02.05.2015]
in corso (2° su 12)
G 2: A 87.83.79 Fi Pa 2/12
in corso (2° su 12)
G 3: A 87.83.51 Fi Pa 2/12
in corso (2° su 12)
G 4: AT 87.83.79.51 Tu 2/12
in corso (2° su 12)
buona giornata