Novità

Aiuto per elaborazione script

Serpico 90

Advanced Member >GOLD<
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
 
Chiedo alla Gentilissima Rosanna se per favore può dirmi se lo script da me richiesto e fattibile ,grazie
 
Ultima modifica:
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
 
Buonasera gentilissimo Serpico 90,
per non fare torti a nessuno, continuo a seguire la "mia" linea...

Ricambio i saluti
R.
 
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
 
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
 
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
 
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
 
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
    sabato 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22

Ultimi Messaggi

Indietro
Alto