Novità

RIPRISTINO SCRIPT

adispo2000

Super Member >GOLD<
Messaggi
239
Punti reazione
0
Punti
16
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
 

lotto_tom75

Premium Member
Messaggi
8.754
Punti reazione
485
Punti
83
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 ]"
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.594
Punti reazione
690
Punti
113
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
 

Rubino

Advanced Member >PLATINUM PLUS<
Messaggi
2.191
Punti reazione
431
Punti
83
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
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.594
Punti reazione
690
Punti
113
Ciao Rubino, penso che quello postato da te si avvicina di più, lo vedo dagli inputbox
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 30 giugno 2020
    Bari
    24
    74
    68
    69
    45
    Cagliari
    74
    32
    58
    01
    84
    Firenze
    50
    63
    60
    11
    69
    Genova
    86
    82
    34
    68
    29
    Milano
    20
    63
    71
    75
    11
    Napoli
    17
    27
    76
    15
    57
    Palermo
    37
    61
    25
    68
    10
    Roma
    85
    61
    54
    07
    43
    Torino
    51
    53
    01
    44
    41
    Venezia
    77
    22
    85
    32
    69
    Nazionale
    13
    75
    44
    72
    10

Ultimi Messaggi

Alto