script lotto

gabby · 20 Novembre 2020

ci sono belle vincite ,buona fortuna a tt

gabby · 20 Novembre 2020

dal 03/06/2020 : 5 terni + 36 ambi

demonio · 20 Novembre 2020

devi metterlo facendo copia-incolla del testo, invece che l'immagine

grazie mille

gabby · 21 Novembre 2020

non so' farlo

demonio · 21 Novembre 2020

gabby ha scritto:
non so' farlo

la stessa cosa che hai fatto per l'immagine

salvo14 · 21 Novembre 2020

Scusa neanche io so farlo, ti invito a metterlo come testo e non come immagine. Grazie

gabby · 21 Novembre 2020

non so' farlo

zio73 · 21 Novembre 2020

Codice:

 Sub Main()ColoreTesto 1
Scrivi
Scrivi "3 QUARTINE SU ba,ca,ge ALLA 1° ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi "METODO E LIST BY tonino",1
Scrivi
ColoreTesto 0
Dim ruota(5)
Dim quartina1(4): Dim quartina2(4): Dim quartina3(4): Dim poste(4)
poste(2) = 7
poste(3) = 3
poste(4) = 0
Dim klp,casi,Ini,fin,es,co
klp = 9
Ini = 9483
fin = EstrazioneFin
co = 0
For es = Ini To fin
If IndiceMensile(es) = 1 Then
ruota(1) = 6: ruota(2) = 1:ruota(3) = 4
casi = casi + 1
ColoreTesto 2:Scrivi String(100,"$") & " caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° estrazione mensile"
ColoreTesto 2:Scrivi String(100,"$")
ColoreTesto 0
quartina1(1) = Fuori90(Figura(Estratto(es,1,1) + 0))
quartina1(2) = Fuori90(Figura(Estratto(es,1,4) + 0))
quartina1(3) = Fuori90(Vert(Estratto(es,1,1) + 0))
quartina1(4) = Fuori90(Vert(Estratto(es,1,4) + 0))
ImpostaGiocata 1,quartina1,ruota,poste,klp
quartina2(1) = Fuori90(Figura(Estratto(es,1,1) + 0))
quartina2(2) = Fuori90(Figura(Estratto(es,1,4) + 0))
quartina2(3) = Fuori90(DiametraleD(Estratto(es,1,1) + 0))
quartina2(4) = Fuori90(DiametraleD(Estratto(es,1,4) + 0))
ImpostaGiocata 2,quartina2,ruota,poste,klp
quartina3(1) = Fuori90(Vert(Estratto(es,1,1) + 0))
quartina3(2) = Fuori90(Vert(Estratto(es,1,4) + 0))
quartina3(3) = Fuori90(DiametraleD(Estratto(es,1,1) + 0))
quartina3(4) = Fuori90(DiametraleD(Estratto(es,1,4) + 0))
ImpostaGiocata 3,quartina3,ruota,poste,klp

Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

zio73 · 21 Novembre 2020

eccolo lo ho codificato e modificato
perchè quello nell'immagine non andava

lotto_tom75 · 21 Novembre 2020

Ciao zio73, se metti il codice tra i tag "[ code ]" e "[/ code ]" viene formattato in modo molto più leggibile per tutti.

Marco-elle · 23 Novembre 2020

zio73 ha scritto:

Codice:

 Sub Main()ColoreTesto 1
Scrivi
Scrivi "3 QUARTINE SU ba,ca,ge ALLA 1° ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi "METODO E LIST BY tonino",1
Scrivi
ColoreTesto 0
Dim ruota(5)
Dim quartina1(4): Dim quartina2(4): Dim quartina3(4): Dim poste(4)
poste(2) = 7
poste(3) = 3
poste(4) = 0
Dim klp,casi,Ini,fin,es,co
klp = 9
Ini = 9483
fin = EstrazioneFin
co = 0
For es = Ini To fin
If IndiceMensile(es) = 1 Then
ruota(1) = 6: ruota(2) = 1:ruota(3) = 4
casi = casi + 1
ColoreTesto 2:Scrivi String(100,"$") & " caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° estrazione mensile"
ColoreTesto 2:Scrivi String(100,"$")
ColoreTesto 0
quartina1(1) = Fuori90(Figura(Estratto(es,1,1) + 0))
quartina1(2) = Fuori90(Figura(Estratto(es,1,4) + 0))
quartina1(3) = Fuori90(Vert(Estratto(es,1,1) + 0))
quartina1(4) = Fuori90(Vert(Estratto(es,1,4) + 0))
ImpostaGiocata 1,quartina1,ruota,poste,klp
quartina2(1) = Fuori90(Figura(Estratto(es,1,1) + 0))
quartina2(2) = Fuori90(Figura(Estratto(es,1,4) + 0))
quartina2(3) = Fuori90(DiametraleD(Estratto(es,1,1) + 0))
quartina2(4) = Fuori90(DiametraleD(Estratto(es,1,4) + 0))
ImpostaGiocata 2,quartina2,ruota,poste,klp
quartina3(1) = Fuori90(Vert(Estratto(es,1,1) + 0))
quartina3(2) = Fuori90(Vert(Estratto(es,1,4) + 0))
quartina3(3) = Fuori90(DiametraleD(Estratto(es,1,1) + 0))
quartina3(4) = Fuori90(DiametraleD(Estratto(es,1,4) + 0))
ImpostaGiocata 3,quartina3,ruota,poste,klp

Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

Eheheh.....mi sembra di conoscere questo stile

Marco-elle · 23 Novembre 2020

Previsione in corso per altri 7 colpi:
BA-MI-NA-VE
10
10-35 (occhio a BA)
10-42

Codice:

Sub Main() ColoreTesto 7
   Scrivi
   Scrivi "AMBATA  + 2 AMBI SU' BA-MI-NA-VE ALLA 4° MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(4)
   Dim ambata(1):Dim posta(1):Dim ambo(2):Dim poste(2)
   posta(1) = 1
   poste(2) = 1
   klp = 12
   ini = 9650
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 4 Then
         ruote(1) = 1
         ruote(2) = 5
         ruote(3) = 6
         ruote(4) = 10
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"$") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 1:Scrivi String(100,"$")
         ColoreTesto 0
         ambata(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
         ImpostaGiocata 1,ambata,ruote,posta,klp
         ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
         ambo(2) = Fuori90(Estratto(es,2,3) + Estratto(es,7,5) + 14)
         ImpostaGiocata 2,ambo,ruote,poste,klp
         ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
         ambo(2) = Fuori90(Estratto(es,4,1) + Estratto(es,12,1) + 1)
         ImpostaGiocata 3,ambo,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

demonio · 23 Novembre 2020

Marco-elle ha scritto:

Previsione in corso per altri 7 colpi:
BA-MI-NA-VE
10
10-35 (occhio a BA)
10-42

Codice:

Sub Main() ColoreTesto 7
   Scrivi
   Scrivi "AMBATA  + 2 AMBI SU' BA-MI-NA-VE ALLA 4° MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(4)
   Dim ambata(1):Dim posta(1):Dim ambo(2):Dim poste(2)
   posta(1) = 1
   poste(2) = 1
   klp = 12    (segnala 1 errore)
   ini = 9650
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 4 Then
         ruote(1) = 1
         ruote(2) = 5
         ruote(3) = 6
         ruote(4) = 10
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"$") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 1:Scrivi String(100,"$")
         ColoreTesto 0
         ambata(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
         ImpostaGiocata 1,ambata,ruote,posta,klp
         ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
         ambo(2) = Fuori90(Estratto(es,2,3) + Estratto(es,7,5) + 14)
         ImpostaGiocata 2,ambo,ruote,poste,klp
         ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
         ambo(2) = Fuori90(Estratto(es,4,1) + Estratto(es,12,1) + 1)
         ImpostaGiocata 3,ambo,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

zio73 · 23 Novembre 2020

demonio inserisci questa stringa subito prima di dove ti da errore

Dim klp,casi,Ini,fin,es,co

demonio · 24 Novembre 2020

zio73 ha scritto:
demonio inserisci questa stringa subito prima di dove ti da errore

Dim klp,casi,Ini,fin,es,co

ottimo grazie zio73

Marco-elle · 24 Novembre 2020

Marco-elle ha scritto:

Previsione in corso per altri 7 colpi:
BA-MI-NA-VE
10
10-35 (occhio a BA)
10-42

Codice:

Sub Main() ColoreTesto 7
   Scrivi
   Scrivi "AMBATA  + 2 AMBI SU' BA-MI-NA-VE ALLA 4° MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(4)
   Dim ambata(1):Dim posta(1):Dim ambo(2):Dim poste(2)
   posta(1) = 1
   poste(2) = 1
   klp = 12
   ini = 9650
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 4 Then
         ruote(1) = 1
         ruote(2) = 5
         ruote(3) = 6
         ruote(4) = 10
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"$") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 1:Scrivi String(100,"$")
         ColoreTesto 0
         ambata(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
         ImpostaGiocata 1,ambata,ruote,posta,klp
         ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
         ambo(2) = Fuori90(Estratto(es,2,3) + Estratto(es,7,5) + 14)
         ImpostaGiocata 2,ambo,ruote,poste,klp
         ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
         ambo(2) = Fuori90(Estratto(es,4,1) + Estratto(es,12,1) + 1)
         ImpostaGiocata 3,ambo,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

Dopo il 10 a MI....questa sera il metodo becca il 10 anche a BA
la previsione continua per i colpi previsti

Cerca

Cerca

script lotto

gabby

Senior Member

gabby

Senior Member

gabby

Senior Member

demonio

Super member

gabby

Senior Member

demonio

Super member

salvo14

Super Member >PLATINUM<

gabby

Senior Member

zio73

Member

zio73

Member

lotto_tom75

Advanced Premium Member

Marco-elle

Advanced Member >PLATINUM PLUS<

Marco-elle

Advanced Member >PLATINUM PLUS<

demonio

Super member

zio73

Member

demonio

Super member

Marco-elle

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi