Ciclica sommativa

Da Blackmore Sab 9 Dic - 11:04:55

Visto che alcuni di voi hanno il programma VL7 (versione completa)
vi lascio uno script che lavora sulla ciclica, ogni tot estrazioni
viene elaborata un'ambata sommativa per ogni coppia di ruote (consecutive)
Ciao

Codice:: Sub Main() 'Ciclica - Coppie di Ruote per Ambata By Blackmore Dim Ruote1(2),Ruote2(2),Ruote3(2),Ruote4(2),Ruote5(2),Ruote6(2),Ruote7(2),Ruote8(2),Ruote9(2),Ruote10(2) As Integer Dim Ambate1(2),Ambate2(2),Ambate3(2),Ambate4(2),Ambate5(2),Ambate6(2),Ambate7(2),Ambate8(2),Ambate9(2),Ambate10(2) As Integer Dim ok As Boolean = True Dim FermaGiocata As Integer = Input.ListaStr("Ferma Giocate alla 1° Vincita ?","Si","No") Dim Color As Integer = Input.ListaStr("Colore Output Tabella","Grigio","Blu") Dim Giocata(1) As Integer Dim Inizio As Integer = 9192 Dim Fine As Integer = Estrazione.Ultima Dim colpi As Integer = Input.Lista("Colpi di Verifica",1,10,8) 'Programmato per 8 Colpi Giocata(1)= _Estratto Metodo.Init("Ciclica: Ambata per ogni coppia di Ruote: VL7 SW... (Clicca su CASISTICA DETTAGLIATA per gli esiti)","By Blackmore (Data creazione: 4 Febbraio 2017)",_CasisticaON) Metodo.Progressione(_Estratto, 1,0) For es As Integer = Inizio To Fine Step 9 If FermaGiocata = 2 Then ok = False Ruote1(1)= _BA Ruote1(2)= _CA Ambate1(1)= F90(90+(Estratti.Numero(es,_GE,3)- Estratti.Numero(es,_CA,1))+48) Metodo.GiocaPronostico(1,es+1,colpi,Ambate1,ruote1,giocata,,ok) Ruote2(1)= _CA Ruote2(2)= _FI Ambate2(1)= F90(90+(Estratti.Numero(es,_FI,2)- Estratti.Numero(es,_CA,1))+74) Metodo.GiocaPronostico(2,es+1,colpi,Ambate2,ruote2,giocata,,ok) Ruote3(1)= _FI Ruote3(2)= _GE Ambate3(1)= F90(90+(Estratti.Numero(es,_GE,2)- Estratti.Numero(es,_GE,3))+01) Metodo.GiocaPronostico(3,es+1,colpi,Ambate3,ruote3,giocata,,ok) Ruote4(1)= _GE Ruote4(2)= _MI Ambate4(1)= F90(Estratti.Numero(es,_RM,5)* Estratti.Numero(es,_CA,2)+16) Metodo.GiocaPronostico (4,es+1,colpi,Ambate4,ruote4,giocata,,ok) Ruote5(1)= _MI Ruote5(2)= _NA Ambate5(1)= F90(90+(Estratti.Numero(es,_MI,3)- Estratti.Numero(es,_NA,4))+73) Metodo.GiocaPronostico(5,es+1,colpi,Ambate5,ruote5,giocata,,ok) Ruote6(1)= _NA Ruote6(2)= _PA Ambate6(1)= F90(Estratti.Numero(es,_PA,4)* Estratti.Numero(es,_CA,2)+05) Metodo.GiocaPronostico(6,es+1,colpi,Ambate6,ruote6,giocata,,ok) Ruote7(1)= _PA Ruote7(2)= _RM Ambate7(1)= F90(Estratti.Numero(es,_FI,2)+ Estratti.Numero(es,_NA,4)+14) Metodo.GiocaPronostico(7,es+1,colpi,Ambate7,ruote7,giocata,,ok) Ruote8(1)= _RM Ruote8(2)= _TO Ambate8(1)= F90(90+(Estratti.Numero(es,_NA,3)- Estratti.Numero(es,_RM,4))+65) Metodo.GiocaPronostico(8,es+1,colpi,Ambate8,ruote8,giocata,,ok) Ruote9(1)= _TO Ruote9(2)= _VE Ambate9(1)= F90(90+(Estratti.Numero(es,_PA,4)- Estratti.Numero(es,_GE,2))+66) Metodo.GiocaPronostico(9,es+1,colpi,Ambate9,ruote9,giocata,,ok) Ruote10(1)= _VE Ruote10(2)= _NZ Ambate10(1)= F90(Estratti.Numero(es,_NZ,1)+ Estratti.Numero(es,_GE,3)+73) Metodo.GiocaPronostico(10,es+1,colpi,Ambate10,ruote10,giocata,,ok) Next Metodo.Report(Color-1) End Sub

Da Mara* Sab 9 Dic - 14:05:03

Grazie Black

Ciclica sommativa

Ciclica sommativa

Re: Ciclica sommativa