can de lotto
Super member
Questo è lo script formattato...
Codice:Sub Main() Scrivi String(30," ") & " Metodo di Onei...http://forum.lottoced.com/f8/ve-ottimo-provate-2405/" Dim ruote(2) Dim ambata(1) Dim ambo1(2) Dim ambo2(2) Dim ambo3(2) Dim ambo4(2) Dim lung(5) Dim posta(1) Dim poste(2) Dim postee(5) posta(1) = 1 poste(2) = 1 postee(2) = 1 postee(3) = 1 postee(4) = 1 ruo1 = CInt(InputBox("1°RUOTA DI GIOCO?",,9)) ruo2 = CInt(InputBox("2°RUOTA DI GIOCO?",,10)) ec = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?",,300) k = CInt(InputBox("INSERISCI I COLPI DI GIOCO",,13)) ini = EstrazioneFin - ec fin = EstrazioneFin co = 0 ruote(1) = ruo1 ruote(2) = ruo2 For es = ini To fin Messaggio(es) xx = 13 If Mese(es) = 2 Then xx = 12 If IndiceMensile(es) = xx Then casi = casi + 1 Scrivi String(72,"=") & " Caso n° " & casi,1 ColoreTesto 1 Scrivi DataEstrazione(es) & " - Ruote Di Gioco - " & SiglaRuota(ruo1) & " e " & SiglaRuota(ruo2) ColoreTesto 0 Scrivi String(72,"="),1 co = co + 1 ambata(1) = Fuori90(Estratto(es,VE_,5) + 40) ImpostaGiocata 1,ambata,ruote,posta,k,1 ambo1(1) = Fuori90(Estratto(es,VE_,5) + 40) ambo1(2) = Fuori90(Estratto(es,TO_,1) + 36) If ambo1(2) = ambo1(1) Then ambo1(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1)) ImpostaGiocata 2,ambo1,ruote,poste,k,2 ambo2(1) = Fuori90(Estratto(es,VE_,5) + 40) ambo2(2) = Fuori90(Estratto(es,TO_,1) + 57) If ambo2(2) = ambo2(1) Then ambo2(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1)) ImpostaGiocata 3,ambo2,ruote,poste,k,2 ambo3(1) = Fuori90(Estratto(es,VE_,5) + 40) ambo3(2) = Fuori90(Estratto(es,VE_,5) + 08) If ambo3(2) = ambo3(1) Then ambo3(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1)) ImpostaGiocata 4,ambo3,ruote,poste,k,2 ambo4(1) = Fuori90(Estratto(es,VE_,5) + 40) ambo4(2) = Fuori90(Estratto(es,TO_,3) + Estratto(es,VE_,3)) If ambo4(2) = ambo4(1) Then ambo4(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1)) ImpostaGiocata 5,ambo4,ruote,poste,k,2 lung(1) = Fuori90(Estratto(es,VE_,5) + 40) lung(2) = Fuori90(Estratto(es,TO_,1) + 36) lung(3) = Fuori90(Estratto(es,TO_,1) + 57) lung(4) = Fuori90(Estratto(es,VE_,5) + 08) lung(5) = Fuori90(Estratto(es,TO_,3) + Estratto(es,VE_,3)) If lung(2) = lung(1) Then lung(2) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1)) If lung(3) = lung(1) Then lung(3) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1)) If lung(4) = lung(1) Then lung(4) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1)) If lung(5) = lung(1) Then lung(5) = Fuori90(Estratto(es,TO_,1) + Estratto(es,VE_,1)) EliminaRipetuti lung ImpostaGiocata 6,lung,ruote,postee,k,2 Gioca es End If If ScriptInterrotto Then Exit For Next Scrivi Scrivi "Casi Rilevati " & CInt(co) ScriviResoconto End Sub
Cia black come mai questo script arriva fino al 29 maggio e non da' le previsioni nuove ? grazie se potrai rispondermi ciao