S.O.S. Listato!!!

[rob.]

C'e' qualcuno che potrebbe farmi un listato??-Niente di complicato

 

[giomi]

ciao se lo spieghi forse qualcuno te lo fa

 

[rob.]

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'

 

[rob.]

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'

 

[giomi]

prima di postare il listato , verificare dati

 

[rob.]

Ok mi pare che va bene....tantissimi ringraziamenti!!

 

[*blacklotto*]

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

 

[*blacklotto*]

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

 

[rob.]

Grazie 1000,ora li provo entrambi,poi ti faccio sapere se sono ok,ciao rob

 

[rob.]

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

 

[rob.]

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

 

[aquilaverdone]

quando copi i listati devi cancellare Option Explicit

 

[*blacklotto*]

danno errore col programma spaziometria ?

 

[rob.]

danno errore col programma spaziometria ?

si

quando copi i listati devi cancellare Option Explicit

Grazie 1000 adesso funziona!!

 

[Mike58]

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.

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

 

[giomi]

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

 

[giomi]

cosi e' piu' comprensibile :
forse trasformando la decina e la cadenza in stringa numerica ,
non viene considerato lo " 0 "

 

[i legend]

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

 

[joe]

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.

 

[i legend]

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.