Novità

TROVARE QUANTI PUNTI HA FATTO

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.164
Punti reazione
71
Punti
48
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
 
Ultima modifica:

Alien.

Advanced Premium Member
Messaggi
21.763
Punti reazione
144
Punti
63
è 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.

Advanced Premium Member
Messaggi
21.763
Punti reazione
144
Punti
63
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.

Advanced Premium Member
Messaggi
21.763
Punti reazione
144
Punti
63
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

Advanced Member >PLATINUM PLUS<
Messaggi
2.164
Punti reazione
71
Punti
48
Ciao Alien

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

rigo 4 ripetuti.PNG


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
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.164
Punti reazione
71
Punti
48
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
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.164
Punti reazione
71
Punti
48
Risolto l'inghippo dei doppioni, ho modificato lo script, quindi è da riprendere
 

Alien.

Advanced Premium Member
Messaggi
21.763
Punti reazione
144
Punti
63
Perfetto ,peccato che al lotto e superenalotto non funzioni come al 10elotto ci sarebbero 27 cinquine, cavolacci.
 

Alien.

Advanced Premium Member
Messaggi
21.763
Punti reazione
144
Punti
63
vediamo se la statistica mi da una mano per 9 colpi 2 terzine ed una quartina

448872
44885
5447288
 
Ultima modifica:

keeper

Advanced Member >PLATINUM PLUS<
Messaggi
3.086
Punti reazione
0
Punti
38
sera mi illustrate un po' il lavoro che avete fatto?
 

Alien.

Advanced Premium Member
Messaggi
21.763
Punti reazione
144
Punti
63
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
1
Punti
18
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

Advanced Member >PLATINUM PLUS<
Messaggi
2.164
Punti reazione
71
Punti
48
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

Super Member >PLATINUM<
Messaggi
411
Punti reazione
1
Punti
18
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 22 febbraio 2020
    Bari
    73
    49
    52
    41
    87
    Cagliari
    47
    45
    90
    78
    09
    Firenze
    25
    21
    27
    57
    37
    Genova
    57
    41
    26
    04
    73
    Milano
    03
    40
    14
    18
    80
    Napoli
    36
    50
    13
    41
    78
    Palermo
    60
    45
    47
    78
    30
    Roma
    73
    90
    15
    74
    38
    Torino
    77
    41
    13
    83
    63
    Venezia
    44
    05
    43
    26
    20
    Nazionale
    02
    80
    84
    59
    08
Alto