Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» N° Spia 50 R.Sp. GE R.Gio. TO
Ciclica sommativa   EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
Ciclica sommativa   EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
Ciclica sommativa   EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
Ciclica sommativa   EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
Ciclica sommativa   EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
Ciclica sommativa   EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
Ciclica sommativa   EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
Ciclica sommativa   EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Ciclica sommativa   EmptyMar 2 Apr - 20:57:27 Da DjNomade


Ciclica sommativa

Andare in basso

Ciclica sommativa   Empty Ciclica sommativa

Messaggio Da Blackmore il 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

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna in alto Andare in basso

Ciclica sommativa   Empty Re: Ciclica sommativa

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

Grazie Black
Mara*
Mara*
moderatore

Messaggi : 1041
Data d'iscrizione : 27.12.13

Visualizza il profilo

Torna in alto Andare in basso

Torna in alto


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