Novità

RIPRISTINO SCRIPT

adispo2000

adispo2000

Super Member >PLATINUM<
CIAO COME DA TITOLO.SAPETE RISPRISTINARE QUESTO SCRIPT
Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
ImpostaArchivio10ELotto(2)
Dim num(20)
Dim asom(20)
Dim acolpi(9999)
storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
v = InputBox("somma nr.consecutivi 2,3,4,5",,5)
lis = InputBox("Estratto=1, ambo=2, Terno=3, Quaterna=4, Cinquina=5",,5)
acc = InputBox("Accorpa giocate Si-No ",,"S")
fin = storia
Ini = storia - z
Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO 5 minuti - by Rubino - "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Accorpa giocate.." & acc
Scrivi "Verifica esito : segnala punteggio >= di..." & lis
Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
Scrivi "______________________________________________________________________________________________________________________________________________________"
For x = 1 To z
idestr = storia - x
riga = ""
For t = 1 To 20
asom(t) = ""
Next
For yy = 1 To 20
riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
num(yy) = Format2(EstrattoDL(idestr,yy))
Next
If v = 2 Then
For b = 1 To 19
c = Fuori90(Int(num(b)) + Int(num(b + 1)))
asom(b) = asom(b) & CLng(c)
Next
lim = 19
End If
If v = 3 Then
For b = 1 To 18
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
asom(b) = asom(b) & CLng(c)
Next
lim = 18
End If
If v = 4 Then
For b = 1 To 17
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
asom(b) = asom(b) & CLng(c)
Next
lim = 17
End If
If v = 5 Then
For b = 1 To 16
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
asom(b) = asom(b) & CLng(c)
Next
lim = 16
End If
rsomme = ""
For f = 1 To Int(lim)
rsomme = rsomme & Format2(asom(f)) & " "
Next
Scrivi "___________________________________________________________________________________________________________________________________________________________"
ColoreTesto(0)
Scrivi idestr & " " & riga & "......................." & rsomme
''''riepilogo terni con somme uguali
For r = 1 To lim
For r2 = r + 1 To lim + 1
If asom(r) = asom(r2) Then
t1 = Format2(EstrattoDL(idestr,r))
t2 = Format2(EstrattoDL(idestr,r + 1))
If v = 3 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
End If
If v = 4 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
End If
If v = 5 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
t5 = Format2(EstrattoDL(idestr,r + 4))
End If
u1 = Format2(EstrattoDL(idestr,r2))
u2 = Format2(EstrattoDL(idestr,r2 + 1))
If v = 3 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
End If
If v = 4 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
End If
If v = 5 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
u5 = Format2(EstrattoDL(idestr,r2 + 4))
End If
ColoreTesto(1)
Scrivi "------ somma.." & Format2(asom(r)) & " ............" & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ReDim tnm(10)
For j = 1 To 10
tnm(j) = 0
Next
tnm(1) = t1
tnm(2) = t2
tnm(3) = t3
tnm(4) = t4
tnm(5) = t5
''''''' accorpa giocate in una unica
If acc = "S" Then
 
Ciao adispo2000, dal tuo copia incolla soprastante sembrerebbe che tu non abbia riportato per intero lo script quindi è impossibile verificare dove sia l'errore... all'interno dello stesso. Prova a riportarlo per intero mettendolo tra i tag code "[ code ] e [ / code ]"
 
Ciao a Tutti.

Potrebbe essere questo

Codice: 
Sub Main()
   'http://forum.lottoced.com/forum/lottoced/area-download/103186-raccolta-di-sript-per-10elotto-5-m/page2
   ' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
   '-------------------------------------------------------------------------------------------------------------------------------
   Dim num(20)
   Dim asom(20)
   Dim acolpi(9999)
   Dim n(20)
   Dim Tipoarchivio
   Tipoarchivio = ScegliArchivio
   If Tipoarchivio > 00 Then
      If Tipoarchivio = 02 Then
         If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
            Call AggiornaArchivioDL
         End If
      End If
      Call ImpostaArchivio10ELotto(Tipoarchivio)
      storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
      z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
      v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
      lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=5",,3)
      co2 = InputBox("Verifica se già usciti in n.colpi precedenti..",,100)
      lis2 = InputBox("Verifica quanti punti già sortiti in precedenza..",,3)
      fin = storia
      Ini = storia - z
      Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO 5  con verifica a ritroso "
      Scrivi "Somma nr. consecutività.." & v
      Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
      Scrivi "______________________________________________________________________________________________________________________________________________________"
      For x = 1 To z
         idestr = storia - x
         riga = ""
         For t = 1 To 20
            asom(t) = ""
         Next
         For yy = 1 To 20
            riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
            num(yy) = Format2(EstrattoDL(idestr,yy))
         Next
         If v = 2 Then
            For b = 1 To 19
               c = Fuori90(Int(num(b)) + Int(num(b + 1)))
               asom(b) = asom(b) & CLng(c)
            Next
            lim = 19
         End If
         If v = 3 Then
            For b = 1 To 18
               c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
               asom(b) = asom(b) & CLng(c)
            Next
            lim = 18
         End If
         If v = 4 Then
            For b = 1 To 17
               c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
               asom(b) = asom(b) & CLng(c)
            Next
            lim = 17
         End If
         If v = 5 Then
            For b = 1 To 16
               c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
               asom(b) = asom(b) & CLng(c)
            Next
            lim = 16
         End If
         rsomme = ""
         For f = 1 To Int(lim)
            rsomme = rsomme & Format2(asom(f)) & " "
         Next
         Scrivi "___________________________________________________________________________________________________________________________________________________________"
         ColoreTesto(0)
         Scrivi idestr & "   " & riga & "......................." & rsomme
         ''''riepilogo terni con somme uguali
         For r = 1 To lim
            For r2 = r + 1 To lim + 1
               If asom(r) = asom(r2) Then
                  t1 = Format2(EstrattoDL(idestr,r))
                  t2 = Format2(EstrattoDL(idestr,r + 1))
                  If v = 3 Then
                     t3 = Format2(EstrattoDL(idestr,r + 2))
                  End If
                  If v = 4 Then
                     t3 = Format2(EstrattoDL(idestr,r + 2))
                     t4 = Format2(EstrattoDL(idestr,r + 3))
                  End If
                  If v = 5 Then
                     t3 = Format2(EstrattoDL(idestr,r + 2))
                     t4 = Format2(EstrattoDL(idestr,r + 3))
                     t5 = Format2(EstrattoDL(idestr,r + 4))
                  End If
                  u1 = Format2(EstrattoDL(idestr,r2))
                  u2 = Format2(EstrattoDL(idestr,r2 + 1))
                  If v = 3 Then
                     u3 = Format2(EstrattoDL(idestr,r2 + 2))
                  End If
                  If v = 4 Then
                     u3 = Format2(EstrattoDL(idestr,r2 + 2))
                     u4 = Format2(EstrattoDL(idestr,r2 + 3))
                  End If
                  If v = 5 Then
                     u3 = Format2(EstrattoDL(idestr,r2 + 2))
                     u4 = Format2(EstrattoDL(idestr,r2 + 3))
                     u5 = Format2(EstrattoDL(idestr,r2 + 4))
                  End If
                  ''''verifica 1 combinazione nel passato
                  ReDim tnm(5)
                  tnm(1) = Format2(t1)
                  tnm(2) = Format2(t2)
                  tnm(3) = Format2(t3)
                  tnm(4) = Format2(t4)
                  tnm(5) = Format2(t5)
                  ColoreTesto(1)
                  Scrivi
                  Scrivi "------ somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
                  ini = idestr
                  ColoreTesto 0
                  Scrivi " VERIFICA SE combinazione GIA' USCITA NEI PRECEDENTI CONCORSI " & tnm(1) & " " & tnm(2) & " " & tnm(3) & " " & tnm(4) & " " & tnm(5)
                  ctz = 0
                  For ccc = ini - Int(co2) To ini - 1
                     For mm = 1 To 20
                        n(mm) = Format2(EstrattoDL(ccc,mm))
                     Next
                     snconc = GetInfoEstrazioneDL(ccc)
                     punti = 0
                     evidenza = ""
                     For q = 1 To 20
                        If Format2(n(q)) = tnm(1) Then
                           punti = punti + 1
                           evidenza = evidenza & n(q) & " "
                        End If
                        If Format2(n(q)) = tnm(2) Then
                           punti = punti + 1
                           evidenza = evidenza & n(q) & " "
                        End If
                        If Format2(n(q)) = tnm(3) Then
                           punti = punti + 1
                           evidenza = evidenza & n(q) & " "
                        End If
                        If Format2(n(q)) = tnm(4) Then
                           punti = punti + 1
                           evidenza = evidenza & n(q) & " "
                        End If
                        If Format2(n(q)) = tnm(5) Then
                           punti = punti + 1
                           evidenza = evidenza & n(q) & " "
                        End If
                     Next
                     If punti >= Int(lis2) Then
                        ColoreTesto 2
                        If Int(lis2) = 3 Then Scrivi " ------->  Terno    già uscito nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
                        If Int(lis2) = 4 Then Scrivi " ------->  Quaterna già uscita nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
                        ctz = ctz + 1
                     End If
                  Next
                  If ctz = 0 Then
                     ColoreTesto 2
                     Scrivi " ------->  NESSUNA quantità di numeri richiesta E' USCITA NEI PRECEDENTI CONCORSI "
                     ColoreTesto 0
                  End If
                  esito = 0
                  ColoreTesto 0
                  If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
                     esito = 1
                     ColoreTesto 7
                     Scrivi
                     Scrivi "Esito:  "
                     Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
                     acolpi(RetColpi) = acolpi(RetColpi) + 1
                     ColoreTesto 0
                     If RetEsito = "Cinquina" Then
                        Cinquitotali = Cinquitotali + 1
                     End If
                     If RetEsito = "Quaterna" Then
                        Quatetotali = Quatetotali + 1
                     End If
                     If RetEsito = "Terno" Then
                        ternitotali = ternitotali + 1
                     End If
                     If RetEsito = "Ambo" Then
                        ambitotali = ambitotali + 1
                     End If
                  Else
                     If esito = 0 Then Scrivi " Esito NEGATIVO o IN CORSO "
                  End If
                  ''''' ----------------------------------------------------------------------------------------------------------------------------
                  ''''' 2 combinazione verifica nel passato
                  ReDim tnm(5)
                  tnm(1) = Format2(u1)
                  tnm(2) = Format2(u2)
                  tnm(3) = Format2(u3)
                  tnm(4) = Format2(u4)
                  tnm(5) = Format2(u5)
                  ColoreTesto 0
                  Scrivi " VERIFICA SE combinazione GIA' USCITA NEI PRECEDENTI CONCORSI " & tnm(1) & " " & tnm(2) & " " & tnm(3) & " " & tnm(4) & " " & tnm(5)
                  ctz = 0
                  For ccc = ini - Int(co2) To ini - 1
                     For mm = 1 To 20
                        n(mm) = Format2(EstrattoDL(ccc,mm))
                     Next
                     snconc = GetInfoEstrazioneDL(ccc)
                     punti = 0
                     evidenza = ""
                     For q = 1 To 20
                        If Format2(n(q)) = tnm(1) Then
                           punti = punti + 1
                           evidenza = evidenza & n(q) & " "
                        End If
                        If Format2(n(q)) = tnm(2) Then
                           punti = punti + 1
                           evidenza = evidenza & n(q) & " "
                        End If
                        If Format2(n(q)) = tnm(3) Then
                           punti = punti + 1
                           evidenza = evidenza & n(q) & " "
                        End If
                        If Format2(n(q)) = tnm(4) Then
                           punti = punti + 1
                           evidenza = evidenza & n(q) & " "
                        End If
                        If Format2(n(q)) = tnm(5) Then
                           punti = punti + 1
                           evidenza = evidenza & n(q) & " "
                        End If
                     Next
                     ColoreTesto 2
                     If punti >= Int(lis2) Then
                        If Int(lis2) = 3 Then Scrivi " ------->  Terno    già uscito nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
                        If Int(lis2) = 4 Then Scrivi " ------->  Quaterna già uscita nel concorso " & ccc & " " & snconc & "...Estratti......" & evidenza
                        ctz = ctz + 1
                     End If
                  Next
                  If ctz = 0 Then
                     ColoreTesto 2
                     Scrivi " ------->  NESSUNA quantità di numeri richiesta E' USCITA NEI PRECEDENTI CONCORSI "
                     ColoreTesto 0
                  End If
                  ColoreTesto 0
                  esito = 0
                  If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
                     esito = 1
                     ColoreTesto 7
                     Scrivi
                     Scrivi "Esito:  "
                     Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
                     acolpi(RetColpi) = acolpi(RetColpi) + 1
                     ColoreTesto 0
                     If RetEsito = "Cinquina" Then
                        Cinquitotali = Cinquitotali + 1
                     End If
                     If RetEsito = "Quaterna" Then
                        Quatetotali = Quatetotali + 1
                     End If
                     If RetEsito = "Terno" Then
                        ternitotali = ternitotali + 1
                     End If
                     If RetEsito = "Ambo" Then
                        ambitotali = ambitotali + 1
                     End If
                  Else
                     If esito = 0 Then Scrivi " Esito NEGATIVO o IN CORSO "
                  End If
               End If
            Next
         Next
      Next
      ColoreTesto 0
      Scrivi "Ambi totali realizzati..." & ambitotali
      Scrivi "Terni totali realizzati..." & ternitotali
      Scrivi "Quaterne totali realizzati..." & Quatetotali
      Scrivi "Cinquine totali realizzati..." & Cinquitotali
      Scrivi "concorsi esaminati totale.." & z
      'For n = 1 To 999
      ' If acolpi(n) > 0 Then
      ' Scrivi Format2(n) & "°.colpo.." & acolpi(n)
      ' End If
      'Next
   End If
End Sub
Function ScegliArchivio()
   ReDim aVoci(01)
   aVoci(00) = "10 e lotto Serale"
   aVoci(01) = "10 e lotto 5minuti"
   ScegliArchivio = ScegliOpzioneMenu(aVoci,00,"Secegli archivio") + 01
End Function
 
grazie salvo

oppure potrebbe essere questo fatto nel 2011 a keeper.
ma stai a ravanà nel passato, troppo indietro.
forse è quello che ha postato salvo.

Codice: 
Sub Main()
   ' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
   ''''' nome script   KEEPER10LOTTO5M
   '-------------------------------------------------------------------------------------------------------------------------------
   ImpostaArchivio10ELotto(2)
   Dim num(20)
   Dim asom(20)
   Dim acolpi(9999)
   storia = InputBox("Statistica Ult.Estrazione da Considerare   ",,EstrazioniArchivioDL)
   z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
   v = InputBox("somma nr.consecutivi  2,3,4,5",,5)
   lis = InputBox("Estratto=1,  ambo=2, Terno=3, Quaterna=4, Cinquina=5",,5)
   k = InputBox("Verifica esito n.colpi..",,20)
   acc = InputBox("Accorpa giocate Si-No ",,"S")
   fin = storia
   Ini = storia - z
   Scrivi "Rileva somme numeri  dal concorso n." & Ini & "   al conc.n. " & fin & "    Per il 10 E LOTTO 5 minuti  -  by Rubino - "
   Scrivi "Somma nr. consecutività.." & v
   Scrivi "Accorpa giocate.." & acc
   Scrivi "Verifica esito : segnala punteggio  >=  di..." & lis
   Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
   Scrivi "______________________________________________________________________________________________________________________________________________________"
   For x = 1 To z
      idestr = storia - x
      riga = ""
      For t = 1 To 20
         asom(t) = ""
      Next
      For yy = 1 To 20
         riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
         num(yy) = Format2(EstrattoDL(idestr,yy))
      Next
      If v = 2 Then
         For b = 1 To 19
            c = Fuori90(Int(num(b)) + Int(num(b + 1)))
            asom(b) = asom(b) & CLng(c)
         Next
         lim = 19
      End If
      If v = 3 Then
         For b = 1 To 18
            c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
            asom(b) = asom(b) & CLng(c)
         Next
         lim = 18
      End If
      If v = 4 Then
         For b = 1 To 17
            c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
            asom(b) = asom(b) & CLng(c)
         Next
         lim = 17
      End If
      If v = 5 Then
         For b = 1 To 16
            c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
            asom(b) = asom(b) & CLng(c)
         Next
         lim = 16
      End If
      rsomme = ""
      For f = 1 To Int(lim)
         rsomme = rsomme & Format2(asom(f)) & " "
      Next
      Scrivi "___________________________________________________________________________________________________________________________________________________________"
      ColoreTesto(0)
      Scrivi GetTestoHtml(idestr,True,vbWhite,1) & "    " & riga & "......................." & rsomme
      ''''riepilogo terni con somme uguali
      For r = 1 To lim
         For r2 = r + 1 To lim + 1
            If asom(r) = asom(r2) Then
               t1 = Format2(EstrattoDL(idestr,r))
               t2 = Format2(EstrattoDL(idestr,r + 1))
               If v = 3 Then
                  t3 = Format2(EstrattoDL(idestr,r + 2))
               End If
               If v = 4 Then
                  t3 = Format2(EstrattoDL(idestr,r + 2))
                  t4 = Format2(EstrattoDL(idestr,r + 3))
               End If
               If v = 5 Then
                  t3 = Format2(EstrattoDL(idestr,r + 2))
                  t4 = Format2(EstrattoDL(idestr,r + 3))
                  t5 = Format2(EstrattoDL(idestr,r + 4))
               End If
               u1 = Format2(EstrattoDL(idestr,r2))
               u2 = Format2(EstrattoDL(idestr,r2 + 1))
               If v = 3 Then
                  u3 = Format2(EstrattoDL(idestr,r2 + 2))
               End If
               If v = 4 Then
                  u3 = Format2(EstrattoDL(idestr,r2 + 2))
                  u4 = Format2(EstrattoDL(idestr,r2 + 3))
               End If
               If v = 5 Then
                  u3 = Format2(EstrattoDL(idestr,r2 + 2))
                  u4 = Format2(EstrattoDL(idestr,r2 + 3))
                  u5 = Format2(EstrattoDL(idestr,r2 + 4))
               End If
               ColoreTesto(1)
               Scrivi "------  somma.." & Format2(asom(r)) & " ............" & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & "         " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
               ReDim tnm(24)
               For j = 1 To 24
                  tnm(j) = 0
               Next
               tnm(1) = t1
               tnm(2) = t2
               tnm(3) = t3
               tnm(4) = t4
               tnm(5) = t5
               ''''''' accorpa giocate in una unica
               If acc = "S" Then
                  tnm(6) = u1
                  tnm(7) = u2
                  tnm(8) = u3
                  tnm(9) = u4
                  tnm(10) = u5
                  '''''variante incremento punteggio
                  tnm(11) = 67
                  tnm(12) = 78
                  tnm(13) = 87
                  tnm(14) = 76
                  tnm(15) = 66
                  tnm(16) = 75
                  tnm(17) = 88
                  tnm(18) = 01
                  tnm(19) = 11
                  tnm(20) = 17
                  tnm(21) = 32
                  tnm(22) = 35
                  tnm(23) = 73
                  tnm(24) = 75
                  EliminaRipetuti tnm
                  completa = ""
                  ctr = 0
                  For j = 1 To 24
                     If tnm(j) > 0 Then
                        completa = completa & Format2(tnm(j)) & " "
                        ctr = ctr + 1
                     End If
                  Next
                  ColoreTesto 0
                  Scrivi " Previsione completa con aggiunta di fissi  tot.n. " & ctr & GetTestoHtml("  ----serie in gioco---->  ",True,vbWhite,1) & GetTestoHtml(completa,True,vbWhite,2)
               End If
               If VerificaEsitoDL(tnm,idestr + 1,lis,k,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
                  ColoreTesto 2
                  Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & "             " & RetEstratti)
                  acolpi(RetColpi) = acolpi(RetColpi) + 1
                  combin1 = combin1 + 1
                  ColoreTesto 0
                  If RetEsito = "Dieci" Then
                     Diecitotali = Diecitotali + 1
                  End If
                  If RetEsito = "Nove" Then
                     Novetotali = Novetotali + 1
                  End If
                  If RetEsito = "Otto" Then
                     Ottototali = Ottototali + 1
                  End If
                  If RetEsito = "Sette" Then
                     Settetotali = Settetotali + 1
                  End If
                  If RetEsito = "Sestina" Then
                     seitotali = seitotali + 1
                  End If
                  If RetEsito = "Cinquina" Then
                     Cinquitotali = Cinquitotali + 1
                  End If
                  If RetEsito = "Quaterna" Then
                     Quatetotali = Quatetotali + 1
                  End If
                  If RetEsito = "Terno" Then
                     ternitotali = ternitotali + 1
                  End If
                  If RetEsito = "Ambo" Then
                     ambitotali = ambitotali + 1
                  End If
                  If RetEsito = "Estratto" Then
                     Estrattototali = Estrattototali + 1
                  End If
               End If
               est = RetIdEstr
               estrazione = ""
               For jj = 1 To 20
                  estrazione = estrazione & Format2(EstrattoDL(est,jj)) & " "
               Next
               ColoreTesto 0
               Scrivi est & "/" & DataEstrazioneDL(est) & "........................................" & Estrazione
               ReDim tnm(10)
               tnm(1) = u1
               tnm(2) = u2
               tnm(3) = u3
               tnm(4) = u4
               tnm(5) = u5
               '''''---------------------------------------------------------------------------------------------
               If acc = "N" Then
                  If VerificaEsitoDL(tnm,idestr + 1,lis,k,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
                     ColoreTesto 2
                     Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & "             " & RetEstratti)
                     acolpi(RetColpi) = acolpi(RetColpi) + 1
                     combin2 = combin2 + 1
                     ColoreTesto 0
                     If RetEsito = "Cinquina" Then
                        Cinquitotali = Cinquitotali + 1
                     End If
                     If RetEsito = "Quaterna" Then
                        Quatetotali = Quatetotali + 1
                     End If
                     If RetEsito = "Terno" Then
                        ternitotali = ternitotali + 1
                     End If
                     If RetEsito = "Ambo" Then
                        ambitotali = ambitotali + 1
                     End If
                     If RetEsito = "Estratto" Then
                        Estrattototali = Estrattototali + 1
                     End If
                  End If
               End If
            End If
         Next
      Next
   Next
   ColoreTesto 0
   Scrivi "--------------------------------------",1
   Scrivi
   Scrivi "1 Punti totali realizzati..." & Estrattototali
   Scrivi "2 Punti totali realizzati..." & ambitotali
   Scrivi "3 Punti totali realizzati..." & ternitotali
   Scrivi "4 Punti totali realizzati..." & Quatetotali
   Scrivi "5 Punti totali realizzati..." & Cinquitotali
   Scrivi "6 Punti totali realizzati..." & Seitotali
   Scrivi "7 Punti totali realizzati..." & Settetotali
   Scrivi "8 Punti totali realizzati..." & Ottototali
   Scrivi "9 Punti totali realizzati..." & Novetotali
   Scrivi "10Punti totali realizzati..." & Diecitotali
   Scrivi "--------------------------------------",1
   Scrivi "concorsi esaminati totale.." & z
   Scrivi "Vincenti Combinazione 1a .." & combin1
   Scrivi "Vincenti Combinazione 2a .." & combin2
   For n = 1 To 999
      If acolpi(n) > 0 Then
         Scrivi Format2(n) & "°.colpo.." & acolpi(n)
      End If
   Next
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 24 gennaio 2025
    Bari
    67
    35
    46
    60
    43
    Cagliari
    09
    24
    58
    03
    62
    Firenze
    52
    68
    17
    40
    80
    Genova
    58
    85
    12
    49
    52
    Milano
    87
    04
    59
    54
    52
    Napoli
    32
    90
    61
    22
    23
    Palermo
    65
    14
    17
    75
    60
    Roma
    61
    68
    64
    09
    19
    Torino
    57
    19
    08
    01
    78
    Venezia
    90
    16
    66
    18
    50
    Nazionale
    57
    56
    33
    25
    38
    Estrazione Simbolotto
    Bari
    19
    23
    25
    34
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto