Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
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
'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
