Metodo x Grande Dj

[pasquale1971]

Sera è possibile realizzare lo script di questo metodo su spaziometrai?
Ringrazio Tutti
Cordiali Saluti

[DjNomade]

Controlla questo

Ciauz

Codice: Seleziona tutto





'http://www.lottopassion.it/forum/viewtopic.php?f=10&t=3744
' 22-04-2019
ColoreTesto 1
Scrivi String(27,32) & "LE SIMMETRIE NEL RETTANGOLO di P. ROBBE  ",1
Scrivi
Scrivi String(38,32) & "List. DjNomade",1
ColoreTesto 0
Sub Main()
Dim nu1(10),nu2(10),nu(3),cc2(8),anum(8),anum3(8),anum4(8)   
Dim ruote(10),ruota(10)
Dim posta(2),poste(3),post(3),pos(5)
posta(1) = 1
poste(2) = 1

post(2) = 1
post(3) = 1
 
fin = EstrazioneFin
ini = fin -168
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)
n2 = Estratto(es,r1,p2)
ds1 = Distanza(n1,n2)
If Fuori90(n1 + 60) <> n2 Then nw1 = Fuori90(n1 + 60) Else nw1 = Fuori90(n1 + 30)

For r2 =r1+1 To 11
If r2 = 11 Then r2 = 12
 
For p3 = 1 To 4
For p4 = p3+1 To 5
 If ds1 = 30  And p1 = p3 and p2 =p4 And Distanza(p1,p2)=2 Then

n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
If Fuori90(n3 + 60) <> n4 Then nw2 = Fuori90(n3 + 60) Else nw2 = Fuori90(n3 + 30)

ds2 = Distanza(n3,n4)

If ds1 = 30 And ds2 = 30  And p1 = p3 and p2 =p4 And Distanza(p1,p2)=2  Then
n5 = Estratto(es,r1,p1+1)
n6 = Estratto(es,r2,p3+1)
n7 =Diametrale(Fuori90(n5+n6))'44 AMBATA
n8 =Diametrale(nw1)   '69-45  24  ABBINAM.
n9 =Fuori90(nw1+nw2+7)'69+72+FISSO 7    51+7  58   ABBINAM.

casi = casi + 1
Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo distanza < " & Format2(ds1) & " > " & Format2(n1) & "." & Format2(n2) & " >"
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" >       isotopo < " & Format2(ds2) & " > " & Format2(n3) & "." & Format2(n4)

Scrivi String(65,"-")
ruota(1) = r1
ruota(2) = r2
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
k = 12
 

'*************************************************

co = 0




nu(1) = n7
 
co = co + 1
ImpostaGiocata co,nu,ruota,posta,k

nu2(1) = n7
nu2(2) = n8
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1) = n7
nu2(2) = n9
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k

nu1(1) = n7
nu1(2) = n8
nu1(3) = n9

co = co + 1
ImpostaGiocata co,nu1,ruote,post,k


Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(27,32) & "LE SIMMETRIE NEL RETTANGOLO di P. ROBBE  ",1
Scrivi
Scrivi String(38,32) & "List. DjNomade",1
ColoreTesto 0
End Sub


[pasquale1971]

Grazie , non ti smentisi Mai