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
    sabato 13 dicembre 2025
    Bari
    61
    81
    73
    68
    78
    Cagliari
    76
    59
    33
    78
    23
    Firenze
    10
    37
    58
    30
    71
    Genova
    17
    45
    37
    36
    72
    Milano
    10
    71
    70
    46
    87
    Napoli
    21
    11
    51
    68
    01
    Palermo
    84
    72
    26
    17
    79
    Roma
    39
    63
    46
    67
    50
    Torino
    35
    86
    79
    68
    85
    Venezia
    67
    68
    22
    77
    76
    Nazionale
    46
    12
    72
    65
    70
    Estrazione Simbolotto
    Venezia
    05
    13
    40
    35
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto