Richiesta piccolo script!!!

[antonio65]

Buonasera, ringrazio in anticipo chi mi ha preso in considerazione con le richieste di script: Mike58,Magia,Moro80 ...
Si tratta di uno script semplice che ai tempi quando c'era una sola estrazione settimanale...mi regalò tante vincite...
oggi mi è tornata in mente questa tecnica semplice semplice...fino ad oggi ho usato solo tecnica/matematica....
Veniamo al dunque: in pratica in qualsiasi ruota o parte del mese etc etc bisogna conteggiare i 5 estratti quasi come le figure..dico quasi...
Esempio: 1a estrazione del mese corrente su ruota di Bari 74-28-22-13-67 7+4=11// 2+8=10 //2+2=4// 1+3=4 // 6+7=13 poi sommare il totale...in questo caso
11+10+4+4+13=42(semplice) secondo la mia idea entro pochi colpi sarebbe dovuta uscire o la cadenza 4 o la cadenza 2...
Avendo uno script potrei controllare dove migliore sia la resa di questa piccola tecnica....ovviamente seconda la mia idea la ciliegina sulla torta è quando
il calcolo da la somma di un numero gemello 22 33 44 55 66 etc etc....grazie per l'aiuto Antonio65!!!

 

[Mike58]

Ciao Antonio65, intanto mi scuso per non averti dato risposta in altro thrend, ma premesso che ci sono script che non sono stimolato a fare e altri in cui anch'io voglio vedere le risultanze, eccoti una bozza di script di quanto chiedi.

Poi sta a te e alla tua intuizione raccogliere quello che ti sembra valido, gli script possono aiutare ma poi l'utilizzo ai fini di un buon pronostico è sempre a cura dell'utente richiedente.

Sub Main
 Dim Nu(5),aN(5),aNum(1),Ru(1),T,V
 Dim dec(10),cad(9)
 Ini = EstrazioneFin - 280
 fin = EstrazioneFin
 Scrivi "*** Metodo Antonio65 **** Script in Tabella By Mike58 *** By Spaziometria ****",1,,,1,3,,1
 Scrivi
 r = InputBox("Scelta Ruota",,1)
 Ind = CInt(InputBox("Scegli indice Mensile",,1))
 T = Array(T,"Casi","infoData","Ruota","Estratti","Numeri Ricavati","Somma Num Ricavati","Esito Somma","clp","cad 1","Esito cad1","Clp","cad 2","Esito cad2","clp")
 Call InitTabella(T,6)
 For es = Ini To fin
  If IndiceMensile(es) = Ind Then
   Ru(1) = r
   k = k + 1
   For p = 1 To 5
    Nu(p) = Estratto(es,r,p)
   Next
   aN(1) = Decina(Nu(1)) + Cadenza(Nu(1))
   aN(2) = Decina(Nu(2)) + Cadenza(Nu(2))
   aN(3) = Decina(Nu(3)) + Cadenza(Nu(3))
   aN(4) = Decina(Nu(4)) + Cadenza(Nu(4))
   aN(5) = Decina(Nu(5)) + Cadenza(Nu(5))
   som = aN(1) + aN(2) + aN(3) + aN(4) + aN(5)
   aNum(1) = som
   For dc = 0 To 8
    dec(dc) = Decina(som) +(dc*10)
   Next
   For cd = 0 To 8
    cad(cd) = Cadenza(som) +(cd*10)
   Next
   Call VerificaEsito(aNum,Ru,es + 1,1,13,,esito,clp,es1,id1)
   Call VerificaEsito(dec,Ru,es + 1,2,13,,esitoA,clpA,esA,idA)
   Call VerificaEsito(cad,Ru,es + 1,2,13,,esitoB,clpB,esB,IdB)
   V = Array(V,k,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(aN,,1),som,es1,clp,StringaNumeri(dec,,1),esA,clpA,StringaNumeri(cad),esB,clpB)
   Call AddRigaTabella(V)
  End If
 Next
 Call SetTableWidth("100%")
 CreaTabella
End Sub

Ciao

 

[salvo50]

Ciao a Tutti!

Mi sono cimentato anch'io a fare questo script, mi sono accorto che nel totale dei 5 numeri abbiamo un minimo di 15 ed un massimo di 79, quindi nello script non ho messo le cadenze 1, 8, e 9, e nella visualizzazione mi appaiono anche le date delle estrazioni che non esce un gemello, se qualcuno mi dà un suggerimento come toglierli, grazie.
Ecco il codice

Option Explicit
Sub Main
    TestoInBandaPassante "***** PROGETTO BY ANTONIO65 SCRIPT BY SALVO50  ****** ",1,4,0
    Dim estr(5),deca(5),poste(5)
    Dim r1,ruote,clp,sommadeca
    Dim idestr,ruota,cad(7),ru(1)
    Dim es,fin,esq
    fin = EstrazioneFin
    poste(2) = 1
    poste(3) = 1
    esq = InputBox("Inserisci il numero dell'estrazione che vuoi iniziare",idestr,9250)
    clp = InputBox("inserisci per quanti colpi vuoi fare la ricerca",,3)
    Scrivi ""
    cad(2) = Array(0,02,12,22,32,42,52,62,72,82)
    cad(3) = Array(0,03,13,23,33,43,53,63,73,83)
    cad(4) = Array(0,04,14,24,34,44,54,64,74,84)
    cad(5) = Array(0,05,15,25,35,45,55,65,75,85)
    cad(6) = Array(0,06,16,26,36,46,56,66,76,86)
    cad(7) = Array(0,07,17,27,37,47,57,67,77,87)
    For es = esq To fin
        Messaggio es
        AvanzamentoElab esq,fin,es
        For r1 = 1 To 11
            If r1 = 11 Then r1 = 12
            ru(1) = r1
            estr(1) = Estratto(es,r1,1)
            estr(2) = Estratto(es,r1,2)
            estr(3) = Estratto(es,r1,3)
            estr(4) = Estratto(es,r1,4)
            estr(5) = Estratto(es,r1,5)
            deca(1) = Decina(estr(1)) + Cadenza(estr(1))
            deca(2) = Decina(estr(2)) + Cadenza(estr(2))
            deca(3) = Decina(estr(3)) + Cadenza(estr(3))
            deca(4) = Decina(estr(4)) + Cadenza(estr(4))
            deca(5) = Decina(estr(5)) + Cadenza(estr(5))
            sommadeca = deca(1) + deca(2) + deca(3) + deca(4) + deca(5)
            If Gemello(sommadeca) Then
                ColoreTesto 1
                Scrivi(" Estrazione n." & Format2(es) &     " del " & DataEstrazione(es)),0,0
                Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & " - Somma cifre estratti " & sommadeca
                If sommadeca = 22 Then
                    Scrivi StringaNumeri(cad(2))
                    ImpostaGiocata 1,cad(2),ru,poste,clp,0,0
                End If
                If sommadeca = 33 Then
                    Scrivi StringaNumeri(cad(3))
                    ImpostaGiocata 2,cad(3),ru,poste,clp,0,0
                End If
                If sommadeca = 44 Then
                    Scrivi StringaNumeri(cad(4))
                    ImpostaGiocata 3,cad(4),ru,poste,clp,0,0
                End If
                If sommadeca = 55 Then
                    Scrivi StringaNumeri(cad(5))
                    ImpostaGiocata 4,cad(5),ru,poste,clp,0,0
                End If
                If sommadeca = 66 Then
                    Scrivi StringaNumeri(cad(6))
                    ImpostaGiocata 5,cad(6),ru,poste,clp,0,0
                End If
                If sommadeca = 77 Then
                    Scrivi StringaNumeri(cad(7))
                    ImpostaGiocata 6,cad(7),ru,poste,clp,0,0
                    ColoreTesto 0
                End If
            Gioca es
         End If
        Next
    Next
    ScriviResoconto
