Sub Main Dim i ' variabile generica per controllo cicli Dim idEstr ' controlla lo scorrimento del ciclo di analisi Dim Inizio ' è il limite inferiore del ciclo di analisi Dim Fine ' è il limite superiore del ciclo di analisi Dim nDaFare ' è il numero di estrazioni contenute nel range Dim nFatte ' è il numero di estrazioni elaborate nel blocco analisi Dim Ruote(12) ' contiene le ruote in gioco Dim Poste (10) ' contiene le poste per ciascuna sorte giocata Dim vetNumEstratto(1)' contiene i numeri da giocare per Estratto la gestione è a carico dell'utente Dim idGiocata ' identifica le giocate effettuate Dim CollFigTrovate ' collection contenente gli ambi trovati Dim clsFg ' Classe per enumerare la collection ' Imposto i limiti del range di analisi Inizio = 8753 ' 121 - 08/10/2013 Fine = 8923 ' 134 - 08/11/2014 ' Imposto le ruote in gioco Call ImpostaRuote(Ruote) ' Imposto le poste in gioco Call ImpostaPoste(Poste) ' Calcolo estrazioni da fare nDaFare = Fine - (Inizio- 1) ' Blocco analisi estrazioni For idEstr = Inizio To Fine ' Qui va il codice che l'utente dovra scrivere per analizzare il metodo ' Come esempio nel codice c'è una funzione di rilevamento condizioni ' eventualemte sostituire il codice di rilevamento condizioni con ' codice adatto alle esigenze ' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE If GetAmbiSommaX(idEstr, CollFigTrovate ,65,Ruote) > 0 Then idGiocata = 0 ' azzera le giocate ' Scorre le figure trovate For Each clsFg In CollFigTrovate ReDim aNumeriFig(0) Call GetArrayNumeriFromFiguraCiclo(clsFg, aNumeriFig) ' ottengo i numeri della figura idGiocata = idGiocata + 1 'incrementa il numero della giocata Call ImpostaGiocata (idGiocata ,aNumeriFig,Ruote,Poste,10) ' gioca la combinazione per 10 colpi Next Call Gioca (idEstr , True) End If ' ------ FINE CODICE RILEVAMENTO CONDIZIONE ' Gestione avanzamento elaborazione nFatte = nFatte + 1 Call AvanzamentoElab(0, nDaFare, nFatte) ' Gestione messaggio Call Messaggio ("Estrazioni elaborate : " & nFatte) ' Gestione interruzione elaborazione If ScriptInterrotto Then Exit For Next Call ScriviResoconto
End Sub Sub ImpostaRuote (vetR) ' imposta la ruote in gioco vetR(1) = 8 vetR(2) = 4
End Sub Sub ImpostaPoste (vetP) ' imposta le poste in gioco vetP(1) = 1
End Sub |
|