Novità

RIPRISTINO SCRIPT

adispo2000

Super Member >GOLD<
Messaggi
212
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
7.863
Punti reazione
105
Punti
63
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.046
Punti reazione
53
Punti
48
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<
Messaggi
1.451
Punti reazione
38
Punti
48
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.046
Punti reazione
53
Punti
48
Ciao Rubino, penso che quello postato da te si avvicina di più, lo vedo dagli inputbox
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 dicembre 2019
    Bari
    31
    35
    51
    16
    17
    Cagliari
    74
    45
    88
    04
    02
    Firenze
    58
    79
    71
    32
    70
    Genova
    35
    36
    74
    19
    67
    Milano
    37
    22
    09
    03
    50
    Napoli
    67
    32
    06
    82
    37
    Palermo
    59
    41
    52
    31
    06
    Roma
    17
    79
    01
    58
    19
    Torino
    41
    31
    57
    60
    03
    Venezia
    50
    31
    41
    01
    68
    Nazionale
    05
    12
    65
    02
    13
Alto