| 'Listato del metodo di Pasquale ROBBE pubblicato nella sua Sezione.
'Per le formazioni isotope togliere l'apice come indicato nel listato. Saluti federico53
Sub Main
Dim ru(3),ambo1(2),ambo2(2),lg(2),n(4),lh(2)
Dim poste(5)
poste(1)=0:poste(2)=1
est = InputBox("QUANTE ESTRAZIONI CONTROLLO",,157)
Ini = EstrazioneFin - est
fin = EstrazioneFin
For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
ambo1(1) = Estratto(es,r1,p1)
ambo1(2) = Estratto(es,r1,p2)
n(1)=ambo1(1):n(2)=ambo1(2)
For p3 = 1 To 4
For p4 = p3 + 1 To 5
ambo2(1) = Estratto(es,r2,p3)
ambo2(2) = Estratto(es,r2,p4)
n(3)=ambo2(1):n(4)=ambo2(2)
xx1=Fuori90(n(1)+n(2)):xx2=Fuori90(n(3)+n(4))
'If p1 = p3 And p2 = p4 Then ' per le formazioni isotope togliere l'apice davanti ad If p1
If xx1 = 45 And xx2 = 45 Then
xa=Distanza(ambo1(1),ambo2(1)):xb=Distanza(ambo2(1),ambo2(2))
k = k + 1
Scrivi"------------------------------------------------------"& "Giocata n° "& Format2(k),1
Scrivi
Scrivi"LA SOMMA 45 E VINCENTE - METODO DI PASQUALE ROBBE - Listato da Federico53 -"
Scrivi
Scrivi DataEstrazione(es) & " " & StringaEstratti(es,r1) & " " & SiglaRuota(r1) & " " & StringaNumeri(ambo1) & " Pos. " & p1 & " "& p2,1
Scrivi DataEstrazione(es) & " " & StringaEstratti(es,r2) & " " & SiglaRuota(r2) & " " & StringaNumeri(ambo2) & " Pos. " & p3 & " "& p4,1
If p1=p3 And p2=p4 Then ColoreTesto 2 : zx=" Posizione ISOTOPA " Else ColoreTesto 1 : zx=" Posizione non Isotopa"
'ColoreTesto 2
Scrivi "Ambi in "& zx
fx=Fuori90(xa*2)
gx=90-fx
hx=Fuori90(gx+15)'1° abbinamento
xx=Massimo(n(3),(n(4)))
ix=Fuori90(xx+9)'2° abbinamento
ru(1)=r1:ru(2)=r2: ru(3)=11
Scrivi
lg(1)=90:lg(2)=hx
ImpostaGiocata 1,lg,ru,poste,13,3
lh(1)=90:lh(2)=ix
ImpostaGiocata 2,lh,ru,poste,13,3
Gioca es
End If
' End If ' per le formazioni isotope togliere l'apice davanti ad End
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
Scrivi"LA SOMMA 45 E VINCENTE - METODO DI PASQUALE ROBBE - Listato da Federico53 -"
End Sub
Edited by federico53 - 10/11/2016, 22:56
|
