Novità

TROVARE QUANTI PUNTI HA FATTO

salvo50

Advanced Member >PLATINUM PLUS<
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
è 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
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
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<
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<
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:

Alien.

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

Alien.

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

448872
44885
5447288
 
Ultima modifica:

Alien.

Advanced Premium Member
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<
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
 

giorgioantonio

Super Member >PLATINUM<
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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto