| R E V I S I O N E D E L L A D I S C U S S I O N E |
| piermarco |
Posted - 10 novembre 2014 : 10:35:05
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 |
|
|
