Marco Elle |
|
| CODICE Sub Main() ColoreTesto 1 Scrivi "3 AMBI + 1 TERZINA SU PA-TO " ColoreTesto 1 Scrivi "DOPO L'USCITA DELL' 88" ColoreTesto 1 Scrivi "SU BA IN 1° POSIZIONE" ColoreTesto 1 Scrivi"METODO ELABORATO DA Marco" Dim ruota(2) Dim posta(1) Dim poste(3) Dim a1(3) Dim a2(3) Dim a3(3) Dim a4(4) poste(2) = 1 clp = 12 ini = EstrazioneFin - 1700 fin = EstrazioneFin co = 0 For es = ini To fin Messaggio es Call AvanzamentoElab(Ini,Fin,es) For p1 = 1 To 1 'For p2 = p1 + 1 To 5 a = Estratto(es,1,p1) ok = 0 If a = 88 And p1 = 1 Then a1(1) = 1 a1(2) = 20 a2(1) = 1 a2(2) = 47 a3(1) = 1 a3(2) = 63 a4(1) = 20 a4(2) = 47 a4(3) = 63 ok = 1 End If If ok = 1 Then co = co + 1 ColoreTesto 2 Scrivi String(80,"*") & " Caso n°" & co,1 Scrivi DataEstrazione(es) & " BA " & a & " - " & p1 & "°" & " posizione" Scrivi String(80,"*"),1 ColoreTesto 0 ruota(1) = 7 ruota(2) = 9 ImpostaGiocata 1,a1,ruota,poste,clp ImpostaGiocata 2,a2,ruota,poste,clp ImpostaGiocata 3,a3,ruota,poste,clp ImpostaGiocata 4,a4,ruota,poste,clp Gioca es,1 End If 'Next Next Next ScriviResoconto End Sub
|
| |