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
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
