Grazie !!!!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
'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'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'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
Ok scusa non avevo visto.... Ancora grazieeeee
