un aiuto,grazie

ciao a tutti,spero che qualcuno mi aiuti .....

ho suddiviso un estrazione di una ruota,

le decine dalle cadenze,poi vorrei che si sommassero tutti i numeri pari e successivamente i numeri dispari

non sò i codici ,ho provato in questo modo


m = Fuori90 (SommaEstratti (NumeriPari (a),(b),(c),(d),(e),(f),(g),(h),(i),(l)))
n = Fuori90(SommaEstratti (NumeriDispari (a),(b),(c),(d),(e),(f),(g),(h),(i),(l)))

ma non funziona ...grazie in anticipo ......ciaoo

Sicuramente ci sara' una via piu' breve per arrivare a questo conteggio,
ma non conoscendolo me lo sono inventato cosi.....

Codice:

'http://lottomatematico.forumattivo.it/t670-un-aiutograzie


ColoreTesto 2

Scrivi String(17,32) & "SOMMA CIFRE PARI - SOMMA CIFRE DISPARI X Roy62 ",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",20))
 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
 Scrivi String(75,"=") & " caso n° " &(casi),1
 Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
 Scrivi" > Somma cifre Pari     < " & (n1)&" " & (n2)&" " & (n3)&" " & (n4)&" " & (n5)&" " & (n6)&" " & (n7)&" " & (n8)&" " & (n9)&" " & (n10)&" = "& Format2(sommePari),1
 Scrivi" > Somma cifre Dispari  < " & (n1d)&" " & (n2d)&" " & (n3d)&" " & (n4d)&" " & (n5d)&" " & (n6d)&" " & (n7d)&" " & (n8d)&" " & (n9d)&" " & (n10d)&" = "& Format2(sommeDispari),1
                                                                        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 X Roy62 ",1
Scrivi String(45,32) & "by DjNomade",1
ColoreTesto 0
End Sub

GRAZIE DJNOMADE,COSA DIRE.......ACCCC NON CI SAREI MAI ARRIVATO

...SONO ALLE PRIME ARMI CON GLI SCRIPT.....ma così complicati...grazie ancora ciaooo

Ciao Roy, Dj, una via più breve c'è per scovare in un estrazione
i numeri pari, quelli dispari e le loro somme, ti posto lo script
Studiatelo e poi te lo gestisci come vuoi

Codice:

Sub Main()

 'Numeri Pari e Numeri Dispari Con Rispettive Somme By Blackmore
 
 Dim Somma, SommaDispari, SommaPari, n, Pos, Ruota, Fine
 
 Ruota = BA_
 Fine = EstrazioneFin
 Scrivi "Estrazione Esaminata: " & DataEstrazione(Fine) & "  Ruota: " & NomeRuota(Ruota)
 Scrivi String(45,"="),1
 Somma = 0
 SommaDispari = 0
 SommaPari = 0
 For Pos = 1 To 5
 n = Estratto(Fine,Ruota,Pos)
 Somma = Somma + n
 If n Mod 2 = 0 Then
 SommaPari = SommaPari + n
 Scrivi Pos & "° Estratto = " & Format2(n) & "  Numero pari"
 Else
 SommaDispari = SommaDispari + n
 Scrivi Pos & "° Estratto = " & Format2(n) & "  Numero Dispari"
 End If
 Next
 Scrivi String(45,"="),1
 Scrivi "Somma Totale:  " & Somma & "  Fuori90(" & Fuori90(Somma) & ")"
 Scrivi "Somma Pari:    " & SommaPari & "  Fuori90(" & Fuori90(SommaPari) & ")"
 Scrivi "Somma Dispari: " & SommaDispari & "  Fuori90(" & Fuori90(SommaDispari) & ")"
End Sub

Codice:

Estrazione Esaminata: 07.03.2015  Ruota: Bari
=============================================
1° Estratto = 72  Numero pari
2° Estratto = 82  Numero pari
3° Estratto = 86  Numero pari
4° Estratto = 35  Numero Dispari
5° Estratto = 04  Numero pari
=============================================
Somma Totale:  279  Fuori90(9)
Somma Pari:    244  Fuori90(64)
Somma Dispari: 35   Fuori90(35)

 Grazie Black
lo terro' da conto, è che avevo anche il problema di separare la decina dall'unita' in pari e dispari quindi ho cercato  di inventarmi  qualcosa  anche se l'ho  presa alla larga  

Ciauzzzzzzzzzzzzzz

ciao ragazzi

posso avere un chiarimento?

Codice:


sab 07.03.2015 < Ba 72.82.86.35.04
 > Somma cifre Pari     < 0 2 8 2 8 6 0 0 0 4 = 30
 > Somma cifre Dispari  < 7 0 0 0 0 0 3 5 0 0 = 15
sab 07.03.2015  [8973]
  G  1:  MA      30.15   Ba    0/13    
     n.i. (13 colpi)


Codice:


Estrazione Esaminata: 07.03.2015  Ruota: Bari
=============================================
1° Estratto = 72  Numero pari
2° Estratto = 82  Numero pari
3° Estratto = 86  Numero pari
4° Estratto = 35  Numero Dispari
5° Estratto = 04  Numero pari
=============================================
Somma Totale:  279  Fuori90(9)
Somma Pari:    244  Fuori90(64)
Somma Dispari: 35  Fuori90(35)


i risultati sono diversi , o non ho capito niente?

ciao a tutti e grazie x l'intervento,in effetti franca lo script di blakmore non corrisponde a quello da me richiesto,
lo script di blak divide i numeri dispari da quelli pari senza che i numeri vengano divisi decina e unità e poi dividerli in pari e dispari come lo script di djnomade che avevo richiesto...

scusami blak,ma volendo mettere in gioco il risultato come un classico script?......grazie a tutti nuovamente,
cercherò di capirci qualcosa ahahah ciaooo

ah ecco !!!!

Ciao Franca, il mio era un esempio per i Numeri pari e dispari
come trovarli e mostrarli a video con un codice ristretto
Comunque questo è il listato che somma le decine e le cadenze pari e dispari

Codice:

Sub Main()
 'Somme Decine e Cadenze Pari e Dispari
 'Script By Blackmore
 Dim Somma,SommaDispari,SommaPari,n,n1,n2,smp,smd,Pos,Ruota,RuotaV,Init,Es,Inizio,Fine,Colpi,Casi
 Dim r(1),Numeri(2),posta(1)
 Init = CInt(InputBox("Quante Estrazioni Vuoi Esaminare ?","By Blackmore",50))
 RuotaV = CInt(InputBox("Su Quale Ruota ?","By Blackmore",1))
 posta(1) = 1
 Colpi = 10
 Ruota = RuotaV
 Inizio = EstrazioneFin - Init
 Fine = EstrazioneFin
 Casi = 0
 For Es = Inizio To Fine
 AvanzamentoElab Inizio,Fine,Es
 Casi = Casi + 1
 Somma = 0
 SommaDispari = 0
 SommaPari = 0
 Scrivi String(95,"=") & " Caso N°" & Casi,1
 Scrivi DataEstrazione(Es) & "  " & NomeRuota(Ruota) & "   Estratti: " & StringaEstratti(Es,Ruota),1
 ColoreTesto 1
 For Pos = 1 To 5
 n = Estratto(Es,Ruota,Pos)
 n1 = Decina(Estratto(Es,Ruota,Pos))
 n2 = Cadenza(Estratto(Es,Ruota,Pos))
 Somma = Somma + n
 If pari(n1) = True Then
 SommaPari = SommaPari + n1
 Else
 SommaDispari = SommaDispari + n1
 End If
 If pari(n2) = True Then
 SommaPari = SommaPari + n2
 Else
 SommaDispari = SommaDispari + n2
 End If
 Next
 Scrivi:ColoreTesto 0
 Scrivi "Somma Estratti Totale: " & Space(4) & " " & Somma & "  Fuori90(" & Fuori90(Somma) & ")"
 ColoreTesto 2
 Scrivi "Somma Dec/Cad Pari:    " & Space(5) & " " & Format2(SommaPari) & "  Fuori90(" & Fuori90(SommaPari) & ")"
 Scrivi "Somma Dec/Cad Dispari: " & Space(5) & " " & Format2(SommaDispari) & "  Fuori90(" & Fuori90(SommaDispari) & ")"
 Scrivi: ColoreTesto 0
 smp = Fuori90(SommaPari)
 smd = Fuori90(SommaDispari)
 r(1) = Ruota
 Numeri(1) = smp
 Numeri(2) = smd
 EliminaRipetuti Numeri
 ImpostaGiocata 1,Numeri,r,posta,Colpi
 Gioca Es,1
 If ScriptInterrotto Then Exit For
 Next
 Scrivi + vbCrLf
 ScriviResoconto
End Sub

Questo Invece è l'implementazione delle somme pari e dispari (con giocata)
Ciao

Codice:

07.03.2015  Bari   Estratti: 72.82.86.35.04

1° Estratto = 72  Numero pari       Cadenza 2   Decina 7   Figura 9
2° Estratto = 82  Numero pari       Cadenza 2   Decina 8   Figura 1
3° Estratto = 86  Numero pari       Cadenza 6   Decina 8   Figura 5
4° Estratto = 35  Numero Dispari    Cadenza 5   Decina 3   Figura 8
5° Estratto = 04  Numero pari       Cadenza 4   Decina 0   Figura 4

Somma Totale:  279  Fuori90(9)
Somma Pari:    244  Fuori90(64)
Somma Dispari: 35  Fuori90(35)

Estrazione generatrice del pronostico 08973 [ 29 - 07/03/2015]
G 0001 Numeri in gioco : 64.35 su BA per Estratto
In corso per altre 10 estrazioni

Codice:

Sub Main()
 'Decine, Figure, Cadenze + Numeri Pari e Numeri Dispari Con Rispettive Somme
 'Script By Blackmore
 Dim Somma,SommaDispari,SommaPari,n,Numcad,Numdec,NumFg,smp,smd,Pos,Ruota,RuotaV,Init,Es,Inizio,Fine,Colpi,Casi
 Dim r(1),Numeri(2),posta(1)
 Init = CInt(InputBox("Quante Estrazioni Vuoi Esaminare ?","By Blackmore",50))
 RuotaV = CInt(InputBox("Su Quale Ruota ?","By Blackmore",1))
 posta(1) = 1
 Colpi = 10
 Ruota = RuotaV
 Inizio = EstrazioneFin - Init
 Fine = EstrazioneFin
 Casi = 0
 For Es = Inizio To Fine
 AvanzamentoElab Inizio,Fine,Es
 Casi = Casi + 1
 Somma = 0
 SommaDispari = 0
 SommaPari = 0
 Scrivi String(95,"=") & " Caso N°" & Casi,1
 Scrivi DataEstrazione(Es) & "  " & NomeRuota(Ruota) & "   Estratti: " & StringaEstratti(Es,Ruota),1:Scrivi
 ColoreTesto 1
 For Pos = 1 To 5
 n = Estratto(Es,Ruota,Pos)
 Numcad = Cadenza(n)
 Numdec = Decina(n)
 NumFg = Figura(n)
 Somma = Somma + n
 If n Mod 2 = 0 Then
 SommaPari = SommaPari + n
 Scrivi Pos & "° Estratto = " & Format2(n) & "  Numero pari" & Space(6) & " Cadenza " & Numcad & "   Decina " & Numdec & "   Figura " & NumFg
 Else
 SommaDispari = SommaDispari + n
 Scrivi Pos & "° Estratto = " & Format2(n) & "  Numero Dispari" & Space(3) & " Cadenza " & Numcad & "   Decina " & Numdec & "   Figura " & NumFg
 End If
 Next
 Scrivi:ColoreTesto 0
 Scrivi "Somma Totale:  " & Somma & "  Fuori90(" & Fuori90(Somma) & ")"
 ColoreTesto 2
 Scrivi "Somma Pari:    " & SommaPari & "  Fuori90(" & Fuori90(SommaPari) & ")"
 Scrivi "Somma Dispari: " & SommaDispari & "  Fuori90(" & Fuori90(SommaDispari) & ")"
 Scrivi: ColoreTesto 0
 r(1) = Ruota
 smp = Fuori90(SommaPari)
 smd = Fuori90(SommaDispari)
 Numeri(1) = smp
 Numeri(2) = smd
 ImpostaGiocata 1,Numeri,r,posta,Colpi
 Gioca Es,1
 If ScriptInterrotto Then Exit For
 Next
 Scrivi + vbCrLf
 ScriviResoconto
End Sub

grazie blak....