Su questo puoi togliermi il riscontro su tutte?
Option Explicit
Sub Main
Dim Fig1,Fig2,Fig3,Fig4,FIn,Ini,Clp
Dim R1,R2,P1,P2,P3,P4,P5,P6,Es,Caso,Casi
Dim E1,E2,A,B,C,D,FA,FB,FC,FD,Sp,Sorte
Dim RetEsito,RetColpi,RetEstratti,RetId
Dim Ruote(2),Ru(3),Post(5)
ReDim aNum1(10),aNum2(10)
'Post(1) = 1
Post(2) = 1
Post(3) = 1
'Post(4) = 1
'Post(5) = 1
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
P1 = CInt(InputBox(" Indica la posizione del primo estratto della prima ruota",,1))
Fig1 = CInt(InputBox(" Indica la figura che deve avere il primo estratto della prima ruota",,1))
'
P2 = CInt(InputBox(" Indica la posizione del secondo estratto della prima ruota",,3))
Fig2 = CInt(InputBox(" Indica la figura che deve avere il secondo estratto della prima ruota",,2))
'
P3 = CInt(InputBox(" Indica la posizione del primo estratto della seconda ruota",,4))
Fig3 = CInt(InputBox(" Indica la figura che deve avere il primo estratto della seconda ruota",,8))
'
P4 = CInt(InputBox(" Indica la posizione del secondo estratto della seconda ruota",,2))
Fig4 = CInt(InputBox(" Indica la figura che deve avere il secondo estratto della seconda ruota",,7))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare? ",,5))
'Sorte = CInt(InputBox(" Per qualè sorte? 1 per Ambata, 2 per Ambo, ecc... ",,3))
Call ScegliNumeri(aNum1)
Call ScegliNumeri(aNum2)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & " CHIESTO DA KUBES - SCELTA FIGURE E POSIZIONI ESTRATTI - SCRIPT SALVO50",1,,4,,3,,1
For Es = Ini To FIn
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
FA = Figura(A) : FB = Figura(B)
If Fig1 = FA And Fig2 = FB Then
For R2 = R1 + 1 To 12
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
FC = Figura(C) : FD = Figura(D)
If Fig3 = FC And Fig4 = FD Then
Ru(1) = R1
Ru(2) = R2
Ru(3) = TU_
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <--in Rosso Figure scelte " & FA & " " & FB,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <--in Rosso Figure scelte " & FC & " " & FD,1
Scrivi
Scrivi " Numeri scelti per 1ª Giocata " & StringaNumeri(aNum1,Sp,True),1,,,1
Scrivi " Numeri scelti per 2ª Giocata " & StringaNumeri(aNum2,Sp,True),1,,,2
Scrivi
ImpostaGiocata 1,aNum1,Ru,Post,Clp
ImpostaGiocata 2,aNum2,Ru,Post,Clp
Gioca Es,,,1
End If
Next
End If
Next
Next
ScriviResoconto
End Sub
