Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
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.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.C'e' qualcuno che potrebbe farmi un listato??-Niente di complicato
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
sidanno errore col programma spaziometria ?
Grazie 1000 adesso funziona!!quando copi i listati devi cancellare Option Explicit
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
mi trovi d' accordo , pero forse sara che non cosiderano la decina 0 e la cadenza 0(senza andare ad indagare del perchè sugli script precedenti).