Novità

adattamento script lotto per Superenalotto o modifica a un altro già impostato

lla

Advanced Member >PLATINUM PLUS<
ciao a tutti

tempo fa Joe e Cinzia hanno risposto ad una mia richiesta di trovare i numeri più presenti data una certa somma fra 2 numeri in una ruota.

Domanda si può adattare per il superenalotto ? e invece della condizione somma si possono inserire 2 numeri a scelta ovvero un ambo spia?

eccolo qua:
...............................................
Sub Main()
'Ila : numeri più presenti in un certo numero di estrazioni
'script Cinzia
'Rev. By Joe del 03/08/2019
Dim ru(1),ru1(1),n(90,2)
Dim nu(1)
dd = CInt(InputBox("Risultato della Somma?",,11))
r = CInt(InputBox("Ruota?",,1))
nn = CInt(InputBox("numeri da visualizzare?",,10))
ee = CInt(InputBox("Estrazione di partenza?",,3950))
c = CInt(InputBox("colpi?",,18))
casi = 0
co = 0
ru(1) = R
fin = EstrazioneFin
ini = ee
Scrivi "Dalla " &(ini) & " alla " & EstrazioneFin,True,False
Scrivi " (1° estratto ""+"" 5° Estratto = " & dd & ") su " & NomeRuota(r),True
Scrivi
For es = ini To fin
a = Estratto(es,r,3)
b = Estratto(es,r,5)
dif =(a + b)
If dif = dd Then
Scrivi es
casi = casi + 1
ess = es + c
If ess > fin Then ess = fin End If
''
For d = 1 To 90
nu(1) = d
If SerieFreq(es + 1,ess,nu,ru,1) >= 1 Then
n(d,1) = d
n(d,2) = n(d,2) + 1
End If
Next
''
End If
Next
Scrivi
Scrivi "N° casi: " & CInt(casi),1 : Scrivi
Scrivi
ColoreTesto 2
Scrivi " Positivi in Cicli di " & c & " Estrazioni",1
Scrivi Space(1) & String(34,"-")
OrdinaMatrice n,True,2
Scrivi " N° - PC ",True
For x = 1 To nn
Scrivi Space(1) & Format2(n(x,1)) & " - " & Format2(n(x,2)),True
Next
End Sub
.................................................


Oppure si può adattare questo? che è già per il supernalotto e fatto da Master? In questo si può inserire la coppia di numeri ma non c'è la tabella dei numeri più presenti

........................................
Sub Main
' gioca i numeri da 1 a 20 per 10 colpi se trova i 2 numeri scelti nell'estrazione
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Dim xlp,xColpi,AA,S,A,B,P,P1,P3,E1,Sorte
AA = InputBox("Inserisci 2 Numeri SEPARATI dal punto"," NUMERI SPIA","38.60")
AA = "0." & AA
S = Split(AA,".")
A = CInt(S(1)) : B = CInt(S(2))
Sorte = CInt(InputBox("Sorte ?","SORTE",3))
xColpi = CInt(InputBox("Quanti colpi ?","COLPI",10))
ReDim aNumeri(30) ' array nueri in giocoo
Dim k ' contrllo cicli
For k = 20 To 30 ' preimposto i numeri in gioco da 1 a 20
aNumeri(k) = k
Next
For k = 1 To EstrazioniArchivioSE ' gioco su tutto l'archivio
For P = 01 To 6
For P1 = 01 To 6
If EstrattoSE(k,P) = A And EstrattoSE(k,P1) = B Then ' a e b numeri spia
Scrivi(k) & " " & DataEstrazioneSE(k,1) & " - ",1,0
For P3 = 1 To 8
E1 = EstrattoSE(k,P3)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi" -"
'Call ScriviEstrazioneSE(k,True)
For xlp = 01 To xColpi
If VerificaEsitoSE(aNumeri,k + xlp,Sorte,01,RetEsito,RetColpi,RetEstratti,RetIdEstr) = True Then
ColoreTesto 2
Call Scrivi(FormatSpace(xlp,02,- 01) & "° clp.. " & DataEstrazioneSE(k + xlp) & _
" ... " & StringaNumeri(aNumeri) & " ... " & StringaEstrattiSE(k + xlp) & " --- " & FormatSpace(RetEsito,08,- 01) & " " & RetEstratti)
ColoreTesto 0
ElseIf RetEsito = "" And RetColpi < 01 Then
Call Scrivi("Esito in Corso per il " & Format2(xlp) & "° clp ",01)
Else
Call Scrivi(FormatSpace(xlp,02,- 01) & "° clp.. " & DataEstrazioneSE(k + xlp) & _
" ... " & StringaNumeri(aNumeri) & " ... " & StringaEstrattiSE(k + xlp) & " --- " & "negativo ")
End If
If k + xlp > EstrazioniArchivioSE Then Exit For
Next
Scrivi
End If
Next
Next
Next
End Sub
.................................................................................................

grazie in anticipo x chi può
 

Master

Advanced Member >PLATINUM<
Ciao
Ho questo vecchio listato che usavo anni fa
poi ho trovato più comodo usare spaziometria - superenalotto - numeri spia - e l'ho abbandonato
dovrebbe fare a caso tuo
verificare sempre se i dati sono corretti

Codice:
'Ambate-Ambi Frequenti e presenti Superenalotto dopo due Spie tot colpi
Sub Main()
'Verificare sempre se i dati sono corretti
   Dim n(2),nu1(4005,4),nn(2),mat(4005,4)
   Dim nu2(4005,4),nn1(2),nu3(90,3),nn2(2),nu4(90,3)
   Dim Ini,fin,es,ess,casi,aa,p,pp,co,x1,y1,k1,k2,xx,k3,ww,wx,nv,s,riga
   aa = InputBox("Inserisci i due num. separati dal punto","Numeri di Ricerca","03.70")
   aa = "0." & aa
   s = Split(aa,".")
   n(1) = CInt(s(1))
   n(2) = CInt(s(2))
   ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",18)
   nv = InputBox("Quanti numeri vuoi visualizzare?","NUMERI VISUALIZZO",20)
   Ini = 1
   fin = EstrazioniArchivioSE
   ColoreTesto 2
   Scrivi Space(6) & "Formazione Spia Cercata " & StringaNumeri(n) & " dal " & _
   DataEstrazioneSE(Ini) & " al " & DataEstrazioneSE(fin) & ""
   Scrivi
   For es = Ini To fin
      Messaggio " Numeri Spia " & StringaNumeri(n) & " Data " & DataEstrazioneSE(es)
      For p = 1 To 6
         For pp = 1 To 6
            If EstrattoSE(es,p) = n(1) And EstrattoSE(es,pp) = n(2) Then
               ColoreTesto 0
               Scrivi Space(18) & DataEstrazioneSE(es) & Space(3) & StringaEstrattiSE(es)
               casi = casi + 1
               ess = es + ww
               If ess > fin Then ess = fin End If
               co = 0
               For x1 = 1 To 89
                  For y1 = x1 + 1 To 90
                     co = co + 1
                     nu1(co,1) = co : nu1(co,2) = x1 : nu1(co,3) = y1
                     nn(1) = x1 : nn(2) = y1
                     k1 = SerieFreqSE(es + 1,ess,nn,2)
                     nu1(co,4) = nu1(co,4) + k1
                     nu2(co,1) = co : nu2(co,2) = x1 : nu2(co,3) = y1
                     nn1(1) = x1 : nn1(2) = y1
                     k2 = SerieFreqSE(es + 1,ess,nn1,2)
                     If k2 > 1 Then k2 = 1
                     nu2(co,4) = nu2(co,4) + k2
                  Next
               Next
               co = 0
               For xx = 1 To 90
                  co = co + 1
                  nu3(co,1) = co : nu3(co,2) = xx
                  nn2(1) = xx
                  k3 = SerieFreqSE(es + 1,ess,nn2,1)
                  If k3 > 1 Then k3 = 1
                  nu3(co,3) = nu3(co,3) + k3
                  nu4(co,1) = co : nu4(co,2) = xx
                  nn2(1) = xx
                  k4 = SerieFreqSE(es + 1,ess,nn2,1)
                  nu4(co,3) = nu4(co,3) + k4
               Next
            End If
         Next
      Next
   Next
   OrdinaMatrice nu1,- 1,4
   OrdinaMatrice nu2,- 1,4
   OrdinaMatrice nu3,- 1,3
   OrdinaMatrice nu4,- 1,3
   ColoreTesto 1
   Scrivi:Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _
   " estrazioni sucessive "
   Scrivi
   ColoreTesto 2
   Scrivi Space(6) & "Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE "
   ColoreTesto 0
   For wx = 1 To nv
      riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & " tot " & Format2(nu1(wx,4)) & Space(4) & _
      Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & " tot " & Format2(nu2(wx,4)) & Space(5) & _
      Format2(nu3(wx,2)) & " tot " & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & " tot " & _
      Format2(nu4(wx,3))
      Scrivi Space(7) & riga,1
      riga = ""
   Next
End Sub
 
  • Like
Reazioni: lla

lla

Advanced Member >PLATINUM PLUS<
mm peccato questo non conteggia i casi positivi sul totale
avevo bisogno di sapere quali sono i numeri che si presentano di più
x esempio spia 44 55:

su 10 estrazioni il 50 è uscito in 8 estrazioni
il 20 in 7 estrazioni su 10
il 30 in 6 estrazioni su 10
e così via
 

Master

Advanced Member >PLATINUM<
Ciao
Esempio reale
Formazione Spia Cercata 44.55 dal 03.12.1997 al 04.06.2020 (dall'estrazione 1 all'ultima)
Casi riscontrati 7 - Analisi effettuata sulle 10 estrazioni sucessive
Estratto+PRE
68 tot 07 ---> il 68 è stato positivo 7 volte su 7 casi riscontrati nelle 10 estrazioni successive
08 tot 07 ---> l' 8 è stato positivo 7 volte su 7 casi riscontrati nelle 10 estrazioni successive
55 tot 06 ---> il 55 è stato positivo 6 volte su 7 casi riscontrati nelle 10 estrazioni successive
etc..etc
non è questo quello che cerchi?
 

lla

Advanced Member >PLATINUM PLUS<
in realtà sì ma ieri avevo fatto una verifica e non mi tornava, avevo modificato i parametri può essere che mi si siano incrociati gli occhi . ricontrollo
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto