lla
Premium Member
ciao
qualcuno che vuole adattare questo script anche per il lotto?
con risultati su ruota a scelta e su tutte
grazie
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","86.89")
aa = "0." & aa
s = Split(aa,".")
n(1) = CInt(s(1))
n(2) = CInt(s(2))
ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",9)
nv = InputBox("Quanti numeri vuoi visualizzare?","NUMERI VISUALIZZO",10)
Ini = 1
fin = EstrazioniArchivioSE - 1
ColoreTesto 2
Scrivi Space(6) & "Formazione Spia Cercata " & StringaNumeri & " dal " & _
DataEstrazioneSE(Ini) & " al " & DataEstrazioneSE(fin) & ""
Scrivi
For es = Ini To fin
Messaggio " Numeri Spia " & StringaNumeri & " 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
qualcuno che vuole adattare questo script anche per il lotto?
con risultati su ruota a scelta e su tutte
grazie
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","86.89")
aa = "0." & aa
s = Split(aa,".")
n(1) = CInt(s(1))
n(2) = CInt(s(2))
ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",9)
nv = InputBox("Quanti numeri vuoi visualizzare?","NUMERI VISUALIZZO",10)
Ini = 1
fin = EstrazioniArchivioSE - 1
ColoreTesto 2
Scrivi Space(6) & "Formazione Spia Cercata " & StringaNumeri & " dal " & _
DataEstrazioneSE(Ini) & " al " & DataEstrazioneSE(fin) & ""
Scrivi
For es = Ini To fin
Messaggio " Numeri Spia " & StringaNumeri & " 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