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 07 novembre 2026
    Bari
    64
    09
    01
    08
    12
    Cagliari
    79
    52
    86
    90
    87
    Firenze
    29
    68
    25
    02
    86
    Genova
    25
    26
    48
    77
    09
    Milano
    16
    48
    65
    72
    44
    Napoli
    09
    47
    49
    80
    57
    Palermo
    04
    08
    70
    46
    45
    Roma
    06
    24
    85
    65
    26
    Torino
    02
    85
    26
    10
    20
    Venezia
    07
    69
    28
    37
    82
    Nazionale
    75
    08
    82
    15
    47
    Estrazione Simbolotto
    Torino
    29
    16
    10
    36
    43

Ultimi Messaggi

Indietro
Alto