TROVARE QUANTI PUNTI HA FATTO

salvo50 · 13 Ottobre 2019

Ciao a Tutti.
Premetto che non ho mai seguito il gioco del 10eLotto perchè credevo che i numeri venissero presi da un programma in automatico, non sapevo che erano i primi 2 estratti di ogni ruota.
Ho messo anche la scelta di decidere tra 10eLotto serale e ogni cinque minuti.
Quindi
Seguendo il suggerimento datomi da Mike di usare l'apposita istruzione per il 10eLotto serale, ho fatto la modifica, con una pecca che nel resoconto finale calcola come vincenti le giocate con zero punti che ancora si devono giocare

Codice:

Sub Main
   Dim n(1),nn(13),nn1(07)
   fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9500)
   Arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & " " & Chr(13) & "1 = 10 e lotto serale" & Chr(13) & "2 = 10 e lotto 5 Min ",,1))
   If Arch = 1 Then S = "10 e Lotto Serale"
   If Arch = 2 Then S = "10 e Lotto 5 Minuti"
   Scrivi Space(12) & " METODO " & S,1,,4,,3,,1
   For es = Ini To fin
      Messaggio es
      AvanzamentoElab Ini,fin,es
      If IsUltimaDelMese(es) Then
         casi = casi + 1
         Scrivi String(75,"=") & " caso n° " &(casi),1
         n(1) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2)) 'CALCOLO CAPOGIOCO
         nn(01) = Fuori90((90 +(Estratto(es,BA_,2) + Estratto(es,FI_,1))) - Estratto(es,CA_,2))'CALCOLO CAPOGIOCO
         nn(02) = Fuori90((90 +(Estratto(es,BA_,1) * Estratto(es,VE_,1))) - Estratto(es,FI_,1))'ABBINAMENTO 01
         nn(03) = Fuori90((Estratto(es,CA_,1) + 47) * 83) ' ABBINAMENTO 02
         nn(04) = Fuori90((Estratto(es,FI_,1) + Estratto(es,MI_,2)) + Estratto(es,NA_,1)) ' ABBINAMENTO 03
         nn(05) = Fuori90(((90 + Estratto(es,GE_,4)) - Estratto(es,RO_,5)) * 41) ' ABBINAMENTO 04
         nn(06) = Fuori90(((90 + Estratto(es,MI_,2)) - Estratto(es,BA_,2)) + 69) ' ABBINAMENTO 05
         nn(07) = Fuori90((90 +(Estratto(es,NA_,3) + Estratto(es,VE_,5))) - Estratto(es,TO_,1))'ABBINAMENTO 06
         nn(08) = Fuori90((Estratto(es,PA_,2) + Estratto(es,TO_,3)) + Estratto(es,NZ_,5)) ' ABBINAMENTO 07
         nn(09) = Fuori90((Estratto(es,RO_,2) + Estratto(es,RO_,4)) + 61) ' ABBINAMENTO 08:
         nn(10) = Fuori90((90 +(Estratto(es,TO_,1) + Estratto(es,BA_,3))) - Estratto(es,NA_,4))'ABBINAMENTO 09
         nn(11) = Fuori90((((90 + Estratto(es,VE_,4)) - Estratto(es,NZ_,5)) + 11)) ' ABBINAMENTO 10
         nn(12) = Fuori90((Estratto(es,BA_,2) + Estratto(es,GE_,1)) + 45) ' ABBINAMENTO 11
         nn(13) = Fuori90((90 +(Estratto(es,CA_,1) + Estratto(es,GE_,1))) - Estratto(es,BA_,5))'ABBINAMENTO 12
         OrdinaMatrice nn,1
         Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
         rip = 0
         If NumeriRipetuti(nn) Then
            If NumeriRipetuti(nn) Then Scrivi " NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI" & " - " & StringaNumeri(nn," ",True),1,1,4
            rip = 1
            While NumeriRipetuti(nn)
               For x = 01 To 12
                  For y = x + 01 To 13
                     If nn(x) = nn(y) Then nn(y) = Fuori90(nn(y) + 1)
                  Next
               Next
            Wend
         End If
         If rip = 1 Then Scrivi " IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA",1,1,3
         Scrivi
         Scrivi " Numeri da giocare al 10eLotto per 13 colpi dal " & DataEstrazione(es + 1),1,1,4
         Scrivi " CAPOGIOCO : " & Format2(n(01)),1,1,6
         Scrivi " NUMERI COMPLESSIVI : " & Format2(nn(01)) & " . " & Format2(nn(02)) & " . " & Format2(nn(03)) & " . " & Format2(nn(04)) & " . " & Format2(nn(05)) & " . " & Format2(nn(06)) & " . "_
          & Format2(nn(07)) & " . " & Format2(nn(08)) & " . " & Format2(nn(09)) & " . " & Format2(nn(10)) & " . " & Format2(nn(11)) & " . " & Format2(nn(12)) & " . "_
          & Format2(nn(13)),1,1,6
         nn(00) = n(01)
         ImpostaArchivio10ELotto(Arch)
         For x = 1 To 13
            If ScriptInterrotto Then Exit For
            If VerificaEsitoDL(nn,es + x,1,1,retesito,retcolpi,retestratti,retidestr) = True Then
               Dim EV00,EV01,EV02,EV03,EV04,EV05,EV06,EV07,EV08,EV09,EV10
               Dim XEV00,XEV01,XEV02,XEV03,XEV04,XEV05,XEV06,XEV07,XEV08,XEV09,XEV10
               If RetEsito = "Estratto" Then EV01 = EV01 + 01
               If RetEsito = "Ambo" Then EV02 = EV02 + 01
               If RetEsito = "Terno" Then EV03 = EV03 + 01
               If RetEsito = "Quaterna" Then EV04 = EV04 + 01
               If RetEsito = "Cinquina" Then EV05 = EV05 + 01
               If RetEsito = "Sestina" Then EV06 = EV06 + 01
               If RetEsito = "Sette" Then EV07 = EV07 + 01
               If RetEsito = "Otto" Then EV08 = EV08 + 01
               If RetEsito = "Nove" Then EV09 = EV09 + 01
               If RetEsito = "Dieci" Then EV10 = EV10 + 01
               '
               If RetEsito = "Estratto" Then XEV01 = XEV01 + 01
               If RetEsito = "Ambo" Then XEV02 = XEV02 + 01
               If RetEsito = "Terno" Then XEV03 = XEV03 + 01
               If RetEsito = "Quaterna" Then XEV04 = XEV04 + 01
               If RetEsito = "Cinquina" Then XEV05 = XEV05 + 01
               If RetEsito = "Sestina" Then XEV06 = XEV06 + 01
               If RetEsito = "Sette" Then XEV07 = XEV07 + 01
               If RetEsito = "Otto" Then XEV08 = XEV08 + 01
               If RetEsito = "Nove" Then XEV09 = XEV09 + 01
               If RetEsito = "Dieci" Then XEV10 = XEV10 + 01
               Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneDL(es + x) & " Ambta = " & n(01) & " ..... " & StringaEstrattiDL(es + x," ") & " --- " & FormatSpace(retesito,8,- 1) & " " & retestratti
            Else
               
               Scrivi FormatSpace(x,2,- 1) & "° colpo " & DataEstrazioneDL(es + x) & " Ambta = " & n(01) & " ..... " & StringaEstrattiDL(es + x," ") & " --- " & "Negativo "
                EV00 = EV00 + 1
               XEV00 = XEV00 + 1
               
            End If
         Next
         If EV00 > 0 Or EV01 > 0 Or EV02 > 0 Or EV03 > 0 Or EV04 > 0 Or EV05 > 0 Or EV06 > 0 Or EV07 > 0 Or EV08 > 0 Or EV09 > 0 Or EV10 > 0 Then
            Call Scrivi()
            Call Scrivi("RIEPILOGO ESITI PARZIALI (IN ROSSO QUELLI VINCENTI)")
            Call Scrivi()
            If EV00 > 0 Then Call Scrivi("ZERO    : " & FormattaStringa(EV00,"00"),1,,,2,3)
            If EV01 > 0 Then Call Scrivi("UNO     : " & FormattaStringa(EV01,"00"),1,,,1,3)
            If EV02 > 0 Then Call Scrivi("DUE     : " & FormattaStringa(EV02,"00"),1,,,1,3)
            If EV03 > 0 Then Call Scrivi("TRE     : " & FormattaStringa(EV03,"00"),1,,,1,3)
            If EV04 > 0 Then Call Scrivi("QUATTRO : " & FormattaStringa(EV04,"00"),1,,,1,3)
            If EV05 > 0 Then Call Scrivi("CINQUE  : " & FormattaStringa(EV05,"00"),1,,,2,3)
            If EV06 > 0 Then Call Scrivi("SEI     : " & FormattaStringa(EV06,"00"),1,,,2,3)
            If EV07 > 0 Then Call Scrivi("SETTE   : " & FormattaStringa(EV07,"00"),1,,,2,3)
            If EV08 > 0 Then Call Scrivi("OTTO    : " & FormattaStringa(EV08,"00"),1,,,2,3)
            If EV09 > 0 Then Call Scrivi("NOVE    : " & FormattaStringa(EV09,"00"),1,,,2,3)
            If EV10 > 0 Then Call Scrivi("DIECI   : " & FormattaStringa(EV10,"00"),1,,,2,3)
             EV00 = 0 : EV01 = 0 : EV02 = 0 : EV03 = 0 : EV04 = 0 : EV05 = 0 : EV06 = 0 : EV07 = 0 : EV08 = 0 : EV09 = 0 : EV10 = 0
         End If
      End If
   Next
   Call Scrivi(String(100,"-"))
   Call Scrivi()
   Call Scrivi("RIEPILOGO ESITI COMPLESSIVO (IN ROSSO QUELLI VINCENTI)")
   Call Scrivi()
   If XEV00 > 0 Then Call Scrivi("ZERO    : " & FormattaStringa(XEV00,"00"),1,,,2,3)
   If XEV01 > 0 Then Call Scrivi("UNO     : " & FormattaStringa(XEV01,"00"),1,,,1,3)
   If XEV02 > 0 Then Call Scrivi("DUE     : " & FormattaStringa(XEV02,"00"),1,,,1,3)
   If XEV03 > 0 Then Call Scrivi("TRE     : " & FormattaStringa(XEV03,"00"),1,,,1,3)
   If XEV04 > 0 Then Call Scrivi("QUATTRO : " & FormattaStringa(XEV04,"00"),1,,,1,3)
   If XEV05 > 0 Then Call Scrivi("CINQUE  : " & FormattaStringa(XEV05,"00"),1,,,2,3)
   If XEV06 > 0 Then Call Scrivi("SEI     : " & FormattaStringa(XEV06,"00"),1,,,2,3)
   If XEV07 > 0 Then Call Scrivi("SETTE   : " & FormattaStringa(XEV07,"00"),1,,,2,3)
   If XEV08 > 0 Then Call Scrivi("OTTO    : " & FormattaStringa(XEV08,"00"),1,,,2,3)
   If XEV09 > 0 Then Call Scrivi("NOVE    : " & FormattaStringa(XEV09,"00"),1,,,2,3)
   If XEV10 > 0 Then Call Scrivi("DIECI   : " & FormattaStringa(XEV10,"00"),1,,,2,3)
End Sub

Alien. · 13 Ottobre 2019

è proprio un bel lavoro salvo.
anche qua non si va oltre il 6 vedrò di fare una statistica manualmente per beccare il 6 fisso hhahahaha
in compenso qua il metodo per il 10elotto pare non fermarsi come ha fatto con il superenalotto forse perchè ci sono 20 numeri estratti anzi che 6.

il problema che lottomatica ci mette sempre lo zampino.

Alien. · 13 Ottobre 2019

Scusa salvo stavo controllando lo script ma mi da doppia vincita di 5 numeri uguali ma sono solo 1 cinque.

=========================================================================== caso n° 4

NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI - 17 18 25 35 35 48 49 66 73 75 77 83 90

IL NUMERO RIPETUTO,VIENE AUMENTATO DI UNA UNITA

4° colpo 08.11.2018 Ambta = 35 ..... 01 02 03 05 07 12 27 29 33 50 51 52 53 57 58 67 70 76 81 86 --- Cinquina .. .. .. .. .. 36 .. 48 .. .. .. .. .. 66 73 .. .. .. .. 90

5° colpo 10.11.2018 Ambta = 35 ..... 04 05 06 24 31 36 41 48 50 51 58 59 61 66 73 78 81 86 89 90 --- Cinquina .. .. .. .. .. 36 .. 48 .. .. .. .. .. 66 73 .. .. .. .. 90

Alien. · 13 Ottobre 2019

poi il sette me lo conta come sestina-ovviamente vi è rimasto un pezzo di script del superenalotto.

=========================================================================== caso n° 11

Numeri da giocare al 10eLotto per 13 colpi dal 01.06.2019

CAPOGIOCO : 72

NUMERI COMPLESSIVI : 09 . 13 . 21 . 22 . 34 . 51 . 55 . 61 . 67 . 72 . 82 . 84 . 88

3° colpo 06.06.2019 Ambta = 72 ..... 05 07 13 15 21 22 24 41 43 46 48 51 56 60 61 64 66 82 83 84 --- Sette .. .. 13 .. 21 22 .. .. .. .. .. 51 .. .. 61 .. .. 82 .. 84

salvo50 · 14 Ottobre 2019

Ciao Alien

Nel primo inghippo quello del numero ripetuto, non è il solo, ce ne sono parecchi, che poi lo script li aumenta di 1

nel secondo inghippo quello delle due cinquine uguali, non l'ho risolto devo vedere perchè succede

nel terzo inghippo quello della settina, non è che la settina la legge come sestina, è che la settina proprio non la vede perche la sestina c'è, cioè ci sono sia la sestina che la settina, io come ho già scritto non essendo pratico di 10elotto, le sorti li ho chiamate sestina, settina, ottina, novina e decina, però dato che la sestina la legge e la settina no, ne ho dedotto che lo script la settina non la vede come settina ma come sette, quindi adesso ho cambiato la settina ed ho messo sette, però a questo punto ho cambiato anche ottina, novina e decina in otto, nove e dieci però non lo sò se è giusto, deve capitare una di questaltre sorti per vedere, io non li so simulare, ho corretto lo script, adesso al caso 11 vede sia la sestina che la settina