End Sub

 

[antonio65]

Ciao Mike58, grazie non devi scusarti anzi sono io che devo scusarmi...lo script è uguale preciso come lo volevo....ti chiedo solo 2 aggiunte : ad esempio quando viene numero gemello di portarlo come capo gioco...e se ad esempio il calcolo lo faccio a Bari potrei giocare ad altre ruote...se si può si....altrimenti sono contento ugualmente!!! Grazie!!!

 

[antonio65]

Ciao Salvo, ho provato anche il tuo script...solo che le somme sono sbagliate....non capisco il perchè?

 

[antonio65]

Rispondo ancora a Salvo...ho individuato l'errore: non devi sommare ad esempio. 12-39-41-52-63 somma errata 12+39+41+52+63
1+2=3 3+9 =12 4+1=5 5+2=7 6+3=9 quindi 3+12+5+7+9=36 somma corretta!!!

 

[Mike58]

lo script di Salvo, dovrebbe essere cosi, ho anche spostato un end if.

poi penso alla richiesta di Antonio.

Option Explicit
Sub Main
 TestoInBandaPassante "***** PROGETTO BY ANTONIO65 SCRIPT BY SALVO50  ****** ",1,4,0
 Dim estr(5),deca(5),poste(5)
 Dim r1,ruote,clp,sommadeca
 Dim idestr,ruota,cad(7),ru(1)
 Dim es,fin,esq
 fin = EstrazioneFin
 poste(2) = 1
 poste(3) = 1
 esq = InputBox("Inserisci il numero dell'estrazione che vuoi iniziare",idestr,9250)
 clp = InputBox("inserisci per quanti colpi vuoi fare la ricerca",,3)
 Scrivi ""
 cad(2) = Array(0,02,12,22,32,42,52,62,72,82)
 cad(3) = Array(0,03,13,23,33,43,53,63,73,83)
 cad(4) = Array(0,04,14,24,34,44,54,64,74,84)
 cad(5) = Array(0,05,15,25,35,45,55,65,75,85)
 cad(6) = Array(0,06,16,26,36,46,56,66,76,86)
 cad(7) = Array(0,07,17,27,37,47,57,67,77,87)
 For es = esq To fin
  Messaggio es
  AvanzamentoElab esq,fin,es
  For r1 = 1 To 11
   If r1 = 11 Then r1 = 12
   ru(1) = r1
   estr(1) = Estratto(es,r1,1)
   estr(2) = Estratto(es,r1,2)
   estr(3) = Estratto(es,r1,3)
   estr(4) = Estratto(es,r1,4)
   estr(5) = Estratto(es,r1,5)
   deca(1) = Decina(estr(1)) + Cadenza(estr(1))
   deca(2) = Decina(estr(2)) + Cadenza(estr(2))
   deca(3) = Decina(estr(3)) + Cadenza(estr(3))
   deca(4) = Decina(estr(4)) + Cadenza(estr(4))
   deca(5) = Decina(estr(5)) + Cadenza(estr(5))
   sommadeca = deca(1) + deca(2) + deca(3) + deca(4) + deca(5)
   If Gemello(sommadeca) Then
    ColoreTesto 1
    Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
    Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & " - Somma estratti " & sommadeca
    If sommadeca = 22 Then
     Scrivi StringaNumeri(cad(2))
     ImpostaGiocata 1,cad(2),ru,poste,clp,0,0
    End If
    If sommadeca = 33 Then
     Scrivi StringaNumeri(cad(3))
     ImpostaGiocata 2,cad(3),ru,poste,clp,0,0
    End If
    If sommadeca = 44 Then
     Scrivi StringaNumeri(cad(4))
     ImpostaGiocata 3,cad(4),ru,poste,clp,0,0
    End If
    If sommadeca = 55 Then
     Scrivi StringaNumeri(cad(5))
     ImpostaGiocata 4,cad(5),ru,poste,clp,0,0
    End If
    If sommadeca = 66 Then
     Scrivi StringaNumeri(cad(6))
     ImpostaGiocata 5,cad(6),ru,poste,clp,0,0
    End If
    If sommadeca = 77 Then
     Scrivi StringaNumeri(cad(7))
     ImpostaGiocata 6,cad(7),ru,poste,clp,0,0
     ColoreTesto 0

    End If
    Gioca es
   End If
  Next
 Next
 ScriviResoconto
End Sub

 

[Mike58]

Antonio, ok il calcolo si fa sulla ruota di ricerca e la scelta di gioco sulle ruote (anche + ruote) sulle ruote selezionate.

Per il gemello diventa difficile gestirlo, te lo posso evidenziare e far vedere che purtroppo non da esiti, ma a te l'indagine + profonda.

Sub Main
 Dim Nu(5),aN(5),aNum(1),Ru(1),T,V
 Dim dec(10),cad(9)
 Ini = EstrazioneFin - 280
 fin = EstrazioneFin
 Scrivi "*** Metodo Antonio65 **** Script in Tabella By Mike58 *** By Spaziometria ****",1,,,1,3,,1
 Scrivi
 r = InputBox("Scelta Ruota di Ricerca",,1)
 ReDim Rg(0)
 rr = ScegliRuote (Rg) 'InputBox("Scelta Ruota di Gioco",,1)
 Scrivi "Ruota di Ricerca : " & NomeRuota(r) & Space(45) & " Ruote di Gioco : " & StringaRuote(Rg),1
 Ind = CInt(InputBox("Scegli indice Mensile",,1))
 T = Array(T,"Casi","infoData","Ruota","Estratti","Numeri Ricavati","Somma Num Ricavati","Esito Somma","clp","cad 1","Esito cad1","Clp","cad 2","Esito cad2","clp")
 Call InitTabella(T,6)
 For es = Ini To fin
  If IndiceMensile(es) = Ind Then
  Ru(1) = r
  'ReDim Rg()
  rr = Rg
   k = k + 1
   For p = 1 To 5
    Nu(p) = Estratto(es,r,p)
   Next
   aN(1) = Decina(Nu(1)) + Cadenza(Nu(1))
   aN(2) = Decina(Nu(2)) + Cadenza(Nu(2))
   aN(3) = Decina(Nu(3)) + Cadenza(Nu(3))
   aN(4) = Decina(Nu(4)) + Cadenza(Nu(4))
   aN(5) = Decina(Nu(5)) + Cadenza(Nu(5))
   som = aN(1) + aN(2) + aN(3) + aN(4) + aN(5)
   aNum(1) = som
   For dc = 0 To 8
    dec(dc) = Decina(som) +(dc*10)
   Next
   For cd = 0 To 8
    cad(cd) = Cadenza(som) +(cd*10)
   Next
   Call VerificaEsito(aNum,Rg,es + 1,1,13,,esito,clp,es1,id1)
   Call VerificaEsito(dec,Rg,es + 1,2,13,,esitoA,clpA,esA,idA)
   Call VerificaEsito(cad,Rg,es + 1,2,13,,esitoB,clpB,esB,IdB)
   V = Array(V,k,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(aN,,1),som,es1,clp,StringaNumeri(dec,,1),esA,clpA,StringaNumeri(cad),esB,clpB)
   Call AddRigaTabella(V)
   For x = 1 To 13
   If Gemello(som) Then Call SetColoreCella((x),2,4)
   Next
  End If
 Next
 Call SetTableWidth("100%")
 CreaTabella
End Sub

 

[antonio65]

Hai ragione Mike58, devo guardare attentamente le sorti del gemello...e su quale ruota??? in tutti i casi uno script perfetto...gli altri risultati sono ottimi....grazie e complimenti per lo script!!!

 

[salvo50]

Rispondo ancora a Salvo...ho individuato l'errore: non devi sommare ad esempio. 12-39-41-52-63 somma errata 12+39+41+52+63
1+2=3 3+9 =12 4+1=5 5+2=7 6+3=9 quindi 3+12+5+7+9=36 somma corretta!!!

