Posts written by DjNomade

'https://superlotto.blogfree.net/?t=4930820#lastpost
ColoreTesto 2 :Scrivi String(37,32)&"NUMERI ISOTOPI ...DISTANZA 30 by ZIAADRI",1


Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0

Sub main()
Dim nu(2)
Dim posta(2),poste(2)
Dim ruote(2)
posta(1)=1
posta(2)=1
poste(2)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
Messaggio es
For r1=1 To 9
For p1=1 To 5
a1=Estratto (es,r1,p1)
For r2=r1+1 To 10
a2=Estratto (es,r2,p1)
If Distanza(a1,a2)=30 Then

a=Fuori90(a2+30)
If a=a1 Then a=Fuori90(a2+60)
b=Fuori90(a+18)'ambata
c=Fuori90(90+b-30)'ambata
d=Fuori90(90+b-4)' 1° abbinamento
e=Fuori90(90+d-30)' 2° abbinamento
f=Diametrale(e)
Scrivi "---------------------------------------",1
Scrivi "Numeri isotopi Distanza 30 --> "&a1&" "&a2,1
Scrivi
ruote(1)=r1
ruote(2)=r2
nu(1)=b
nu(2)=c
ImpostaGiocata 1,nu,ruote,posta,9
nu(1)=b
nu(2)=d
ImpostaGiocata 2,nu,ruote,poste,9
nu(1)=b
nu(2)=e
ImpostaGiocata 3,nu,ruote,poste,9
nu(1)=b
nu(2)=f
ImpostaGiocata 4,nu,ruote,poste,9
nu(1)=c
nu(2)=d
ImpostaGiocata 5,nu,ruote,poste,9
nu(1)=c
nu(2)=e
ImpostaGiocata 6,nu,ruote,poste,9
nu(1)=c
nu(2)=f
ImpostaGiocata 7,nu,ruote,poste,9

Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32)&"NUMERI ISOTOPI ...DISTANZA 30 by ZIAADRI",1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
End Sub

ColoreTesto 2 :Scrivi String(37,32)&"Ambi isotopi distanza 30 o 60 in Diagonale /Verticale/Orrizzontale by il Toscano",1
'25/11/2011
'https://superlotto.blogfree.net/?t=3803202

Scrivi String(45,32)&"List. DjNomade",1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5)

poste(1)=1
poste1(2)=1
poste1(3)=.50
poste2(2)=1
poste2(3)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)

For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4)
n5=Abs(n1-n4)'distanza diagonale
n6=Abs(n2-n3)'distanza diagonale

n7=Abs(n1-n2)'distanza orizz
n8=Abs(n4-n3)'distanza orizz

n9=Abs(n1-n3)'distanza vert
n10=Abs(n4-n2)'distanza vert
If (((n5=30 or n5=60)And(n6=30 or n6=60))Or((n7=30 or n7=60)And(n8=30 or n68=60))Or ((n9=30 or n9=60)And(n10=30 or n10=60))) And p1=p3 And p2=p4 Then

If n5=30 Then b1=Fuori90(Massimo(n1,n4)+30)
If n5=60 Then b1=Fuori90(Massimo(n1,n4)-30)

If n6=30 Then b2=Fuori90(Massimo(n2,n3)+30)
If n6=60 Then b2=Fuori90(Massimo(n2,n3)-30)

If n7=30 Then b1=Fuori90(Massimo(n1,n2)+30)
If n7=60 Then b1=Fuori90(Massimo(n1,n2)-30)

If n8=30 Then b2=Fuori90(Massimo(n4,n3)+30)
If n8=60 Then b2=Fuori90(Massimo(n4,n3)-30)

If n9=30 Then b1=Fuori90(Massimo(n1,n3)+30)
If n9=60 Then b1=Fuori90(Massimo(n1,n3)-30)

If n10=30 Then b2=Fuori90(Massimo(n4,n2)+30)
If n10=60 Then b2=Fuori90(Massimo(n4,n2)-30)

b3=Diametrale(Fuori90(b1+b2))' ambata
b4=Diametrale(b1)' 4° abbinamento
b5=Diametrale(b2)' 5° abbinamento


casi=casi+1:Scrivi String(75,"="),1
If ((n5=30 or n5=60)And(n6=30 or n6=60))Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo < "&Format2(n1)&"."&Format2 (n2)&" > Distanza Diagonale < "&Format2(n5)
If ((n5=30 or n5=60)And(n6=30 or n6=60))Then Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo < "&Format2(n3)&"."&Format2 (n4)&" > Distanza Diagonale < "&Format2(n6)

If ((n7=30 or n7=60)And(n8=30 or n8=60))Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo < "&Format2(n1)&"."&Format2 (n2)&" > Distanza Orrizzontale < "&Format2(n7)
If ((n7=30 or n7=60)And(n8=30 or n8=60))Then Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo < "&Format2(n3)&"."&Format2 (n4)&" > Distanza Orrizzontale< "&Format2(n8)

If ((n9=30 or n9=60)And(n10=30 or n10=60))Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo < "&Format2(n1)&"."&Format2 (n2)&" > Distanza Verticale < "&Format2(n9)
If ((n9=30 or n9=60)And(n10=30 or n10=60))Then Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > ambo < "&Format2(n3)&"."&Format2 (n4)&" > Distanza Verticale < "&Format2(n10)
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:k=9:co=0

nu1(1)=b3' 1°capogioco

ImpostaGiocata 1 ,nu1,ruote,poste,k

nu2(1)=b3' 1°capogioco
nu2(2)=b1' 1 abbinamento
nu2(3)=b4' 1 abbinamento
ImpostaGiocata 2 ,nu2,ruote,poste1,k

nu2(1)=b3' 1°capogioco
nu2(2)=b2 ' 2° abbinamento
nu2(3)=b5' 1 abbinamento
ImpostaGiocata 3 ,nu2,ruote,poste1,k


nu3(1)=b3' 1°capogioco
nu3(2)=b1' 1 abbinamento
nu3(3)=b4' 2°abbinamento
nu3(4)=b2' 3°abbinamento
nu3(5)=b5' 4 abbinamento


ImpostaGiocata 4 ,nu3,ruote,poste2,k


Gioca es
End If

Next:Next:Next
Next:Next:Next:next
ScriviResoconto
End Sub

Sub main()
Dim ruota(2)
Dim numeri(5),numeri1(5),numeri2(5),amb(5)
Dim posta(2)
Dim poste(2),postee(5)
posta(1)=1
poste(2)=1
postee(2)=1
postee(3)=1
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0
es=InputBox("Quante estrazioni vuoi analizzare?","TABELLA SETTENARIA",162)
im=InputBox("1° Pronostico dall'estrazione mensile numero? (0=ultima estrazione)","TABELLA SETTENARIA",1)
p1=InputBox("2° Considerare il numero in quale posizione? (1°..2°..3°..4°..5°)","TABELLA SETTENARIA",1)

y=InputBox("3° Vuoi fare il gioco con il vertibile?? SI o NO? SCRIVI...1...per SI SCRIVI...2...per NO","TABELLA SETTENARIA",1)
cp=InputBox("Per quanti colpi vuoi giocare?","TABELLA SETTENARIA",12)
r=ScegliRuota
ruota(1)=r
'ruota(2)=11
ini=EstrazioneFin-eval(es)
fin=EstrazioneFin
For n=ini To fin

Messaggio DataEstrazione (n)

If(((eval(im)=0)And(n=fin))Or((IndiceMensile(n)=eval(im)And(eval(im)>0))Or((IndiceMensile(n+1)=1)And(eval(im)=0))))Then

If y=1 Then n1=Vert(Estratto(n,r,p1))
If y=2 Then n1=Estratto(n,r,p1)



casi=casi+1:

Scrivi
Scrivi
ColoreTesto 2 :Scrivi " *********************** Previsione ricavata alla "&(im)&"°estrazione del mese ************************* ",1
ColoreTesto 9
Scrivi
Scrivi String(44,"=")&" TABELLA SETTENARIA ==========================",1
Scrivi DataEstrazione(n,1)&" [ "&siglaRuota(r)& " - "&StringaEstratti(n,r)&" ] [ "&_
Format2(n1)&" ] numero o vertibile del numero in "&(p1)&"°Posizione",1
ColoreTesto 0
Scrivi String(70,"-")
If n1 =1 Then amb(1)=7:amb(2)=13:amb(3)=78:amb(4)=90
If n1 =2 Then amb(1)=14:amb(2)=26:amb(3)=65:amb(4)=89
If n1 =3 Then amb(1)=21:amb(2)=39:amb(3)=52:amb(4)=88
If n1 =4 Then amb(1)=28:amb(2)=52:amb(3)=39:amb(4)=87
If n1 =5 Then amb(1)=35:amb(2)=65:amb(3)=26:amb(4)=86
If n1 =6 Then amb(1)=42:amb(2)=78:amb(3)=13:amb(4)=85
If n1 =7 Then amb(1)=49:amb(2)=1:amb(3)=90:amb(4)=84
If n1 =8 Then amb(1)=56:amb(2)=14:amb(3)=77:amb(4)=83
If n1 =9 Then amb(1)=63:amb(2)=27:amb(3)=64:amb(4)=82
If n1 =10 Then amb(1)=70:amb(2)=40:amb(3)=51:amb(4)=81
If n1 =11 Then amb(1)=77:amb(2)=53:amb(3)=38:amb(4)=80
If n1 =12 Then amb(1)=84:amb(2)=66:amb(3)=25:amb(4)=79
If n1 =13 Then amb(1)=1:amb(2)=79:amb(3)=12:amb(4)=78
If n1 =14 Then amb(1)=8:amb(2)=2:amb(3)=89:amb(4)=77
If n1 =15 Then amb(1)=15:amb(2)=15:amb(3)=76:amb(4)=76
If n1 =16 Then amb(1)=22:amb(2)=28:amb(3)=63:amb(4)=75
If n1 =17 Then amb(1)=29:amb(2)=41:amb(3)=50:amb(4)=74
If n1 =18 Then amb(1)=36:amb(2)=54:amb(3)=37:amb(4)=73
If n1 =19 Then amb(1)=43:amb(2)=67:amb(3)=24:amb(4)=72
If n1 =20 Then amb(1)=50:amb(2)=11:amb(3)=11:amb(4)=71
If n1 =21 Then amb(1)=57:amb(2)=3:amb(3)=88:amb(4)=70
If n1 =22 Then amb(1)=64:amb(2)=16:amb(3)=75:amb(4)=69
If n1 =23 Then amb(1)=71:amb(2)=29:amb(3)=62:amb(4)=68
If n1 =24 Then amb(1)=78:amb(2)=42:amb(3)=49:amb(4)=67
If n1 =25 Then amb(1)=85:amb(2)=55:amb(3)=36:amb(4)=66
If n1 =26 Then amb(1)=2:amb(2)=68:amb(3)=23:amb(4)=65
If n1 =27 Then amb(1)=9:amb(2)=81:amb(3)=10:amb(4)=64
If n1 =28 Then amb(1)=16:amb(2)=4:amb(3)=87:amb(4)=63
If n1 =29 Then amb(1)=23:amb(2)=17:amb(3)=74:amb(4)=62
If n1 =30 Then amb(1)=30:amb(2)=30:amb(3)=61:amb(4)=61
If n1 =31 Then amb(1)=37:amb(2)=43:amb(3)=48:amb(4)=60
If n1 =32 Then amb(1)=44:amb(2)=56:amb(3)=35:amb(4)=59
If n1 =33 Then amb(1)=51:amb(2)=69:amb(3)=22:amb(4)=58
If n1 =34 Then amb(1)=58:amb(2)=82:amb(3)=9:amb(4)=57
If n1 =35 Then amb(1)=65:amb(2)=5:amb(3)=86:amb(4)=56
If n1 =36 Then amb(1)=72:amb(2)=18:amb(3)=73:amb(4)=55
If n1 =37 Then amb(1)=79:amb(2)=31:amb(3)=60:amb(4)=54
If n1 =38 Then amb(1)=86:amb(2)=44:amb(3)=47:amb(4)=53
If n1 =39 Then amb(1)=3:amb(2)=57:amb(3)=34:amb(4)=52
If n1 =40 Then amb(1)=10:amb(2)=70:amb(3)=21:amb(4)=51
If n1 =41 Then amb(1)=17:amb(2)=83:amb(3)=8:amb(4)=50
If n1 =42 Then amb(1)=24:amb(2)=6:amb(3)=85:amb(4)=49
If n1 =43 Then amb(1)=31:amb(2)=19:amb(3)=72:amb(4)=48
If n1 =44 Then amb(1)=38:amb(2)=32:amb(3)=59:amb(4)=47
If n1 =45 Then amb(1)=45:amb(2)=45:amb(3)=46:amb(4)=46
If n1 =46 Then amb(1)=52:amb(2)=58:amb(3)=33:amb(4)=45
If n1 =47 Then amb(1)=59:amb(2)=71:amb(3)=20:amb(4)=44
If n1 =48 Then amb(1)=66:amb(2)=84:amb(3)=7:amb(4)=43
If n1 =49 Then amb(1)=73:amb(2)=7:amb(3)=84:amb(4)=42
If n1 =50 Then amb(1)=80:amb(2)=20:amb(3)=71:amb(4)=41
If n1 =51 Then amb(1)=87:amb(2)=33:amb(3)=58:amb(4)=40
If n1 =52 Then amb(1)=4:amb(2)=46:amb(3)=45:amb(4)=39
If n1 =53 Then amb(1)=11:amb(2)=59:amb(3)=32:amb(4)=38
If n1 =54 Then amb(1)=18:amb(2)=72:amb(3)=19:amb(4)=37
If n1 =55 Then amb(1)=25:amb(2)=85:amb(3)=6:amb(4)=36
If n1 =56 Then amb(1)=32:amb(2)=8:amb(3)=83:amb(4)=35
If n1 =57 Then amb(1)=39:amb(2)=21:amb(3)=70:amb(4)=34
If n1 =58 Then amb(1)=46:amb(2)=34:amb(3)=57:amb(4)=33
If n1 =59 Then amb(1)=53:amb(2)=47:amb(3)=44:amb(4)=32
If n1 =60 Then amb(1)=60:amb(2)=31
If n1 =61 Then amb(1)=67:amb(2)=73:amb(3)=18:amb(4)=30
If n1 =62 Then amb(1)=74:amb(2)=86:amb(3)=5:amb(4)=29
If n1 =63 Then amb(1)=81:amb(2)=9:amb(3)=82:amb(4)=28
If n1 =64 Then amb(1)=88:amb(2)=22:amb(3)=69:amb(4)=27
If n1 =65 Then amb(1)=5:amb(2)=35:amb(3)=56:amb(4)=26
If n1 =66 Then amb(1)=12:amb(2)=48:amb(3)=43:amb(4)=25
If n1 =67 Then amb(1)=19:amb(2)=61:amb(3)=30:amb(4)=24
If n1 =68 Then amb(1)=26:amb(2)=74:amb(3)=17:amb(4)=23
If n1 =69 Then amb(1)=33:amb(2)=87:amb(3)=4:amb(4)=22
If n1 =70 Then amb(1)=40:amb(2)=10:amb(3)=81:amb(4)=21
If n1 =71 Then amb(1)=47:amb(2)=23:amb(3)=68:amb(4)=20
If n1 =72 Then amb(1)=54:amb(2)=36:amb(3)=55:amb(4)=19
If n1 =73 Then amb(1)=61:amb(2)=49:amb(3)=42:amb(4)=18
If n1 =74 Then amb(1)=68:amb(2)=62:amb(3)=29:amb(4)=17
If n1 =75 Then amb(1)=75:amb(2)=75:amb(3)=16:amb(4)=16
If n1 =76 Then amb(1)=82:amb(2)=88:amb(3)=3:amb(4)=15
If n1 =77 Then amb(1)=89:amb(2)=11:amb(3)=80:amb(4)=14
If n1 =78 Then amb(1)=6:amb(2)=24:amb(3)=67:amb(4)=13
If n1 =79 Then amb(1)=13:amb(2)=37:amb(3)=54:amb(4)=12
If n1 =80 Then amb(1)=20:amb(2)=50:amb(3)=41:amb(4)=11
If n1 =81 Then amb(1)=27:amb(2)=63:amb(3)=28:amb(4)=10
If n1 =82 Then amb(1)=34:amb(2)=76:amb(3)=15:amb(4)=9
If n1 =83 Then amb(1)=41:amb(2)=89:amb(3)=2:amb(4)=8
If n1 =84 Then amb(1)=48:amb(2)=12:amb(3)=79:amb(4)=7
If n1 =85 Then amb(1)=55:amb(2)=25:amb(3)=66:amb(4)=6
If n1 =86 Then amb(1)=62:amb(2)=38:amb(3)=53:amb(4)=5
If n1 =87 Then amb(1)=69:amb(2)=51:amb(3)=40:amb(4)=4
If n1 =88 Then amb(1)=76:amb(2)=64:amb(3)=27:amb(4)=3
If n1 =89 Then amb(1)=83:amb(2)=77:amb(3)=14:amb(4)=2
If n1 =90 Then amb(1)=90:amb(2)=90:amb(3)=1:amb(4)=1
ruota(1)=r:co=0



numeri1(1)=amb(1)
numeri1(2)=amb(2)

ImpostaGiocata 1,numeri1,ruota,poste,eval(cp),2

numeri1(1)=amb(1)
numeri1(2)=amb(3)
ImpostaGiocata 2,numeri1,ruota,poste,eval(cp),3

numeri1(1)=amb(1)
numeri1(2)=amb(4)
ImpostaGiocata 3,numeri1,ruota,poste,eval(cp),3
numeri1(1)=amb(2)
numeri1(2)=amb(3)
ImpostaGiocata 4,numeri1,ruota,poste,eval(cp),3
numeri1(1)=amb(2)
numeri1(2)=amb(4)
ImpostaGiocata 5,numeri1,ruota,poste,eval(cp),3
numeri1(1)=amb(3)
numeri1(2)=amb(4)
ImpostaGiocata 6,numeri1,ruota,poste,eval(cp),3
numeri2(1)=amb(1)
numeri2(2)=amb(2)
numeri2(3)=amb(3)
numeri2(4)=amb(4)
ImpostaGiocata 7,numeri2,ruota,postee,eval(cp),4

Gioca n

End If

Next

Scrivi

ScriviResoconto
ColoreTesto 2
Scrivi "================================================TABELLA SETTENARIA ",1
Scrivi "================================================Listato DjNomade",1
ColoreTesto 0

End Sub