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 12 aprile 2025
    Bari
    47
    07
    11
    43
    61
    Cagliari
    34
    14
    81
    89
    79
    Firenze
    81
    16
    28
    03
    21
    Genova
    85
    04
    45
    60
    29
    Milano
    69
    30
    06
    13
    55
    Napoli
    12
    03
    48
    31
    24
    Palermo
    48
    06
    68
    66
    28
    Roma
    69
    25
    09
    48
    86
    Torino
    29
    85
    52
    54
    62
    Venezia
    90
    61
    34
    79
    37
    Nazionale
    18
    14
    88
    10
    27
    Estrazione Simbolotto
    Genova
    39
    20
    02
    13
    26
Indietro
Alto