| 'TECNICA NINJA DI NOEL
Sub main()
'dichiaro le variabili
Dim ruote(10)
Dim n(4),lg(6)
Dim poste1(5)
poste1(2)=3.50:poste1(3)=1.00
'considero le ultime 50 estrazioni
rs=InputBox("Quante estrazioni vuoi controllare?","fede53",157)
ini=EstrazioneFin -rs
fin=EstrazioneFin
'--------------------------------------------------------------------------------
Scrivi
Scrivi
ColoreTesto 2
Scrivi String(20," ")&"****** Forum SUPERLOTTO BLOGFREE ****** ",1
Scrivi String(20," ")&"ambi equidistanti in posizione isotopa ",1
Scrivi String(11," ")&"****** TECNICA NINJA DI ^ N O E L ^ Listed by fede53 ******",1
Scrivi
ColoreTesto 0
Scrivi String(30," ")&"****** Rendiconto ****** ",1
Scrivi String(30," ")& DataEstrazione(ini)&" - "& DataEstrazione(fin)
Scrivi
'------------------------------------------------------------
t=0 'inizializza la variabile delle giocate.
For es=ini To fin
Messaggio "Estrazione esaminata: " & CStr(es) 'per sapere a che punto stò
'ricerco le condizioni per il gioco
For r1= 1 To 10
For p= 1 To 4
For pp=p+1 To 5
a=Estratto(es,r1,p) : b=Estratto(es,r1,pp)
n(1)=a: n(2)=b
do1=Distanza(a,b)
If do1=30 Then
For r2=r1+1 To 11
If r2=11 Then r2=12
c=Estratto(es,r2,p) : d=Estratto(es,r2,pp)
n(3)=c: n(4)=d
do2=Distanza(c,d)
If do1=do2 And a<>c And a<>d And b<>c And b<>d Then
x1=(a+b)/2
If Cadenza (x1)=Cadenza (a) Then sx=x1 Else sx=Diametrale (x1)
x2=(c+d)/2
If Cadenza (x2)=Cadenza (c) Then sx1=x2 Else sx1=Diametrale (x2)
xx=Fuori90(sx+sx1)
'Previsione
lg(1)=xx:lg(2)=sx:lg(3)=sx1
EliminaRipetuti lg
t=t+1 'incrementa la variabile delle giocate.
ruote(1)=r1:ruote(2)=r2:ruote(3)=11
Scrivi
Scrivi "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"
Scrivi DataEstrazione(es) &" "& SiglaRuota (r1)&" "& StringaEstratti (es,r1) & " " & Format2 (a) &" "& Format2 (b)&_
" Dist."& Format2(do1)&" Pos. "&p&"^ "&pp&"^ "& Chr (10)&_
Space(11)& SiglaRuota (r2)&" "& StringaEstratti (es,r2) & " " & Format2 (c) &" "& Format2 (d)&_
" Dist."& Format2(do2)&" Pos. "&p&"^ "&pp&"^ "& Chr (9),1
ColoreTesto 2: Scrivi " ambi equidistanti in posizione isotopa ** TECNICA NINJA DI N O E L ** "
Scrivi " °°° Il primo numero della terzina è l'AMBATA °°° "
ColoreTesto 0
Scrivi"------------------------------------------------------"& "Giocata n° "& Format2(t),1
ImpostaGiocata 1,lg,ruote,poste1,13,3
'esegue la giocata
Gioca es
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(50,"=")&"listato da fede53",1
ColoreTesto 0
End Sub
Saluti, fede53
Edited by fede53 - 30/10/2015, 22:40
|
