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 13 settembre 2025
    Bari
    85
    57
    40
    76
    14
    Cagliari
    90
    15
    68
    63
    76
    Firenze
    81
    74
    71
    25
    06
    Genova
    21
    47
    44
    02
    06
    Milano
    83
    39
    31
    84
    55
    Napoli
    74
    41
    24
    47
    38
    Palermo
    54
    25
    61
    22
    68
    Roma
    60
    72
    38
    55
    03
    Torino
    10
    45
    56
    54
    63
    Venezia
    14
    38
    66
    36
    28
    Nazionale
    85
    48
    38
    22
    81
    Estrazione Simbolotto
    Palermo
    08
    42
    27
    30
    20
Indietro
Alto