Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Ultima del Mese BARI
Gio Ott 18, 2018 7:34 pm Da DjNomade

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
Mer Ott 10, 2018 7:29 am Da DjNomade

» Previsione per Ottobre 2018
Lun Ott 01, 2018 1:10 pm Da Lory

» Da Ambo Distanza 27 a Bari
Gio Set 13, 2018 6:57 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Dom Ago 26, 2018 7:15 am Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore


un aiuto,grazie

Andare in basso

un aiuto,grazie

Messaggio Da roy62 il Ven Mar 06, 2015 2:52 pm

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



avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da DjNomade il Sab Mar 07, 2015 12:40 pm

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



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
avatar
DjNomade

Messaggi : 295
Data d'iscrizione : 03.07.14

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da roy62 il Sab Mar 07, 2015 3:30 pm

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

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

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da Blackmore il Dom Mar 08, 2015 1:34 pm

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 Very Happy

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)

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da DjNomade il Dom Mar 08, 2015 2:29 pm

Very Happy  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  lo24

Ciauzzzzzzzzzzzzzz
avatar
DjNomade

Messaggi : 295
Data d'iscrizione : 03.07.14

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da franca46 il Dom Mar 08, 2015 4:29 pm

scratch 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?

lo9
avatar
franca46

Messaggi : 338
Data d'iscrizione : 30.12.13
Età : 61
Località : catania

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da roy62 il Dom Mar 08, 2015 10:31 pm

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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da franca46 il Lun Mar 09, 2015 5:31 am

lo20 lo20

ah ecco !!!!

lo9 lo9
avatar
franca46

Messaggi : 338
Data d'iscrizione : 30.12.13
Età : 61
Località : catania

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da Blackmore il Lun Mar 09, 2015 3:02 pm

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

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da Blackmore il Lun Mar 09, 2015 3:10 pm

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

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da franca46 il Lun Mar 09, 2015 3:11 pm

lo1 lo1 lo20 lo20
avatar
franca46

Messaggi : 338
Data d'iscrizione : 30.12.13
Età : 61
Località : catania

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da roy62 il Mar Mar 10, 2015 3:38 pm

grazie blak....
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Visualizza il profilo

Torna in alto Andare in basso

Re: un aiuto,grazie

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum