richiesta di un script

[garcid]

buon giorno a tutti volevo chiedere se per cortesia era possibile avere in script .
(FACCIO UN ESEMPIO)con la distanza 40 di due numeri sulla ruota di bari il numero20 è uscito 10 volte,con la possibilità di cambiare ruota e la distanza
tanti saluti da garcid

 

[garcid]

ciao a tutti, per cortesia qualcuno mi può dare una mano o è troppo difficile a creare questa tabella grazie per la risposta garcid

 

[claudio8]

X disaronno, ritorno su una discussione fatta qualche tempo fa con altri amici-utenti x indicare che a volte il valore di freq. riscontrato in un range colpi può essere maggiore di 1 e quindi la somma alla precedente andrebbe rettificata e riportata a =1, discorso a parte andrebbe fatto per la "copertura entro i colpi" e non sto qui a ritornarci. Di seguito riporto quanto detto e modificato nello script.
X garcid.... attenzione che non è detto che i primi siano i migliori, anzi...es:.( fine archivio = 28/11/2015; BA ; diff15; 1000 estrazioni; colpi 9)
l'output dei meno frequenti, azzecca il terno a colpo con gli ultimi 4... mannaggia...

a saperlo.
30 . . . 65 su 199 casi esito = 2°
42 . . . 63 su 199 casi esito = 2°
24 . . . 61 su 199 casi esito = 3°
85 . . . 60 su 199 casi esito = 1°
44 . . . 59 su 199 casi esito = 1°
54 . . . 55 su 199 casi esito = negativo
63 . . . 53 su 199 casi esito = 1°

Sub Main()
    Scrivi "Spia - migliori ambate sortite" & Chr(10)
    Scrivi "" & Chr(10)
    Dim n(90,04),ru(01),ru1(01),nu(01),nn1(02),num(1)
    ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
    If ee = "" Then Exit Sub
    nn = CInt(InputBox("Quale distanza spia ?",,15))
    If nn = "" Then Exit Sub
    cl = CInt(InputBox("Quanti colpi ?",,9))
    If cl = "" Then Exit Sub
    r1 = CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
    If r1 = "" Then Exit Sub
    am = CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,90))
    If am = "" Then Exit Sub
    fin = EstrazioneFin
    ini = fin - ee
    casi = 0
    For es = ini To fin
        For p1 = 01 To 04
            For p2 = p1 + 01 To 05
                a = Estratto(es,r1,p1):b = Estratto(es,r1,p2)
                If Distanza(a,b) = nn Then
                    casi = casi + 1
                    nn1(01) = a:nn1(02) = b
                    ru(01) = r1
                    If SerieFreqTurbo(es,es,nn1,ru,2) = 01 Then
                        ess = es + cl
                        If ess > fin Then ess = fin
                        co = 00
                        For i = 01 To 90
                            co = co + 01
                            n(co,01) = co
                            n(co,02) = i
                            nu(01) = i
                            ru1(01) = r1
                            fr = SerieFreqTurbo(es + 01,ess,nu,ru1,01)
                            If fr > 0 Then fr = 1
                            n(co,03) = n(co,03) + fr
                        Next
                    End If
                End If
            Next
        Next
    Next
    Scrivi
    ColoreTesto 1
    Scrivi " Migliori ambate dopo distanza spia " & Format2(nn) & " ruota di " & NomeRuota(r1) & Chr(10)
    ColoreTesto 0
    Scrivi " Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin) & Chr(10)
    Scrivi " N° Presenze Ruota di ---- " & NomeRuota(r1) & Chr(10)
    OrdinaMatrice n,- 01,3
    For w = 01 To am
        num(1) = n(w,02)
        If VerificaEsito(num,ru1,fin + 1,1,,,,retcolpi) = True Then
            esit = retcolpi & "°"
        Else
            esit = "negativo"
        End If
        Scrivi " " & Format2(n(w,02)) & " . . . " & FormatSpace(n(w,03),3,1) & " su " & casi & " casi esito = " & esit,04,01
    Next
End Sub

 

[garcid]

buongiorno volevo scusarmi per il ritardo , ma è stato dovuto da fattori esterni e ringraziare CLAUDIO8 E DISARONNO per aver risposto alla mia richiesta .grazie ancora un saluto da garcid

 

[i legend]

Bravi agli scriptEr.

 

[garcid]

buongiorno a tutti volevo chiedere ai autori dei 2 script se per cortesia mi dite come mai con le stesse impostazioni di ricerca ci sono dei numeri diversi grazie per la risposta
garcid

 

[claudio8]

Lo scopri nel listato, la spiegazione sta nel mio post che sicuramente non hai letto attentamente.

 

[Serpico 90]

Buon giorno ,,,,chiedo scusa a Garcid se mi intrometto nel suo post......... Gentilmente ho una richiesta per Claudio .....chiedo se è possibile fare una aggiunta allo script:FARE LA RICERCA SU DUE RUOTE.......E POI FARE LA SOMMA DEI QUATTRO NUMERI. Mi spiego meglio con un esempio. estrazione del 26/01/2016 BARI 44.35 FI-----26.17 somma dei quattro numeri 122-90= 32 stessa estrazione FI 26.17 MI 46.37 somma dei quattro numri 126-90=36 e cosi per tutte le altre ruote ove vi siano le condizioni che ognuno vorra cercare. Spero che sia possibile e nell'attesa saluto e ringrazio Buona giornata

 

[claudio8]

x Serpico, scusami ma non riesco ad aiutarti x motivi di tempo, se qualcun'altro vuole può sostituirmi.
ciao

 

[Serpico 90]

O.K. Claudio , Ciao