DIFFERENZA MATEMATICA 85 SU CA in 1° e 3° pos

Da **Marco** Lun 31 Mar - 20:19:18

Codice:: Sub Main() ColoreTesto 2 Scrivi "DIFFERENZA MATEMATICA 85 SU CA IN 1° e 3° POSIZIONE " Scrivi "METODO E LIST BY Marco " ColoreTesto 0 Dim ruote(2) Dim poste(2) Dim ambo1(2) poste(2) = 1 clp = 9 ini = EstrazioneFin - 8760 fin = EstrazioneFin co = 0 For es = ini To fin Messaggio es Call AvanzamentoElab(Ini,Fin,es) a = Estratto(es,2,1) b = Estratto(es,2,3) ok = 0 If a - b = 85 Or b - a = 85 Then ambo1(1) = 4 ambo1(2) = 26 ok = 1 End If If ok = 1 Then co = co + 1 ColoreTesto 1 Scrivi String(80,"*") & " Caso n°" & co,1 Scrivi DataEstrazione(es) & " differenza 85 " & a & " - " & b,1 Scrivi String(80,"*"),1 ColoreTesto 0 ruote(1) = 2 ruote(2) = 8 ImpostaGiocata 1,ambo1,ruote,poste,clp Gioca es,1 End If Next ScriviResoconto End Sub