Autore |
Discussione |
|
piermarco
Utente Sfegatato
3643 invii |
Spedito - 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 |
|
franca46
Amministratore
Italy
24121 invii |
Spedito - 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 |
Franca46 Cerca di essere sempre te stesso, così un giorno potrai dire di essere stato l'unico |
|
|
piermarco
Utente Sfegatato
3643 invii |
Spedito - 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
Amministratore
Italy
24121 invii |
Spedito - 06 novembre 2014 : 16:36:48
|
ok grazie
ho riletto con attenzione
|
Franca46 Cerca di essere sempre te stesso, così un giorno potrai dire di essere stato l'unico |
|
|
|
Discussione |
|