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
    sabato 25 ottobre 2025
    Bari
    68
    58
    45
    69
    51
    Cagliari
    31
    24
    11
    47
    87
    Firenze
    80
    18
    17
    60
    53
    Genova
    64
    54
    09
    48
    38
    Milano
    34
    29
    12
    63
    39
    Napoli
    79
    75
    44
    69
    43
    Palermo
    28
    75
    85
    22
    47
    Roma
    21
    39
    55
    43
    88
    Torino
    09
    40
    76
    84
    16
    Venezia
    26
    36
    52
    66
    25
    Nazionale
    22
    38
    88
    65
    40
    Estrazione Simbolotto
    34
    26
    09
    31
    04
Indietro
Alto