trivellatomariotretre33
Super Member >PLATINUM<
SALVE SE QUALCUNO PUO MODIFICARE QUESTO SCRIPT PER LA RICERCA LIBERA SCELTA X CICLI GRAZIE.
Sub Main() ColoreTesto 2 : Scrivi "ATTENZIONE !!!",1 Scrivi "Ricerca per Ambata",1 Scrivi "eseguita in tutte le ruote contemporaneamente",1 Dim som(5,90) Dim estr(5) Dim Val(5,90) Dim amb(90) perc = InputBox("Imposta la percentuale esiti (10% - 100%)",,90) es = InputBox("Inserisci 0 ultima, 1 prima, ....:",,10) nmc = InputBox("Quanti mesi da analizzare ?",,4) ncg = InputBox("Quanti colpi di gioco ?",,3) ultest = 9000 n = EstrazioneFin z = 0 trovato = False While z < eval(nmc) If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile
= eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then z = z + 1 End If n = n - 1 Wend nn = n + 1 For r2 = 1 To 12 For i = 1 To 90 amb(i) = 0 Next ColoreTesto 0 : Scrivi : Scrivi "*************************************",1 ColoreTesto 0 : Scrivi "IMPOSTAZIONI:",1 If eval(es) = 0 Then s = "(All'ultima" Else s = "Alla (" + es End If s = s + "°) estrazione del mese per (" If eval(ncg) = 0 Then s = s + "un mese:" Else If eval(ncg) = 1 Then s = s + ncg + ") colpo:" Else s = s + ncg + ") colpi:" End If End If ColoreTesto 0 : Scrivi s ColoreTesto 1 : Scrivi "Quantità mesi Impostati: (" & nmc & ")",1 ColoreTesto 0 : Scrivi "Statistica dal: " + DataEstrazione(nn) + " al: " + DataEstrazione(EstrazioneFin),1 ColoreTesto 2 : Scrivi "Percentuale Impostata: " & perc & "%",1 Scrivi For r = 1 To 12 z = 0 For i = 1 To 5 For j = 1 To 90 som(i,j) = 0 Val(i,j) = True Next Next For i = 1 To 5 estr(i) = 0 Next valido = False For n = nn To EstrazioneFin If eval(es) = 0 Then m = n + 1 Else m = n End If If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then z = z + 1 For i = 1 To 5 estr(i) = Estratto(n,r,i) Next For i = 1 To 5 For j = 1 To 90 Val(i,j) = True Next Next k2 = eval(ncg) k3 = n + k2 If k3 > EstrazioneFin Then k3 = EstrazioneFin End If For nv = n + 1 To k3 For i = 1 To 5 For j = 1 To 5 k = Estratto(nv,r2,j) - estr(i) While k <= 0 k = k + 90 Wend If Val(i,k) = True Then som(i,k) = som(i,k) + 1 Val(i,k) = False End If Next Next Next End If Next For i = 1 To 5 For j = 1 To 90 zz = Int((z/100)*perc) s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su " ColoreTesto 1 s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(i,j)) + "/" + CStr(eval(z)) s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3) If(Val(i,j) = True) Then s = s + " in corso" Else s = s + "----> sfaldato" End If If som(i,j) >= zz Then Scrivi s amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1 End If Next Next Next ColoreTesto 2 : Scrivi : Scrivi "***** NUMERI - CONVERGENTI *****",1 For i = 1 To 90 If(amb(i) > 1) Then ColoreTesto 1 : Scrivi CStr(eval(i)) + ": Convergente in (" + CStr(eval(amb(i))) + " sistemi)",1 Next Next End Sub
LO SCRIPT SI TROVA IN DOWNLOAD Per gli esperti, aiuto modifica script
Sub Main() ColoreTesto 2 : Scrivi "ATTENZIONE !!!",1 Scrivi "Ricerca per Ambata",1 Scrivi "eseguita in tutte le ruote contemporaneamente",1 Dim som(5,90) Dim estr(5) Dim Val(5,90) Dim amb(90) perc = InputBox("Imposta la percentuale esiti (10% - 100%)",,90) es = InputBox("Inserisci 0 ultima, 1 prima, ....:",,10) nmc = InputBox("Quanti mesi da analizzare ?",,4) ncg = InputBox("Quanti colpi di gioco ?",,3) ultest = 9000 n = EstrazioneFin z = 0 trovato = False While z < eval(nmc) If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile
= eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then z = z + 1 End If n = n - 1 Wend nn = n + 1 For r2 = 1 To 12 For i = 1 To 90 amb(i) = 0 Next ColoreTesto 0 : Scrivi : Scrivi "*************************************",1 ColoreTesto 0 : Scrivi "IMPOSTAZIONI:",1 If eval(es) = 0 Then s = "(All'ultima" Else s = "Alla (" + es End If s = s + "°) estrazione del mese per (" If eval(ncg) = 0 Then s = s + "un mese:" Else If eval(ncg) = 1 Then s = s + ncg + ") colpo:" Else s = s + ncg + ") colpi:" End If End If ColoreTesto 0 : Scrivi s ColoreTesto 1 : Scrivi "Quantità mesi Impostati: (" & nmc & ")",1 ColoreTesto 0 : Scrivi "Statistica dal: " + DataEstrazione(nn) + " al: " + DataEstrazione(EstrazioneFin),1 ColoreTesto 2 : Scrivi "Percentuale Impostata: " & perc & "%",1 Scrivi For r = 1 To 12 z = 0 For i = 1 To 5 For j = 1 To 90 som(i,j) = 0 Val(i,j) = True Next Next For i = 1 To 5 estr(i) = 0 Next valido = False For n = nn To EstrazioneFin If eval(es) = 0 Then m = n + 1 Else m = n End If If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then z = z + 1 For i = 1 To 5 estr(i) = Estratto(n,r,i) Next For i = 1 To 5 For j = 1 To 90 Val(i,j) = True Next Next k2 = eval(ncg) k3 = n + k2 If k3 > EstrazioneFin Then k3 = EstrazioneFin End If For nv = n + 1 To k3 For i = 1 To 5 For j = 1 To 5 k = Estratto(nv,r2,j) - estr(i) While k <= 0 k = k + 90 Wend If Val(i,k) = True Then som(i,k) = som(i,k) + 1 Val(i,k) = False End If Next Next Next End If Next For i = 1 To 5 For j = 1 To 90 zz = Int((z/100)*perc) s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su " ColoreTesto 1 s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(i,j)) + "/" + CStr(eval(z)) s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3) If(Val(i,j) = True) Then s = s + " in corso" Else s = s + "----> sfaldato" End If If som(i,j) >= zz Then Scrivi s amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1 End If Next Next Next ColoreTesto 2 : Scrivi : Scrivi "***** NUMERI - CONVERGENTI *****",1 For i = 1 To 90 If(amb(i) > 1) Then ColoreTesto 1 : Scrivi CStr(eval(i)) + ": Convergente in (" + CStr(eval(amb(i))) + " sistemi)",1 Next Next End SubLO SCRIPT SI TROVA IN DOWNLOAD Per gli esperti, aiuto modifica script
Ultima modifica:
