Novità

Per cortesia..non ci riesco

Sakti

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

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
(y)
 
Ultima modifica:
Risultati ok, ma non mi da l'analisi delle settimane successive se aumantu la distanza dell'estrazione pregressa.
Comunque grazie mille.. (y)
 
Ciao Toon

prova così

Codice:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45

Ultimi Messaggi

Indietro
Alto