Novità

S.O.S. Listato!!!

  • Creatore Discussione Creatore Discussione rob.
  • Data di inizio Data di inizio
ciao se lo spieghi forse qualcuno te lo fa
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'
 
C'e' qualcuno che potrebbe farmi un listato??-Niente di complicato
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
 
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

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
(senza andare ad indagare del perchè sugli script precedenti).
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
Indietro
Alto