Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Oggi alle 6:50 pm Da DjNomade

» Ultima del Mese BARI
Gio Ago 09, 2018 7:08 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Mar Ago 07, 2018 7:28 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Palermo-Torino (chiusa)
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5


Ciclica sommativa

Andare in basso

Ciclica sommativa

Messaggio Da Blackmore il Sab Dic 09, 2017 10:04 am

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

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna in alto Andare in basso

Re: Ciclica sommativa

Messaggio Da Mara* il Sab Dic 09, 2017 1:05 pm

Grazie Black
avatar
Mara*
moderatore

Messaggi : 1018
Data d'iscrizione : 27.12.13

Visualizza il profilo

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum