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

[lla]

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]

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

'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

 

[lla]

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]

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]

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