'https://youtu.be/CkN63zK_2EU?list=PLrsFYPMN_mgEQjUUxv7WSekctksayWeFm
Sub Main()
Scrivi " Metodo Semplice di Salvo Badessa",1
Scrivi
Dim ruota1(10),ruote(10),ambata(2),ambo1(2),ambo2(2),ambo3(2),quartina(5),cinquina(5),ruota(10),h,y,posta(10),poste(2),postee(4),poste1(4)
: poste(2) = 1: postee(2) = 1 : postee(3) = 1 : postee(4) = 0.50
poste1(2) = 1 : poste1(3) = 1
EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","",10)
k = CInt(InputBox("QUANTI COLPI ?","",9))
'ini = EstrazioneFin - EstrazioniLotto
fin = EstrazioneFin
ini = fin - estrazionilotto
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n5 = Fuori90(n1 + n2)
For r2= 1 To 12
If r2 = 11 Then r2 = 12
For p3 = 1 To 5
n3 = Estratto(es,r2,p3)
If n5 = 90 And n3 =Abs(n1-n2) And (p3 =p1 Or p3 =p2) Then
n4 = Diametrale(n3)'88+45 43
n6 = Diametrale(n3)'88
If p3 =p1 Then n7 = Estratto(es,r2,p2)
If p3 =p2 Then n7 = Estratto(es,r2,p1)
n8 =Abs(n3-n7)
amb=n4
abb1=n3
abb2=n8
casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo < " & Format2(n1) & "." & Format2(n2) & " > somma < " & Format2(n5)
If p3 =p1 Then Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(n3) &"."& Format2(n7)
If p3 =p2 Then Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(n7) &"."& Format2(n3)
ruota(1) = r1 :
ruota(2) = r2 :ruote(2) = 11
ruota1(1) = r1 :
ruota1(2) = r2 :ruota1(3) = 11
'----------------------------------------
Erase posta
posta(1) = 1
posta(p1+5) = 1
posta(p2+5) = 1
ambata(1) = amb
ImpostaGiocata 1,ambata,ruota,posta,k
ambo1(1) = amb
ambo1(2) = abb1
ImpostaGiocata 2,ambo1,ruota,poste,k
ambo1(1) = amb
ambo1(2) = Fuori90(abb1+1)
ImpostaGiocata 3,ambo1,ruota,poste,k
ambo1(1) = amb
ambo1(2) = Fuori90(90+abb1-1)
ImpostaGiocata 4,ambo1,ruota,poste,k
ambo1(1) = Fuori90(amb+1)
ambo1(2) = abb1
ImpostaGiocata 5,ambo1,ruota,poste,k
ambo1(1) = Fuori90(90+amb-1)
ambo1(2) = abb1
ImpostaGiocata 6,ambo1,ruota,poste,k
ambo1(1) = amb
ambo1(2) = abb2
ImpostaGiocata 7,ambo1,ruota,poste,k
ambo1(1) = amb
ambo1(2) = Fuori90(abb2+1)
ImpostaGiocata 8,ambo1,ruota,poste,k
ambo1(1) = amb
ambo1(2) = Fuori90(90+abb2-1)
ImpostaGiocata 9,ambo1,ruota,poste,k
ambo1(1) = Fuori90(amb+1)
ambo1(2) = abb2
ImpostaGiocata 10,ambo1,ruota,poste,k
ambo1(1) = Fuori90(90+amb-1)
ambo1(2) = abb2
ImpostaGiocata 11,ambo1,ruota,poste,k
quartina(1) = amb
quartina(2) = abb1
quartina(3) = abb2
ImpostaGiocata 12,quartina,ruota1,poste1,k
cinquina(1) = amb
cinquina(2) = abb1
cinquina(3) = abb2
cinquina(4) = DiametraleD(amb)
cinquina(5) = DiametraleD(abb1)
' ImpostaGiocata 13,cinquina,ruota,postee,k
Gioca es',1
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub