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
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto