Script

Codicebinario · 30 Agosto 2024

scarfacetony ha scritto:
Metodi BadessaLotto

METODO 90 [[ GRAZIE A SALVO BADESSA ]] (1)

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

https://www.mediafire.com/file/dmzofk66q3n9v5b/+NUMERETTI+VOL.2.++METODO+OMAGGIO+AI+MIEI+MARINAI.mp4/file

Grazie !!!!

DjNomade · 30 Agosto 2024

Controllate questi

Codice:

'https://www.youtube.com/watch?v=yoEQNhpavL8
'

Scrivi "  3 TRE 3  -   NUMERETTI   BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(4),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10065)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 12
If r=11 Then r=12

For p1=1 To 5

a=Estratto(es-1,r,p1)
b=Estratto(es,r,p1)

If (Distanza(a,b)=3 Or Distanza(a,b)=6)  And a<10 And b<10 Then 'iso
If Distanza(a,b)=3 Then c=Massimo(a,b)+3
If c>9 Then c=Minimo(a,b)-3
If Distanza(a,b)=6 Then c=Minimo(a,b)+3

d=DiametraleD(c)
casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es-1,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es-1,r)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num2(1)=c
num2(2)=d
num2(3)=Vert(c)
num2(4)=Vert(d)
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es
Scrivi
Scrivi  "           AMBETTI   ",1
Scrivi
num(1)=c
num(2)=Fuori90(d+1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=Fuori90(90+d-1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(c+1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(90+c-1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub

Codice:

'https://www.youtube.com/watch?v=yoEQNhpavL8
'NUMERETTI VOL.2

Scrivi "  3 TRE 3  -   NUMERETTI VOL.2  BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(4),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10065)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 9
 r1=r+1
For p1=1 To 5

a=Estratto(es,r,p1)
b=Estratto(es,r1,p1)

If (Distanza(a,b)=3 Or Distanza(a,b)=6)  And a<10 And b<10 Then 'iso
If Distanza(a,b)=3 Then c=Massimo(a,b)+3
If c>9 Then c=Minimo(a,b)-3
If Distanza(a,b)=6 Then c=Minimo(a,b)+3

d=DiametraleD(c)
casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num2(1)=c
num2(2)=d
num2(3)=Vert(c)
num2(4)=Vert(d)
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es
Scrivi
Scrivi  "           AMBETTI   ",1
Scrivi
num(1)=c
num(2)=Fuori90(d+1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=Fuori90(90+d-1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(c+1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(90+c-1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub

Codice:

'https://www.youtube.com/watch?v=WBqXwoKvQp8
'30-08-2024

Scrivi "  VI MMUKKATI 4 CO 90?  BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(5),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",9855)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 10
For  r1=r+1 To 12
If r1=11 Then r1=12 
For p1=1 To 5

a=Estratto(es,r,p1)
b=Estratto(es,r1,p1)

aa=Estratto(es-1,r,p1)
bb=Estratto(es-1,r1,p1)

If Fuori90(a+aa)=90 And Fuori90(b+bb)=90 Then '
 c=90

d1=Diametrale(a)
d2=Diametrale(b)
d3=Diametrale(aa)
d4=Diametrale(bb)

casi=casi+1:Scrivi String(58,"="),1

Scrivi DataEstrazione(es-1,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es-1,r)&_
" ] [ "&format2(aa)&" ] in "&(p1)& "° Posiz.",1
Scrivi DataEstrazione(es,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(a)&" ] in "&(p1)& "° Posiz.",1
Scrivi
Scrivi DataEstrazione(es-1,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es-1,r1)&_
" ] [ "&format2(bb)&" ] in "&(p1)& "° Posiz.",1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(b)&" ] in "&(p1)& "° Posiz.",1

Scrivi String(62,"-")&" caso n° "&(casi),1
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
'ruota2(3)=11
'ruota2(4)=12:
cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d1
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=d3
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=d2
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=d4
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k


num2(1)=c
num2(2)=d1
num2(3)=d3
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k

num2(1)=c
num2(2)=d2
num2(3)=d4
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es

End If

Next:
Next:
Next:
Next:

ScriviResoconto

End Sub

Pandit · 30 Agosto 2024

DJ sei una macchina da script, Grazie..
Ti sei dimenticato le virgolette nell'ultimo dove ci sono i 4 scrivi:
"° Posiz.",1

DjNomade · 30 Agosto 2024

Urca si....
corretto
Grazie

scarfacetony · 31 Agosto 2024

DjNomade ha scritto:

Controllate questi

Codice:

'https://www.youtube.com/watch?v=yoEQNhpavL8
'

Scrivi "  3 TRE 3  -   NUMERETTI   BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(4),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10065)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 12
If r=11 Then r=12

For p1=1 To 5

a=Estratto(es-1,r,p1)
b=Estratto(es,r,p1)

If (Distanza(a,b)=3 Or Distanza(a,b)=6)  And a<10 And b<10 Then 'iso
If Distanza(a,b)=3 Then c=Massimo(a,b)+3
If c>9 Then c=Minimo(a,b)-3
If Distanza(a,b)=6 Then c=Minimo(a,b)+3

d=DiametraleD(c)
casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es-1,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es-1,r)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num2(1)=c
num2(2)=d
num2(3)=Vert(c)
num2(4)=Vert(d)
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es
Scrivi
Scrivi  "           AMBETTI   ",1
Scrivi
num(1)=c
num(2)=Fuori90(d+1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=Fuori90(90+d-1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(c+1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(90+c-1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub

Codice:

'https://www.youtube.com/watch?v=yoEQNhpavL8
'NUMERETTI VOL.2

Scrivi "  3 TRE 3  -   NUMERETTI VOL.2  BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(4),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10065)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 9
 r1=r+1
For p1=1 To 5

a=Estratto(es,r,p1)
b=Estratto(es,r1,p1)

If (Distanza(a,b)=3 Or Distanza(a,b)=6)  And a<10 And b<10 Then 'iso
If Distanza(a,b)=3 Then c=Massimo(a,b)+3
If c>9 Then c=Minimo(a,b)-3
If Distanza(a,b)=6 Then c=Minimo(a,b)+3

d=DiametraleD(c)
casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num2(1)=c
num2(2)=d
num2(3)=Vert(c)
num2(4)=Vert(d)
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es
Scrivi
Scrivi  "           AMBETTI   ",1
Scrivi
num(1)=c
num(2)=Fuori90(d+1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=Fuori90(90+d-1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(c+1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(90+c-1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub

Codice:

'https://www.youtube.com/watch?v=WBqXwoKvQp8
'30-08-2024

Scrivi "  VI MMUKKATI 4 CO 90?  BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(5),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",9855)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 10
For  r1=r+1 To 12
If r1=11 Then r1=12
For p1=1 To 5

a=Estratto(es,r,p1)
b=Estratto(es,r1,p1)

aa=Estratto(es-1,r,p1)
bb=Estratto(es-1,r1,p1)

If Fuori90(a+aa)=90 And Fuori90(b+bb)=90 Then '
 c=90

d1=Diametrale(a)
d2=Diametrale(b)
d3=Diametrale(aa)
d4=Diametrale(bb)

casi=casi+1:Scrivi String(58,"="),1

Scrivi DataEstrazione(es-1,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es-1,r)&_
" ] [ "&format2(aa)&" ] in "&(p1)& "° Posiz.",1
Scrivi DataEstrazione(es,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(a)&" ] in "&(p1)& "° Posiz.",1
Scrivi
Scrivi DataEstrazione(es-1,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es-1,r1)&_
" ] [ "&format2(bb)&" ] in "&(p1)& "° Posiz.",1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(b)&" ] in "&(p1)& "° Posiz.",1

Scrivi String(62,"-")&" caso n° "&(casi),1
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
'ruota2(3)=11
'ruota2(4)=12:
cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d1
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=d3
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=d2
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=d4
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k


num2(1)=c
num2(2)=d1
num2(3)=d3
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k

num2(1)=c
num2(2)=d2
num2(3)=d4
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es

End If

Next:
Next:
Next:
Next:

ScriviResoconto

End Sub

Grazie Mille,l'ultimo mi da errore,domani ti scrivo dove. Grazie come sempre

scarfacetony · 31 Agosto 2024

DjNomade ha scritto:

Controllate questi

Codice:

'https://www.youtube.com/watch?v=yoEQNhpavL8
'

Scrivi "  3 TRE 3  -   NUMERETTI   BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(4),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10065)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 12
If r=11 Then r=12

For p1=1 To 5

a=Estratto(es-1,r,p1)
b=Estratto(es,r,p1)

If (Distanza(a,b)=3 Or Distanza(a,b)=6)  And a<10 And b<10 Then 'iso
If Distanza(a,b)=3 Then c=Massimo(a,b)+3
If c>9 Then c=Minimo(a,b)-3
If Distanza(a,b)=6 Then c=Minimo(a,b)+3

d=DiametraleD(c)
casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es-1,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es-1,r)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num2(1)=c
num2(2)=d
num2(3)=Vert(c)
num2(4)=Vert(d)
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es
Scrivi
Scrivi  "           AMBETTI   ",1
Scrivi
num(1)=c
num(2)=Fuori90(d+1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=Fuori90(90+d-1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(c+1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(90+c-1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub

Codice:

'https://www.youtube.com/watch?v=yoEQNhpavL8
'NUMERETTI VOL.2

Scrivi "  3 TRE 3  -   NUMERETTI VOL.2  BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(4),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10065)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 9
 r1=r+1
For p1=1 To 5

a=Estratto(es,r,p1)
b=Estratto(es,r1,p1)

If (Distanza(a,b)=3 Or Distanza(a,b)=6)  And a<10 And b<10 Then 'iso
If Distanza(a,b)=3 Then c=Massimo(a,b)+3
If c>9 Then c=Minimo(a,b)-3
If Distanza(a,b)=6 Then c=Minimo(a,b)+3

d=DiametraleD(c)
casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num2(1)=c
num2(2)=d
num2(3)=Vert(c)
num2(4)=Vert(d)
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es
Scrivi
Scrivi  "           AMBETTI   ",1
Scrivi
num(1)=c
num(2)=Fuori90(d+1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=Fuori90(90+d-1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(c+1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(90+c-1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub

Codice:

'https://www.youtube.com/watch?v=WBqXwoKvQp8
'30-08-2024

Scrivi "  VI MMUKKATI 4 CO 90?  BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(5),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",9855)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 10
For  r1=r+1 To 12
If r1=11 Then r1=12
For p1=1 To 5

a=Estratto(es,r,p1)
b=Estratto(es,r1,p1)

aa=Estratto(es-1,r,p1)
bb=Estratto(es-1,r1,p1)

If Fuori90(a+aa)=90 And Fuori90(b+bb)=90 Then '
 c=90

d1=Diametrale(a)
d2=Diametrale(b)
d3=Diametrale(aa)
d4=Diametrale(bb)

casi=casi+1:Scrivi String(58,"="),1

Scrivi DataEstrazione(es-1,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es-1,r)&_
" ] [ "&format2(aa)&" ] in "&(p1)& "° Posiz.",1
Scrivi DataEstrazione(es,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(a)&" ] in "&(p1)& "° Posiz.",1
Scrivi
Scrivi DataEstrazione(es-1,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es-1,r1)&_
" ] [ "&format2(bb)&" ] in "&(p1)& "° Posiz.",1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(b)&" ] in "&(p1)& "° Posiz.",1

Scrivi String(62,"-")&" caso n° "&(casi),1
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
'ruota2(3)=11
'ruota2(4)=12:
cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d1
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=d3
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=d2
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=d4
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k


num2(1)=c
num2(2)=d1
num2(3)=d3
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k

num2(1)=c
num2(2)=d2
num2(3)=d4
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es

End If

Next:
Next:
Next:
Next:

ScriviResoconto

End Sub

Ok scusa non avevo visto.... Ancora grazieeeee

nunzio65 · 12 Settembre 2024

METTO QUESTO METODO PER CHI VUOLE SVILUPPARE LO SCRIPT

DjNomade · 12 Settembre 2024

Dovrebbe essere cosi'

Codice:

'https://www.youtube.com/live/X5swPdma8mU
'10-09-2024

ColoreTesto 1 :Scrivi "================  20.000 LEGHE SOTTO L'ETNA BY SALVO BADESSA ================",1
Scrivi

 ColoreTesto 0

Sub Main()
Dim am(5),ab(5),quartina(5),ruote(12),ruotee(12),posta(5),poste(5),postee(5)
posta(1) = 1
'posta(2) = 1
poste(2) = 1
postee(2) = 1: postee(3) = 1:

For es = EstrazioneFin-100 To EstrazioneFin
 Messaggio CStr(EstrazioneFin - es)


For r1 = 1 To 10
For p1 = 1 To 1


a = Estratto(es,r1,p1)

For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p2 = 1 To 5

b = Estratto(es,r2,p1)

If a =DiametraleD(b)   And p1 = p2 And Distanza(r1,r2)=1  Then
a1 =Fuori90(a+b)'73+78 66
a2 =90-a1
a3 =DiametraleD(a1)'
a4 =90-a3


cont = cont + 1
Scrivi
ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
ColoreTesto 0 : Scrivi

Scrivi DataEstrazione(es,1) & "" & Space(3) & "[" &(es) & "]ª" & Space(4) & "" & _
Left(NomeRuota(r1),3) & "" & Space(3) & "" & StringaEstratti(es,r1) & "" & Space(3) & _
"" & Format2(a) & "" & Space(3) &"" ,1
Scrivi DataEstrazione(es,1) & "" & Space(3) & "[" &(es) & "]ª" & Space(4) & _
"" & Left(NomeRuota(r2),3) & "" & Space(3) & "" & StringaEstratti(es,r2) & "" & Space(3) & _
"" & Format2(b) & ""& Space(3) &"",1
Scrivi
ColoreTesto 2
                                                     If Distanza(r1,r2)=1 Or ((r1=1 And r2=12)Or(r1=12 And r2=1))  Then Scrivi " > RUOTE CONSECUTIVE ",1
                                                     If Distanza(r1,r2)=5 And r1<12 And r2<12 Then Scrivi " > RUOTE DIAMETRALI ",1
                                                     If (r1+r2)=11  Then Scrivi " > RUOTE GEMELLARI ",1

ColoreTesto 0
ruotee(1) = r1 :ruotee(2) = r2:ruotee(3) = 11: ruotee(4) = 12
ruote(1) = r1 :ruote(2) = r2:
k = 12

am(1) =a1
am(2) =a2
ImpostaGiocata 1,am,ruote,poste,k
am(1) =a3
am(2) =a4
ImpostaGiocata 2,am,ruotee,poste,k
ab(1) =a1
ab(2) =a2
ab(3) =a3
ab(4) =a4
ImpostaGiocata 3,ab,ruotee,postee,k
Gioca es

 Scrivi String(57,151)
End If
Next :Next : Next :Next : Next:
ScriviResoconto


End Sub

nunzio65 · 12 Settembre 2024

PERFETTO GRAZIE DJ. CIIAAUUZZ

franca46 · 13 Settembre 2024

Buongiorno, domanda: se volessi vedere se funziona con ruote non consecutive , cosa modifico?

joe · 13 Settembre 2024

franca46 ha scritto:
Buongiorno, domanda: se volessi vedere se funziona con ruote non consecutive , cosa modifico?

Togli: And Distanza(r1,r2)=1

franca46 · 13 Settembre 2024

grazie joe

scarfacetony · 19 Settembre 2024

Buonasera a tutti,a inizio video,metodo di Badessa.
Buona serata

Festeggiamo i 20000 iscritti di Salvo Badessa con la tecnica e la previsione in omaggio

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

DjNomade · 20 Settembre 2024

E' quello richiesto da nunzio65 sta sopra insieme al listasto

scarfacetony · 20 Settembre 2024

Scusa ma stavo con unpc dell'era glaciale.....si vedevano passare i mammut,ma non il listato. ok grazie mille

scarfacetony · 1 Ottobre 2024

Buonasera a tutti,preso dal sito di Noel

DjNomade · 3 Ottobre 2024

Bho ci ho provato vedi un po cosi
Ciauz

Codice:

Sub Main()
Dim ruote(3),ruota(2),ru1(1),ru2(1)
Dim amb(1),ambo(2),n1(2),n2(2),lg(6)
Dim posta(1),poste(2),poste1(3)

posta(1) = 1
poste(2) = 1
poste1(2) = 1.50:poste1(3) = .50
Scrivi
Scrivi String(20," ") & "********* LA RIPETIZIONE DEL NUMERO by FABARRI ******",1

Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
 ColoreTesto 0
t = 0
rs = InputBox("Quante estrazioni vuoi controllare?",,20)
cl = InputBox("Quanti colpi vuoi controllare?",,6)
ini=EstrazioneFin - rs '4868''esempio
fine=EstrazioneFin    '4870'
For es = ini To fine
Messaggio "Estrazione esaminata: " & CStr(es)
For x=0 To 2
ex=es-x
  For r1 = 1 To 12
If r1=11 Then r1=12
     For p1 = 1 To 4
     a1 = Estratto(ex,r1,p1)
     p2 = p1 + 1
        a2 = Estratto(ex,r1,p2): so1 = Fuori90(a1 + a2)
          
 For r2 = 1 To 12
If r2=11 Then r2=12
        
              For p3 = 1 To 4 : b1 = Estratto(es,r2,p3)
              p4 = p3 + 1: b2 = Estratto(es,r2,p4):so2 = Fuori90(b1 + b2)

sv1 = Abs(a1 - b2):sv2 = Abs(a2 - b1)
sd1 = Fuori90(a1 + b2):sd2 = Fuori90(a2 + b1)
If a1 <> b1 And a1 <> b2 And a2 <> b1 And a2 <> b2 Then
If(so1 = so2)And (sv1 = sv2)Then
If (ex=es And(p1=p4 Or p2=p3))  Or (ex<es) Then


If (Decina(a1)=Decina(b2)And Decina(a2)=Decina(b1))_
Or (Decina(a1)=Decina(b1)And Decina(a2)=Decina(b2))_
Or (Decina(a1)=Decina(b1)And Decina(a2)=Decina(b2)And Decina(a1)=Decina(b2))_
Or (Cadenza(a1)=Cadenza(b2)And Cadenza(a2)=Cadenza(b1))_
Or (Cadenza(a1)=Cadenza(b1)And Cadenza(a2)=Cadenza(b2))_
Or (Cadenza(a1)=Cadenza(b1)And Cadenza(a2)=Cadenza(b2)And Cadenza(a1)=Cadenza(b2))Then

 ambata= b2


ruota(1)=r1 : ruota(2)=r2
ruote(1) = r1 : ruote(2) = r2 :'ruote(3) = 11
t = t + 1
Scrivi "----------------------------------------------------------------Caso N. " &t,1
ColoreTesto 1

ColoreTesto 0
Scrivi DataEstrazione(ex) & " / " & ex & " " & SiglaRuota(r1) & "  " & StringaEstratti(ex,r1) & "   [" & Format2(a1) & "." & Format2(a2) & "]" & _
"  Pos. " & p1 & "^ " & p2,1
Scrivi DataEstrazione(es) & " / " & es & " " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & "   [" & Format2(b1) & "." & Format2(b2) & "]" & _
"  Pos. " & p3 & "^ " & p4 ,1
 ColoreTesto 2
If Distanza(r1,r2)=1 Or Distanza(r1,r2)=9 Then Scrivi " Ruote Consecutive ",1
If Distanza(r1,r2)=5 Then Scrivi " Ruote Diametrali ",1
If (r1+r2)=11 Then Scrivi " Ruote Gemellari ",1 
 If ex<es Then Scrivi" CONDIZIONE RILEVATA A " &es-ex & " ESTRAZIONI A RITROSO",1
If ex=es Then Scrivi" CONDIZIONE TROVATA NELLA STESSA ESTRAZIONE",1

ColoreTesto 0

amb(1)=ambata
ImpostaGiocata 1,amb,ruota,posta,cl

Gioca es
End If
End If
End If
 End If         
           Next
        Next
     Next                 
  Next   
Next   
Next   
ScriviResoconto
End Sub

nunzio65 · 25 Novembre 2024

Qualcuno a lo script di semplice di badessa

DjNomade · 26 Novembre 2024

E' da controllare

'

Sub Main()
Scrivi " Metodo Semplice by Salvo Badessa",1
Scrivi
Dim ruota1(10),ruote(10),ambata(2),ambo1(2),ambo2(2),ambo3(2),quartina(5),cinquina(5),ruota(10),h,y,posta(10),poste(2),postee(4),poste1(4)
: poste(2) = 1: postee(2) = 1 : postee(3) = 1 : postee(4) = 0.50
poste1(2) = 1 : poste1(3) = 1
EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","",10)
k = CInt(InputBox("QUANTI COLPI ?","",9))
'ini = EstrazioneFin - EstrazioniLotto
fin = EstrazioneFin
ini = fin - estrazionilotto
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)

n5 = Fuori90(n1 + n2)
For r2= 1 To 12
If r2 = 11 Then r2 = 12
For p3 = 1 To 5
n3 = Estratto(es,r2,p3)

If n5 = 90 And n3 =Abs(n1-n2) And (p3 =p1 Or p3 =p2) Then
n4 = Diametrale(n3)'88+45 43
n6 = Diametrale(n3)'88
If p3 =p1 Then n7 = Estratto(es,r2,p2)
If p3 =p2 Then n7 = Estratto(es,r2,p1)
n8 =Abs(n3-n7)

amb=n4
abb1=n3
abb2=n8

casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo < " & Format2(n1) & "." & Format2(n2) & " > somma < " & Format2(n5)
If p3 =p1 Then Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(n3) &"."& Format2(n7)
If p3 =p2 Then Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > < " & Format2(n7) &"."& Format2(n3)
ruota(1) = r1 :
ruota(2) = r2 :ruote(2) = 11
ruota1(1) = r1 :
ruota1(2) = r2 :ruota1(3) = 11
'----------------------------------------
Erase posta
posta(1) = 1
posta(p1+5) = 1
posta(p2+5) = 1
ambata(1) = amb
ambata(2) = abb1
ImpostaGiocata 1,ambata,ruota,posta,k
ambo1(1) = amb
ambo1(2) = n8
ImpostaGiocata 2,ambo1,ruota,poste,k
ambo1(1) = abb1
ambo1(2) = n8
ImpostaGiocata 3,ambo1,ruota,poste,k

quartina(1) = amb
quartina(2) = abb1
quartina(3) = n8
ImpostaGiocata 4,quartina,ruota1,poste1,k

Gioca es',1
End If
Next
Next
Next
Next
Next
Next

ScriviResoconto
End Sub

Pandit · 26 Novembre 2024

Di questo Algoritmo di ricerca?

Script

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Senior Member

Senior Member

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Senior Member

Senior Member

Allegati

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<