P.S. potrei simulare le vincite, ma devo togliere tutta la prima parte dello script, dove calcola i tredici numeri

salvo50 · 14 Ottobre 2019

Riguardo al secondo inghippo ho notato che questa ripetizione succede anche in altre estrazioni e sinceramente non riesco a capire, perchè non doppia l'estrazione dopo ma l'estrazione prima, cioè il doppione che non ci deve essere è nell'estrazione prima. Tempo permettendo spero di risolvere

Alien. · 14 Ottobre 2019

non sei pratico ma te la cavi molto bene. Grazie.

salvo50 · 14 Ottobre 2019

Risolto l'inghippo dei doppioni, ho modificato lo script, quindi è da riprendere

Alien. · 14 Ottobre 2019

Perfetto ,peccato che al lotto e superenalotto non funzioni come al 10elotto ci sarebbero 27 cinquine, cavolacci.

Alien. · 14 Ottobre 2019

vediamo se la statistica mi da una mano per 9 colpi 2 terzine ed una quartina

44	88	72
44	88	5


5	44	72	88

keeper · 15 Ottobre 2019

sera mi illustrate un po' il lavoro che avete fatto?

Alien. · 15 Ottobre 2019

Ciao bhe da uno script superenalotto lo abbiamo trasformato in lotto e poi 10elotto
il,super da molto tempo ha smesso di dare 4/ 5/6/ 5+1 il lotto molto meno il 10elotto da 5/6/7 punti. da 2/4 punti 5 ad estrazione su 13 numeri ma il problema è ridurre. Tu ci riesci ?

giorgioantonio · 20 Dicembre 2019

Buongiorno Salvo50,

ho provato gli script e tutti danno errore
variabile non definita
Fin=EStrazioni

Il listato l'ho copiato tale e quale copia e incolla
Alien per caso hai aggiustato qualcosa?
Salve

salvo50 · 20 Dicembre 2019

giorgioantonio ha scritto:
Buongiorno Salvo50,

ho provato gli script e tutti danno errore
variabile non definita
Fin=EStrazioni

Il listato l'ho copiato tale e quale copia e incolla
Alien per caso hai aggiustato qualcosa?
Salve

Probabilmente nel copia-incolla è saltato qualcosa
deve essere
Fin = EstrazioneFin

giorgioantonio · 20 Dicembre 2019

allego solo per spiegare

giorgioantonio · 20 Dicembre 2019

chi mi può rispondere,
programma spaziometria - >superenalotto ->tabellone analitico
l'archivio rimane fisso, non è flessibile.
Per esempio vorrei analizzare ciò che è successo
30 estrazioni precedenti.
L'archivio non si sposta
Grazie per l'aiuto

Cerca

Cerca

TROVARE QUANTI PUNTI HA FATTO

salvo50

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

salvo50

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

Alien.

Advanced Premium Member

keeper

Advanced Member >PLATINUM PLUS<

Alien.

Advanced Premium Member

giorgioantonio

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

giorgioantonio

Super Member >PLATINUM<

Allegati

giorgioantonio

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi