Novità

URGE SCRIPT

ACC.........non sei andato in letargo ? colpa del caffè?

ma mi sembra ottimo lo script forse con il mio metodo riesco a ridurre i numeri vediamo.....ma è un po troppo lungo il lavoro.....sai non sto molto con Costanza,

mi ricordi quello script come si chiamava ?,grazie.

da te c'è molta neve !!
 
Senti me lo son perso fra i mille che ho..............................che..............................per caso ..............###
 
Si scusa è rivolto a OSCAR.Lui lo sa.
comunque complimenti i tuoi lavori vanno molto bene come sempre.
 
PROVIAMO UN TERNO ? (VERAMENTE SONO 10 da fare in gruppo basta avere un po di K) :unsure: :unsure: :unsure: :ROFLMAO::ROFLMAO::ROFLMAO::ROFLMAO:

2920
2971
2989
21358
25871
27189
6958
91358
95871
95889

Scrivi "METODO PER AMBO TERNO QUATERNA CINQUINA SU BA-NA "
Scrivi "GIOCA 10 NUMERI x 9 COLPI COLPI "giochiamo su BARI con il 50% di rischio
 
BARI alla 6° mensile,gioca 6 terni

Codice:
Sub Main() ColoreTesto 2
   Scrivi
   Scrivi "6 TERNI SU BARI  ALLA 6° ESTRAZIONE MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(1)
   Dim t1(3): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim poste(3)
   poste(2) = 1
   poste(3) = 1
   klp = 12
   ini = 9650
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 6 Then
         ruote(1) = 1
         casi = casi + 1
         co = co + 1
         ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 7:Scrivi String(100,"°")
         ColoreTesto 0
         t1(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t1(2) = Fuori90(Estratto(es,6,1) + Estratto(es,6,4) + 19)
         t1(3) = Fuori90(Estratto(es,1,2) + Estratto(es,2,5) + 65)
         ImpostaGiocata 1,t1,ruote,poste,klp
         t2(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t2(2) = Fuori90(Estratto(es,6,1) + Estratto(es,6,4) + 19)
         t2(3) = Fuori90(Estratto(es,3,1) + Estratto(es,8,1) + 4)
         ImpostaGiocata 2,t2,ruote,poste,klp
         t3(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t3(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,3,2) + 5)
         t3(3) = Fuori90(Estratto(es,1,2) + Estratto(es,2,5) + 65)
         ImpostaGiocata 3,t3,ruote,poste,klp
         t4(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t4(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,3,2) + 5)
         t4(3) = Fuori90(Estratto(es,3,1) + Estratto(es,8,1) + 4)
         ImpostaGiocata 4,t4,ruote,poste,klp
         t5(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t5(2) = Fuori90(Estratto(es,3,5) + Estratto(es,5,4) + 1)
         t5(3) = Fuori90(Estratto(es,1,2) + Estratto(es,2,5) + 65)
         ImpostaGiocata 5,t5,ruote,poste,klp
         t6(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t6(2) = Fuori90(Estratto(es,3,5) + Estratto(es,5,4) + 1)
         t6(3) = Fuori90(Estratto(es,3,1) + Estratto(es,8,1) + 4)
         ImpostaGiocata 6,t6,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
marco questa si può mettere in gioco da sabato?
 
Formula 4-49 gioca 4 ambi + 1 quartina (formula statistica)

Codice:
Sub Main()
   ColoreTesto 2
   Scrivi "FORMULA 4-49 "
   Scrivi "GIOCA 4 AMBI + 1 QUARTINA  "
   Scrivi "METODO E LIST BY Marco"
   Dim ruote(10)
   Dim n1(1)
   Dim n2(2)
   Dim n3(2)
   Dim n4(2)
   Dim n5(2)
   Dim n6(5)
   Dim posta(1)
   Dim poste(10)
   posta(1) = 1
   poste(2) = 1
   ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",250)
   k = InputBox("per quanti colpi?","colpi di gioco",15)
   ini = EstrazioneFin - ce
   fin = EstrazioneFin
   casi = 0
   ok = 0
   For es = ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               For p2 = 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  If a = 4 And b = 49 Or a = 49 And b = 4 Then
                     ok = 1
                     If ok = 1 Then
                        n1(1) = 20
                        n2(1) = 20
                        n2(2) = 10
                        n3(1) = 20
                        n3(2) = 21
                        n4(1) = 20
                        n4(2) = 30
                        n5(1) = 20
                        n5(2) = 32
                        n6(1) = 17
                        n6(2) = 25
                        n6(3) = 35
                        n6(4) = 84
                        casi = casi + 1
                        Scrivi String(100,"°") & " Caso n°" & casi,1
                        ColoreTesto 1
                        Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                        " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
                        Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                        " ] * [ " & Format2(b) & " ]" & "  *   Figura : " & " [ " & Figura(b) & " ] ",1
                        ruote(1) = r1
                        ruote(2) = r2
                        ColoreTesto 0
                        ImpostaGiocata 1,n1,ruote,posta,k
                        ImpostaGiocata 2,n2,ruote,poste,k,2
                        ImpostaGiocata 3,n3,ruote,poste,k,2
                        ImpostaGiocata 4,n4,ruote,poste,k,2
                        ImpostaGiocata 5,n5,ruote,poste,k,2
                        ImpostaGiocata 6,n6,ruote,poste,k,2
                        Gioca es,1
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & casi,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ColoreTesto 0
   ScriviResoconto
End Sub
 
Ambo gemello sortito su TT... Gioca previsione statistica su ruote più congeniali

Codice:
Sub Main()
   ColoreTesto 2
   Scrivi "AMBO GEMELLO SORTITO SU TT "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim a1(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 300
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               ok = 0
               If a = 11 And b = 22 Or a = 22 And b = 11 Then
                  a1(1) = 8
                  a1(2) = 13
                  a1(3) = 78
                  a1(4) = 82
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 11 And b = 33 Or a = 33 And b = 11 Then
                  a1(1) = 2
                  a1(2) = 16
                  a1(3) = 51
                  a1(4) = 74
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 11 And b = 44 Or a = 44 And b = 11 Then
                  a1(1) = 13
                  a1(2) = 58
                  a1(3) = 61
                  ruota(1) = 1
                  ruota(2) = 2
               End If
               If a = 11 And b = 55 Or a = 55 And b = 11 Then
                  a1(1) = 2
                  a1(2) = 4
                  a1(3) = 38
                  a1(4) = 60
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 11 And b = 66 Or a = 66 And b = 11 Then
                  a1(1) = 2
                  a1(2) = 15
                  a1(3) = 41
                  a1(4) = 57
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 11 And b = 77 Or a = 77 And b = 11 Then
                  a1(1) = 2
                  a1(2) = 20
                  a1(3) = 52
                  a1(4) = 81
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 11 And b = 88 Or a = 88 And b = 11 Then
                  a1(1) = 2
                  a1(2) = 39
                  a1(3) = 60
                  a1(4) = 64
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 22 And b = 33 Or a = 33 And b = 22 Then
                  a1(1) = 1
                  a1(2) = 25
                  a1(3) = 58
                  a1(4) = 67
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 22 And b = 44 Or a = 44 And b = 22 Then
                  a1(1) = 1
                  a1(2) = 16
                  a1(3) = 22
                  a1(4) = 51
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 22 And b = 55 Or a = 55 And b = 22 Then
                  a1(1) = 1
                  a1(2) = 45
                  a1(3) = 58
                  a1(4) = 70
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 22 And b = 66 Or a = 66 And b = 22 Then
                  a1(1) = 6
                  a1(2) = 27
                  a1(3) = 40
                  a1(4) = 47
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 22 And b = 77 Or a = 77 And b = 22 Then
                  a1(1) = 3
                  a1(2) = 30
                  a1(3) = 43
                  a1(4) = 84
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 22 And b = 88 Or a = 88 And b = 22 Then
                  a1(1) = 6
                  a1(2) = 26
                  a1(3) = 56
                  a1(4) = 89
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 33 And b = 44 Or a = 44 And b = 33 Then
                  a1(1) = 5
                  a1(2) = 6
                  a1(3) = 53
                  ruota(1) = 8
                  ruota(2) = 9
                  ok = 1
               End If
               If a = 33 And b = 55 Or a = 55 And b = 33 Then
                  a1(1) = 24
                  a1(2) = 26
                  a1(3) = 36
                  a1(4) = 49
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 33 And b = 66 Or a = 66 And b = 33 Then
                  a1(1) = 1
                  a1(2) = 8
                  a1(3) = 14
                  a1(4) = 70
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 33 And b = 77 Or a = 77 And b = 33 Then
                  a1(1) = 2
                  a1(2) = 20
                  a1(3) = 21
                  a1(4) = 71
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 33 And b = 88 Or a = 88 And b = 33 Then
                  a1(1) = 9
                  a1(2) = 33
                  a1(3) = 60
                  a1(4) = 66
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 44 And b = 55 Or a = 55 And b = 44 Then
                  a1(1) = 26
                  a1(2) = 35
                  a1(3) = 49
                  a1(4) = 83
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 44 And b = 66 Or a = 66 And b = 44 Then
                  a1(1) = 8
                  a1(2) = 61
                  a1(3) = 70
                  a1(4) = 71
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 44 And b = 77 Or a = 77 And b = 44 Then
                  a1(1) = 3
                  a1(2) = 26
                  a1(3) = 76
                  a1(4) = 83
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 44 And b = 88 Or a = 88 And b = 44 Then
                  a1(1) = 1
                  a1(2) = 9
                  a1(3) = 10
                  a1(4) = 51
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 55 And b = 66 Or a = 66 And b = 55 Then
                  a1(1) = 3
                  a1(2) = 14
                  a1(3) = 56
                  a1(4) = 60
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 55 And b = 77 Or a = 77 And b = 55 Then
                  a1(1) = 4
                  a1(2) = 7
                  a1(3) = 40
                  a1(4) = 80
                  ruota(1) = 1
                  ruota(2) = 8
                  ok = 1
               End If
               If a = 55 And b = 88 Or a = 88 And b = 55 Then
                  a1(1) = 1
                  a1(2) = 2
                  a1(3) = 35
                  a1(4) = 60
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 66 And b = 77 Or a = 77 And b = 66 Then
                  a1(1) = 29
                  a1(2) = 41
                  a1(3) = 47
                  a1(4) = 61
                  ruota(1) = 1
                  ruota(2) = 8
                  ok = 1
               End If
               If a = 66 And b = 88 Or a = 88 And b = 88 Then
                  a1(1) = 7
                  a1(2) = 14
                  a1(3) = 15
                  a1(4) = 65
                  ruota(1) = 2
                  ruota(2) = 10
                  ok = 1
               End If
               If a = 77 And b = 88 Or a = 88 And b = 77 Then
                  a1(1) = 6
                  a1(2) = 27
                  a1(3) = 37
                  a1(4) = 63
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If ok = 1 Then
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(80,"^") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es) & "   ambo spia sortito su TT    " & a & " - " & b,1
                  Scrivi String(80,"^"),1
                  ColoreTesto 0
                  ImpostaGiocata 1,a1,ruota,poste,clp
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 luglio 2026
    Bari
    81
    71
    24
    27
    01
    Cagliari
    38
    77
    61
    68
    78
    Firenze
    61
    56
    05
    68
    17
    Genova
    32
    79
    83
    04
    15
    Milano
    80
    12
    25
    10
    76
    Napoli
    61
    29
    27
    08
    23
    Palermo
    88
    77
    45
    86
    23
    Roma
    82
    76
    58
    22
    33
    Torino
    22
    87
    35
    57
    62
    Venezia
    06
    35
    37
    11
    36
    Nazionale
    40
    35
    82
    58
    67
    Estrazione Simbolotto
    Nazionale
    08
    40
    42
    09
    16
Indietro
Alto