Per Salvo50

[Duplex]

Ciao Salvo,mi affido a te per modificare questo script sui radicali. Lanciato su Spaziometria dà errori. Lo script è vecchio e non ricordo l'autore. Puoi fare qualcosa?
Sub main()
Dim nc(4),nr(3),num(1),poste(10)
Dim ruote(4),posta(3),nu1(5),ruota(4),nu2(5)
posta(2)=1 posta(3)=1 poste(1)=1
fin=EstrazioneFin
ini=fin-150
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
If p1+1=p2 Then
a = Estratto (es,r1,p1)
b = Estratto (es,r1,p2)
If Radicale(a) And Radicale(b) And Radicale(a)=Radicale(b) Then
For r2=1 To 12
If r2=11 Then r2=12
If r1<>r2 Then
For p3=1 To 5
c = Estratto (es,r2,p3)
If (Radicale(c) And Radicale(a)=Radicale(c) Or Radicale(b)=Radicale(c)) Then
If a<>c And b<>c And (p3=p1 Or p3=p2) Then
If p3=p1 Then d=Estratto (es,r2,p2) Else d=Estratto (es,r2,p1)
nr(1)=a:nr(2)=b:nr(3)=c
rd=Radicale (a)
nc(1)=rd:nc(2)=CInt (rd&"0"):nc(3)= CInt(rd&rd):nc(4)=CInt (rd&9)
For j=1 To 4
h=0
For i=1 To 3
If nc(j)<>nr(i) Then h=h+1
Next
If h=3 Then num(1)=nc(j) : Exit For
Next
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:k=14:co=0
nu2(1)=num(1)'ambata
poste(1)=1 : poste(p1+5)=1 : poste(p2+5)=1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Erase Poste
nu1(1)=num(1)'ambata
nu1(2)=d
nu1(3)=Abs(d-num(1))
nu1(4)=Fuori90(d+num(1))
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
co=co+1
ImpostaGiocata co,nu1,ruota,post,k
casi=casi+1:Scrivi String(75,"=")
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&format2(b)&" ] in "&(p1)&"^--"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&format2(d)&" ]in "&(p1)&"^--"&(p2)&"^ pos."
Scrivi "Nume. manc. ("& Format2 (num(1))&")",1
Scrivi String(60,"-")&" caso n° "&(casi)
Gioca es
End If
End If
Next
End If
Next
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[salvo50]

Ciao a Tutti
Ciao Duplex

Andava in errore e l'ho corretto, sembra che non sia stato fatto per SpazioMetria
Comuque con l'errore che aveva, non avrebbe funzionato neanche con altri
programmi diversi da SpazioMetria

Sub Main()
   Dim nc(4),nr(3),num(1),poste(10),post(2)
   Dim ruote(4),posta(3),nu1(5),ruota(4),nu2(5)
   posta(2) = 1:posta(3) = 1:poste(1) = 1 : post(2) = 1
   fin = EstrazioneFin
   ini = fin - 150
   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
               If p1 + 1 = p2 Then
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  If Radicale(a) And Radicale(b) And Radicale(a) = Radicale(b) Then
                     For r2 = 1 To 12
                        If r2 = 11 Then r2 = 12
                        If r1 <> r2 Then
                           For p3 = 1 To 5
                              c = Estratto(es,r2,p3)
                              If(Radicale(c) And Radicale(a) = Radicale(c) Or Radicale(b) = Radicale(c)) Then
                                 If a <> c And b <> c And(p3 = p1 Or p3 = p2) Then
                                    If p3 = p1 Then
                                       d = Estratto(es,r2,p2)
                                    Else
                                       d = Estratto(es,r2,p1)
                                    End If
                                    nr(1) = a : nr(2) = b : nr(3) = c
                                    rd = Radicale(a)
                                    nc(1) = rd : nc(2) = CInt(rd & "0") : nc(3) = CInt(rd & rd) : nc(4) = CInt(rd & 9)
                                    For j = 1 To 4
                                       h = 0
                                       For i = 1 To 3
                                          If nc(j) <> nr(i) Then h = h + 1
                                       Next
                                       If h = 3 Then num(1) = nc(j) : Exit For
                                    Next
                                    ruote(1) = r1:ruote(2) = r2
                                    ruota(1) = 11
                                    k = 14
                                    co = 0
                                    nu2(1) = num(1)'ambata
                                    poste(1) = 1 : poste(p1 + 5) = 1 : poste(p2 + 5) = 1
                                    co = co + 1
                                    ImpostaGiocata co,nu2,ruote,poste,k
                                    Erase poste
                                    nu1(1) = num(1)'ambata
                                    nu1(2) = d
                                    nu1(3) = Abs(d - num(1))
                                    nu1(4) = Fuori90(d + num(1))
                                    co = co + 1
                                    ImpostaGiocata co,nu1,ruote,posta,k
                                    co = co + 1
                                    ImpostaGiocata co,nu1,ruota,post,k
                                    casi = casi + 1:Scrivi String(75,"=")
                                    Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] [ " & _
                                    Format2(a) & "." & Format2(b) & " ] in " &(p1) & "^--" &(p2) & "^ pos."
                                    Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ] [ " & _
                                    Format2(c) & "." & Format2(d) & " ]in " &(p1) & "^--" &(p2) & "^ pos."
                                    Scrivi "Nume. manc. (" & Format2(num(1)) & ")",1
                                    Scrivi String(60,"-") & " caso n° " &(casi)
                                    Gioca es
                                 End If
                              End If
                           Next
                        End If
                     Next
                  End If
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

 

[Duplex]

Grande! Grazie 1000 Salvo!