Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Oggi alle 6:50 pm Da DjNomade

» Ultima del Mese BARI
Gio Ago 09, 2018 7:08 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Mar Ago 07, 2018 7:28 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Palermo-Torino (chiusa)
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5


TERNO SPIA 48-81-87 SU TT

Andare in basso

TERNO SPIA 48-81-87 SU TT

Messaggio Da Marco il Mer Apr 02, 2014 4:40 pm

Codice:
Sub Main()
   ColoreTesto 2
   Scrivi " TERNO SPIA 48-81-87 SU TT A FAVORE DI BARI "
   Scrivi " METODO E LIST BY Marco  "
   ColoreTesto 0
   Dim posta(1)
   Dim poste(4)
   Dim ruota(1)
   Dim ambo1(2)
   Dim ambo2(2)
   Dim ambo3(2)
   poste(2) = 1
   posta(1) = 1
   clp = 12
   ini = EstrazioneFin - 8500
   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 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  ok = 0
                  If a = 48 And b = 81 And c = 87 Or a = 48 And b = 87 And c = 81 Or a = 81 And b = 48 And c = 87 Or a = 81 And b = 87 And c = 48 Or a = 87 And b = 48 And c = 81 Or a = 87 And b = 81 And c = 48 Then
                     ambo1(1) = 60
                     ambo1(2) = 11
                     ambo2(1) = 60
                     ambo2(2) = 34
                     ambo3(1) = 60
                     ambo3(2) = 77
                     ok = 1
                  End If
                  If ok = 1 Then
                     co = co + 1
                     ColoreTesto 1
                     Scrivi String(80,"#") & " Caso n°" & co,1
                     Scrivi DataEstrazione(es) & "  Terno spia su TT  " & a & " - " & b & " - " & c,1
                     Scrivi String(80,"#"),1
                     ColoreTesto 0
                     ruota(1) = 1
                     ImpostaGiocata 1,ambo1,ruota,poste,clp
                     ImpostaGiocata 2,ambo2,ruota,poste,clp
                     ImpostaGiocata 3,ambo3,ruota,poste,clp
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
avatar
Marco
amministratore

Messaggi : 814
Data d'iscrizione : 26.12.13

Visualizza il profilo http://lottomatematico.forumattivo.it

Torna in alto Andare in basso

Re: TERNO SPIA 48-81-87 SU TT

Messaggio Da Fely62 il Gio Apr 03, 2014 9:56 am

 lo21  Marco e grazie anche per questo  lo29 
avatar
Fely62

Messaggi : 154
Data d'iscrizione : 26.12.13

Visualizza il profilo

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum