Novità

RICHIESTA SCRIPT

  • Creatore Discussione Creatore Discussione rob.
  • Data di inizio Data di inizio
rob.

rob.

Advanced Member >GOLD<
se qualcuno vorra' cimentarsi lo script dovra' ricercare e segnalare nell'archivio (in qualsiasi ruota tranne la nazionale) tutte quelle estrazioni dove c'e' parita tra le cifre che compongono i numeri che siano indistintamente o le decine o le unita'!!-non sono valide quelle estrazioni dove e' presente uno o piu' "numeretti"

TROVATA QUESTA CONDIZIONE IN UNA DELLE 10 RUOTE QUALSIASI SI PUO' METTERE IN GIOCO LA FORMAZIONE DEI "GEMELLI" PER LA SORTE DELL'AMBO

esempio valido (inventato)

BARI= 27-46-13-80-37

i numeri sottolineati sarebbero i pari e i rimanenti sono ovviamente i dispari

i pari sono cinque e cioe' = 2-4-6-8-0
i dispari sono cinque cioe' = 7-1-3-3-7


esempio non valido

BARI= 22-46-12-37-80
considerando le decine e le unita' abbiamo 7 numeri pari e solo 3 dispari
 
Ultima modifica:
Ciao Rob, questa tua richiesta è stata già elaborata tempo fa e c'era un problema di elaborazione risultati, ciò forse era dovuto al fatto che se si mettono le 2 istruzioni
NumeriPari = 5
NumeriDispari = 5

questo non produce risultati

invece se mettiamo la sola istruzione NumeriPari = 5 , le risultanze vengono elaborate, ma la cifra Zero porta qualche problema

Se qualcuno nonché Luigi chiarisce il quesito ci capisco anch'io qualcosa (magari è solo errore di concetto )

Comunque prova a valutarne i risultati se sono esatti così, altrimenti ci ingegniamo in qualche maniera.

Codice: 
Sub Main
	Dim nu(5)
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
			Next
			If NumeriPari(nu) = 5 Then
				'If NumeriDispari(nu) = 5 Then
					k = k + 1
					Scrivi "Caso n. " & FormatSpace(k,3) & "  " & GetInfoEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r)
				'End If
			End If
		Next
	Next
End Sub
 
Mike58 ha scritto:
Ciao Rob, questa tua richiesta è stata già elaborata tempo fa e c'era un problema di elaborazione risultati, ciò forse era dovuto al fatto che se si mettono le 2 istruzioni
NumeriPari = 5
NumeriDispari = 5

questo non produce risultati

invece se mettiamo la sola istruzione NumeriPari = 5 , le risultanze vengono elaborate, ma la cifra Zero porta qualche problema

Se qualcuno nonché Luigi chiarisce il quesito ci capisco anch'io qualcosa (magari è solo errore di concetto )

Comunque prova a valutarne i risultati se sono esatti così, altrimenti ci ingegniamo in qualche maniera.

Codice: 
Sub Main
	Dim nu(5)
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
			Next
			If NumeriPari(nu) = 5 Then
				'If NumeriDispari(nu) = 5 Then
					k = k + 1
					Scrivi "Caso n. " & FormatSpace(k,3) & "  " & GetInfoEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r)
				'End If
			End If
		Next
	Next
End Sub
Clicca per espandere...


allora ho fatto un controllo e lo script va bene,c'e' da fare solo una piccola modifica,dovresti fare in modo di escludere le estrazioni dove sono presenti uno o piu' NUMERETTI,per il resto e' OK!!!
 
Rob, ci stavo lavorando perché qualcosa non mi convince.
Ho escluso i numeretti e le cadenze Zero e dovrebbe trovare + casi.

adesso sono stanco fai una verifica poi ne riparliamo.

