Novità

A mike58

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
 
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.
 
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.

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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
Indietro
Alto