Ciao Antonio65!

Non riesco a capire qual'è l'errore, perchè io quelle somme che dici tu, nello script le faccio corrette,


deca(1) = Decina(estr(1)) + Cadenza(estr(1))
deca(2) = Decina(estr(2)) + Cadenza(estr(2))
deca(3) = Decina(estr(3)) + Cadenza(estr(3))
deca(4) = Decina(estr(4)) + Cadenza(estr(4))
deca(5) = Decina(estr(5)) + Cadenza(estr(5))

in queste 5 righe io sommo la cifra delle decine con la cifra delle unità, infatti io ho detto che il massimo delle somme è 79, per arrivare a questo massimo ho preso le 5 cifre più alte facendo la somma delle unità con le decine, le cifre che ho preso sono:
89,88,79,78,69 - possono essere anche un po' diverse

8+9 = 17
8+8 = 16
7+9 = 16
7+8 = 15
6+9 = 15

17+16+16+15+15 = 79 - modificando un po' i numeri non sono riuscito ad ottenere una cifra più alta di 79.

Se avessi sommato i numeri interi senza scomporli in decine ed unità, la somma massima sarebbe stata molto più alta, esattamente 440, perche avrei messo i numeri 90,89,88,87,86.

Ciao Mike!

Grazie per la correzione, sono sparite tutte le date in più che si vedevano, in una prima occhiata alla veloce, non ho capito cosa hai modificato, lo guarderò con calma, grazie ancora.

 

[antonio65]

Ciao Salvo, lo script che ha corretto Mike58 ora è corretto...la sola differenza che tu hai pronosticato solo le cadenze con numero gemello...il resto è tutto ok...

 

[Alien.]

si veramente ottimo per le ambate,ma per prendere il terno su 9 numeri sono circa 50€ con 1 € in 10 colpi sono sempre 40€ di guadagno ma con 2 decine diventano 20 € ma un metodo per il terno secco come si fa ?

 

[salvo50]

la sola differenza che tu hai pronosticato solo le cadenze con numero gemello

Avevi detto che era la ciliegina sulla torta, e quindi...

 

[antonio65]

Ciao Alien...x il terno ci sto lavorando come fare...bisogna capire l'andamento..usavo questo metodo da me inventato negli anni 90 ...
quando esisteva una sola estrazione settimanale...tutto a mano senza script e pc...ora l ho ripreso vediamo cosa esce fuori..
le vincite di allora sono state circa una 20 di ambi secchi più una quaterna secca purtroppo non giocata....14 54 84 44 sulla ruota di Milano...
Sperimentate anche voi!!!

 

[antonio65]

Esatto Salvo lo è ancora...bisogna capire le ruote ed eventuali spostamenti tipo ad esempio faccio un calcolo su Bari però li gioco in un altra ruota...qualcosa del genere!!!!

 

[salvo50]

Esatto Salvo lo è ancora...bisogna capire le ruote ed eventuali spostamenti tipo ad esempio faccio un calcolo su Bari però li gioco in un altra ruota...qualcosa del genere!!!!

OK

Per Mike
L'unica modifica che ho trovato è quella dello spostamento del END IF, ancora non ci posso credere che spostando solo di un riga, quel END IF mi faceva apparire tutte quelle date inutili, veramente di modifiche ne hai fatte due, però l'altra modifica quella della somma estratti, era solo visualizzazione col fuori90 degli estratti, però è più corretto quello che hai fatto, ma ho cambiato il commento, invece di somma estratti ho messo - somma cifre estratti

 

[salvo50]

Ciao a Tutti!

Ho modificato la ricerca per tutte le ruote, ho tolto la ricerca dell'ambo ed ho messo la ricerca della quaterna, perchè l'ambo è perdente per tutte le ruote.

Option Explicit
Sub Main
    TestoInBandaPassante "***** PROGETTO BY ANTONIO65 SCRIPT BY SALVO50 CON LA COLLABORAZIONE DI MIKE58  ****** ",1,4,0
    Dim estr(5),deca(5),poste(5)
    Dim r1,ruote,clp,sommadeca
    Dim idestr,ruota,cad(7),ru(1)
    Dim es,fin,esq
    fin = EstrazioneFin
    'poste(2) = 1
    poste(3) = 1
    poste(4) = 1
    'poste(5) = 1

    esq = InputBox("Inserisci il numero dell'estrazione che vuoi iniziare",idestr,9000)
    clp = InputBox("inserisci per quanti colpi vuoi fare la ricerca",,3)
    Scrivi ""
    cad(2) = Array(0,02,12,22,32,42,52,62,72,82)
    cad(3) = Array(0,03,13,23,33,43,53,63,73,83)
    cad(4) = Array(0,04,14,24,34,44,54,64,74,84)
    cad(5) = Array(0,05,15,25,35,45,55,65,75,85)
    cad(6) = Array(0,06,16,26,36,46,56,66,76,86)
    cad(7) = Array(0,07,17,27,37,47,57,67,77,87)
    For es = esq To fin
        Messaggio es
        AvanzamentoElab esq,fin,es
        For r1 = 1 To 11
            If r1 = 11 Then r1 = 12
            estr(1) = Estratto(es,r1,1)
            estr(2) = Estratto(es,r1,2)
            estr(3) = Estratto(es,r1,3)
            estr(4) = Estratto(es,r1,4)
            estr(5) = Estratto(es,r1,5)
            deca(1) = Decina(estr(1)) + Cadenza(estr(1))
            deca(2) = Decina(estr(2)) + Cadenza(estr(2))
            deca(3) = Decina(estr(3)) + Cadenza(estr(3))
            deca(4) = Decina(estr(4)) + Cadenza(estr(4))
            deca(5) = Decina(estr(5)) + Cadenza(estr(5))
            sommadeca = deca(1) + deca(2) + deca(3) + deca(4) + deca(5)
            If Gemello(sommadeca) Then
                ru(1) = 11
                ColoreTesto 1
                Scrivi(" Estrazione n." & Format2(es) &     " del " & DataEstrazione(es)),0,0
                Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & " - Somma cifre estratti " & sommadeca
                If sommadeca = 22 Then
                    Scrivi StringaNumeri(cad(2))
                    ImpostaGiocata 1,cad(2),ru,poste,clp,0,1
                End If
                If sommadeca = 33 Then
                    Scrivi StringaNumeri(cad(3))
                    ImpostaGiocata 2,cad(3),ru,poste,clp,0,1
                End If
                If sommadeca = 44 Then
                    Scrivi StringaNumeri(cad(4))
                    ImpostaGiocata 3,cad(4),ru,poste,clp,0,1
                End If
                If sommadeca = 55 Then
                    Scrivi StringaNumeri(cad(5))
                    ImpostaGiocata 4,cad(5),ru,poste,clp,0,1
                End If
                If sommadeca = 66 Then
                    Scrivi StringaNumeri(cad(6))
                    ImpostaGiocata 5,cad(6),ru,poste,clp,0,0
                End If
                If sommadeca = 77 Then
                    Scrivi StringaNumeri(cad(7))
                    ImpostaGiocata 6,cad(7),ru,poste,clp,0,0
                    ColoreTesto 0
                End If
                Gioca es
            End If
        Next
    Next
    ScriviResoconto
End Sub

 

[antonio65]

Buongiorno Salvo, ho visto adesso..secondo me dovreste aggiungere le varie estrazioni mensili tipo 1 del mese 2 del mese etc etc

 

[antonio65]

