Novità

impantanata in questo listato

herat

Advanced Member
Buonasera, ho adattato questo script alla mia ricerca

Pero non riesco a impostare una ulteriore ricerca che riguarda i 3 numeri tra n, m, o, p , q, r che hanno maggiore ritardo a tutte per ambo
Lo script, praticamente, tra i 6 numeri ritardatari dovrebbe estrapolare i 3 che hanno maggiore ritardo per ambo su tutte le 11 ruote

Grazie a chi mi aiutera


Sub Main()
Dim n(1)
Dim m(1)
Dim o(1)
Dim p(1)
Dim numero1(12,1),numero2(12,1),numero3(12,1),numero4(12,1),numero5(12,1),numero6(12,1)
Dim numer1(12,2)
Dim am(10)
Dim an(10),ruote(12)
Dim posta(5)
Dim ruota1(12)
Dim ruota2(12)
Dim ruota3(12),ruota4(12),ruota5(12),q(1),r(1),ruota6(12)
posta(2) = 1

fin = EstrazioneFin
ini = fin - 100
For es = ini To fin
AvanzamentoElab ini,fin,es

For r1 = 1 To 12
For r2 = r1 + 1 To 12
For r3 = r2 + 1 To 12
For r4 = r3 + 1 To 12
For r5 = r4 + 1 To 12
For r6 = r5 + 1 To 12
ruota1(1) = r1
ruota2(1) = r2
ruota3(1) = r3
ruota4(1) = r4
ruota5(1) = r5
ruota6(1) = r6

n(1) = NumeroPosRitTurbo(es,r1,1)
m(1) = NumeroPosRitTurbo(es,r2,1)
o(1) = NumeroPosRitTurbo(es,r3,1)
p(1) = NumeroPosRitTurbo(es,r4,1)
q(1) = NumeroPosRitTurbo(es,r5,1)
r(1) = NumeroPosRitTurbo(es,r6,1)
If n(1) <> numero1(r1,1) Or o(1) <> numero2(r2,1) And m(1) <> numero3(r3,1) Or p(1) <> numero4(r4,1) Or q(1) <> numero5(r5,1) Or r(1) <> numero6(r6,1) Then
rt1 = SerieRitardoTurbo(es - 300,es,n,ruota1,1)
rt2 = SerieRitardoTurbo(es - 300,es,m,ruota2,1)
rt3 = SerieRitardoTurbo(es - 300,es,o,ruota3,1)
rt4 = SerieRitardoTurbo(es - 300,es,p,ruota4,1)
rt5 = SerieRitardoTurbo(es - 300,es,q,ruota5,1)
rt6 = SerieRitardoTurbo(es - 300,es,r,ruota6,1)

If rt1 > 89 And rt2 > 89 And rt3 > 89 And rt4 > 89 And rt5 > 89 And rt6 > 89 Then
If r6 <> TT_ And r6 <> r1 And r6 <> r2 And r6 <> r3 And r6 <> r4 And r6 <> r5 And r3 <> TT_ And r1 <> r2 And r1 <> TT_ And r1 <> r3 And r1 <> r4 And r2 <> r3 And r2 <> r4 And r3 <> r4 And r2 <> TT_ And r4 <> TT_ And r5 <> r1 And r5 <> r2 And r5 <> r3 And r5 <> r4 And r5 <> TT_ Then
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),2) & " " & _
Format2(n(1)) & "-->> con ritardo di " & rt1,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r2),2) & " " & _
Format2(m(1)) & "-->> con ritardo di " & rt2,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r3),2) & " " & _
Format2(o(1)) & "-->> con ritardo di " & rt3,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r4),2) & " " & _
Format2(p(1)) & "-->> con ritardo di " & rt4,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r5),2) & " " & _
Format2(q(1)) & "-->> con ritardo di " & rt5,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r6),2) & " " & _
Format2(r(1)) & "-->> con ritardo di " & rt6,1ColoreTesto 0
ruote(1) = ruota1(1)
ruote(2) = ruota2(1)
ruote(3) = ruota3(1)
ruote(4) = ruota4(1)
ruote(5) = ruota5(1)
ruote(6) = ruota6(1)
am(1) = n(1)
am(2) = o(1)
am(3) = m(1)
am(4) = p(1)
am(5) = q(1)
am(6) = r(1)
ImpostaGiocata 1,am,ruote,posta,18,2


numero1(r1,1) = am(1)' Memorizzo i due ritardari trovati
numero2(r2,1) = am(2)' Memorizzo i due ritardari trovati
numero3(r3,1) = am(3)' Memorizzo i due ritardari trovati
numero4(r4,1) = am(4)' Memorizzo i due ritardari trovati
numero5(r5,1) = am(5)
numero5(r6,1) = am(6)


Gioca es

Scrivi
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
 

lotto_tom75

Advanced Premium Member
Ciao anagramma di Cuore e Terra :) , complimenti per lo script. Ho provato ad implementarlo con del codice aggiuntivo che in parte dovrebbe fare quello che cerchi. In pratica per ogni condizione rilevata ti crea i 15 ambi generabili integralmente con i 6 numeri trovati e te li ordina per ritardo crescente. Tutto quello che ti rimane da fare è prendere quelli voluti con RA MAX in fondo alla lista dinamica mostrata caso per caso. Per analizzare le 100 estrazioni che hai impostato di default lo script impiega ca 15 min. Ad ogni modo puoi interromperlo quando preferisci con il bottone STOP apposito. Ciao e Buone Analisi Lotto Ludiche herat ;) Ps: Controlla sempre se vi sono errori di analisi e di report comunque.

Codice:
[FONT=georgia]Sub Main()
Dim n(1)
Dim m(1)
Dim o(1)
Dim p(1)
Dim numero1(12,1),numero2(12,1),numero3(12,1),numero4(12,1),numero5(12,1),numero6(12,1)
Dim numer1(12,2)
Dim am(10)
Dim an(10),ruote(12)
Dim posta(5)
Dim ruota1(12)
Dim ruota2(12)
Dim ruota3(12),ruota4(12),ruota5(12),q(1),r(1),ruota6(12)
posta(2) = 1

fin = EstrazioneFin
ini = fin - 100 'il valore immesso inizialmente era 100
For es = ini To fin
AvanzamentoElab ini,fin,es

For r1 = 1 To 12
For r2 = r1 + 1 To 12
For r3 = r2 + 1 To 12
For r4 = r3 + 1 To 12
For r5 = r4 + 1 To 12
For r6 = r5 + 1 To 12
ruota1(1) = r1
ruota2(1) = r2
ruota3(1) = r3
ruota4(1) = r4
ruota5(1) = r5
ruota6(1) = r6

n(1) = NumeroPosRitTurbo(es,r1,1)
m(1) = NumeroPosRitTurbo(es,r2,1)
o(1) = NumeroPosRitTurbo(es,r3,1)
p(1) = NumeroPosRitTurbo(es,r4,1)
q(1) = NumeroPosRitTurbo(es,r5,1)
r(1) = NumeroPosRitTurbo(es,r6,1)
If n(1) <> numero1(r1,1) Or o(1) <> numero2(r2,1) And m(1) <> numero3(r3,1) Or p(1) <> numero4(r4,1) Or q(1) <> numero5(r5,1) Or r(1) <> numero6(r6,1) Then
rt1 = SerieRitardoTurbo(es - 300,es,n,ruota1,1)
rt2 = SerieRitardoTurbo(es - 300,es,m,ruota2,1)
rt3 = SerieRitardoTurbo(es - 300,es,o,ruota3,1)
rt4 = SerieRitardoTurbo(es - 300,es,p,ruota4,1)
rt5 = SerieRitardoTurbo(es - 300,es,q,ruota5,1)
rt6 = SerieRitardoTurbo(es - 300,es,r,ruota6,1)

If rt1 > 89 And rt2 > 89 And rt3 > 89 And rt4 > 89 And rt5 > 89 And rt6 > 89 Then
If r6 <> TT_ And r6 <> r1 And r6 <> r2 And r6 <> r3 And r6 <> r4 And r6 <> r5 And r3 <> TT_ And r1 <> r2 And r1 <> TT_ And r1 <> r3 And r1 <> r4 And r2 <> r3 And r2 <> r4 And r3 <> r4 And r2 <> TT_ And r4 <> TT_ And r5 <> r1 And r5 <> r2 And r5 <> r3 And r5 <> r4 And r5 <> TT_ Then
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),2) & " " & _
Format2(n(1)) & "-->> con ritardo di " & rt1,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r2),2) & " " & _
Format2(m(1)) & "-->> con ritardo di " & rt2,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r3),2) & " " & _
Format2(o(1)) & "-->> con ritardo di " & rt3,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r4),2) & " " & _
Format2(p(1)) & "-->> con ritardo di " & rt4,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r5),2) & " " & _
Format2(q(1)) & "-->> con ritardo di " & rt5,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r6),2) & " " & _
Format2(r(1)) & "-->> con ritardo di " & rt6,1 'ColoreTesto 0
ruote(1) = ruota1(1)
ruote(2) = ruota2(1)
ruote(3) = ruota3(1)
ruote(4) = ruota4(1)
ruote(5) = ruota5(1)
ruote(6) = ruota6(1)

am(1) = n(1)
am(2) = o(1)
am(3) = m(1)
am(4) = p(1)
am(5) = q(1)
am(6) = r(1)

ImpostaGiocata 1,am,ruote,posta,18,2


numero1(r1,1) = am(1)' Memorizzo i due ritardari trovati
numero2(r2,1) = am(2)' Memorizzo i due ritardari trovati
numero3(r3,1) = am(3)' Memorizzo i due ritardari trovati
numero4(r4,1) = am(4)' Memorizzo i due ritardari trovati
numero5(r5,1) = am(5)
numero5(r6,1) = am(6)




Gioca es

Scrivi

'prova inserimento codice diretto senza sub

Dim k
Dim Classe
Dim aCol
'ReDim am(90),anum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot

Scrivi("arrivano qui i valori di anum? " & am(1)&am(2)&am(3)&am(4)&am(5)&am(6))

'ReDim a(6,6) 'crea matrice

Dim contatore
contatore = 1

'ReDim anum(0)
'QuantitaNumeriScelti = ScegliNumeri(anum)


ReDim aRuoteSel(12)

   ReDim aRuoteSel(12)
   'RuoteSelezionate = ScegliRuote(aRuoteSel)

   Call Scrivi(" ---------------------------------------------------------------- ")
   Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
   Call Scrivi(" ---------------------------------------------------------------- ")


   ReDim aTitoli(9)
   aTitoli(1) = "Formazione"
   aTitoli(2) = "Ruota"
   aTitoli(3) = "Sorte"
   aTitoli(4) = "Ritardo"
   aTitoli(5) = "Ritardo Massimo"
   aTitoli(6) = "Incremento di RItardo Massimo"
   aTitoli(7) = "Frequenza"
   aTitoli(8) = "Diff"
   aTitoli(9) = "Counter"

   Call InitTabella(aTitoli)

nSorte = 2
Classe = 2

   'For k = 1 To RuoteSelezionate
'      Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)) & " classe " & Classe & " sorte " & nSorte)
'      
'   Next
'






ColTot = InitSviluppoIntegrale(am,Classe)




If ColTot > 0 Then


Do While GetCombSviluppo(aCol) = True


i = i + 1


ReDim aRuoteTmp(1)


   'Dim k
   Dim clsN
   Dim Coll

   Set Coll = GetNewCollection


For k = 1 To 1 'RuoteSelezionate






aRuoteTmp(1) = aRuoteSel(k)

aRuoteTmp(1) = 11 'imposto la ruota TUTTE


Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

Diff = RetRitMax - RetRit1

 Set clsN = New clsRitardo

      clsN.numero = StringaNumeri(aCol)
      clsN.aRuote = "ruota:" & SiglaRuota(aRuoteTmp(1))
      clsN.nSorte = nSorte
      clsN.nritardo = RetRit1
      clsN.RetRitMax = RetRitMax
      clsN.RetRitIncrRitMax = RetIncrRitMax
      clsN.RetFreq = RetFreq
      clsN.difforo = Diff
      clsN.contatore = contatore


Dim Diff
Diff = RetRitMax - RetRit1


Dim rapportoRARS
rapportoRARS = RetRit1/RetRitMax

Call AvanzamentoElab(1,ColTot,i)









If(RetRit1 >= 0) Then


Call Messaggio("Elaborazione...") '& SiglaRuota(aRuoteSel(k)))


'Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " DIFF " & Diff & " contatore " & contatore & " x sorte di punti: " & nSorte)
contatore = contatore + 1




'Call OrdinaRisultati




Else


Call Messaggio("Colonna " & i)


End If

   'OrdinaMatrice a,1,6

   'ScriviMatrice a


If ScriptInterrotto Then Exit Do


      Coll.Add clsN,"k" & clsN.numero
      'Call AvanzamentoElab(1,90,k)


Next


'Call OrdinaItemCollection(Coll,"nRitardo","Numero")

   'ReDim aTitoli(7)
   'aTitoli(1) = "Formazione"
   'aTitoli(2) = "Ruota"
   'aTitoli(3) = "Sorte"
   'aTitoli(4) = "Ritardo"
   'aTitoli(5) = "Ritardo Massimo"
   'aTitoli(6) = "Incremento di RItardo Massimo"
   'aTitoli(7) = "Frequenza"

   'Call InitTabella(aTitoli)

 For Each clsN In Coll
      ReDim aValue(9)

      aValue(1) = clsN.numero
      aValue(2) = clsN.aRuote
      aValue(3) = clsN.nSorte
      aValue(4) = clsN.nritardo
      aValue(5) = clsN.RetRitMax
      aValue(6) = clsN.RetRitIncrRitMax
      aValue(7) = clsN.RetFreq
      aValue(8) = clsN.difforo
      aValue(9) = clsN.contatore

      Call AddRigaTabella(aValue)

      'Call CreaTabella(7,0,1)

   Next

  'Call CreaTabella(7,0,1)



Loop

'Call OrdinaItemCollection(Coll,"Ritardo")
  Call CreaTabella(4,2,0)

End If

   'Call CreaTabella(7,0,1)

'---------------------------------------------


End If
End If
End If
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
'Call OrdinaCollectionAmbiPiuInRitardoSuTUTTE(anum)





Next

Scrivi("arrivano ALMENO qui i valori di anum? " & am(1)&am(2)&am(3)&am(4)&am(5)&am(6))


'Call OrdinaCollectionAmbiPiuInRitardoSuTUTTE(am)
ScriviResoconto
End Sub



Class clsRitardo
   Dim numero
   Dim nRitardo
   Dim aCol
   Dim aRuote
   Dim nSorte
   Dim RetRit1
   Dim RetRitMax
   Dim RetRitIncrRitMax
   Dim RetFreq
   Dim difforo
   Dim contatore

End Class[/FONT]
 
Ultima modifica:

herat

Advanced Member
lotto_tom75;n2186490 ha scritto:
Ciao anagramma di Cuore e Terra :) , complimenti per lo script. Ho provato ad implementarlo con del codice aggiuntivo che in parte dovrebbe fare quello che cerchi. In pratica per ogni condizione rilevata ti crea i 15 ambi generabili integralmente con i 6 numeri trovati e te li ordina per ritardo crescente. Tutto quello che ti rimane da fare è prendere quelli voluti con RA MAX in fondo alla lista dinamica mostrata caso per caso. Per analizzare le 100 estrazioni che hai impostato di default lo script impiega ca 15 min. Ad ogni modo puoi interromperlo quando preferisci con il bottone STOP apposito. Ciao e Buone Analisi Lotto Ludiche herat ;) Ps: Controlla sempre se vi sono errori di analisi e di report comunque.

Codice:
[FONT=georgia]Sub Main()
Dim n(1)
Dim m(1)
Dim o(1)
Dim p(1)
Dim numero1(12,1),numero2(12,1),numero3(12,1),numero4(12,1),numero5(12,1),numero6(12,1)
Dim numer1(12,2)
Dim am(10)
Dim an(10),ruote(12)
Dim posta(5)
Dim ruota1(12)
Dim ruota2(12)
Dim ruota3(12),ruota4(12),ruota5(12),q(1),r(1),ruota6(12)
posta(2) = 1

fin = EstrazioneFin
ini = fin - 100 'il valore immesso inizialmente era 100
For es = ini To fin
AvanzamentoElab ini,fin,es

For r1 = 1 To 12
For r2 = r1 + 1 To 12
For r3 = r2 + 1 To 12
For r4 = r3 + 1 To 12
For r5 = r4 + 1 To 12
For r6 = r5 + 1 To 12
ruota1(1) = r1
ruota2(1) = r2
ruota3(1) = r3
ruota4(1) = r4
ruota5(1) = r5
ruota6(1) = r6

n(1) = NumeroPosRitTurbo(es,r1,1)
m(1) = NumeroPosRitTurbo(es,r2,1)
o(1) = NumeroPosRitTurbo(es,r3,1)
p(1) = NumeroPosRitTurbo(es,r4,1)
q(1) = NumeroPosRitTurbo(es,r5,1)
r(1) = NumeroPosRitTurbo(es,r6,1)
If n(1) <> numero1(r1,1) Or o(1) <> numero2(r2,1) And m(1) <> numero3(r3,1) Or p(1) <> numero4(r4,1) Or q(1) <> numero5(r5,1) Or r(1) <> numero6(r6,1) Then
rt1 = SerieRitardoTurbo(es - 300,es,n,ruota1,1)
rt2 = SerieRitardoTurbo(es - 300,es,m,ruota2,1)
rt3 = SerieRitardoTurbo(es - 300,es,o,ruota3,1)
rt4 = SerieRitardoTurbo(es - 300,es,p,ruota4,1)
rt5 = SerieRitardoTurbo(es - 300,es,q,ruota5,1)
rt6 = SerieRitardoTurbo(es - 300,es,r,ruota6,1)

If rt1 > 89 And rt2 > 89 And rt3 > 89 And rt4 > 89 And rt5 > 89 And rt6 > 89 Then
If r6 <> TT_ And r6 <> r1 And r6 <> r2 And r6 <> r3 And r6 <> r4 And r6 <> r5 And r3 <> TT_ And r1 <> r2 And r1 <> TT_ And r1 <> r3 And r1 <> r4 And r2 <> r3 And r2 <> r4 And r3 <> r4 And r2 <> TT_ And r4 <> TT_ And r5 <> r1 And r5 <> r2 And r5 <> r3 And r5 <> r4 And r5 <> TT_ Then
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),2) & " " & _
Format2(n(1)) & "-->> con ritardo di " & rt1,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r2),2) & " " & _
Format2(m(1)) & "-->> con ritardo di " & rt2,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r3),2) & " " & _
Format2(o(1)) & "-->> con ritardo di " & rt3,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r4),2) & " " & _
Format2(p(1)) & "-->> con ritardo di " & rt4,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r5),2) & " " & _
Format2(q(1)) & "-->> con ritardo di " & rt5,1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r6),2) & " " & _
Format2(r(1)) & "-->> con ritardo di " & rt6,1 'ColoreTesto 0
ruote(1) = ruota1(1)
ruote(2) = ruota2(1)
ruote(3) = ruota3(1)
ruote(4) = ruota4(1)
ruote(5) = ruota5(1)
ruote(6) = ruota6(1)

am(1) = n(1)
am(2) = o(1)
am(3) = m(1)
am(4) = p(1)
am(5) = q(1)
am(6) = r(1)

ImpostaGiocata 1,am,ruote,posta,18,2


numero1(r1,1) = am(1)' Memorizzo i due ritardari trovati
numero2(r2,1) = am(2)' Memorizzo i due ritardari trovati
numero3(r3,1) = am(3)' Memorizzo i due ritardari trovati
numero4(r4,1) = am(4)' Memorizzo i due ritardari trovati
numero5(r5,1) = am(5)
numero5(r6,1) = am(6)




Gioca es

Scrivi

'prova inserimento codice diretto senza sub

Dim k
Dim Classe
Dim aCol
'ReDim am(90),anum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot

Scrivi("arrivano qui i valori di anum? " & am(1)&am(2)&am(3)&am(4)&am(5)&am(6))

'ReDim a(6,6) 'crea matrice

Dim contatore
contatore = 1

'ReDim anum(0)
'QuantitaNumeriScelti = ScegliNumeri(anum)


ReDim aRuoteSel(12)

ReDim aRuoteSel(12)
'RuoteSelezionate = ScegliRuote(aRuoteSel)

Call Scrivi(" ---------------------------------------------------------------- ")
Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
Call Scrivi(" ---------------------------------------------------------------- ")


ReDim aTitoli(9)
aTitoli(1) = "Formazione"
aTitoli(2) = "Ruota"
aTitoli(3) = "Sorte"
aTitoli(4) = "Ritardo"
aTitoli(5) = "Ritardo Massimo"
aTitoli(6) = "Incremento di RItardo Massimo"
aTitoli(7) = "Frequenza"
aTitoli(8) = "Diff"
aTitoli(9) = "Counter"

Call InitTabella(aTitoli)

nSorte = 2
Classe = 2

'For k = 1 To RuoteSelezionate
' Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)) & " classe " & Classe & " sorte " & nSorte)
'
' Next
'






ColTot = InitSviluppoIntegrale(am,Classe)




If ColTot > 0 Then


Do While GetCombSviluppo(aCol) = True


i = i + 1


ReDim aRuoteTmp(1)


'Dim k
Dim clsN
Dim Coll

Set Coll = GetNewCollection


For k = 1 To 1 'RuoteSelezionate






aRuoteTmp(1) = aRuoteSel(k)

aRuoteTmp(1) = 11 'imposto la ruota TUTTE


Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

Diff = RetRitMax - RetRit1

Set clsN = New clsRitardo

clsN.numero = StringaNumeri(aCol)
clsN.aRuote = "ruota:" & SiglaRuota(aRuoteTmp(1))
clsN.nSorte = nSorte
clsN.nritardo = RetRit1
clsN.RetRitMax = RetRitMax
clsN.RetRitIncrRitMax = RetIncrRitMax
clsN.RetFreq = RetFreq
clsN.difforo = Diff
clsN.contatore = contatore


Dim Diff
Diff = RetRitMax - RetRit1


Dim rapportoRARS
rapportoRARS = RetRit1/RetRitMax

Call AvanzamentoElab(1,ColTot,i)









If(RetRit1 >= 0) Then


Call Messaggio("Elaborazione...") '& SiglaRuota(aRuoteSel(k)))


'Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " DIFF " & Diff & " contatore " & contatore & " x sorte di punti: " & nSorte)
contatore = contatore + 1




'Call OrdinaRisultati




Else


Call Messaggio("Colonna " & i)


End If

'OrdinaMatrice a,1,6

'ScriviMatrice a


If ScriptInterrotto Then Exit Do


Coll.Add clsN,"k" & clsN.numero
'Call AvanzamentoElab(1,90,k)


Next


'Call OrdinaItemCollection(Coll,"nRitardo","Numero")

'ReDim aTitoli(7)
'aTitoli(1) = "Formazione"
'aTitoli(2) = "Ruota"
'aTitoli(3) = "Sorte"
'aTitoli(4) = "Ritardo"
'aTitoli(5) = "Ritardo Massimo"
'aTitoli(6) = "Incremento di RItardo Massimo"
'aTitoli(7) = "Frequenza"

'Call InitTabella(aTitoli)

For Each clsN In Coll
ReDim aValue(9)

aValue(1) = clsN.numero
aValue(2) = clsN.aRuote
aValue(3) = clsN.nSorte
aValue(4) = clsN.nritardo
aValue(5) = clsN.RetRitMax
aValue(6) = clsN.RetRitIncrRitMax
aValue(7) = clsN.RetFreq
aValue(8) = clsN.difforo
aValue(9) = clsN.contatore

Call AddRigaTabella(aValue)

'Call CreaTabella(7,0,1)

Next

'Call CreaTabella(7,0,1)



Loop

'Call OrdinaItemCollection(Coll,"Ritardo")
Call CreaTabella(4,2,0)

End If

'Call CreaTabella(7,0,1)

'---------------------------------------------


End If
End If
End If
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next
'Call OrdinaCollectionAmbiPiuInRitardoSuTUTTE(anum)





Next

Scrivi("arrivano ALMENO qui i valori di anum? " & am(1)&am(2)&am(3)&am(4)&am(5)&am(6))


'Call OrdinaCollectionAmbiPiuInRitardoSuTUTTE(am)
ScriviResoconto
End Sub



Class clsRitardo
Dim numero
Dim nRitardo
Dim aCol
Dim aRuote
Dim nSorte
Dim RetRit1
Dim RetRitMax
Dim RetRitIncrRitMax
Dim RetFreq
Dim difforo
Dim contatore

End Class[/FONT]

Gentilissimo Lotto_Tom75, ti ringrazio per la cortesia, lo script originario lo avevo trovato in rete e da principiante ho cercato di modificarlo.
Ti ringrazio per la gentilezza :D
 

lotto_tom75

Advanced Premium Member
herat;n2186492 ha scritto:
Gentilissimo Lotto_Tom75, ti ringrazio per la cortesia, lo script originario lo avevo trovato in rete e da principiante ho cercato di modificarlo.
Ti ringrazio per la gentilezza :D

De nada Minnie :D, l'importante...è che la nuova piccola implementazione che ti ho fatto ti sia utile per le tue interessanti ricerche per ambo a tutte :)
 

herat

Advanced Member
lotto_tom75;n2186497 ha scritto:
De nada Minnie :D, l'importante...è che la nuova piccola implementazione che ti ho fatto ti sia utile per le tue interessanti ricerche per ambo a tutte :)

La tua implementazione è un capolavoro!
VIsto che sei stato cosi gentile (non mi voglio approfittare della tua gentilezza :p ) potresti aiutarmi con almeno uno di questi ipotetici script

https://forum.lottoced.com/forum/lo...o-frequenze-180-estrazioni-chi-mi-puo-aiutare

https://forum.lottoced.com/forum/lottoced/area-download/2184750-script-spie-concatenate

Sul primo (frequenze 180 colpi 2 numeri) mi sono cimentata...sul secondo.....aiuto!:p:p:p:p
 

lotto_tom75

Advanced Premium Member
herat;n2186513 ha scritto:
La tua implementazione è un capolavoro!
VIsto che sei stato cosi gentile (non mi voglio approfittare della tua gentilezza :p ) potresti aiutarmi con almeno uno di questi ipotetici script

https://forum.lottoced.com/forum/lo...o-frequenze-180-estrazioni-chi-mi-puo-aiutare

https://forum.lottoced.com/forum/lottoced/area-download/2184750-script-spie-concatenate

Sul primo (frequenze 180 colpi 2 numeri) mi sono cimentata...sul secondo.....aiuto!:p:p:p:p

Ciao herat per adesso ho provato a postarti al link relativo un inizio code per il tuo secondo prb.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto