TERNO SPIA 48-81-87 SU TT

Da **Marco** Mer 2 Apr - 18:40:53

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

Da Fely62 Gio 3 Apr - 11:56:51

Marco e grazie anche per questo

Re: TERNO SPIA 48-81-87 SU TT