Codice: 
Sub Main
	Dim nu(5),dc(5),cd(5),np(10)
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
				dc(p) = Decina(nu(p))
				cd(p) = Cadenza(nu(p))
			Next
			np(1) = dc(1)
			np(2) = dc(2)
			np(3) = dc(3)
			np(4) = dc(4)
			np(5) = dc(5)
			np(6) = cd(1)
			np(7) = cd(2)
			np(8) = cd(3)
			np(9) = cd(4)
			np(10) = cd(5)
			For x = 1 To 10
				If pari(np(x)) Then kp = kp + 1
				If dispari(np(x)) Then kd = kd + 1
			Next
			If kp = 5 And kd = 5 Then
				If Decina(nu(1)) > 0 And Decina(nu(2)) > 0 And Decina(nu(3)) > 0 And Decina(nu(4)) > 0 And Decina(nu(5)) > 0 Then
					If Cadenza(nu(1)) > 0 And Cadenza(nu(2)) > 0 And Cadenza(nu(3)) > 0 And Cadenza(nu(4)) > 0 And Cadenza(nu(5)) > 0 Then
						k = k + 1
						Scrivi "Caso n. " & FormatSpace(k,3) & "  " & GetInfoEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r),0,0
						Scrivi "  " & StringaNumeri(dc) & " - " & StringaNumeri(cd) & "  " & " Pari = " & kp & " Dispari = " & kd
					End If
				End If
			End If
			kp = 0
			kd = 0
		Next
	Next
End Sub
 
script con la sola esclusione dei Numeretti.

Codice: 
Sub Main
	Dim nu(5),dc(5),cd(5),np(10)
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To fin
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
				dc(p) = Decina(nu(p))
				cd(p) = Cadenza(nu(p))
			Next
			np(1) = dc(1)
			np(2) = dc(2)
			np(3) = dc(3)
			np(4) = dc(4)
			np(5) = dc(5)
			np(6) = cd(1)
			np(7) = cd(2)
			np(8) = cd(3)
			np(9) = cd(4)
			np(10) = cd(5)
			For x = 1 To 10
				If pari(np(x)) Then kp = kp + 1
				If dispari(np(x)) Then kd = kd + 1
			Next
			If kp = 5 And kd = 5 Then
				If Decina(nu(1)) > 0 And Decina(nu(2)) > 0 And Decina(nu(3)) > 0 And Decina(nu(4)) > 0 And Decina(nu(5)) > 0 Then
					'If Cadenza(nu(1)) > 0 And Cadenza(nu(2)) > 0 And Cadenza(nu(3)) > 0 And Cadenza(nu(4)) > 0 And Cadenza(nu(5)) > 0 Then
						k = k + 1
						Scrivi "Caso n. " & FormatSpace(k,3) & "  " & GetInfoEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r),0,0
						Scrivi "  " & StringaNumeri(dc,"") & " - " & cd(1)&cd(2)&cd(3)&cd(4)&cd(5) & "  " & " pari = " & kp & " dispari = " & kd
					'End If
				End If
			End If
			kp = 0
			kd = 0
		Next
	Next
End Sub
 
grazie tante mike....pero' il metodo ho visto che non da buoni risultati,mi ero illuso perche' probabilmente quando lo stavo elaborando sono incappato con risultati molto soddisfacenti che lasciavano ben sperare,ma la realta' dice che il metodo non e' buono!!!-comunque grazie 1000 per la tua disponibilita' e per la tua bravura

ciao rob
 
Ultima modifica:
ciao Mike , non ho capito il problema , a dire il vero non ho letto bene , sono troppo pigro .. fammi domanda precisa e vedro di rispondere...
 
Ciao Luigi, Rob,il quesito è al post #2 con relativo script, se si mettono insieme le 2 istruzioni non produce risultati, mentre i casi ci sono è sono stato costretto ad usare escamotage diversi per arrivare al risultato veritiero.
La domanda quindi è se ci sono 5 estratti e 10 cifre perché il codice numeriPari = 5 e numeriDispari = 5 non funge ?, sarà un errore di concetto, mentre se vedi gli altri script i casi ci sono e veritieri.

Rob, come tutte le cose una cosa è osservare una cosa è la certezza matematica.

Io posso solo fare buona palestra con le vostre richieste.

Ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 23 maggio 2025
    Bari
    39
    64
    33
    15
    03
    Cagliari
    06
    77
    64
    63
    30
    Firenze
    37
    88
    61
    14
    10
    Genova
    73
    18
    41
    07
    80
    Milano
    70
    78
    77
    79
    52
    Napoli
    33
    44
    39
    01
    22
    Palermo
    25
    45
    15
    39
    73
    Roma
    04
    15
    82
    41
    06
    Torino
    30
    09
    18
    13
    10
    Venezia
    15
    61
    84
    52
    64
    Nazionale
    66
    71
    61
    35
    80
    Estrazione Simbolotto
    Milano
    02
    30
    44
    07
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto