Aiuto per elaborazione script

[Serpico 90]

Buona sera a tutti, gentilmente è possibile poter fare uno script con queste coordinate?
1°) esaminare un periodo composto da nove estrazioni ed estrapolare tutti i numeri che sono sortiti per due volte.
2°) i numeri che devono restare per il pronostico devono essere solo sei. Se sono più di sei non si può fare il pronostico.
3°) i sei numeri devono essre disposti in ordine crescente .
4°) questa ricerca deve essere fatta per ogni ruota e per ogni estrazione .
In attesa di vedere esaudita questa semplice richiesta invio a tutti una buona serata
Saluti
Serpico 90

 

[Serpico 90]

Chiedo alla Gentilissima Rosanna se per favore può dirmi se lo script da me richiesto e fattibile ,grazie

 

[Rosanna]

Sì, secondo me è fattibile.

 

[Serpico 90]

Buon giorno, grazie per la risposta , se non chiedo troppo e se trova del tempo disponibile Le chiedo per cortesia se può creare questo script.
Grazie e una buona giornata.
Saluti
Serpico 90

 

[Rosanna]

Buonasera gentilissimo Serpico 90,
per non fare torti a nessuno, continuo a seguire la "mia" linea...

Ricambio i saluti
R.

 

[Rosanna]

Option Explicit
Sub Main

'0904_19 Rosanna x serpico 90.ls	
'http://forum.lottoced.com/f12/aiuto-per-elaborazione-script-106534/
	
'1°) esaminare un periodo composto da nove estrazioni ed estrapolare tutti i numeri che sono sortiti per due volte.
'2°) i numeri che devono restare per il pronostico devono essere solo sei. Se sono più di sei non si può fare il pronostico.
'3°) i sei numeri devono essre disposti in ordine crescente .
'4°) questa ricerca deve essere fatta per ogni ruota e per ogni estrazione .

Dim ini,es,r,i,nCon,nInt
Dim nu(1),ru(1)
Dim nFreq(90)
ReDim nNum(0)

nInt = CInt(InputBox("Quante estrazioni vuoi analizzare?",,200))-1 ' sortite di cui rilevare il ritardo

ini=EstrazioneFin-nInt
For i= 1 To 90 : nFreq(i)=0: Next

Call Scrivi ("RICERCA SU BLOCCHI DI 9 ESTRAZIONI DEI CASI IN CUI 6 NUMERI HANNO FREQUENZA 2",1)
Call Scrivi ("dal "& ini & " al "& EstrazioneFin,1)
Call Scrivi

For es= ini To EstrazioneFin
	AvanzamentoElab ini, EstrazioneFin,es
	For r= 1 To 11
		If r=11 Then r=12
		ru(1)=r
		For i= 1 To 90
			nu(1)=i
			nFreq(i)=SerieFreq(es-8,es,nu,ru,1) ' per ogni es e ruota controlla la freq di ogni num
		Next
		nCon=0
		ReDim nNum(0)
		For i= 1 To 90
			If nFreq(i)=2 Then
				nCon=nCon+1
				ReDim Preserve nNum(nCon)
				nNum(nCon)=i				
			End If			
		Next
		If nCon=6 Then Call Scrivi (es-8 & " - " & es & " " & SiglaRuota(r) & " " & StringaNumeri(nNum))
		
	Next
Next		
End Sub

 

[Serpico 90]

Buon giorno, grazie della sorpresa, lo script è come lo desideravo COMPLIMENTI PER LA SUA LINEA.
Spero tanto di poterlo sfruttare al meglio .
Nuovamente grazie
Saluti
Serpico 90

 

[keeper]

scusami serpico a cosa dovrebbe portare la tua ricerca?

 

[desperaux]

Ciao a tutti

ringrazio anche io Rosanna

volevo sapere se possibile inserire oltre all'ID dell'estrazioni anche le relative date di corrispondenza ,per favore
ed eventualmente gli esiti di ogni lunghetta trovata nelle restanti 9 estraz magari per rendersi conto di cio' che succede dopo

grazie

 

[Rosanna]

Ciao a tutti

volevo sapere se possibile inserire oltre all'ID dell'estrazioni anche le relative date di corrispondenza ,per favore
ed eventualmente gli esiti di ogni lunghetta trovata nelle restanti 9 estraz magari per rendersi conto di cio' che succede dopo

grazie

Risposta:
Sì è possibile inserire sia la data estrazione sia gli esiti purchè si sappia per quale sorte si devono cercare (gli esiti).

Chiedo:

1) Qual è l'istruzione per far scrivere la data estrazione dei vari id estrazione?
2) Quali sono le istruzioni per impostare una giocata e farla giocare? la parola ai nuovi aspiranti scripter... se hanno voglia ....

ciao

 

[desperaux]

Ciao Rosanna

si scusami : io cerco solo l'esito/i del solo estratto

grazie

 

[Mike58]

Mettiamolo in Tabella con date ed esiti.

P.s. Id indice estrazioni annuale da agosto non riporta correttamente il valore annuale Infatti riporta sempre 1.
attendiamo luigi per correzione.

Mike58

'Option Explicit
Sub Main

'0904_19 Rosanna x serpico 90.ls	
'http://forum.lottoced.com/f12/aiuto-per-elaborazione-script-106534/
	
'1°) esaminare un periodo composto da nove estrazioni ed estrapolare tutti i numeri che sono sortiti per due volte.
'2°) i numeri che devono restare per il pronostico devono essere solo sei. Se sono più di sei non si può fare il pronostico.
'3°) i sei numeri devono essre disposti in ordine crescente .
'4°) questa ricerca deve essere fatta per ogni ruota e per ogni estrazione .

Dim ini,es,r,i,nCon,nInt,sorte,nritr,nfre,clp
Dim nu(1),ru(1)
Dim nFreq(90)
'ReDim nNum(0)

nInt = CInt(InputBox("Quante estrazioni vuoi analizzare?",,200)) - 1 ' sortite di cui rilevare il ritardo
sorte = CInt(InputBox("QUALE SORTE PER ESITO vuoi vedere ? ","SORTE",2))
nritr = CInt(InputBox("QUANTI COLPI A RITROSO",,8))
nfre = CInt(InputBox("QUANTE FREQUENZE",,2))
clp = CInt(InputBox("Quanti COLPI Verifico esito ",,10))

ini = EstrazioneFin - nInt
For i = 1 To 90 ' ciclo i 90 numeri
nFreq(i) = 0 'parto da zero
Next

Call Scrivi("RICERCA SU BLOCCHI DI " &  nritr & " ESTRAZIONI DEI CASI In CUI 6 numeri HANNO FREQUENZA " & nfre,True,True,,1,3)
'Call Scrivi("dal " & ini & " al " & EstrazioneFin,1)
Call Scrivi
ReDim t(6)
t(1) = "Inizio ID e data ES "
t(2) = "Fine ID "
t(3) = " Sorte Esito "
t(4) = " Richiesta Script "
t(5) = " Author Script "
t(6) = " Modifiche "
Call InitTabella(t,2,,4,5)
ReDim v(6)
v(1) = GetInfoEstrazione (ini)
v(2) = GetInfoEstrazione (EstrazioneFin)
v(3) = NomeSorte(sorte)
v(4) = " Serpico 90 e Desperaux "
v(5) = " Rosanna "
v(6) = " Mike58 "
Call AddRigaTabella(v,4,,4)
Call CreaTabella()

ReDim at(8)
at(1) = " Range ID Es "
at(2) = " Ruota "
at(3) = " Conta Numeri "
at(4) = " Stringa Numeri "
at(5) = " Estratti "
at(6) = " esito "
at(7) = " colpo "
at(8) = " id Es "
Call InitTabella(at,1,,3,5)
For es = EstrazioneFin To ini Step - 1
Messaggio " Elaboro estrazioni.................... " & es
co = co + 1
	AvanzamentoElab ini,EstrazioneFin,es
	For r = 1 To 11
		If r = 11 Then r = 12
		ru(1) = r
		For i = 1 To 90
			nu(1) = i
			nFreq(i) = SerieFreq(es - nritr,es,nu,ru,1) ' per ogni es e ruota controlla la freq di ogni num
		Next
		nCon = 0 ' contatore = zero
		ReDim nNum(0)
		For i = 1 To 90
			If nFreq(i) = nfre Then
				nCon = nCon + 1 'incremento il contatore
				ReDim Preserve nNum(nCon) ' memorizzo i numeri del contatore
				nNum(nCon) = i	 ' incremento il contatore			
			End If			
		Next
		If nCon = 6 Then ' if per condizione = 6 del contatore
		Call VerificaEsito(nNum,ru,es + 1,sorte,clp+1,,esito,colpi,estratti,id)
		ReDim av(8)
		av(1) = GetInfoEstrazione (es - nritr) & " - " & GetInfoEstrazione (es)
		av(2) = SiglaRuota(r)
		av(3) = Format2(nCon)
		av(4) = StringaNumeri(nNum,,True)
		av(5) = estratti
		av(6) = esito
		av(7) = colpi
		If esito <> "" And colpi < clp+1 Then av(8) = GetInfoEstrazione (id)
		If esito = "" And colpi =< clp Then av(8) = " In corso "
		If esito = "" And colpi > clp Then av(8) = " Negativo "
		If esito <> "" And colpi > clp Then av(8) = " Esito non valido "
		Call AddRigaTabella(av,,,3)
		'----- blocco colore cella ---------------------
		If av(8) = GetInfoEstrazione (id) Then Call SetColoreCella(8,3,1)
		If av(8) = " In corso " Then Call SetColoreCella(8,2,4)
		If av(8) = " Negativo " Then Call SetColoreCella(8,4,2)
		Call SetColoreCella(4,,7)
		Call SetColoreCella(2,,1)
		Call SetColoreCella(5,,2)
		'------- blocco conta esiti ---------------------
		If esito = "Estratto" Then estra = estra + 1
		If esito = "Ambo" Then amb = amb + 1
		If esito = "Terno" Then ter = ter + 1
		If esito = "Quaterna" Then qua = qua + 1
		If esito = "Cinquina" Then cin = cin + 1
		'----------------------------------------------
		
		
		'Call Scrivi(es - 18 & " - " & es & "  " & SiglaRuota(r) & "  ",True,False,,0,2)
		'Call Scrivi(" < " & Format2 (nCon) & " > ",True,False,4,2,2)
		'Call Scrivi ("  " &  StringaNumeri(nNum,,True),True,False,1,5,2)
		'Call Scrivi("    " & estratti & "   " & esito & "  " & " al colpo " & colpi & "  " & id,True,True,3,1,2)
		End If
	Next
Next
Call CreaTabella()	
Scrivi "Riepilogo esiti....",1
Scrivi
ReDim att(6)
att(1) = " Casi "
att(2) = " Estratto "
att(3) = " Ambi "
att(4) = " Terni "
att(5) = " Quaterne "
att(6) = " Cinquine "
Call InitTabella(att,1,,3,5)
ReDim avv(6)
avv(1) = co
avv(2) = estra
avv(3) = amb
avv(4) = ter
avv(5) = qua
avv(6) = cin
Call AddRigaTabella(avv,3,,3)
Call CreaTabella(0,0,0,0,1)	
End Sub

 

[Serpico 90]

Grazie Mike 58 modifica gradita.
Saluti
Serpico 90

 

[desperaux]

Ciao Mike58


grazie mille

e' cio' che desideravo