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
    martedì 22 luglio 2025
    Bari
    29
    03
    79
    27
    86
    Cagliari
    22
    54
    55
    50
    29
    Firenze
    52
    38
    30
    29
    83
    Genova
    08
    62
    20
    69
    26
    Milano
    17
    45
    55
    67
    73
    Napoli
    64
    39
    35
    62
    02
    Palermo
    84
    33
    60
    43
    28
    Roma
    33
    79
    27
    41
    81
    Torino
    35
    58
    38
    70
    56
    Venezia
    64
    11
    07
    57
    27
    Nazionale
    53
    15
    38
    52
    66
    Estrazione Simbolotto
    Nazionale
    18
    24
    03
    21
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto