Novità

SEMPRE BARI

Riusciresti a postarlo ?
Ti inserisco lo script al limite ti ricavi le previsioni da qui
Codice:
Sub Main()
   ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1
   ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(1),amb(20),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(3)
   pt(1) = 1
   pt1(2) = 1
   pt2(2) = 1:pt2(3) = 1
   clp = 15
   co = 0
   ini = 10240
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               For r1 = 1 To 12
                  If r1 = 11 Then r1 = 12
                  For p = 1 To 5
                     c = Estratto(es,r1,p)
                     ok = 0
                     If(a = 19 Or a = 37 Or a = 64)_
                        And(b = 19 Or b = 37 Or b = 64)_
                        And(c = 19 Or c = 37 Or c = 64) Then amb(1) = 30:amb(2) = 20:amb(3) = 30:amb(4) = 29:amb(5) = 30:amb(6) = 31:amb(7) = 30:amb(8) = 40:amb(9) = 30:amb(10) = 20:amb(11) = 29:amb(12) = 31:amb(13) = 40:amb(14) = 82:ok = 1
                        If(a = 38 Or a = 65 Or a = 83)_
                           And(b = 38 Or b = 65 Or b = 83)_
                           And(c = 38 Or c = 65 Or c = 83) Then amb(1) = 06:amb(2) = 05:amb(3) = 07:amb(4) = 05:amb(5) = 16:amb(6) = 05:amb(7) = 20:amb(8) = 05:amb(9) = 86:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1
                           If(a = 16 Or a = 34 Or a = 79)_
                              And(b = 16 Or b = 34 Or b = 79)_
                              And(c = 16 Or c = 34 Or c = 79) Then amb(1) = 39:amb(2) = 29:amb(3) = 38:amb(4) = 29:amb(5) = 49:amb(6) = 40:amb(7) = 39:amb(8) = 40:amb(9) = 61:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1
                              If(a = 09 Or a = 36 Or a = 54)_
                                 And(b = 09 Or b = 36 Or b = 54)_
                                 And(c = 09 Or c = 36 Or c = 54) Then amb(1) = 08:amb(2) = 08:amb(3) = 89:amb(4) = 09:amb(5) = 89:amb(6) = 09:amb(7) = 19:amb(8) = 81:amb(9) = 19:amb(10) = 09:amb(11) = 10:amb(12) = 19:amb(13) = 81:amb(14) = 89:ok = 1
                                 If(a = 1 Or a = 28 Or a = 46)_
                                    And(b = 1 Or b = 28 Or b = 46)_
                                    And(c = 1 Or c = 28 Or c = 46) Then amb(1) = 75:amb(2) = 75:amb(3) = 65:amb(4) = 75:amb(5) = 74:amb(6) = 85:amb(7) = 65:amb(8) = 85:amb(9) = 75:amb(10) = 65:amb(11) = 73:amb(12) = 74:amb(13) = 75:amb(14) = 76:ok = 1
                                    If(a = 4 Or a = 49 Or a = 76)_
                                       And(b = 4 Or b = 49 Or b = 76)_
                                       And(c = 4 Or c = 49 Or c = 76) Then amb(1) = 39:amb(2) = 29:amb(3) = 31:amb(4) = 29:amb(5) = 38:amb(6) = 39:amb(7) = 31:amb(8) = 39:amb(9) = 49:amb(10) = 29:amb(11) = 31:amb(12) = 38:amb(13) = 40:amb(14) = 49:ok = 1
                                       If(a = 22 Or a = 40 Or a = 67)_
                                          And(b = 22 Or b = 40 Or b = 67)_
                                          And(c = 22 Or c = 40 Or c = 67) Then amb(1) = 38:amb(2) = 38:amb(3) = 39:amb(4) = 40:amb(5) = 39:amb(6) = 38:amb(7) = 49:amb(8) = 40:amb(9) = 49:amb(10) = 29:amb(11) = 39:amb(12) = 40:amb(13) = 49:amb(14) = 85:ok = 1
                                          If(a = 08 Or a = 53 Or a = 71)_
                                             And(b = 08 Or b = 53 Or b = 71)_
                                             And(c = 08 Or c = 53 Or c = 71) Then amb(1) = 26:amb(2) = 26:amb(3) = 32:amb(4) = 52:amb(5) = 32:amb(6) = 26:amb(7) = 41:amb(8) = 52:amb(9) = 41:amb(10) = 32:amb(11) = 41:amb(12) = 42:amb(13) = 43:amb(14) = 52:ok = 1
                                             If(a = 25 Or a = 52 Or a = 70)_
                                                And(b = 25 Or b = 52 Or b = 70)_
                                                And(c = 25 Or c = 52 Or c = 70)Then amb(1) = 47:amb(2) = 07:amb(3) = 57:amb(4) = 07:amb(5) = 58:amb(6) = 57:amb(7) = 47:amb(8) = 57:amb(9) = 67:amb(10) = 07:amb(11) = 56:amb(12) = 57:amb(13) = 58:amb(14) = 67:ok = 1
                                                If(a = 28 Or a = 55 Or a = 73)_
                                                   And(b = 28 Or b = 55 Or b = 73)_
                                                   And(c = 28 Or c = 55 Or c = 73) Then amb(1) = 65:amb(2) = 65:amb(3) = 10:amb(4) = 65:amb(5) = 66:amb(6) = 66:amb(7) = 56:amb(8) = 66:amb(9) = 67:amb(10) = 10:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1
                                                   If(a = 30 Or a = 48 Or a = 75)_
                                                      And(b = 30 Or b = 48 Or b = 75)_
                                                      And(c = 30 Or c = 48 Or c = 75) Then amb(1) = 63:amb(2) = 64:amb(3) = 03:amb(4) = 64:amb(5) = 53:amb(6) = 64:amb(7) = 63:amb(8) = 64:amb(9) = 73:amb(10) = 03:amb(11) = 03:amb(12) = 53:amb(13) = 62:amb(14) = 73:ok = 1
                                                      If(a = 07 Or a = 52 Or a = 79)_
                                                         And(b = 07 Or b = 52 Or b = 79)_
                                                         And(c = 07 Or c = 52 Or c = 79) Then amb(1) = 48:amb(2) = 48:amb(3) = 38:amb(4) = 48:amb(5) = 47:amb(6) = 49:amb(7) = 47:amb(8) = 49:amb(9) = 48:amb(10) = 34:amb(11) = 38:amb(12) = 47:amb(13) = 49:amb(14) = 58:ok = 1
                                                         If(a = 45 Or a = 63 Or a = 90)_
                                                            And(b = 45 Or b = 63 Or b = 90)_
                                                            And(c = 45 Or c = 63 Or c = 90)Then amb(1) = 18:amb(2) = 18:amb(3) = 08:amb(4) = 18:amb(5) = 17:amb(6) = 18:amb(7) = 19:amb(8) = 18:amb(9) = 28:amb(10) = 08:amb(11) = 17:amb(12) = 18:amb(13) = 19:amb(14) = 28:ok = 1
                                                            If(a = 38 Or a = 56 Or a = 83)_
                                                               And(b = 38 Or b = 56 Or b = 83)_
                                                               And(c = 38 Or c = 56 Or c = 83) Then amb(1) = 87:amb(2) = 11:amb(3) = 77:amb(4) = 11:amb(5) = 88:amb(6) = 86:amb(7) = 87:amb(8) = 86:amb(9) = 88:amb(10) = 07:amb(11) = 77:amb(12) = 86:amb(13) = 87:amb(14) = 88:ok = 1
                                                               If(a = 13 Or a = 58 Or a = 85)_
                                                                  And(b = 13 Or b = 58 Or b = 85)_
                                                                  And(c = 13 Or c = 58 Or c = 85) Then amb(1) = 66:amb(2) = 56:amb(3) = 65:amb(4) = 56:amb(5) = 76:amb(6) = 76:amb(7) = 65:amb(8) = 76:amb(9) = 67:amb(10) = 40:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1
                                                                  If(a = 18 Or a = 30 Or a = 33)_
                                                                     And(b = 18 Or b = 30 Or b = 33)_
                                                                     And(c = 18 Or c = 30 Or c = 33) Then amb(1) = 80:amb(2) = 80:amb(3) = 34:amb(4) = 80:amb(5) = 51:amb(6) = 80:amb(7) = 57:amb(8) = 80:amb(9) = 63:amb(10) = 34:amb(11) = 57:amb(12) = 51:amb(13) = 63:amb(14) = 18:ok = 1
                                                                     If ok = 1 Then
                                                                        If(r <> r1 And c <> a And c <> b) Then
                                                                           co = co + 1
                                                                           ColoreTesto 2
                                                                           Scrivi String(65,"=") : ColoreTesto 0
                                                                           Scrivi "Data " & DataEstrazione(es) & " "
                                                                           Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                                                                           Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                                                                           Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
                                                                           Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
                                                                           Scrivi
                                                                           ruote(1) = r
                                                                           ruote(2) = r1
                                                                           cg = 0
                                                                           nu1(1) = amb(1)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu1,ruote,pt,clp
                                                                           nu2(1) = amb(2)
                                                                           nu2(2) = amb(3)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu2(1) = amb(4)
                                                                           nu2(2) = amb(5)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu2(1) = amb(6)
                                                                           nu2(2) = amb(7)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu2(1) = amb(8)
                                                                           nu2(2) = amb(9)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu3(1) = amb(10)
                                                                           nu3(2) = amb(11)
                                                                           nu3(3) = amb(12)
                                                                           nu3(4) = amb(13)
                                                                           nu3(5) = amb(14)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu3,ruote,pt2,clp,2
                                                                           Gioca es,1
                                                                        End If
                                                                     End If
                                                                  Next
                                                               Next
                                                            Next
                                                         Next
                                                      Next
                                                   Next
                                                   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
                                                   ScriviResoconto
                                                   ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1
                                                   ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
                                                   Scrivi : ColoreTesto 0
End Sub
 
Ti inserisco lo script al limite ti ricavi le previsioni da qui
Codice:
Sub Main()
   ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1
   ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(1),amb(20),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(3)
   pt(1) = 1
   pt1(2) = 1
   pt2(2) = 1:pt2(3) = 1
   clp = 15
   co = 0
   ini = 10240
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               For r1 = 1 To 12
                  If r1 = 11 Then r1 = 12
                  For p = 1 To 5
                     c = Estratto(es,r1,p)
                     ok = 0
                     If(a = 19 Or a = 37 Or a = 64)_
                        And(b = 19 Or b = 37 Or b = 64)_
                        And(c = 19 Or c = 37 Or c = 64) Then amb(1) = 30:amb(2) = 20:amb(3) = 30:amb(4) = 29:amb(5) = 30:amb(6) = 31:amb(7) = 30:amb(8) = 40:amb(9) = 30:amb(10) = 20:amb(11) = 29:amb(12) = 31:amb(13) = 40:amb(14) = 82:ok = 1
                        If(a = 38 Or a = 65 Or a = 83)_
                           And(b = 38 Or b = 65 Or b = 83)_
                           And(c = 38 Or c = 65 Or c = 83) Then amb(1) = 06:amb(2) = 05:amb(3) = 07:amb(4) = 05:amb(5) = 16:amb(6) = 05:amb(7) = 20:amb(8) = 05:amb(9) = 86:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1
                           If(a = 16 Or a = 34 Or a = 79)_
                              And(b = 16 Or b = 34 Or b = 79)_
                              And(c = 16 Or c = 34 Or c = 79) Then amb(1) = 39:amb(2) = 29:amb(3) = 38:amb(4) = 29:amb(5) = 49:amb(6) = 40:amb(7) = 39:amb(8) = 40:amb(9) = 61:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1
                              If(a = 09 Or a = 36 Or a = 54)_
                                 And(b = 09 Or b = 36 Or b = 54)_
                                 And(c = 09 Or c = 36 Or c = 54) Then amb(1) = 08:amb(2) = 08:amb(3) = 89:amb(4) = 09:amb(5) = 89:amb(6) = 09:amb(7) = 19:amb(8) = 81:amb(9) = 19:amb(10) = 09:amb(11) = 10:amb(12) = 19:amb(13) = 81:amb(14) = 89:ok = 1
                                 If(a = 1 Or a = 28 Or a = 46)_
                                    And(b = 1 Or b = 28 Or b = 46)_
                                    And(c = 1 Or c = 28 Or c = 46) Then amb(1) = 75:amb(2) = 75:amb(3) = 65:amb(4) = 75:amb(5) = 74:amb(6) = 85:amb(7) = 65:amb(8) = 85:amb(9) = 75:amb(10) = 65:amb(11) = 73:amb(12) = 74:amb(13) = 75:amb(14) = 76:ok = 1
                                    If(a = 4 Or a = 49 Or a = 76)_
                                       And(b = 4 Or b = 49 Or b = 76)_
                                       And(c = 4 Or c = 49 Or c = 76) Then amb(1) = 39:amb(2) = 29:amb(3) = 31:amb(4) = 29:amb(5) = 38:amb(6) = 39:amb(7) = 31:amb(8) = 39:amb(9) = 49:amb(10) = 29:amb(11) = 31:amb(12) = 38:amb(13) = 40:amb(14) = 49:ok = 1
                                       If(a = 22 Or a = 40 Or a = 67)_
                                          And(b = 22 Or b = 40 Or b = 67)_
                                          And(c = 22 Or c = 40 Or c = 67) Then amb(1) = 38:amb(2) = 38:amb(3) = 39:amb(4) = 40:amb(5) = 39:amb(6) = 38:amb(7) = 49:amb(8) = 40:amb(9) = 49:amb(10) = 29:amb(11) = 39:amb(12) = 40:amb(13) = 49:amb(14) = 85:ok = 1
                                          If(a = 08 Or a = 53 Or a = 71)_
                                             And(b = 08 Or b = 53 Or b = 71)_
                                             And(c = 08 Or c = 53 Or c = 71) Then amb(1) = 26:amb(2) = 26:amb(3) = 32:amb(4) = 52:amb(5) = 32:amb(6) = 26:amb(7) = 41:amb(8) = 52:amb(9) = 41:amb(10) = 32:amb(11) = 41:amb(12) = 42:amb(13) = 43:amb(14) = 52:ok = 1
                                             If(a = 25 Or a = 52 Or a = 70)_
                                                And(b = 25 Or b = 52 Or b = 70)_
                                                And(c = 25 Or c = 52 Or c = 70)Then amb(1) = 47:amb(2) = 07:amb(3) = 57:amb(4) = 07:amb(5) = 58:amb(6) = 57:amb(7) = 47:amb(8) = 57:amb(9) = 67:amb(10) = 07:amb(11) = 56:amb(12) = 57:amb(13) = 58:amb(14) = 67:ok = 1
                                                If(a = 28 Or a = 55 Or a = 73)_
                                                   And(b = 28 Or b = 55 Or b = 73)_
                                                   And(c = 28 Or c = 55 Or c = 73) Then amb(1) = 65:amb(2) = 65:amb(3) = 10:amb(4) = 65:amb(5) = 66:amb(6) = 66:amb(7) = 56:amb(8) = 66:amb(9) = 67:amb(10) = 10:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1
                                                   If(a = 30 Or a = 48 Or a = 75)_
                                                      And(b = 30 Or b = 48 Or b = 75)_
                                                      And(c = 30 Or c = 48 Or c = 75) Then amb(1) = 63:amb(2) = 64:amb(3) = 03:amb(4) = 64:amb(5) = 53:amb(6) = 64:amb(7) = 63:amb(8) = 64:amb(9) = 73:amb(10) = 03:amb(11) = 03:amb(12) = 53:amb(13) = 62:amb(14) = 73:ok = 1
                                                      If(a = 07 Or a = 52 Or a = 79)_
                                                         And(b = 07 Or b = 52 Or b = 79)_
                                                         And(c = 07 Or c = 52 Or c = 79) Then amb(1) = 48:amb(2) = 48:amb(3) = 38:amb(4) = 48:amb(5) = 47:amb(6) = 49:amb(7) = 47:amb(8) = 49:amb(9) = 48:amb(10) = 34:amb(11) = 38:amb(12) = 47:amb(13) = 49:amb(14) = 58:ok = 1
                                                         If(a = 45 Or a = 63 Or a = 90)_
                                                            And(b = 45 Or b = 63 Or b = 90)_
                                                            And(c = 45 Or c = 63 Or c = 90)Then amb(1) = 18:amb(2) = 18:amb(3) = 08:amb(4) = 18:amb(5) = 17:amb(6) = 18:amb(7) = 19:amb(8) = 18:amb(9) = 28:amb(10) = 08:amb(11) = 17:amb(12) = 18:amb(13) = 19:amb(14) = 28:ok = 1
                                                            If(a = 38 Or a = 56 Or a = 83)_
                                                               And(b = 38 Or b = 56 Or b = 83)_
                                                               And(c = 38 Or c = 56 Or c = 83) Then amb(1) = 87:amb(2) = 11:amb(3) = 77:amb(4) = 11:amb(5) = 88:amb(6) = 86:amb(7) = 87:amb(8) = 86:amb(9) = 88:amb(10) = 07:amb(11) = 77:amb(12) = 86:amb(13) = 87:amb(14) = 88:ok = 1
                                                               If(a = 13 Or a = 58 Or a = 85)_
                                                                  And(b = 13 Or b = 58 Or b = 85)_
                                                                  And(c = 13 Or c = 58 Or c = 85) Then amb(1) = 66:amb(2) = 56:amb(3) = 65:amb(4) = 56:amb(5) = 76:amb(6) = 76:amb(7) = 65:amb(8) = 76:amb(9) = 67:amb(10) = 40:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1
                                                                  If(a = 18 Or a = 30 Or a = 33)_
                                                                     And(b = 18 Or b = 30 Or b = 33)_
                                                                     And(c = 18 Or c = 30 Or c = 33) Then amb(1) = 80:amb(2) = 80:amb(3) = 34:amb(4) = 80:amb(5) = 51:amb(6) = 80:amb(7) = 57:amb(8) = 80:amb(9) = 63:amb(10) = 34:amb(11) = 57:amb(12) = 51:amb(13) = 63:amb(14) = 18:ok = 1
                                                                     If ok = 1 Then
                                                                        If(r <> r1 And c <> a And c <> b) Then
                                                                           co = co + 1
                                                                           ColoreTesto 2
                                                                           Scrivi String(65,"=") : ColoreTesto 0
                                                                           Scrivi "Data " & DataEstrazione(es) & " "
                                                                           Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                                                                           Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                                                                           Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
                                                                           Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
                                                                           Scrivi
                                                                           ruote(1) = r
                                                                           ruote(2) = r1
                                                                           cg = 0
                                                                           nu1(1) = amb(1)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu1,ruote,pt,clp
                                                                           nu2(1) = amb(2)
                                                                           nu2(2) = amb(3)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu2(1) = amb(4)
                                                                           nu2(2) = amb(5)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu2(1) = amb(6)
                                                                           nu2(2) = amb(7)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu2(1) = amb(8)
                                                                           nu2(2) = amb(9)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu3(1) = amb(10)
                                                                           nu3(2) = amb(11)
                                                                           nu3(3) = amb(12)
                                                                           nu3(4) = amb(13)
                                                                           nu3(5) = amb(14)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu3,ruote,pt2,clp,2
                                                                           Gioca es,1
                                                                        End If
                                                                     End If
                                                                  Next
                                                               Next
                                                            Next
                                                         Next
                                                      Next
                                                   Next
                                                   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
                                                   ScriviResoconto
                                                   ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1
                                                   ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
                                                   Scrivi : ColoreTesto 0
End Sub
 
Ti inserisco lo script al limite ti ricavi le previsioni da qui
Codice:
Sub Main()
   ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1
   ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
   Scrivi : ColoreTesto 0
   Dim ruota(1),amb(20),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(3)
   pt(1) = 1
   pt1(2) = 1
   pt2(2) = 1:pt2(3) = 1
   clp = 15
   co = 0
   ini = 10240
   For es = ini To EstrazioneFin
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               For r1 = 1 To 12
                  If r1 = 11 Then r1 = 12
                  For p = 1 To 5
                     c = Estratto(es,r1,p)
                     ok = 0
                     If(a = 19 Or a = 37 Or a = 64)_
                        And(b = 19 Or b = 37 Or b = 64)_
                        And(c = 19 Or c = 37 Or c = 64) Then amb(1) = 30:amb(2) = 20:amb(3) = 30:amb(4) = 29:amb(5) = 30:amb(6) = 31:amb(7) = 30:amb(8) = 40:amb(9) = 30:amb(10) = 20:amb(11) = 29:amb(12) = 31:amb(13) = 40:amb(14) = 82:ok = 1
                        If(a = 38 Or a = 65 Or a = 83)_
                           And(b = 38 Or b = 65 Or b = 83)_
                           And(c = 38 Or c = 65 Or c = 83) Then amb(1) = 06:amb(2) = 05:amb(3) = 07:amb(4) = 05:amb(5) = 16:amb(6) = 05:amb(7) = 20:amb(8) = 05:amb(9) = 86:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1
                           If(a = 16 Or a = 34 Or a = 79)_
                              And(b = 16 Or b = 34 Or b = 79)_
                              And(c = 16 Or c = 34 Or c = 79) Then amb(1) = 39:amb(2) = 29:amb(3) = 38:amb(4) = 29:amb(5) = 49:amb(6) = 40:amb(7) = 39:amb(8) = 40:amb(9) = 61:amb(10) = 05:amb(11) = 07:amb(12) = 16:amb(13) = 20:amb(14) = 86:ok = 1
                              If(a = 09 Or a = 36 Or a = 54)_
                                 And(b = 09 Or b = 36 Or b = 54)_
                                 And(c = 09 Or c = 36 Or c = 54) Then amb(1) = 08:amb(2) = 08:amb(3) = 89:amb(4) = 09:amb(5) = 89:amb(6) = 09:amb(7) = 19:amb(8) = 81:amb(9) = 19:amb(10) = 09:amb(11) = 10:amb(12) = 19:amb(13) = 81:amb(14) = 89:ok = 1
                                 If(a = 1 Or a = 28 Or a = 46)_
                                    And(b = 1 Or b = 28 Or b = 46)_
                                    And(c = 1 Or c = 28 Or c = 46) Then amb(1) = 75:amb(2) = 75:amb(3) = 65:amb(4) = 75:amb(5) = 74:amb(6) = 85:amb(7) = 65:amb(8) = 85:amb(9) = 75:amb(10) = 65:amb(11) = 73:amb(12) = 74:amb(13) = 75:amb(14) = 76:ok = 1
                                    If(a = 4 Or a = 49 Or a = 76)_
                                       And(b = 4 Or b = 49 Or b = 76)_
                                       And(c = 4 Or c = 49 Or c = 76) Then amb(1) = 39:amb(2) = 29:amb(3) = 31:amb(4) = 29:amb(5) = 38:amb(6) = 39:amb(7) = 31:amb(8) = 39:amb(9) = 49:amb(10) = 29:amb(11) = 31:amb(12) = 38:amb(13) = 40:amb(14) = 49:ok = 1
                                       If(a = 22 Or a = 40 Or a = 67)_
                                          And(b = 22 Or b = 40 Or b = 67)_
                                          And(c = 22 Or c = 40 Or c = 67) Then amb(1) = 38:amb(2) = 38:amb(3) = 39:amb(4) = 40:amb(5) = 39:amb(6) = 38:amb(7) = 49:amb(8) = 40:amb(9) = 49:amb(10) = 29:amb(11) = 39:amb(12) = 40:amb(13) = 49:amb(14) = 85:ok = 1
                                          If(a = 08 Or a = 53 Or a = 71)_
                                             And(b = 08 Or b = 53 Or b = 71)_
                                             And(c = 08 Or c = 53 Or c = 71) Then amb(1) = 26:amb(2) = 26:amb(3) = 32:amb(4) = 52:amb(5) = 32:amb(6) = 26:amb(7) = 41:amb(8) = 52:amb(9) = 41:amb(10) = 32:amb(11) = 41:amb(12) = 42:amb(13) = 43:amb(14) = 52:ok = 1
                                             If(a = 25 Or a = 52 Or a = 70)_
                                                And(b = 25 Or b = 52 Or b = 70)_
                                                And(c = 25 Or c = 52 Or c = 70)Then amb(1) = 47:amb(2) = 07:amb(3) = 57:amb(4) = 07:amb(5) = 58:amb(6) = 57:amb(7) = 47:amb(8) = 57:amb(9) = 67:amb(10) = 07:amb(11) = 56:amb(12) = 57:amb(13) = 58:amb(14) = 67:ok = 1
                                                If(a = 28 Or a = 55 Or a = 73)_
                                                   And(b = 28 Or b = 55 Or b = 73)_
                                                   And(c = 28 Or c = 55 Or c = 73) Then amb(1) = 65:amb(2) = 65:amb(3) = 10:amb(4) = 65:amb(5) = 66:amb(6) = 66:amb(7) = 56:amb(8) = 66:amb(9) = 67:amb(10) = 10:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1
                                                   If(a = 30 Or a = 48 Or a = 75)_
                                                      And(b = 30 Or b = 48 Or b = 75)_
                                                      And(c = 30 Or c = 48 Or c = 75) Then amb(1) = 63:amb(2) = 64:amb(3) = 03:amb(4) = 64:amb(5) = 53:amb(6) = 64:amb(7) = 63:amb(8) = 64:amb(9) = 73:amb(10) = 03:amb(11) = 03:amb(12) = 53:amb(13) = 62:amb(14) = 73:ok = 1
                                                      If(a = 07 Or a = 52 Or a = 79)_
                                                         And(b = 07 Or b = 52 Or b = 79)_
                                                         And(c = 07 Or c = 52 Or c = 79) Then amb(1) = 48:amb(2) = 48:amb(3) = 38:amb(4) = 48:amb(5) = 47:amb(6) = 49:amb(7) = 47:amb(8) = 49:amb(9) = 48:amb(10) = 34:amb(11) = 38:amb(12) = 47:amb(13) = 49:amb(14) = 58:ok = 1
                                                         If(a = 45 Or a = 63 Or a = 90)_
                                                            And(b = 45 Or b = 63 Or b = 90)_
                                                            And(c = 45 Or c = 63 Or c = 90)Then amb(1) = 18:amb(2) = 18:amb(3) = 08:amb(4) = 18:amb(5) = 17:amb(6) = 18:amb(7) = 19:amb(8) = 18:amb(9) = 28:amb(10) = 08:amb(11) = 17:amb(12) = 18:amb(13) = 19:amb(14) = 28:ok = 1
                                                            If(a = 38 Or a = 56 Or a = 83)_
                                                               And(b = 38 Or b = 56 Or b = 83)_
                                                               And(c = 38 Or c = 56 Or c = 83) Then amb(1) = 87:amb(2) = 11:amb(3) = 77:amb(4) = 11:amb(5) = 88:amb(6) = 86:amb(7) = 87:amb(8) = 86:amb(9) = 88:amb(10) = 07:amb(11) = 77:amb(12) = 86:amb(13) = 87:amb(14) = 88:ok = 1
                                                               If(a = 13 Or a = 58 Or a = 85)_
                                                                  And(b = 13 Or b = 58 Or b = 85)_
                                                                  And(c = 13 Or c = 58 Or c = 85) Then amb(1) = 66:amb(2) = 56:amb(3) = 65:amb(4) = 56:amb(5) = 76:amb(6) = 76:amb(7) = 65:amb(8) = 76:amb(9) = 67:amb(10) = 40:amb(11) = 56:amb(12) = 65:amb(13) = 67:amb(14) = 76:ok = 1
                                                                  If(a = 18 Or a = 30 Or a = 33)_
                                                                     And(b = 18 Or b = 30 Or b = 33)_
                                                                     And(c = 18 Or c = 30 Or c = 33) Then amb(1) = 80:amb(2) = 80:amb(3) = 34:amb(4) = 80:amb(5) = 51:amb(6) = 80:amb(7) = 57:amb(8) = 80:amb(9) = 63:amb(10) = 34:amb(11) = 57:amb(12) = 51:amb(13) = 63:amb(14) = 18:ok = 1
                                                                     If ok = 1 Then
                                                                        If(r <> r1 And c <> a And c <> b) Then
                                                                           co = co + 1
                                                                           ColoreTesto 2
                                                                           Scrivi String(65,"=") : ColoreTesto 0
                                                                           Scrivi "Data " & DataEstrazione(es) & " "
                                                                           Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
                                                                           Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                                                                           Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
                                                                           Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
                                                                           Scrivi
                                                                           ruote(1) = r
                                                                           ruote(2) = r1
                                                                           cg = 0
                                                                           nu1(1) = amb(1)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu1,ruote,pt,clp
                                                                           nu2(1) = amb(2)
                                                                           nu2(2) = amb(3)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu2(1) = amb(4)
                                                                           nu2(2) = amb(5)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu2(1) = amb(6)
                                                                           nu2(2) = amb(7)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu2(1) = amb(8)
                                                                           nu2(2) = amb(9)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu2,ruote,pt1,clp
                                                                           nu3(1) = amb(10)
                                                                           nu3(2) = amb(11)
                                                                           nu3(3) = amb(12)
                                                                           nu3(4) = amb(13)
                                                                           nu3(5) = amb(14)
                                                                           cg = cg + 1
                                                                           ImpostaGiocata cg,nu3,ruote,pt2,clp,2
                                                                           Gioca es,1
                                                                        End If
                                                                     End If
                                                                  Next
                                                               Next
                                                            Next
                                                         Next
                                                      Next
                                                   Next
                                                   Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
                                                   ScriviResoconto
                                                   ColoreTesto 1 :Scrivi "-----------------AllorQuando Selection - Mirco",1
                                                   ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
                                                   Scrivi : ColoreTesto 0
End Sub
Che programma si deve usare per usare lo script
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 19 dicembre 2025
    Bari
    31
    29
    78
    66
    61
    Cagliari
    45
    72
    65
    38
    35
    Firenze
    80
    01
    33
    11
    36
    Genova
    15
    81
    02
    47
    83
    Milano
    88
    52
    04
    76
    24
    Napoli
    10
    72
    37
    58
    07
    Palermo
    78
    05
    34
    48
    35
    Roma
    23
    22
    42
    75
    02
    Torino
    73
    59
    48
    47
    70
    Venezia
    02
    78
    31
    38
    72
    Nazionale
    04
    28
    85
    60
    57
    Estrazione Simbolotto
    Venezia
    30
    10
    43
    28
    21
Indietro
Alto