mai visto uno scrip che inizia con "Next"
Vero l'ho inserito a metà è quello inserito qua (solo per evidenziare l'errore) l'errore è quello in rosso
Option Explicit
Sub Main
Dim FIn,Es,Ini,R1,R2,R3,R4,Clp
Dim P1,P2,Po1,PO2,PO3,PO4,A,AA,B,BB,C,CC,D,DD,E1,E2,Co
Dim Ruo(3),SOBI(2),SOBI1(2),SOBB,SOBB1,SODIA,SODIA1
Dim SOB,SOB1,DSOB,DSOBB1,SOSOB,SOSOB1,SORIZ,SORIZ1
Dim TOTO2,TOTO,TOTODI,POS,SM,CE
Dim Posta(2),Num1(3)
Posta(1) = 1 : Posta(2) = 1
CE = CInt(InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",80))
Ini = EstrazioneFin - CE : FIn = EstrazioneFin
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
For R1 = 1 To 9
R2 = R1 + 1
For Po1 = 1 To 4
PO2 = Po1 + 1
A = Estratto(Es,R1,Po1) : B = Estratto(Es,R2,Po1)
AA = Estratto(Es,R1,PO2) : BB = Estratto(Es,R2,PO2)
R3 = R2
R4 = R3 + 1
If R4 = 11 Then R4 = 1
For PO3 = 1 To 4
PO4 = PO3 + 1
C = Estratto(Es,R3,PO3) : D = Estratto(Es,R4,PO3)
CC = Estratto(Es,R3,PO4) : DD = Estratto(Es,R4,PO4)
'--------------------------------------
SOBI(1) = Fuori90(A + B): SOBI(2) = Fuori90(AA + BB)
SOBI1(1) = Fuori90(C + D):SOBI1(2) = Fuori90(CC + DD)
'----------------------------------------------
SOB = Massimo(SOBI(1),SOBI(2)) : SOBB = Minimo(SOBI(1),SOBI(2))
SOB1 = Minimo(SOBI1(1),SOBI1(2)) : SOBB1 = Massimo(SOBI1(1),SOBI1(2))
'-------------- DISTANZA ORIZZONTALE
DSOB = Distanza(SOB,SOBB)
DSOBB1 = Distanza(SOB1,SOBB1)
'--------------- SOMME VERT
SOSOB = Fuori90(SOB + SOB1)
SOSOB1 = Fuori90(SOBB + SOBB1)
'--------------- SOMME ORIZ
SORIZ = Fuori90(SOB + SOBB)
SORIZ1 = Fuori90(SOB1 + SOBB1) : TOTO = Fuori90(SORIZ + SORIZ1)
'------------------ DIAGONALI
SODIA = Fuori90(SOB + SOBB1)
SODIA1 = Fuori90(SOBB + SOB1) : TOTODI = Fuori90(SODIA + SODIA1)
'-------------------- DIVISIONI
TOTO2 = Fuori90(SORIZ1/2 + SORIZ/2)
If DSOB = DSOBB1 And SOSOB = SOSOB1 Then
Co = Co + 1
Scrivi String(100,"=") & " " & Co
'=======================================================
Scrivi Space(3) & DataEstrazione(Es,1),1,,,2
ScriviEstrazione(Es)
Scrivi SiglaRuota(R1) & "-" & SiglaRuota(R2) & " ",1,0,,10
For POS = 1 To 5
E1 = Estratto(Es,R1,POS) : E2 = Estratto(Es,R2,POS)
If E1 = A Or E1 = AA And E2 = AA Or E2 = BB Then
SM =(Fuori90(E1 + E2))
Scrivi Format2(E1) & "-" & Format2(E2) & "= [" & Format2(SM) & "] ",1,0,,1
End If
Next
Scrivi " DISTANZA " & Format2(DSOB),1,,,10
Scrivi SiglaRuota(R3) & "+" & SiglaRuota(R4) & " ",1,0,,10
For POS = 1 To 5
E1 = Estratto(Es,R3,POS) : E2 = Estratto(Es,R4,POS)
If E1 = C Or E1 = CC And E2 = D Or E2 = DD Then
SM =(Fuori90(E1 + E2))
Scrivi Format2(E1) & "+" & Format2(E2) & "= [" & Format2(SM) & "] ",1,0,,1',Gr,0 : ColoreTesto 0 : Gr = False
End If
Next
Scrivi " DISTANZA " & Format2(DSOB),1,,,10
Scrivi String(20,"-")
'----------------------------
Scrivi"Somma Vert " & Format2(SOB) & "+" & Format2(SOB1) & " = " & Format2(SOSOB) & _
" x2 rappresenta la somma COMUNE " & Fuori90(SOSOB*2) & " somma finale"
Scrivi"Somma Vert " & Format2(SOBB) & "+" & Format2(SOBB1) & " = " & Format2(SOSOB1)
Scrivi String(20,"-")
Scrivi"Somma Oriz " & Format2(SOB) & "+" & Format2(SOBB) & " = " & Format2(SORIZ) & Space(19) & "Diviso 2 = " & Format2((SORIZ/2))
Scrivi Space(20) & "+" & Space(30) & "+"
Scrivi"Somma Oriz " & Format2(SOB1) & "+" & Format2(SOBB1) & " = " & Format2(SORIZ1) & " = SO COMUNE " & Format2(TOTO) & Space(4) & _
"Diviso 2 = " & Format2((SORIZ1/2)) & Space(2) & "= Somma " & Fuori90(SORIZ1/2 + SORIZ/2)
Scrivi String(20,"-")
Scrivi"Somma Diag " & Format2(SOB) & "+" & Format2(SOBB1) & " = " & Format2(SODIA)
Scrivi Space(20) & "+"
Scrivi"Somma Diag " & Format2(SOBB) & "+" & Format2(SOB1) & " = " & Format2(SODIA1) & " = SO COMUNE " & Format2(TOTODI)
'-------------------------------------
Scrivi
Num1(1) = SOSOB : Num1(2) = TOTO : Num1(3) = TOTO2 : Ruo(1) = R1 : Ruo(2) = R2: Ruo(3) = R4
EliminaRipetuti Num1
ImpostaGiocata 1,Num1,Ruo,Posta,9
Gioca Es
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto,0
End Sub
