R
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.
- Stato
imported_n/a
Advanced Premium Member
Domani vedo di sistemarli tutti e due.
Adesso proprio non connetto!!
Daniel
"I numeri non hanno memoria......e il banco lo sa!!!
Adesso proprio non connetto!!
Daniel
"I numeri non hanno memoria......e il banco lo sa!!!
imported_n/a
Advanced Premium Member
Sub main()
Dim num(1)
Dim num1(2)
Dim num2(2)
Dim num3(2)
Dim num4(5)
Dim ruote(10)
Dim poste(2)
Dim post(5)
poste(2)=1
post(2)=1
post(3)=1
post(4)=1
post(5)=1
tmp=InputBox("Quante estrazioni controllo?",,100)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 10
For r1=1 To 10
For p= 1 To 4
For p1=p+1 To 5
For p2=1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,p1)
a1=Distanza(a,b)
If a1=30 Then
c=Estratto (es,r1,p2)
a2=Distanza(a,c)
If a2=30 Then
If c=a Or c=b Then
a3=Posizione(es,r,a)
a4=Posizione(es,r,b)
a5=Posizione(es,r1,c)
If a5=a4 Or a5=a3 Then
If r1=r-1 Or r1=r+1 Then
b1=Fuori90(a+30)
If b1=b Or a1=c Then b1=Fuori90(a+60)
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" ["&Format2(a)&_
"]"&" ["&Format2(b)&"]"
Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" ["&Format2(c)&"] "&_
Format2(b1)
If c=b Then b2=c
If c=a Then b2=c
b3=Fuori90(b2*2)
b4=Diametrale(b3)
b5=Fuori90(b2+b4)
b6=Abs(b2-b4)
b7=90-b5
b8=90-b6
c1=Figura(a)
c2=Figura(b)
c3=c1&c2
c4=Vert(c3)
ruote(1)=r
ruote(2)=r1
num1(1)=b1
num1(2)=b7
ImpostaGiocata 1,num1,ruote,poste,10
num2(1)=b1
num2(2)=b8
ImpostaGiocata 2,num2,ruote,poste,10
num3(1)=b7
num3(2)=b8
ImpostaGiocata 3,num3,ruote,poste,10
num4(1)=b1
num4(2)=b7
num4(3)=b8
num4(4)=c3
num4(5)=c4
ImpostaGiocata 4,num4,ruote,post,10
Gioca es
Scrivi"*****************************************"
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Daniel
"I numeri non hanno memoria......e il banco lo sa!!!
Dim num(1)
Dim num1(2)
Dim num2(2)
Dim num3(2)
Dim num4(5)
Dim ruote(10)
Dim poste(2)
Dim post(5)
poste(2)=1
post(2)=1
post(3)=1
post(4)=1
post(5)=1
tmp=InputBox("Quante estrazioni controllo?",,100)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 10
For r1=1 To 10
For p= 1 To 4
For p1=p+1 To 5
For p2=1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,p1)
a1=Distanza(a,b)
If a1=30 Then
c=Estratto (es,r1,p2)
a2=Distanza(a,c)
If a2=30 Then
If c=a Or c=b Then
a3=Posizione(es,r,a)
a4=Posizione(es,r,b)
a5=Posizione(es,r1,c)
If a5=a4 Or a5=a3 Then
If r1=r-1 Or r1=r+1 Then
b1=Fuori90(a+30)
If b1=b Or a1=c Then b1=Fuori90(a+60)
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" ["&Format2(a)&_
"]"&" ["&Format2(b)&"]"
Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" ["&Format2(c)&"] "&_
Format2(b1)
If c=b Then b2=c
If c=a Then b2=c
b3=Fuori90(b2*2)
b4=Diametrale(b3)
b5=Fuori90(b2+b4)
b6=Abs(b2-b4)
b7=90-b5
b8=90-b6
c1=Figura(a)
c2=Figura(b)
c3=c1&c2
c4=Vert(c3)
ruote(1)=r
ruote(2)=r1
num1(1)=b1
num1(2)=b7
ImpostaGiocata 1,num1,ruote,poste,10
num2(1)=b1
num2(2)=b8
ImpostaGiocata 2,num2,ruote,poste,10
num3(1)=b7
num3(2)=b8
ImpostaGiocata 3,num3,ruote,poste,10
num4(1)=b1
num4(2)=b7
num4(3)=b8
num4(4)=c3
num4(5)=c4
ImpostaGiocata 4,num4,ruote,post,10
Gioca es
Scrivi"*****************************************"
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Daniel
"I numeri non hanno memoria......e il banco lo sa!!!
- Stato
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 15 ottobre 2026Bari8743799001Cagliari5081665612Firenze2537268281Genova4310478675Milano1482853369Napoli5065042808Palermo3334698014Roma0851611916Torino5955781101Venezia6207170105Nazionale1167585178Estrazione Simbolotto
2040193921
