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
    venerdì 17 ottobre 2025
    Bari
    43
    65
    36
    52
    54
    Cagliari
    63
    89
    22
    85
    45
    Firenze
    59
    17
    66
    88
    78
    Genova
    75
    67
    42
    78
    77
    Milano
    12
    21
    87
    66
    31
    Napoli
    38
    75
    61
    68
    76
    Palermo
    42
    90
    20
    33
    71
    Roma
    57
    13
    80
    84
    79
    Torino
    59
    54
    84
    48
    26
    Venezia
    77
    05
    14
    28
    20
    Nazionale
    05
    04
    10
    43
    68
    Estrazione Simbolotto
    42
    38
    16
    25
    34
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto