| 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 - 05 novembre 2014 : 23:54:19
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(2)' 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 = 8771 ' 139 - 19/11/2013
Fine = 8921 ' 132 - 04/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 GetAmbiDistanzaX(idEstr,CollFigTrovate,25,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) = 7
vetR(2) = 8
End Sub
Sub ImpostaPoste(vetP) ' imposta le poste in gioco
vetP(1) = 0.5
End Sub |
| 3 U L T I M E R E P L I C H E (Newest First) |
| franca46 |
Posted - 06 novembre 2014 : 16:36:48
ok grazie
ho riletto con attenzione
|
| piermarco |
Posted - 06 novembre 2014 : 13:12:57
CIAO FRANCA IL METODO CERCA DUE AMBI CON LA DIST.25 E SU QUESTE DUE RUOTE TI DA LE AMBATE |
| franca46 |
Posted - 06 novembre 2014 : 07:14:56
con L8 qualcosa la so fare , ma con spaziometria a mala pena ne riesco a modificare.
il listato parla delle figure ma in che senso le cerca?
buona giornata |
|
|
