OGNI MESE... HA LA SUA RUOTA !!! By BLACK

[Blackmore]

All'interno di questo script sono contenuti 12 metodi ogniuno indipendente dall'altro
Si calcolano ogni 10°estrazione del mese, e, per ogni mese
viene messa in gioco una ruota diversa

10°del mese di Gennaio gioca su Bari
10°del mese di Febbraio gioca su Cagliari
10°del mese di Marzo gioca su Firenze
10°del mese di Aprile gioca su Genova
10°del mese di Maggio gioca su Milano
10°del mese di Giugno gioca su Napoli
10°del mese di Luglio gioca su Palermo
10°del mese di Agosto gioca su Roma
10°del mese di Settembre gioca su Torino
10°del mese di Ottobre gioca su Venezia

Mentre per i mesi di Novembre e Dicembre si gioca sulla Nazionale

10°del mese di Novembre gioca su Nazionale
10°del mese di Dicembre gioca su Nazionale

Lo script inizia a partire dal mese di Giugno 2005
(inserimento della 3° estrazione settimanale)

I metodi consistono in 1 ambata e 2 o 3 ambi (dipende dal metodo)
per un periodo di 9 Colpi

Se usate L8 o Lottodesk togliete la virgola e l'1 dopo Gioca es

Programma utilizzato: LOTTOGEOS II

Ciao !!!

Codice: Seleziona tutto

Sub Main()
   ColoreTesto 2:Scrivi
   Scrivi String(35," ") & "Ogni 10°Estrazione del mese per Ogni Mese su Ogni Ruota",1
   Scrivi String(48," ") & "Metodo e Script By Blackmore",1
   ColoreTesto 0:Scrivi
   Dim ruota(10)
   Dim ambata(1)
   Dim amb1(2)
   Dim amb2(2)
   Dim amb3(2)
   Dim posta(1)
   Dim poste(2)
   posta(1) = 1
   poste(2) = 1
   im = CInt(InputBox("INSERISCI L' INDICE MENSILE :"," : METODO E SCRIPT BY BLACKMORE :",10))
   k = InputBox("COLPI DI GIOCO :"," : METODO E SCRIPT BY BLACKMORE :",9)
   ini = InputBox("ESTRAZIONE INIZIALE :"," : METODO E SCRIPT BY BLACKMORE :",7448)
   fin = InputBox("ESTRAZIONE FINALE :"," : METODO E SCRIPT BY BLACKMORE :",EstrazioneFin)
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      If Indicemensile(es) = im Then
         co = co + 1
         Scrivi String(111,"x") & " Caso n°" & Format2(co),1: ColoreTesto 1
         ColoreTesto 0
         '-----------------------------------------------------------------------------------
         If Mese(es) = 1 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(1) & "  " & StringaEstratti(es,1) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(1) & " " & Anno(es) & " <<<",1
            ruota(1) = 1
            ambata(1) = Fuori90(Estratto(es,PA_,5) + Estratto(es,RO_,4) + 1)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(90 +(Estratto(es,RO_,1)) - Estratto(es,VE_,2) + 59)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,BA_,1) + Estratto(es,NA_,2) + 02)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 2 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(2) & "  " & StringaEstratti(es,2) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(2) & " " & Anno(es) & " <<<",1
            ruota(1) = 2
            ambata(1) = Fuori90(Estratto(es,GE_,2) + Estratto(es,TO_,1) + 1)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(Estratto(es,PA_,5) + Estratto(es,VE_,5) + 82)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,CA_,1) + Estratto(es,FI_,3) + 11)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 3 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(3) & "  " & StringaEstratti(es,3) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(3) & " " & Anno(es) & " <<<",1
            ruota(1) = 3
            ambata(1) = Fuori90(Estratto(es,FI_,3) + Estratto(es,TO_,3) + 2)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(Estratto(es,VE_,1) + Estratto(es,VE_,2) + 18)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,VE_,2) + 19)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 4 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(4) & "  " & StringaEstratti(es,4) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(4) & " " & Anno(es) & " <<<",1
            ruota(1) = 4
            ambata(1) = Fuori90(Estratto(es,FI_,3) + Estratto(es,NA_,5)+ 1)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(90+(Estratto(es,MI_,4)) - Estratto(es,FI_,4)+ 9)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,CA_,3) + Estratto(es,VE_,1)+ 1)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 5 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(5) & "  " & StringaEstratti(es,5) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(5) & " " & Anno(es) & " <<<",1
            ruota(1) = 5
            ambata(1) = Fuori90(Estratto(es,GE_,2) + Estratto(es,RO_,2) + 1)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(Estratto(es,BA_,1) + Estratto(es,TO_,4) + 55)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,FI_,3) + Estratto(es,MI_,3) + 01)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 6 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(6) & "  " & StringaEstratti(es,6) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(6) & " " & Anno(es) & " <<<",1
            ruota(1) = 6
            ambata(1) = Fuori90(Estratto(es,MI_,3) + Estratto(es,RO_,2) + 1)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(Estratto(es,GE_,4) + Estratto(es,NA_,3) + 33)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,FI_,2) + Estratto(es,RO_,2) + 01)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 7 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(7) & "  " & StringaEstratti(es,7) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(7) & " " & Anno(es) & " <<<",1
            ruota(1) = 7
            ambata(1) = Fuori90(Estratto(es,RO_,1) + 6)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(Estratto(es,VE_,5) + 5)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,NA_,1) + 09)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
            amb3(1) = ambata(1)
            amb3(2) = Fuori90(Estratto(es,RO_,5) + 13)
            ImpostaGiocata 4,amb3,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 8 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(8) & "  " & StringaEstratti(es,8) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(8) & " " & Anno(es) & " <<<",1
            ruota(1) = 8
            ambata(1) = Fuori90(Estratto(es,BA_,2) + Estratto(es,PA_,5) + 1)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(Estratto(es,PA_,1) + Estratto(es,TO_,3) + 18)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,MI_,5) + Estratto(es,TO_,5) + 13)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 9 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(9) & "  " & StringaEstratti(es,9) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(9) & " " & Anno(es) & " <<<",1
            ruota(1) = 9
            ambata(1) = Fuori90(Estratto(es - 1,FI_,1) + Estratto(es - 1,GE_,4))
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(Estratto(es,BA_,5) + Estratto(es - 1,GE_,1))
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,CA_,4) + Estratto(es - 1,TO_,2))
            ImpostaGiocata 3,amb2,ruota,poste,k,2
            amb3(1) = ambata(1)
            amb3(2) = Fuori90(Estratto(es,BA_,1) + Estratto(es,PA_,2))
            ImpostaGiocata 4,amb3,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 10 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(10) & "  " & StringaEstratti(es,10) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(10) & " " & Anno(es) & " <<<",1
            ruota(1) = 10
            ambata(1) = Fuori90(Estratto(es,MI_,3) + 12)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(Estratto(es,GE_,3) + 46)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,PA_,3) + 85)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 11 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(12) & "  " & StringaEstratti(es,12) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(11) & " " & Anno(es) & " <<<",1
            ruota(1) = 12
            ambata(1) = Fuori90(Estratto(es,CA_,2) + Estratto(es,FI_,2) + 1)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(Estratto(es,FI_,4) + Estratto(es,GE_,4) + 45)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,CA_,3) + Estratto(es,MI_,4) + 14)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
         End If
         '-----------------------------------------------------------------------------------
         If Mese(es) = 12 Then
            ColoreTesto 1
            Scrivi DataEstrazione(es) & "  " & SiglaRuota(12) & "  " & StringaEstratti(es,12) & "   " & Indicemensile(es) & "°Estrazione del Mese  >>> " & MeseNome(12) & " " & Anno(es) & " <<<",1
            ruota(1) = 12
            ambata(1) = Fuori90(Estratto(es,RO_,3) + Estratto(es,NZ_,3) + 2)
            ImpostaGiocata 1,ambata,ruota,posta,k,1
            amb1(1) = ambata(1)
            amb1(2) = Fuori90(Estratto(es,BA_,3) + Estratto(es,NA_,4) + 35)
            ImpostaGiocata 2,amb1,ruota,poste,k,2
            amb2(1) = ambata(1)
            amb2(2) = Fuori90(Estratto(es,FI_,3) + Estratto(es,NA_,3) + 2)
            ImpostaGiocata 3,amb2,ruota,poste,k,2
         End If
         Gioca es,1 'SE SI USA L8 O LOTTODESK TOGLIERE LA VIRGOLA E L'1 DOPO GIOCA ES
      End If
      If ScriptInterrotto Then Exit For
   Next
   Scrivi:Scrivi:ScriviResoconto
End Sub

[rodolfo]

Grazie Black

[DjNomade]

Ottimo Black come al solito .....!!!!!!!!!!!!!

Grazie

Ciauz

[Blackmore]

Ciao grazianoventidue
troppo buono, per me è una passione e un divertimento
ma prima di ricevere i complimenti... vediamo cosa succede questo mese

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Caso n°95
23.04.2013 - Ge 70.55.26.56.04 - 10°Estrazione del Mese >>> aprile 2013 <<<

G 1: M 89 Ge 0/9

G 2: A 89.55 Ge 0/9

G 3: A 89.41 Ge 0/9

Oppure la terzina 89-55-41

in corso (9 colpi)

[monic73]

GRAZIE BLACK

[Lucio P.]

Ciao Blackmore, come sempre dimostri altruismo e bravura e anch'io desidero ringraziarti per il lavoro svolto.
Buona serata

[Blackmore]

Ciao Blackmore sto seguendo questa previsione ancora 4 colpi sono a corto di liquidi non so se riusciro' a coprirla fino alla fine , speriamo che esca prima , grazie ancora , ciao.

Speriamo...

Ciao

[Blackmore]

Peccato nemmeno questa volta e usito ho investito tutto speriamo che l'ultimo colpo esca e che qualcuno possa sorridere , ciao.

Ciao graziano, il lotto purtroppo è questo, il 95% delle volte si perde
è per questo che bisogna sempre giocare con moderazione
al massimo qualche euro, non di più

[Lucio P.]

RISPOSTA MOLTO SAGGIA!
CIAO