Novità

A mike58

K

korokoro

Super member
Ciao Mike , se puoi ????
Potresti modificare questo script , che possa cercare LA TERZINA PER L'AMBO .
Grazie Leo


Scrivi : Scrivi"QUESTO SCRIPT CALCOLA DOPO L'USCITA DI UN AMBO SPIA, LE AMBATE E GLI AMBI PIù FREQUENTI SU RUOTA E SU TUTTE"

Sub main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1=CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",29))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",43))
r=CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",12))
rut=CInt (InputBox ("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",10))
rt(1)=rut
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",1100))
clp=CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",1))
ru1(1)=11
fin=EstrazioneFin
ini=EstrazioneFin-ee
For cc=1 To 90
For w=1 To 2
n(cc,w)=0 : nt(cc,w)=0 : nrr(cc,w)=0
Next
Next
co=0 : casi=0
For es=ini To fin
Messaggio " Spia: "&n1&"-"&n2&" Estrazione : "&es
If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2
casi=casi+1
ess=es+clp
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
e=Estratto(x,rut,pp)
n(d,1)=d
nrr(e,1)=e
n(d,2)=n(d,2)+1
nrr(e,2)=nrr(e,2)+1 '<<<
Next
For rr=1 To 10
For p1=1 To 5
g=Estratto (x,rr,p1)
nt(g,1)=g
nt(g,2)=nt(g,2)+1
Next
Next
Next
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1
nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y
yy=SerieFreq(es+1,ess,nn,ru,2)
ambi(co,4)=ambi(co,4)+ yy
If yy>0 Then
ambi(co,5)=ambi(co,5)+ 1
Else
ambi(co,5)=ambi(co,5)
End If
nn1(1)=x : nn1(2)=y
ambi1(co,1)=co : ambi1(co,2)=x : ambi1(co,3)=y
xx=SerieFreq(es+1,ess,nn1,ru1,2)
ambi1(co,4)=ambi1(co,4)+ xx
If xx>0 Then
ambi1(co,5)=ambi1(co,5)+ 1
Else
ambi1(co,5)=ambi1(co,5)
End If
nr(1)=x : nr(2)=y
ambrr(co,1)=co : ambrr(co,2)=x : ambrr(co,3)=y
kk=SerieFreq(es+1,ess,nr,rt,2)
ambrr(co,4)=ambrr(co,4)+ kk
If kk>0 Then
ambrr(co,5)=ambrr(co,5)+ 1
Else
ambrr(co,5)=ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA "&Cint(n1)&" e " &cint (n2)& " Su Ruota Unica" ,1
Scrivi
Scrivi NomeRuota (r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&clp&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
OrdinaMatrice nt,-1,2
OrdinaMatrice nrr,-1,2
OrdinaMatrice ambrr,-1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x=1 To 10
riga=" "& Format2(n(x,1))&"..."& Format2(n(x,2))&" | "&Format2(ambi(x,2))&"-"&_
Format2(ambi(x,3))&"..."& Format2(ambi(x,5))&" | "&_
Format2(ambi1(x,2))&"-"& Format2(ambi1(x,3))&"..."&ambi1(x,5)&" | "& Format2(nt(x,1))&"..."&_
Format2 (nt(x,2))
Scrivi riga
riga=""
Next
Scrivi String (65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di "& NomeRuota (rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x=1 To 10
rige=" "& Format2(nrr(x,1))&"..."& Format2(nrr(x,2))&" | "& Format2(ambrr(x,2))&"-"&_
Format2(ambrr(x,3))&"..."& Format2(ambrr(x,5))
Scrivi rige
rige=""
Next
Scrivi String (65,"*")
End Sub
Clicca per espandere...
 
Ciao Leo, lo script postato in questo modo perde la formattazione e va in errore su molte righe e perdo tempo a capire dove.
Tuttavia dando una lettura dovresti inserire un altro ciclo for next dopo i cicli for x-y (tipo z) avendo cura di scrivere i valori z nele rispettive chiamate di scrittura x ambo e chiudere il nuovo ciclo con il next.
Questa dovrebbe essere la correzione!!!.
Prova o riposta lo script nel giusto modo e magari funzionante.

Ciao Mike.
 
Mike58 ha scritto:
Ciao Leo, lo script postato in questo modo perde la formattazione e va in errore su molte righe e perdo tempo a capire dove.
Tuttavia dando una lettura dovresti inserire un altro ciclo for next dopo i cicli for x-y (tipo z) avendo cura di scrivere i valori z nele rispettive chiamate di scrittura x ambo e chiudere il nuovo ciclo con il next.
Questa dovrebbe essere la correzione!!!.
Prova o riposta lo script nel giusto modo e magari funzionante.

Ciao Mike.
Clicca per espandere...

scusa mike ...

provo ancora

Scrivi : Scrivi"QUESTO SCRIPT CALCOLA DOPO L'USCITA DI UN AMBO SPIA, LE AMBATE E GLI AMBI PIù FREQUENTI SU RUOTA E SU TUTTE"

Sub main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1=CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",29))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",43))
r=CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",12))
rut=CInt (InputBox ("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",10))
rt(1)=rut
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",1100))
clp=CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",1))
ru1(1)=11
fin=EstrazioneFin
ini=EstrazioneFin-ee
For cc=1 To 90
For w=1 To 2
n(cc,w)=0 : nt(cc,w)=0 : nrr(cc,w)=0
Next
Next
co=0 : casi=0
For es=ini To fin
Messaggio " Spia: "&n1&"-"&n2&" Estrazione : "&es
If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2
casi=casi+1
ess=es+clp
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
e=Estratto(x,rut,pp)
n(d,1)=d
nrr(e,1)=e
n(d,2)=n(d,2)+1
nrr(e,2)=nrr(e,2)+1 '<<<
Next
For rr=1 To 10
For p1=1 To 5
g=Estratto (x,rr,p1)
nt(g,1)=g
nt(g,2)=nt(g,2)+1
Next
Next
Next
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1
nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y
yy=SerieFreq(es+1,ess,nn,ru,2)
ambi(co,4)=ambi(co,4)+ yy
If yy>0 Then
ambi(co,5)=ambi(co,5)+ 1
Else
ambi(co,5)=ambi(co,5)
End If
nn1(1)=x : nn1(2)=y
ambi1(co,1)=co : ambi1(co,2)=x : ambi1(co,3)=y
xx=SerieFreq(es+1,ess,nn1,ru1,2)
ambi1(co,4)=ambi1(co,4)+ xx
If xx>0 Then
ambi1(co,5)=ambi1(co,5)+ 1
Else
ambi1(co,5)=ambi1(co,5)
End If
nr(1)=x : nr(2)=y
ambrr(co,1)=co : ambrr(co,2)=x : ambrr(co,3)=y
kk=SerieFreq(es+1,ess,nr,rt,2)
ambrr(co,4)=ambrr(co,4)+ kk
If kk>0 Then
ambrr(co,5)=ambrr(co,5)+ 1
Else
ambrr(co,5)=ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA "&Cint(n1)&" e " &cint (n2)& " Su Ruota Unica" ,1
Scrivi
Scrivi NomeRuota (r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&clp&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
OrdinaMatrice nt,-1,2
OrdinaMatrice nrr,-1,2
OrdinaMatrice ambrr,-1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x=1 To 10
riga=" "& Format2(n(x,1))&"..."& Format2(n(x,2))&" | "&Format2(ambi(x,2))&"-"&_
Format2(ambi(x,3))&"..."& Format2(ambi(x,5))&" | "&_
Format2(ambi1(x,2))&"-"& Format2(ambi1(x,3))&"..."&ambi1(x,5)&" | "& Format2(nt(x,1))&"..."&_
Format2 (nt(x,2))
Scrivi riga
riga=""
Next
Scrivi String (65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di "& NomeRuota (rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x=1 To 10
rige=" "& Format2(nrr(x,1))&"..."& Format2(nrr(x,2))&" | "& Format2(ambrr(x,2))&"-"&_
Format2(ambrr(x,3))&"..."& Format2(ambrr(x,5))
Scrivi rige
rige=""
Next
Scrivi String (65,"*")
End Sub
 
ok terni

ok terni

Ciao Leo, non ti nascondo che ho incontrato qualche difficoltà, però sembra che ci sono riuscito, controlla i dati se sono corretti.


Ciao Mike.

Codice: 
Sub Main()
 Dim ru(3),ru1(10),r,nt(90,3),nrr(90,7),ambrr(120000,7),nr(3),rt(1)
 Dim n(90,7),ambi(120000,7),nn(3),ambi1(120000,7),nn1(3)
 n1 = CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",29))
 n2 = CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",43))
 r = CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",12))
 rut = CInt(InputBox("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",10))
 rt(1) = rut
 ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",1100))
 clp = CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",3))
 ru1(1) = 11
 fin = EstrazioneFin
 ini = EstrazioneFin - ee
 For cc = 1 To 90
  For w = 1 To 3
   n(cc,w) = 0 : nt(cc,w) = 0 : nrr(cc,w) = 0
  Next
 Next
 co = 0 : casi = 0
 For es = ini To fin
  Call Messaggio(" Spia: " & n1 & "-" & n2 & " Estrazione : " & es)
  Call AvanzamentoElab(Ini,fin,es)
  If ScriptInterrotto Then Exit For
  If(Posizione(es,r,n1) > 0 And Posizione(es,r,n2) > 0)Then
   Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & n1 & "_" & n2
   casi = casi + 1
   ess = es + clp
   If ess > fin Then ess = fin End If
   For x = es + 1 To ess
    cc = 0
    For pp = 1 To 5
     d = Estratto(x,r,pp)
     e = Estratto(x,rut,pp)
     n(d,1) = d
     n(d,2) = n(d,2) + 1
     n(d,3) = n(d,3) + 1
     nrr(e,1) = e
     nrr(e,2) = nrr(e,2) + 1 '<<<
     nrr(e,3) = nrr(e,3) + 1
    Next
    For rr = 1 To 10
     For p1 = 1 To 5
      g = Estratto(x,rr,p1)
      nt(g,1) = g
      nt(g,2) = nt(g,2) + 1
      nt(g,3) = nt(g,3) + 1
     Next
    Next
   Next
   co = 0
   For x = 1 To 88
    For y = x + 1 To 89
     For z = y + 1 To 90
      co = co + 1
      nn(1) = x : nn(2) = y : nn(3) = z: ru(1) = r
      ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y : ambi(co,4) = z
      yy = SerieFreq(es + 1,ess,nn,ru,2)
      ambi(co,5) = ambi(co,5) + yy
      If yy > 0 Then
       ambi(co,6) = ambi(co,6) + 1
      Else
       ambi(co,6) = ambi(co,6)
      End If
      nn1(1) = x : nn1(2) = y : nn1(3) = z
      ambi1(co,1) = co : ambi1(co,2) = x : ambi1(co,3) = y : ambi1(co,4) = z
      xx = SerieFreq(es + 1,ess,nn1,ru1,2)
      ambi1(co,5) = ambi1(co,5) + xx
      If xx > 0 Then
       ambi1(co,6) = ambi1(co,6) + 1
      Else
       ambi1(co,6) = ambi1(co,6)
      End If
      nr(1) = x : nr(2) = y : nr(3) = z
      ambrr(co,1) = co : ambrr(co,2) = x : ambrr(co,3) = y : ambrr(co,4) = z
      kk = SerieFreq(es + 1,ess,nr,rt,2)
      ambrr(co,5) = ambrr(co,5) + kk
      If kk > 0 Then
       ambrr(co,6) = ambrr(co,6) + 1
      Else
       ambrr(co,6) = ambrr(co,6)
      End If
     Next
    Next
   Next
  End If
 Next
 Scrivi
 Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
 Scrivi
 Scrivi "AMBO SPIA " & CInt(n1) & " e " & CInt(n2) & " Su Ruota Unica",1
 Scrivi
 Scrivi NomeRuota(r),1
 Scrivi "N° casi: " & CInt(casi),1 : Scrivi
 Scrivi " Frequenti nei " & clp & " colpi successivi",1
 OrdinaMatrice n,- 1,2
 OrdinaMatrice ambi,- 1,5
 OrdinaMatrice ambi1,- 1,5
 OrdinaMatrice nt,- 1,2
 OrdinaMatrice nrr,- 1,2
 OrdinaMatrice ambrr,- 1,5
 ColoreTesto 2
 Scrivi
 Scrivi "Nu.Ruota |  Ambi a Ruota |  Ambi Tutte  | Nu. Tutte "
 ColoreTesto 2
 Scrivi " N° Fr   |   Ambo Freq   |   Ambo Fr    | N°. Fr "
 ColoreTesto 0
 For x = 1 To 10
  riga = " " & Format2(n(x,1)) & "..." & Format2(n(x,2))_
  & " | " & Format2(ambi(x,3)) & "-" & Format2(ambi(x,4)) & "-" & Format2(ambi(x,5)) & "..." & Format2(ambi(x,6))_
  & " | " & Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "-" & Format2(ambi1(x,4)) & "..." & ambi1(x,5)_
  & " | " & Format2(nt(x,1)) & "..." & Format2(n(x,2))
  Scrivi riga
  riga = ""
 Next
 Scrivi String(65,"*")
 ColoreTesto 1
 Scrivi "SELEZIONE RUOTA di " & NomeRuota(rt(1))
 Scrivi "Nu.Ruota | Ambi a Ruota"
 ColoreTesto 2
 Scrivi " N° Fr   | Ambo Freq "
 ColoreTesto 0
 For x = 1 To 10
  rige = " " & Format2(nrr(x,1)) & "..." & Format2(nrr(x,2))_
  & " | " & Format2(ambrr(x,3)) & "-" & Format2(ambrr(x,4)) & "-" & Format2(ambrr(x,5)) & "..." & Format2(ambrr(x,6))
  Scrivi rige
  rige = ""
 Next
 Scrivi String(65,"*")
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 04 maggio 2026
    Bari
    22
    24
    23
    33
    09
    Cagliari
    40
    15
    22
    90
    51
    Firenze
    70
    02
    71
    41
    40
    Genova
    51
    80
    25
    69
    30
    Milano
    23
    28
    89
    02
    64
    Napoli
    16
    54
    41
    08
    56
    Palermo
    18
    25
    11
    66
    36
    Roma
    28
    07
    03
    47
    76
    Torino
    72
    24
    01
    07
    70
    Venezia
    10
    80
    17
    69
    13
    Nazionale
    06
    39
    41
    42
    38
    Estrazione Simbolotto
    Milano
    18
    31
    25
    04
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto