Aiuto modifica script

[mazuma]

Ciao a tutti

Ho questo script

Sub Main()
    Dim ambi(4500,6),nn(10),ruota(10)
    nru = InputBox("Su quale ruota, ",,1)
    nes = InputBox("Inserisci SPIA ....",,76)
    ne = InputBox("Numero estrazioni:",,50)
    perc = InputBox("Percentuale minima (60-100%):",,100)
    ncg = InputBox("Numero colpi di gioco",,6)
    ruota(1) = eval(nru)
    casi = 0
    ini = EstrazioneFin - ne
    fin = EstrazioneFin - 1
    For x = 1 To 4500
        ambi(x,1) = 0
        ambi(x,2) = 0
        ambi(x,3) = 0
        ambi(x,4) = 0
        ambi(x,5) = 0
        ambi(x,6) = 0
    Next
    For es = ini To fin
        If IsNumeroPresenteInEstrazione(es,ruota(1),eval(nes),0) Then
            casi = casi + 1
            co = 0
            For r = 1 To 10
                For p = 1 To 5
                    For nu = 1 To 90
                        co = co + 1
                        c = 0
                        a = Estratto(es,r,p)
                        b = Fuori90(a + nu)
                        nn(1) = b
                        esncg = es + eval(ncg)
                        If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
                        c = SerieFreq(es + 1,esncg,nn,ruota,1)
                        If c > 0 Then
                            ambi(co,1) = co
                            ambi(co,2) = r
                            ambi(co,3) = p
                            ambi(co,4) = nu
                            ambi(co,5) = ambi(co,5) + 1
                            ambi(co,6) = ambi(co,6) + c
                        End If
                    Next
                Next
            Next
        End If
    Next
    ca = 0
    ColoreTesto 1
    Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
    Scrivi
    If eval(nes) > 0 Then
        Scrivi "Spia                     : " & eval(nes),1
    End If
    Scrivi "RUOTA DI GIOCO           : " & NomeRuota(nru),1
    Scrivi "COLPI DI GIOCO           : " & ncg,1
    Scrivi "CASI ANALIZZATI          : " & casi,1
    Scrivi
    ColoreTesto 0
    per = Int((casi/100)*perc)
    For ca = 1 To 4500
        If eval(ambi(ca,5)) >= per Then
            Scrivi eval(ambi(ca,3)) & "°" & Left(NomeRuota(eval(ambi(ca,2))),2) & " + " & _
            Format2(ambi(ca,4)) & "  su  " &     FormatSpace(NomeRuota(nru),9) & " è uscito " & _
            FormatSpace(ambi(ca,5),3) & " su " & FormatSpace(casi,3) & " casi   -  AMBATE TOTALI: " & _
            FormatSpace(ambi(ca,6),3)
        End If
    Next
End Sub

si può modificare in modo da trovare anche la frequenza per ambo dei valori presenti in output

ess. 1°Ba + 49 e 4°Mi + 63 uscito x volte

Un saluto

 

[rocco48]

Ciao mazuma io avavo fatto richiesta di uno script
Ma essuno mi a aiutato e quindi mi sono messo s studuare

Gli script da poxo che o imparato gli ambi se sostituisci
nn(1)=b:nn(2)=diametrale(b)
c=seriefreq(es+2,esncg,nn
cosi ti da la frequenza degli ambi diametali
spero di esserti stato di aiuto un saluto rocco48

 

[LuigiB]

Ma essuno mi a aiutato e quindi mi sono messo studuare

rocco48

Onore a Rocco48 !