mezzomarinaio
Super Member >PLATINUM<
sorry donatella il calcolo di marzo.........
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
buongiorno a tutti ,X Gabby e tutti
ho semplificato inserendo solo le ambate...ambo secco e le tre cinquine
puoi inserire le estrazioni da verificare ma se vai a ritroso nel 2000....
il listato ci mette del tempo per verificare,quindi, fai la prima lettura con 4000
estrazioni e poi lascialo a 100 per renderlo più veloce
Codice:Sub Main() ColoreTesto 2 Scrivi Scrivi "METODO INCROCI PERICOLOSI by DONATELLA",1 Scrivi Scrivi Scrivi " LIST BY Marco",1 Scrivi ColoreTesto 0 Dim ruota(12) Dim ruote(12) Dim ruotee(12) Dim t1(2): Dim t2(5) : Dim t3(5) : Dim t4(5): Dim poste(4): Dim posta(1): Dim postee(4) poste(2) = 1 poste(3) = 1 poste(4) = 1 postee(4) = 1 ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",100) klp= InputBox("per quanti colpi?","colpi di gioco",15) ini = EstrazioneFin - ce fin = EstrazioneFin co = 0 For es = ini To fin If IndiceMensile(es) = 1 Then a = Estratto(es,4,1) b = Estratto(es,5,2) ruota(1) = 4 ruota(2) = 5 ruota(3) = 1 ruote(1) = 11 ruote(2) = 12 casi = casi + 1 co = co + 1 ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1 ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile - metodo - incroci pericolosi" ColoreTesto 7:Scrivi String(100,"°") ColoreTesto 0 t1(1) = Abs(a - b) t1(2) = Fuori90(a + b) ImpostaGiocata 1,t1,ruota,posta,klp t1(1) = Abs(a - b) t1(2) = Fuori90(a + b) ImpostaGiocata 2,t1,ruote,poste,klp t2(1) = Abs(a - b) t2(2) = a t2(3) = b t2(4) = Fuori90(b + 6) t2(5) = Fuori90(a + b) ImpostaGiocata 3,t2,ruota,poste,klp t2(1) = Abs(a - b) t2(2) = a t2(3) = b t2(4) = Fuori90(b + 6) t2(5) = Fuori90(a + b) ImpostaGiocata 4,t2,ruota,poste,klp t3(1) = Abs(a - b) t3(2) = Vert(Abs(a - b)) t3(3) = a t3(4) = Vert(a) t3(5) = b ImpostaGiocata 5,t3,ruote,postee,klp t3(1) = Abs(a - b) t3(2) = Vert(Abs(a - b)) t3(3) = a t3(4) = Vert(a) t3(5) = b ImpostaGiocata 6,t3,ruote,postee,klp t4(1) = Abs(a - b) t4(2) = Fuori90(a + b) t4(3) = Fuori90((t4(1)) + 1) t4(4) = Fuori90((t4(1)) * 2) t4(5) = Vert(a) ImpostaGiocata 7,t4,ruota,poste,klp t4(1) = Abs(a - b) t4(2) = Fuori90(a + b) t4(3) = Fuori90((t4(1)) + 1) t4(4) = Fuori90((t4(1)) * 2) t4(5) = Vert(a) ImpostaGiocata 8,t4,ruote,postee,klp Gioca es,1 End If Next Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co) ScriviResoconto End Sub
Ho visto,il listato è semplificato per vari motivi (troppe combinazioni da mettere in gioco)buongiorno a tutti ,
Marcoelle il listato non da la stessa previsione che ci dà Donatella. Lo controlleresti?
buona pasqua a tutti