Novità

Aiuto per elaborazione script

Serpico 90

Advanced Member
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

Advanced Member
Chiedo alla Gentilissima Rosanna se per favore può dirmi se lo script da me richiesto e fattibile ,grazie
 
Ultima modifica:

Serpico 90

Advanced Member
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

Super Member >PLATINUM<
Buonasera gentilissimo Serpico 90,
per non fare torti a nessuno, continuo a seguire la "mia" linea...

Ricambio i saluti
R.
 

Rosanna

Super Member >PLATINUM<
Codice:
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

Advanced Member
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
 

desperaux

Super Member >PLATINUM<
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

Super Member >PLATINUM<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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

Codice:
'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
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto