Novità

S.O.S. Listato!!!

  • Creatore Discussione Creatore Discussione rob.
  • Data di inizio Data di inizio
giomi ha scritto:
ciao se lo spieghi forse qualcuno te lo fa
Clicca per espandere...
Ciao,il listato deve trovare in tutte e 10 le ruote (esclusa la nazionale) tutte quelle estrazionI dove i numeri PARI e I DISPARI si equivalgono,mi spiego meglio con un esempio.

Con la combinazione dei numeri 0 1 2 3 4 5 6 7 8 9 si formano tutti i numeri possibili

Essi si dividono in 5 Pari e 5 Dispari

Pari= 0 2 4 6 8
Dispari= 1 3 5 7 9

Esempio non valido----> 30 74 23 68 65
Dispari = 4------> (3-7-3-5)
Pari= 6--------> ( 0-4-2-6-8-6)

Esempio valido----> 17 57 28 24 89
Dispari = 5-----> (1-7-5-7-9)
Pari= 5-------> (2-8-2-4-8)

In questo caso la condizione valida in quanto c'e' parita'
 
rob. ha scritto:
C'e' qualcuno che potrebbe farmi un listato??-Niente di complicato
Clicca per espandere...
Ciao,il listato deve trovare in tutte e 10 le ruote (esclusa la nazionale) tutte quelle estrazionI dove i numeri PARI e I DISPARI si equivalgono,mi spiego meglio con un esempio.

Con la combinazione dei numeri 0 1 2 3 4 5 6 7 8 9 si formano tutti i numeri possibili

Essi si dividono in 5 Pari e 5 Dispari

Pari= 0 2 4 6 8
Dispari= 1 3 5 7 9

Esempio non valido----> 30 74 23 68 65
Dispari = 4------> (3-7-3-5)
Pari= 6--------> ( 0-4-2-6-8-6)

Esempio valido----> 17 57 28 24 89
Dispari = 5-----> (1-7-5-7-9)
Pari= 5-------> (2-8-2-4-8)

In questo caso la condizione valida in quanto c'e' parita'
 
Ciao,

guarda questo bel listato di Djnomade,
potrebbe fare al caso tuo.

SOMMA CIFRE PARI - SOMMA CIFRE DISPARI di Djnomade

Scrivi String(17,32) & "SOMMA CIFRE PARI - SOMMA CIFRE DISPARI ",1
Scrivi String(45,32) & "by DjNomade",1
ColoreTesto 0
Sub Main()
Dim nu1(10),nu2(10),nu3(10),nu4(10),amb(8)
Dim ruote(10),ruota(10)
Dim poste(10),poste1(5),poste2(5),poste3(5)
estr = CInt(InputBox("Quante estrazioni di RICERCA?","estrazioni di RICERCA",5))
r1 = InputBox("Scegli la Ruota?","Ruota",1)
poste1(1) = 1.5
poste1(2) = 1
fin = EstrazioneFin
ini = fin - estr
For es = ini To fin
Messaggio "Numero Estrazione esaminata " & es
n1 = Decina(Estratto(es,r1,1))
n2 = Cadenza(Estratto(es,r1,1))
n3 = Decina(Estratto(es,r1,2))
n4 = Cadenza(Estratto(es,r1,2))
n5 = Decina(Estratto(es,r1,3))
n6 = Cadenza(Estratto(es,r1,3))
n7 = Decina(Estratto(es,r1,4))
n8 = Cadenza(Estratto(es,r1,4))
n9 = Decina(Estratto(es,r1,5))
n10 = Cadenza(Estratto(es,r1,5))
n1d = Decina(Estratto(es,r1,1))
n2d = Cadenza(Estratto(es,r1,1))
n3d = Decina(Estratto(es,r1,2))
n4d = Cadenza(Estratto(es,r1,2))
n5d = Decina(Estratto(es,r1,3))
n6d = Cadenza(Estratto(es,r1,3))
n7d = Decina(Estratto(es,r1,4))
n8d = Cadenza(Estratto(es,r1,4))
n9d = Decina(Estratto(es,r1,5))
n10d = Cadenza(Estratto(es,r1,5))
If pari(n1) = True Then n1 = n1 Else n1 = 0
If pari(n2) = True Then n2 = n2 Else n2 = 0
If pari(n3) = True Then n3 = n3 Else n3 = 0
If pari(n4) = True Then n4 = n4 Else n4 = 0
If pari(n5) = True Then n5 = n5 Else n5 = 0
If pari(n6) = True Then n6 = n6 Else n6 = 0
If pari(n7) = True Then n7 = n7 Else n7 = 0
If pari(n8) = True Then n8 = n8 Else n8 = 0
If pari(n9) = True Then n9 = n9 Else n9 = 0
If pari(n10) = True Then n10 = n10 Else n10 = 0
sommePari =(n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + n10)
If pari(n1d) = False Then n1d = n1d Else n1d = 0
If pari(n2d) = False Then n2d = n2d Else n2d = 0
If pari(n3d) = False Then n3d = n3d Else n3d = 0
If pari(n4d) = False Then n4d = n4d Else n4d = 0
If pari(n5d) = False Then n5d = n5d Else n5d = 0
If pari(n6d) = False Then n6d = n6d Else n6d = 0
If pari(n7d) = False Then n7d = n7d Else n7d = 0
If pari(n8d) = False Then n8d = n8d Else n8d = 0
If pari(n9d) = False Then n9d = n9d Else n9d = 0
If pari(n10d) = False Then n100 = n10d Else n10d = 0
sommeDispari =(n1d + n2d + n3d + n4d + n5d + n6d + n7d + n8d + n9d + n10d)
casi = casi + 1
Scrivi String(55,"-") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1),1
Scrivi
ColoreTesto 1
Scrivi" > Somma cifre Pari < " &(n1) & " " &(n2) & " " &(n3) & " " &(n4) & " " &(n5) & " " &(n6) & " " &(n7) & " " &(n8) & " " &(n9) & " " &(n10) & " = " & Format2(sommePari),1
ColoreTesto 2
Scrivi" > Somma cifre Dispari < " &(n1d) & " " &(n2d) & " " &(n3d) & " " &(n4d) & " " &(n5d) & " " &(n6d) & " " &(n7d) & " " &(n8d) & " " &(n9d) & " " &(n10d) & " = " & Format2(sommeDispari),1
ColoreTesto 0
ruota(1) = r1
k = 13
co = 0
nu2(1) = sommePari
nu2(2) = sommeDispari
ImpostaGiocata 1,nu2,ruota,poste1,k
'Gioca es
Next
'ScriviResoconto
'ColoreTesto 2
'Scrivi String(17,32) & "SOMMA CIFRE PARI - SOMMA CIFRE DISPARI ",1
'Scrivi String(45,32) & "by DjNomade",1
'ColoreTesto 0
End Sub

RESOCONTO :

------------------------------------------------------- caso n° 1
giovedì, apr 29 2021 < BA 87.52.49.10.51

> Somma cifre Pari < 8 0 0 2 4 0 0 0 0 0 = 14
> Somma cifre Dispari < 0 7 5 0 0 9 1 0 5 1 = 28
------------------------------------------------------- caso n° 2
lunedì, mag 3 2021 < BA 42.57.78.18.43

> Somma cifre Pari < 4 2 0 0 0 8 0 8 4 0 = 26
> Somma cifre Dispari < 0 0 5 7 7 0 1 0 0 3 = 23
------------------------------------------------------- caso n° 3
martedì, mag 4 2021 < BA 30.10.84.47.64

> Somma cifre Pari < 0 0 0 0 8 4 4 0 6 4 = 26
> Somma cifre Dispari < 3 0 1 0 0 0 0 7 0 0 = 11
------------------------------------------------------- caso n° 4
giovedì, mag 6 2021 < BA 29.63.52.60.85

> Somma cifre Pari < 2 0 6 0 0 2 6 0 8 0 = 24
> Somma cifre Dispari < 0 9 0 3 5 0 0 0 0 5 = 22
------------------------------------------------------- caso n° 5
sabato, mag 8 2021 < BA 68.05.34.17.43

> Somma cifre Pari < 6 8 0 0 0 4 0 0 4 0 = 22
> Somma cifre Dispari < 0 0 0 5 3 0 1 7 0 3 = 19
------------------------------------------------------- caso n° 6
martedì, mag 11 2021 < BA 77.67.73.28.63

> Somma cifre Pari < 0 0 6 0 0 0 2 8 6 0 = 22
> Somma cifre Dispari < 7 7 0 7 7 3 0 0 0 3 = 34
 
Aggiungo questo listato :

DECINE & UNITA' di Mike58

Sub Main
Dim nu(5),dc(5),cd(5),np(10)
Ini = EstrazioneFin - 15
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

RESOCONTO :

Caso n. 1 [09908] [ 41] 06.04.2021 BA 53.28.38.56.87 5.2.3.5.8 - 3.8.8.6.7 Pari = 5 Dispari = 5
Caso n. 2 [09908] [ 41] 06.04.2021 RO 59.41.79.24.84 5.4.7.2.8 - 9.1.9.4.4 Pari = 5 Dispari = 5
Caso n. 3 [09908] [ 41] 06.04.2021 TO 68.74.29.25.73 6.7.2.2.7 - 8.4.9.5.3 Pari = 5 Dispari = 5
Caso n. 4 [09909] [ 42] 08.04.2021 BA 24.19.57.21.42 2.1.5.2.4 - 4.9.7.1.2 Pari = 5 Dispari = 5
Caso n. 5 [09911] [ 44] 13.04.2021 GE 36.48.67.77.87 3.4.6.7.8 - 6.8.7.7.7 Pari = 5 Dispari = 5
Caso n. 6 [09912] [ 45] 15.04.2021 FI 29.15.72.63.84 2.1.7.6.8 - 9.5.2.3.4 Pari = 5 Dispari = 5
Caso n. 7 [09914] [ 47] 20.04.2021 TO 39.43.66.41.85 3.4.6.4.8 - 9.3.6.1.5 Pari = 5 Dispari = 5
Caso n. 8 [09919] [ 52] 03.05.2021 BA 42.57.78.18.43 4.5.7.1.4 - 2.7.8.8.3 Pari = 5 Dispari = 5
Caso n. 9 [09920] [ 53] 04.05.2021 CA 17.25.88.85.63 1.2.8.8.6 - 7.5.8.5.3 Pari = 5 Dispari = 5
 
*blacklotto* ha scritto:
Aggiungo questo listato :

DECINE & UNITA' di Mike58

Sub Main
Dim nu(5),dc(5),cd(5),np(10)
Ini = EstrazioneFin - 15
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

RESOCONTO :

Caso n. 1 [09908] [ 41] 06.04.2021 BA 53.28.38.56.87 5.2.3.5.8 - 3.8.8.6.7 Pari = 5 Dispari = 5
Caso n. 2 [09908] [ 41] 06.04.2021 RO 59.41.79.24.84 5.4.7.2.8 - 9.1.9.4.4 Pari = 5 Dispari = 5
Caso n. 3 [09908] [ 41] 06.04.2021 TO 68.74.29.25.73 6.7.2.2.7 - 8.4.9.5.3 Pari = 5 Dispari = 5
Caso n. 4 [09909] [ 42] 08.04.2021 BA 24.19.57.21.42 2.1.5.2.4 - 4.9.7.1.2 Pari = 5 Dispari = 5
Caso n. 5 [09911] [ 44] 13.04.2021 GE 36.48.67.77.87 3.4.6.7.8 - 6.8.7.7.7 Pari = 5 Dispari = 5
Caso n. 6 [09912] [ 45] 15.04.2021 FI 29.15.72.63.84 2.1.7.6.8 - 9.5.2.3.4 Pari = 5 Dispari = 5
Caso n. 7 [09914] [ 47] 20.04.2021 TO 39.43.66.41.85 3.4.6.4.8 - 9.3.6.1.5 Pari = 5 Dispari = 5
Caso n. 8 [09919] [ 52] 03.05.2021 BA 42.57.78.18.43 4.5.7.1.4 - 2.7.8.8.3 Pari = 5 Dispari = 5
Caso n. 9 [09920] [ 53] 04.05.2021 CA 17.25.88.85.63 1.2.8.8.6 - 7.5.8.5.3 Pari = 5 Dispari = 5
Clicca per espandere...

Ciao entrambi i listati mi danno ERRORE
 
Allora il 1° listato in alto mi dice:

1002 errore di sintassi
linea 6
colonna 0
-------------------
il 2° listato
errore 500
variabile non definita
linea 4
colonna 0
 
Un altro costrutto script che trova + casi (senza andare ad indagare del perchè sugli script precedenti).
Fate le verifiche intanto per verifica vediamo anche lo script di giomi.

Codice: 
Sub Main
   Dim nu(5)
   Ini = EstrazioneFin - 15
   fin = EstrazioneFin
   par = 0
   dis = 0
   For es = Ini To fin
      For r = 1 To 10
         For p = 1 To 5
            nu(p) = Estratto(es,r,p)
            If pari(Decina(nu(p))) Then par = par + 1
            If dispari(Decina(nu(p))) Then dis = dis + 1
            If pari(Cadenza(nu(p))) Then par = par + 1
            If dispari(Cadenza(nu(p))) Then dis = dis + 1
         Next
         If par = 5 And dis = 5 Then
            Scrivi es & vbTab & SiglaRuota(r) & vbTab & StringaNumeri(nu,,1) & vbTab & par & "-" & dis
         End If
         dis = 0
         par = 0
      Next
      Scrivi
   Next
End Sub

Ciao
 
ciao , ringrazio mike58 ,il mio listato concettualmente e' identico al tuo ,
per cui sarebbe una copia .
sul numero dei casi , come ai scritto tu
Mike58 ha scritto:
(senza andare ad indagare del perchè sugli script precedenti).
Clicca per espandere...
mi trovi d' accordo , pero forse sara che non cosiderano la decina 0 e la cadenza 0
 
cosi e' piu' comprensibile :
forse trasformando la decina e la cadenza in stringa numerica ,
non viene considerato lo " 0 "
 
Ciao , provato l ultimo script
Esempio
9905 Ro: 83.5.50.68.13
Rileva come caso valido , ma in realtà le cifre sono 9
Esempio 9901 non viene rilevato
Pa: 82.7.4.30.35
Cifre =8
pari 4 ,dispari 4
La richiesta lascia spazio ad interpretazioni, quindi entrambi gli script possono essere errati.
I numeri da 1 to 9 possono creare confusione
Esempio reale
9903
1.54.9.52.88 : 4 pari + 4 dispari valido
01.54.09.52.88 : 6 pari + 4 dispari non valido
Qual è l iter corretto?
Ciao :)
9905
5.31.2.25.27
5 dispari + 3 pari
05.31.02.25.27
5 dispari + 5 pari
si calcola sulle stringhe formattare oppure sui numeri?
La domanda in sintesi è questa .
Ciao:)
 
Se posso ...

9 * 9 = 81 < 90

10 * 10 = 100 > 90

90 ha una "quadratura" impossibile.

Ovvero non si possono usare "10 coppie di cifre differenti"

per far coincidere in modo esclusivo, preciso ed univoco i 90 Estratti ,

Perché, 10 cifre * 10 cifre, sono un quadrato di 100 unità,

che è sensibilmente maggiore di 90 numeri.

81 è troppo piccolo per indirizzarli e contenerli tutti.

:)
 
Ciao a tutti.
La base sono i 5 numeri estratti su singola ruota.
Se le cifre che costituiscono i 5 estratti hanno la stessa quantità di pari e dispari la condizione è rispettata.
Il dubbio nasce nella loro formattazione .
Il numero 5 ha solo una cifra, (5) e non 0 e 5 , cosa ben diversa da 50 composto da 5 e 0 .
È solo un problema di interpretazione.
Solo Chi ha richiesto lo script , può dipanare la matassa.
Ciao.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 12 dicembre 2025
    Bari
    70
    88
    19
    24
    79
    Cagliari
    76
    66
    38
    14
    29
    Firenze
    84
    71
    15
    87
    18
    Genova
    57
    25
    04
    45
    40
    Milano
    78
    60
    89
    19
    38
    Napoli
    18
    45
    63
    33
    65
    Palermo
    28
    76
    49
    38
    10
    Roma
    02
    40
    51
    85
    63
    Torino
    10
    75
    86
    39
    36
    Venezia
    40
    74
    90
    32
    50
    Nazionale
    36
    18
    54
    71
    01
    Estrazione Simbolotto
    Venezia
    24
    21
    18
    05
    16
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto