Potresti gentilmente far lavorare questo tuo script per estratto semplice?
La spia deve essere su una qualunque posizione e idem per gli aggregati.
Un caro saluto e buona giornata.
La spia deve essere su una qualunque posizione e idem per gli aggregati.
Un caro saluto e buona giornata.
Codice:
'Cadute di Lunghetta in Pos. Det. da Spia. By Joe. V.7.1 del 05/03/2013Sub Main()
Dim Ru(1)
Ru(1) = ScegliRuota
Sp = CInt(InputBox("Inserisci NumeroSpia","SCELTA SPIA",0))
Po = CInt(InputBox("Inserisci la Posizione (1-5)","SCELTA DELLA POSIZIONE",1)) : So = Po + 5
Lu = InputBox("Inserisci Lunghetta","GRUPPO NUMERICO","11.21.31.41.51.61.71.81")
Nu = Split("0." & Lu,".") : L = UBound(Nu)
Ini = 1 : Fin = EstrazioneFin
For Es = Ini To Fin : ColoreTesto 0 : Messaggio Fin - Es
If Estratto(Es,Ru(1),Po) = Sp Then
Casi = Casi + 1
Scrivi FormatSpace(Es,4,1) & " " & SiglaRuota(Ru(1)) & " " & Po & "° ",0,0
Scrivi "S" & Format2(Sp) & " " & Lu & " ",0,0
S = SeriePrima(Es + 1,Fin,Nu,Ru,So)
If S > 0 Then
Rt = S - Es : Scrivi FormatSpace(Rt,3,1) & " " & String(3,"-") & FormatSpace (S,5,1)
kSt = kSt + 1 : Redim Preserve Sto (kst) : Sto (kst) = Rt
Else
Rt = Fin - Es : Scrivi String(3,"-") & " " & FormatSpace(Rt,3,1) & FormatSpace (Fin,5,1)
kAt = kAt + 1 : Redim Preserve Att (kAt) : Att(kAt) = Rt
End If
End If
Next
Scrivi : Scrivi Casi & " Casi."
Scrivi FormatSpace (CInt (kAt),3,1) & " Attuali."
OrdinaMatrice Sto,-1
For k = 1 To 3 : Scrivi FormatSpace (Sto(k),3,1) & " "& K & "° Sto +" : So = So + Sto (k) : Next
Scrivi So & " Somma "'& K-1 & " Masssimi Storici"
Scrivi FormatSpace ((Round (Casi * 100/ So)),3,1) & " % Casi/Somma"
End Sub