Novità

SEMPRE BARI

proprio vero caro sig.marco si fa estrema fatica a seguire molti post del tutto dediti alla confusione ,per fortuna scrivono :
"cautela al lotto non vi è certezza alcuna" questo rassicura e non poco.
saluti buon fine anno
 
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
Per quelli che hanno qualcosa da dire sulla mia vincita ...lo script in questione è questo e non
in sezione Download....avevo dei riscontri con 86-88 e ci ho aggiunto anche l'11
88.png
 
buongiorno Marco, eccellente nei risultati e nelle parole usate, davvero complimenti per la persona che sei.
non vado oltre ad esprimere il mio pensiero potrei suscitare repliche che andrebbero a sporcare un post chiaro ,
con stima
LottoLuke
 
buongiorno Marco, eccellente nei risultati e nelle parole usate, davvero complimenti per la persona che sei.
non vado oltre ad esprimere il mio pensiero potrei suscitare repliche che andrebbero a sporcare un post chiaro ,
con stima
LottoLuke
Grazie ma....non vorrei che la gente pensasse che tu sei uno dei miei tanti nick.....
è risaputo che sto sui Marroni a tutto il forum ma....come dico sempre, non me frega
più na cippa!....la gente sta bene fregata
PS: mi piace pensare che....qualcuno riesce a pensare con la propria testa
 
A me non stai marroni,,anche perche non li ho😆 .ti conosco da quando eri nel sito Lottoscheila poi hai aperto uno tutto tuo ..a volte ti seguo a volte no dipende dai numeri che scelgo di giocare.....lascia che l.acqua scorra sotto i ponti ,buon anno e buona fortuna🍀🍀🍀
 
Ovviamente siete tutti concentrati su questa sezione "PREVISIONI"
ma....su "LOTTOMETRIA" ho visto uscire la cinquina in novina su 3 estrazioni,
ok....non ho vinto una cippa! ma.....la formazione era ottima!Prima o poi farò
notare che non esistono solo i GURU paga bollette e non esistono solo loro
ma.....riescono a vincere anche altri,
Buona Befana a tutti,ai bei e anca ai brutti!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 18 agosto 2025
    Bari
    44
    29
    37
    32
    11
    Cagliari
    15
    71
    24
    58
    86
    Firenze
    18
    20
    01
    27
    36
    Genova
    20
    42
    82
    30
    83
    Milano
    02
    37
    88
    15
    14
    Napoli
    18
    45
    77
    72
    41
    Palermo
    16
    15
    21
    47
    31
    Roma
    14
    01
    59
    39
    09
    Torino
    43
    14
    11
    17
    08
    Venezia
    76
    46
    35
    28
    39
    Nazionale
    22
    46
    60
    62
    40
    Estrazione Simbolotto
    Nazionale
    11
    42
    06
    01
    41
Indietro
Alto