scriipt

[trylli]

si puo fare uno script che rileva gli ambi ripetuti isotopi e no? grazie mikeeeee

 

[Zetrix]

trylli se ti serve un listato per gli ambi rip e nn puoi chiedere a me ho piu 200 script basta che tu me lo chiedi e vedro di trovartelo lo script cosi risparmio il lavoro a mike58

 

[Zetrix]

                             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 uguali trovati
	Dim clsFg ' Classe per enumerare la collection
		
	' Imposto i limiti del range di analisi
	Inizio =(EstrazioniArchivio - 2)
	Fine = EstrazioniArchivio

' 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 GetAmbiUguali(idEstr,CollFigTrovate) > 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
				Call DisegnaCerchioCiclometrico(aNumeriFig,True)' Disegno il cerchio ciclometrico
				Call DisegnaEstrazioneFromFiguraCiclometrica(idEstr,clsFg)' Disegno l'estrazione con la condizione rilevata
			Scrivi String(55,"-")	
			Next
			
		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
	

End Sub

questo script rileva gli ambi rip nn isotopi

 

[Zetrix]

                                    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 vetNumAmbo(2)' contiene i numeri da giocare per Ambo la gestione è a carico dell'utente
	Dim idGiocata ' identifica le giocate effettuate
	Dim CollFigTrovate ' collection contenente gli ambi uguali trovati
	Dim clsFg ' Classe per enumerare la collection
	
	
	
	' Imposto i limiti del range di analisi
	Inizio = EstrazioniArchivio - 10
	Fine = EstrazioniArchivio
	
	' 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 GetAmbiUgualiIsotopi(idEstr,CollFigTrovate) > 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
				Call DisegnaCerchioCiclometrico(aNumeriFig,True)' Disegno il cerchio ciclometrico
				Call DisegnaEstrazioneFromFiguraCiclometrica(idEstr,clsFg)' Disegno l'estrazione con la condizione rilevata
				
			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
	

End Sub
Sub ImpostaRuote(vetR) ' imposta le ruote in gioco
	vetR(1) = 11 ' ruota  tutte
' vetR(2) =
End Sub
Sub ImpostaPoste(vetP) ' imposta le poste in gioco
	vetP(1) = 1
	vetP(2) = 1

End Sub

questo script rileva gli ambi ripetuti isotopi

 

[trylli]

grazie mille zetrix..... non sapevo che ne avessi... un baciooooo