Scusa una cosa Salvo,avevo iniziato uno script con Mike58...forse non è stimolato il grande scripter per questo metodo....io ti allego
lo script dove cerca i migliori 5 algoritmi per ogni estratti....ora quello che cerco io sarebbe questo: una volta trovati i migliori algoritmi
cercare sempre con lo stesso metodo i migliori compagni per ambo e terno....la tecnica matematica è questa:
qualsiasi ruota o mese etc etc bisogna sommare il primo estratto con il secondo estratto con il terzo ,quarto e quinto...cosi il secondo con il terzo etcetc fino ad ottenere 10 somme...ogni somma deve essere moltiplicata x 4...esempio 27+38=65x4=260 infatti il software cche ti allego cerca il miglior algoritmo con la funzione for nu=1 to 90 una volta trovato il miglior algoritmo si prosegue cosi: esempio: supponiamo fosse il 27 si moltiplica x 4 =108 quindi 260-108=152 il tutto diviso 4 senza fuori 90 quindi 152/4=38 se si moltiplica il 38 avevamo poi il 37...
era un esempio di tecnica...ma quello che ti ho scritto vale per la stessa estrazione quindi non porta a niente....rimane solo sommare 1estratto col secondo etc etc ...e bisogna trovare con la funzione For nu=1 to 90


Sub Main()
ColoreTesto 1: Scrivi " X RANDHOUSE ",1
Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA",1
Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
ColoreTesto 0: Scrivi
Dim mm(1)
Dim nam(90,8),nn(1),ruota(1),nt(90,8),n3(90,8),n4(90,8),n5(90,8)
nru1 = CInt(InputBox("Ruota di gioco","Ruota di GIOCO",1))
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,1))
ne = InputBox("Numero estrazioni:","ESTRAZIONI",1592)
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
nStart = Timer ' partenza tempo di elaborazione
For nru11 = 1 To 1
If nru11 = 11 Then nru11 = 12
ColoreTesto 0:Scrivi String(115,"=")
ruota(1) = nru1
For x = 1 To 90
For y = 1 To 8
nam(x,y) = 0
nt(x,y) = 0
n3(x,y) = 0
n4(x,y) = 0
n5(x,y) = 0
Next
Next
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
casi = 0
ultest = 9273
ini = EstrazioneFin - ne
fin = EstrazioneFin
For es = ini To fin

If IndiceMensile(es) = ind Then
If IndiceMensile(es) = ind Or(((eval(ind) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(ind)And(eval(ind) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(ind) = 0)))) Then

colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 1
'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
co = 0
For nu = 1 To 90
co = co + 1

a01 = Estratto(es,nru1,p)
a02 = Estratto(es,nru1,p2)
a03 = Estratto(es,nru1,p3)
a04 = Estratto(es,nru1,p4)
a05 = Estratto(es,nru1,p5)


DNA1 =(a01 + a02)*4
DNA2 =(a01 + a03)*4
DNA3 =(a01 + a04)*4
DNA4 =(a01 + a05)*4
DNA5 =(a02 + a03)*4
DNA6 =(a02 + a04)*4
DNA7 =(a02 + a05)*4
DNA8 =(a03 + a04)*4
DNA9 =(a03 + a05)*4
DNA10 =(a04 + a05)*4

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4

b01 = Fuori90(Abs((Abs((MEN1 - DNA1))/4)))
b02 = Fuori90(Abs((Abs((MEN2 - DNA2))/4)))
b03 = Fuori90(Abs((Abs((MEN3 - DNA3))/4)))
b04 = Fuori90(Abs((Abs((MEN4 - DNA4))/4)))
b05 = Fuori90(Abs((Abs((MEN5 - DNA5))/4)))

'b01 = Fuori90(Abs((Abs((MEN3 - DNA5))/4)))
'b02 = Fuori90(Abs((Abs((MEN2 - DNA6))/4)))
'b03 = Fuori90(Abs((Abs((MEN4 - DNA8))/4)))
'b04 = Fuori90(Abs((Abs((MEN5 - DNA9))/4)))
'b05 = Fuori90(Abs((Abs((MEN4 - DNA10))/4)))

'================================================

nam(co,1) = co
nt(co,1) = co
n3(co,1) = co
n4(co,1) = co
n5(co,1) = co
nam(co,2) = nru11
nt(co,2) = nru11
n3(co,2) = nru11
n4(co,2) = nru11
n5(co,2) = nru11
nam(co,3) = p
nt(co,3) = p2
n3(co,3) = p3
n4(co,3) = p4
n5(co,3) = p5
nam(co,4) = nu
nt(co,4) = nu
n3(co,4) = nu
n4(co,4) = nu
n5(co,4) = nu
nam(co,6) = b01
nt(co,6) = b02
n3(co,6) = b03
n4(co,6) = b04
n5(co,6) = b05
nam(co,7) = 0
nt(co,7) = 0
n3(co,7) = 0
n4(co,7) = 0
n5(co,7) = 0
esncg = es + ncg
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
For ess = es + 1 To esncg
For pp = 1 To 5
e = Estratto(ess,nru11,pp)
If e = b01 Then
nam(co,5) = nam(co,5) + 1
nn(1) = nam(co,6)
nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b02 Then
nt(co,5) = nt(co,5) + 1
nn(1) = nt(co,6)
nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b03 Then
n3(co,5) = n3(co,5) + 1
nn(1) = n3(co,6)
n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b04 Then
n4(co,5) = n4(co,5) + 1
nn(1) = n4(co,6)
n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b05 Then
n5(co,5) = n5(co,5) + 1
nn(1) = n5(co,6)
n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
Next
Next
Next
End If
End If
Next
Scrivi "------------------------------------------"
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi "DNA1" & SiglaRuota(r) & "---" & Format2(DNA1),1
Scrivi "CHEF" & SiglaRuota(r) & "---" & Format2(CHEF),1
Scrivi

If ind = 0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
If ind > 0 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi""
Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
Scrivi""
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice nam,- 1,5
For ca = 1 To 5
mm(1) = nam(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
esitoo = colpo - ratt
'esitoo= Abs(ind - ratt)
If nam(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nam(ca,7) > 0 Then
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esitoo,1
'cc = 0
cc = cc + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & cc,1
ColoreTesto 0
OrdinaMatrice nam,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice nt,- 1,5
For ca = 1 To 5
mm(1) = nt(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito1 = colpo - ratt
esito1 = Abs(ind - ratt)
If nt(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nt(ca,7) > 0 Then
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito1,1
dd = dd + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & dd,1
ColoreTesto 0
OrdinaMatrice nt,- 1,8
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n3,- 1,5
For ca = 1 To 5
mm(1) = n3(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito2 = colpo - ratt
esito2 = Abs(ind - ratt)
If n3(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n3(ca,7) > 0 Then
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito2,1
hh = hh + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & hh,1
ColoreTesto 0
OrdinaMatrice n3,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n4,- 1,5
For ca = 1 To 5
mm(1) = n4(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito3 = colpo - ratt
esito3 = Abs(ind - ratt)
If n4(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n4(ca,7) > 0 Then
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito3,1
ff = ff + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & ff,1
ColoreTesto 0
OrdinaMatrice n4,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n5,- 1,5
For ca = 1 To 5
mm(1) = n5(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito4 = colpo - ratt
esito4 = Abs(ind - ratt)
If n5(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n5(ca,7) > 0 Then
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito4,1
gg = gg + 1
End If
End If
Next
If ScriptInterrotto Then Exit For
Next
'Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & gg,1
ColoreTesto 0
OrdinaMatrice n5,- 1,8
Scrivi String(115,"="),1
Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1
nEnd = Timer ' fine tempo di elaborazione
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

 

[salvo50]

Ho preso lo script, quando ho tempo me lo studio, perchè tra me e Mike58 a riguardo degli script c'è un abisso, io sono all'asilo e lui è un professore, ci sono delle funzioni nello script che non sò cosa sono, quindi devo andare nell' help per capire cosa fanno, comunque per me che voglio imparare è stimolante, ti ringrazio della fiducia.