Non ci sono esempi reali non so' se è corretto
Ciauz
' 29-10-2025
'http://www.nonsololotto.com/topic.asp?TOPIC_ID=47034
ColoreTesto 2
Scrivi String(37,32) & "Ambi isotopi stessa Distanza 45 by MATTEO SEFANO SIMONE ",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0
Sub Main()
Dim nu1(10),nu2(10),nu3(10),nu4(10),nu(4),n(4)
Dim ruote(10),ruota(10),ruotee(4)
Dim posta(5),poste(5),poste1(5),poste2(5),poste3(5)
posta(1) = 1
poste(1) = 1
poste1(2) = 1
poste2(2) = 1
poste2(3) = 1
fin = EstrazioneFin
ini = 10572 '
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1) '27
n2 = Estratto(es,r1,p2) '33
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 4
For p4 = p3 + 1 To 5
If p1=p3 And p2=p4 Then
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
n55 = Distanza(n1 , n2)'
n66 = Distanza(n3 , n4)'
If n55 = n66 And n55 =45 Then
somc1=Fuori90(n1+n2+n3+n4)' AMBATA
somc2=24 ' abb
somc3=Fuori90(Diametrale(somc1)+14)' abb
somc4=Fuori90(Diametrale(somc1)+12)' abb
casi = casi + 1
Scrivi
Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo DISTANZA < " & Format2(n1) & "." & Format2(n2) & " > Distanza " & Format2(n55),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo DISTANZA < " & Format2(n3) & "." & Format2(n4) & " > Distanza " & Format2(n66),1
Scrivi
ColoreTesto 2
If p1=p3 And p2=p4 Then Scrivi"ESTRATTI ISOTOPI",1
If Distanza(r1,r2)=1 Then Scrivi"RUOTE CONSECUTIVE",1
If r1+r2=11 Then Scrivi"RUOTE GEMELLE",1
If Distanza(r1,r2)=5 Then Scrivi"RUOTE DIAMETRALI",1
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
ruota(1) = r1
ruota(2) = r2
ruotee(1) = r1
ruotee(2) = r2
ruotee(3) = 11
ruotee(4) = 12
k = 13
co = 0
nu1(1) = somc1
ImpostaGiocata 1,nu1,ruota,posta,k
nu2(1) = somc1
nu2(2) = somc2
ImpostaGiocata 2,nu2,ruote,poste1,k
nu2(1) = somc1
nu2(2) = somc3
ImpostaGiocata 3,nu2,ruote,poste1,k
nu2(1) = somc1
nu2(2) = somc4
ImpostaGiocata 4,nu2,ruote,poste1,k
nu3(1) = somc1
nu3(2) = somc2
nu3(3) = somc3
nu3(4) = somc4
ImpostaGiocata 5,nu3,ruotee,poste2,k
Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub