| DjNomade |
Posted - 24 aprile 2021 : 23:06:56
Si è ripresentata
la condizione con il 09-90 a VENEZIA
Condizioni:
Numeri spia: 9.90.
Ruote spia: Ba(Or).Ca(Or).Fi(Or).Ge(Or).Mi(Or).Na(Or).Pa(Or).Ro(Or).To(Or).Ve(Or).Nz(Or).
Presenze: 2
Posizioni estrattive spie: 12345
Ruote di gioco: Bari
Colpi di gioco: 10
Algoritmi in gioco:
...
Ambata: DiametrDec 3 di Fi + 5 di Ro + 80 * (74)
Ambo: Complemento90 1 di Ca + 2 di Fi + 66 * (01)
Ambo: Complemento90 1 di Ge + 2 di Ro + 48 * (44)
Ambo: Complemento90 3 di Ca + 4 di Ge + 86 * (31)
...
Ambata: Cadenza 2 di Ca + 1 di Mi + 70 * (31)
Ambo: Diametrale 5 di Ca + 2 di Pa + 85 * (52)
Ambo: DiametrDec 4 di Mi + 1 di Ro + 06 * (89)
Ambo: Vertibile 3 di Fi + 2 di Mi + 41 * (89)
BARI
AMBATA
74
ABB. X AMBO:
01.44.31
AMBATA
31
ABB. X AMBO:
52.89.88
================================================================================ Caso n° 35
LISTATO BY DjNomade
24.04.2021 Ven 60.09.90.56.86 -> 09 90
================================================================================
sab 24.04.2021 [9916]
G 1: M 74.31 Ba 0/10
n.i. (10 colpi)
G 2: A 74.01 Ba 0/10
n.i. (10 colpi)
G 3: A 74.44 Ba 0/10
n.i. (10 colpi)
G 4: A 74.31 Ba 0/10
n.i. (10 colpi)
G 5: A 31.52 Ba 0/10
n.i. (10 colpi)
G 6: A 31.89 Ba 0/10
n.i. (10 colpi)
G 7: A 31.88 Ba 0/10
n.i. (10 colpi)
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
|
