Per cortesia..non ci riesco

[Sakti]

Vorrei, se fosse possibile, poter utilizzare i numeri di 18 estrazioni precedenti, come da listato,
ma non riesco a vedere i risultati del calcolo fino all'ultima estrazione..
Se non mi sono spiegato bene chiedete delucidazioni, oppure provate lo script..
Grazie in anticipo..

Anticipazione (Spoiler): Script

Sub Main
Dim n(5),nu(5),num(5),nm(5),Ru(5),R(5),Ruo(12),Ruo1(5)
Dim posta(5),poste(5),poste1(5),ini,fin
posta(1) = 1
poste(2) = 1
poste1(2) = 1
poste1(3) = 0.50
x = CInt(InputBox(" Inserisci il numero di concorso della prima estrazione del mese ",,10380))
ini = EstrazioneFin - 20
fin = EstrazioneFin
co = 0
ea = x - 18 'Estrazione da esaminare
'For es = ini To fin
es = ea
Messaggio es
Call AvanzamentoElab(ini,fin,es)
a = Estratto(es,1,1)
b = Estratto(es,6,1)
If a > b Then
e = a - b
End If
If a < b Then
e = b - a
End If
'---
nm(1) = e
'---
n(1) = e
n(2) = a
'---
nu(1) = e
nu(2) = b
'---
num(1) = e
num(2) = a
num(3) = b
'---
Ruo(1) = 5
Ruo(2) = 6
Ruo(3) = 8
R(1) = 11
'---
ImpostaGiocata 1,nm,Ruo,posta,14
ImpostaGiocata 2,n,Ruo,poste,14
ImpostaGiocata 3,nu,Ruo,poste,14
ImpostaGiocata 4,num,Ruo,poste,14
ImpostaGiocata 5,num,R,poste1,14
Gioca es,1
Scrivi String(105,"-") : ColoreTesto 1
ScriviResoconto
End Sub

 

[lottoLuke]

 

[Sakti]

Risultati ok, ma non mi da l'analisi delle settimane successive se aumantu la distanza dell'estrazione pregressa.
Comunque grazie mille..

 

[salvo50]

Ciao Toon

prova così

Sub Main
   Dim n(2),nu(2),num(3),nm(1),Ru(5),R(5),Ruo(3),Ruo1(5)
   Dim posta(1),poste(2),poste1(3),ini,fin
   posta(1) = 1
   poste(2) = 1
   poste1(2) = 1
   poste1(3) = 0.50
   fin = EstrazioneFin
   ini = CInt(InputBox(" Inserisci il numero di concorso della prima estrazione del mese ",,fin - 20))
   co = 0
   'ea = x - 18 'Estrazione da esaminare
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(ini,fin,es)
      Ea = es - 18
      'es = ea
      'If IndiceMensile(Es) = 1 Then
      a = Estratto(ea,1,1)
      b = Estratto(ea,6,1)
      ' If a > b Then
      '   e = a - b
      ' End If
      '  If a < b Then
      '    e = b - a
      ' End If
      '---
      e = Differenza(a,b)
      If e <> a And e <> b Then
         nm(1) = e
         '---
         n(1) = e
         n(2) = a
         '---
         nu(1) = e
         nu(2) = b
         '---
         num(1) = e
         num(2) = a
         num(3) = b
         '---
         Ruo(1) = 5
         Ruo(2) = 6
         Ruo(3) = 8
         R(1) = 11
         '---
         co = co + 1
         Scrivi String(105,"-") & " " & co: ColoreTesto 1
         Scrivi(" Estrazione n." & Format2(Ea) & " del " & DataEstrazione(Ea)),1,0
         Scrivi "  " & SiglaRuota(BA_) & " " & StringaEstratti(ea,BA_),1
         Scrivi(" Estrazione n." & Format2(Ea) & " del " & DataEstrazione(Ea)),1,0
         Scrivi "  " & SiglaRuota(NA_) & " " & StringaEstratti(ea,NA_),1
         ColoreTesto 0
         Scrivi
         Scrivi "La Differenza tra " & Format2(a) & " e " & Format2(b) & " = " & Format2(e),1
         Scrivi
         ImpostaGiocata 1,nm,Ruo,posta,14
         ImpostaGiocata 2,n,Ruo,poste,14
         ImpostaGiocata 3,nu,Ruo,poste,14
         ImpostaGiocata 4,num,Ruo,poste,14
         ImpostaGiocata 5,num,R,poste1,14
         Gioca es,1
         'End If
      End If
   Next
   ScriviResoconto
End Sub

 

[Sakti]

Perfettissimo...Grazie, non ci sarei mai arrivato...
Grazieeee