BARI ULTIMA DEL MESE (x chi vuole provare)

[Marco-elle]

Sub Main() ColoreTesto 1
   Scrivi
   Scrivi "METODO ALGORITMICO SU BARI ALL'ULTIMA DEL MESE ",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(1)
   Dim a1(2)
   Dim a2(2)
   Dim t1(3)
   Dim t2(3)
   Dim q1(4)
   Dim q2(4)
   Dim c1(5)
   Dim c2(5)
   Dim posta2(2)
   Dim posta3(3)
   Dim posta4(4)
   Dim posta5(5)
   posta2(2) = 1
   posta3(2) = 1
   posta3(3) = 1
   posta4(2) = 1
   posta4(3) = 1
   posta4(4) = 1
   posta5(2) = 1
   posta5(3) = 1
   posta5(4) = 1
   posta5(5) = 1
   klp = 10
   ini = 9810
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IsUltimaDelMese(es) Then
         ruote(1) = 1
         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
         a1(1) = Fuori90(Estratto(es,2,1) + 17)
         a1(2) = Fuori90(Estratto(es,7,3) * 8)
         ImpostaGiocata 1,a1,ruote,posta2,klp
         a2(1) = Fuori90(Estratto(es,2,1) + 1)
         a2(2) = Fuori90(Estratto(es,1,1) + 19)
         ImpostaGiocata 2,a2,ruote,posta2,klp
         t1(1) = Fuori90(Estratto(es,2,1) + 17)
         t1(2) = Fuori90(Estratto(es,7,3) * 8)
         t1(3) = Fuori90(Estratto(es,1,5) + 58)
         ImpostaGiocata 3,t1,ruote,posta3,klp
         t2(1) = Fuori90(Estratto(es,2,1) + 1)
         t2(2) = Fuori90(Estratto(es,1,1) + 19)
         t2(3) = Fuori90(Estratto(es,4,2) + 38)
         ImpostaGiocata 4,t2,ruote,posta3,klp
         q1(1) = Fuori90(Estratto(es,2,1) + 17)
         q1(2) = Fuori90(Estratto(es,7,3) * 8)
         q1(3) = Fuori90(Estratto(es,1,5) + 58)
         q1(4) = Fuori90(Estratto(es,1,1) + 71)
         ImpostaGiocata 5,q1,ruote,posta4,klp
         q2(1) = Fuori90(Estratto(es,2,1) + 1)
         q2(2) = Fuori90(Estratto(es,1,1) + 19)
         q2(3) = Fuori90(Estratto(es,4,2) + 38)
         q2(4) = Fuori90(Estratto(es,12,1) + 41)
         ImpostaGiocata 6,q2,ruote,posta4,klp
         c1(1) = Fuori90(Estratto(es,2,1) + 17)
         c1(2) = Fuori90(Estratto(es,7,3) * 8)
         c1(3) = Fuori90(Estratto(es,1,5) + 58)
         c1(4) = Fuori90(Estratto(es,1,1) + 71)
         c1(5) = Fuori90(Estratto(es,6,2) + 20)
         ImpostaGiocata 7,c1,ruote,posta5,klp
         c2(1) = Fuori90(Estratto(es,2,1) + 1)
         c2(2) = Fuori90(Estratto(es,1,1) + 19)
         c2(3) = Fuori90(Estratto(es,4,2) + 38)
         c2(4) = Fuori90(Estratto(es,12,1) + 41)
         c2(5) = Fuori90(Estratto(es,2,1) + 54)
         ImpostaGiocata 8,c2,ruote,posta5,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

 

[camy64]

 

[Sakti]

Marco... mi fai sempre più paura..
Magicooooo!!!
Grazie.

 

[Alien.]

 

[camy64]

ciao a tutti, e chi, come me, non capisce niente di script come deve fare? grazie

 

[Alien.]

 

[Marco-elle]

ciao a tutti, e chi, come me, non capisce niente di script come deve fare? grazie

Meglio!....così risparmi le giocate
Io ora sono fuori e non posso darti
La previsione....

 

[Marco-elle]

 

[Alien.]

acqua......

 

[Alien.]

Vedi l'allegato 2214557

 

[farfalla2]

CIAO MARCO...TI SEGUO DA TEMPO E......GRAZIE......GRAZIE PER QUELLO CHE FAI E CHE METTI A DISPOSIZIONE DI TUTTI.......

 

[Marco-elle]

Vediamo se questa è più fortunata
BA alla 6° mensile

Sub Main() ColoreTesto 1
   Scrivi
   Scrivi " 4 CINQUINE SU BARI ALLA 6° MENSILE ",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(1)
   Dim c1(5)
   Dim c2(5)
   Dim c3(5)
   Dim c4(5)
   Dim posta5(5)
   posta5(5) = 1
   posta5(2) = 1
   posta5(3) = 1
   posta5(4) = 1
   klp = 10
   ini = 9730
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 6 Then
         ruote(1) = 1
         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
         c1(1) = Fuori90(Estratto(es,1,2) + 3)
         c1(2) = Fuori90(Estratto(es,9,1) + 82)
         c1(3) = Fuori90(Estratto(es,1,2) + 70)
         c1(4) = Fuori90(Estratto(es,2,1) + 55)
         c1(5) = Fuori90(Estratto(es,4,4) + 39)
         ImpostaGiocata 1,c1,ruote,posta5,klp
         c2(1) = Fuori90(Estratto(es,1,2) + 11)
         c2(2) = Fuori90(Estratto(es,8,2) * 5)
         c2(3) = Fuori90(Estratto(es,2,3) + 66)
         c2(4) = Fuori90(Estratto(es,12,5) + 33)
         c2(5) = Fuori90(Estratto(es,5,2) + 68)
         ImpostaGiocata 2,c2,ruote,posta5,klp
         c3(1) = Fuori90(Estratto(es,1,2) + 3)
         c3(2) = Fuori90(Estratto(es,9,2) + 4)
         c3(3) = Fuori90(Estratto(es,1,2) + 44)
         c3(4) = Fuori90(Estratto(es,1,2) * 86)
         c3(5) = Fuori90(Estratto(es,1,2) + 7)
         ImpostaGiocata 3,c3,ruote,posta5,klp
         c4(1) = Fuori90(Estratto(es,1,2) + 1)
         c4(2) = Fuori90(Estratto(es,1,1) + 13)
         c4(3) = Fuori90(Estratto(es,1,2) + 17)
         c4(4) = Fuori90(Estratto(es,1,2) + 37)
         c4(5) = Fuori90(Estratto(es,1,2) + 54)
         ImpostaGiocata 4,c4,ruote,posta5,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub

 

[Marco-elle]

 

[Sakti]

Marcoooo sei un Diavoletto tentatore...Grazie, sempre il Meglio..

 

[Marco-elle]

Vedi l'allegato 2214519

Forse per colpa delle ripetizioni numeriche,,,,,questa avrebbe pagato nei colpi previsti