Cerca
ESTRAZIONI LOTTO
Ultimi argomenti attivi
Da Ambo spia 09-90 a tutte
+14
Marco
Blackmore
vinci
spike5
franca46
Sole
massimo 74
*Sweet*
Lory
domenico1
Fely62
Butterfly777
roy62
chloè74
18 partecipanti
Pagina 4 di 6
Pagina 4 di 6 • 
1, 2, 3, 4, 5, 6
*Olga*- Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 63
Località : Lazio VT
Re: Da Ambo spia 09-90 a tutte
Da DjNomade Mer 11 Nov - 21:06:34
Il conteggio fatto da Sweet è giusto, unica cosa
quando ci sono numeri doppi il programma con cui l'avevo creato fa il +1
Se puo servire metto anche il listato
Ciauz
quando ci sono numeri doppi il programma con cui l'avevo creato fa il +1
Se puo servire metto anche il listato
Ciauz
- Codice:
LISTATO BY DjNomade
10.11.2015 Rom 90.80.85.29.09 -> 90 09
================================================================================
mar 10.11.2015 [9080]
G 1: M 62.59 Ba 0/10
n.i. (10 colpi)
G 2: A 62.89 Ba 0/10
n.i. (10 colpi)
G 3: A 62.29 Ba 0/10
n.i. (10 colpi)
G 4: A 62.45 Ba 0/10
n.i. (10 colpi)
G 5: A 59.87 Ba 0/10
n.i. (10 colpi)
G 6: A 59.88 Ba 0/10
n.i. (10 colpi)
G 7: A 59.36 Ba 0/10
n.i. (10 colpi)
- Spoiler:
ColoreTesto 1
Scrivi String(20,"=")&" Da Ambo spia 09-90 a Tutte o Nazionale by DjNomade ",1
Scrivi String(40,"=")&"listato by DjNomade ",1
ColoreTesto 0
Sub main()
Dim ruota(2)
Dim ambata1(5),ambo2(3),amb1(5),amb2(5)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=1
k=10
co=0
ruota(1)=1
ini=8647
fin=EstrazioneFin
For es=ini To fin
For r=1 To 12
If r=11 Then r=12
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto (es,r,p1)
n2=Estratto (es,r,p2)
If (n1=09 And n2=90) Or (n1=90 And n2=09) Then 'CONDIZIONE DA RILEVARE :
Messaggio DataEstrazione (es)
casi=casi+1
Scrivi String (80,"=")&" Caso n° "&casi,1
ColoreTesto 2:Scrivi "LISTATO BY DjNomade ",1
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),3)&" "&_
StringaEstratti(es,r) &" -> "& Format2(n1)&" "& Format2(n2),True
ColoreTesto 0: Scrivi String (80,"="),1
co=co+1
amb1(1) = Fuori90(DiametraleD (Estratto(es,FI_,3))+Estratto(es,RO_,5)+80) '1° AMBATA
amb1(2) = Fuori90((90-Estratto(es,CA_,1))+Estratto(es,FI_,2)+66) 'ABBINAMENTO
amb1(3) = Fuori90((90-Estratto(es,GE_,1))+Estratto(es,RO_,2)+48) 'ABBINAMENTO
amb1(4) = Fuori90((90-Estratto(es,CA_,3))+Estratto(es,GE_,4)+86) 'ABBINAMENTO
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb1) Then
rip = 1
While NumeriRipetuti(amb1)
For x = 1 To 3
For y = x + 1 To 4
If amb1(x) = amb1(y) Then amb1(y) = Fuori90(amb1(y) + 1)
Next
Next
Wend
End If
Rem fine formula
amb2(1) = Fuori90(Cadenza(Estratto(es,CA_,2))+Estratto(es,MI_,1)+70) '2° AMBATA
amb2(2) = Fuori90(Diametrale(Estratto(es,CA_,5))+Estratto(es,PA_,2)+85) 'ABBINAMENTO
amb2(3) = Fuori90(DiametraleD(Estratto(es,MI_,4))+Estratto(es,RO_,1)+06) 'ABBINAMENTO
amb2(4)= Fuori90(Vert(Estratto(es,FI_,3))+Estratto(es,MI_,2)+41) 'ABBINAMENTO
Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb2) Then
rip = 1
While NumeriRipetuti(amb2)
For x = 1 To 3
For y = x + 1 To 4
If amb2(x) = amb2(y) Then amb2(y) = Fuori90(amb2(y) + 1)
Next
Next
Wend
End If
Rem fine formula
'------------------------------------------------------------------------------------
ambata1(1)= amb1(1)
ambata1(2)= amb2(1)
ImpostaGiocata 1,ambata1,ruota,posta,k
'----------------------------- ---------------------------------
ambo2(1)= amb1(1)
ambo2(2)= amb1(2)
ImpostaGiocata 2,ambo2,ruota,poste,k
ambo2(1)= amb1(1)
ambo2(2)= amb1(3)
ImpostaGiocata 3,ambo2,ruota,poste,k
ambo2(1)= amb1(1)
ambo2(2)= amb1(4)
ImpostaGiocata 4,ambo2,ruota,poste,k
ambo2(1)= amb2(1)
ambo2(2)= amb2(2)
ImpostaGiocata 5,ambo2,ruota,poste,k
ambo2(1)= amb2(1)
ambo2(2)= amb2(3)
ImpostaGiocata 6,ambo2,ruota,poste,k
ambo2(1)= amb2(1)
ambo2(2)= amb2(4)
ImpostaGiocata 7,ambo2,ruota,poste,k
Gioca es
End If
Next
Next
Next
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
DjNomade- Messaggi : 335
Data d'iscrizione : 03.07.14
Re: Da Ambo spia 09-90 a tutte
Da *Sweet* Mer 11 Nov - 21:39:23
Grazie DJ, anche per lo script
Ho corretto la previsione .... aggiunto 88
Visto che le ultime volte ha dato il TERNO
sia fuori ruota, che, sulla ruota di rilevamento, direi che una puntata per il TERNO a tutte,
forse si potrebbe provare!!
Ho corretto la previsione .... aggiunto 88
Visto che le ultime volte ha dato il TERNO
sia fuori ruota, che, sulla ruota di rilevamento, direi che una puntata per il TERNO a tutte,
forse si potrebbe provare!!
*Sweet*- Messaggi : 168
Data d'iscrizione : 26.12.13
Sole- Messaggi : 165
Data d'iscrizione : 06.05.14
DjNomade- Messaggi : 335
Data d'iscrizione : 03.07.14
spike5- Messaggi : 1150
Data d'iscrizione : 27.12.13
vinci- Messaggi : 300
Data d'iscrizione : 28.12.13
Località : Arezzo -
spike5- Messaggi : 1150
Data d'iscrizione : 27.12.13
Re: Da Ambo spia 09-90 a tutte
Da DjNomade Mar 23 Ago - 23:54:22
Ciauz spike5...uscito il 9-90 a Firenze, questa è la nuova previsione...vediamo che succede....
Ciauzzzz
Ciauzzzz
- Codice:
AMBO SPIA 09-90 TUTTE O NAZIONALE by DjNomade
mar 23.08.2016 < Fi 90.09.08.18.12
mar 23.08.2016 [9203]
G 1: M 51.70 Ba 0/10
i.c. (10 colpi)
G 2: A 51.01 Ba 0/10
i.c. (10 colpi)
G 3: A 51.64 Ba 0/10
i.c. (10 colpi)
G 4: A 51.21 Ba 0/10
i.c. (10 colpi)
G 5: A 70.46 Ba 0/10
i.c. (10 colpi)
G 6: A 70.68 Ba 0/10
i.c. (10 colpi)
G 7: A 70.19 Ba 0/10
i.c. (10 colpi)
DjNomade- Messaggi : 335
Data d'iscrizione : 03.07.14
spike5- Messaggi : 1150
Data d'iscrizione : 27.12.13
*Olga*- Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 63
Località : Lazio VT
franca46- Messaggi : 338
Data d'iscrizione : 30.12.13
Età : 67
Località : catania
Re: Da Ambo spia 09-90 a tutte
Da DjNomade Gio 17 Nov - 19:39:19
Si è ripresentata
la condizione con il 09-90 a Venezia
seguendo gli algoritmi la condizione in gioco per 10 colpi è
la condizione con il 09-90 a Venezia
seguendo gli algoritmi la condizione in gioco per 10 colpi è
BARI
AMBATA
48
ABB. X AMBO:
27.70.82
AMBATA
05
ABB. X AMBO:
26.57.02
AMBATA
48
ABB. X AMBO:
27.70.82
AMBATA
05
ABB. X AMBO:
26.57.02
DjNomade- Messaggi : 335
Data d'iscrizione : 03.07.14
*Olga*- Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 63
Località : Lazio VT
spike5- Messaggi : 1150
Data d'iscrizione : 27.12.13
DjNomade- Messaggi : 335
Data d'iscrizione : 03.07.14
Blackmore- Messaggi : 387
Data d'iscrizione : 11.06.14
Marco- amministratore
- Messaggi : 843
Data d'iscrizione : 26.12.13 -
vinci- Messaggi : 300
Data d'iscrizione : 28.12.13
Località : Arezzo -
*Olga*- Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 63
Località : Lazio VT
spike5- Messaggi : 1150
Data d'iscrizione : 27.12.13
Re: Da Ambo spia 09-90 a tutte
Da DjNomade Sab 26 Nov - 21:01:55
AMBATA 05 BARI
AMBO SECCO 05-02 BARI
DjNomade- Messaggi : 335
Data d'iscrizione : 03.07.14
Re: Da Ambo spia 09-90 a tutte
Da *Olga* Sab 26 Nov - 21:33:37
CHE DIRE, DJ...
SEI UN FENOMENO... m
poi in questi tempi vincere è una impresa impossibile...
BRAVISSIMO.!!!
SEI UN FENOMENO... m
poi in questi tempi vincere è una impresa impossibile...
BRAVISSIMO.!!!
*Olga*- Messaggi : 1239
Data d'iscrizione : 31.12.13
Età : 63
Località : Lazio VT
Mara*- moderatore
- Messaggi : 1041
Data d'iscrizione : 27.12.13
vinci- Messaggi : 300
Data d'iscrizione : 28.12.13
Località : Arezzo -
Pagina 4 di 6 • 1, 2, 3, 4, 5, 6
Argomenti simili» Da Ambo spia 14-44 a tutte o nazionale
» Da Ambo spia 09-60 a tutte o Nazion.
» ambo a tutte
» Da Ambo spia 28-82 Firenze gioco Cagliari
» Spia 35 BA e CA + ambo dist.30
» Da Ambo spia 09-60 a tutte o Nazion.
» ambo a tutte
» Da Ambo spia 28-82 Firenze gioco Cagliari
» Spia 35 BA e CA + ambo dist.30
Pagina 4 di 6
Permessi in questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum.
» Ultima del Mese BARI
» N°Spia 50 R.S. Genova R.G. Torino
» il forum si è trasferito
» il forum si è trasferito
» il forum si è trasferito
» N°Spia 50 R.S. Genova R.G. Torino
» Ho aperto un nuovo sito
» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi