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
venerdì 24 aprile 2026Bari1588369037Cagliari4922462886Firenze0785148455Genova8969884181Milano7143452503Napoli8372601621Palermo7578688076Roma1325678378Torino3039637281Venezia1355718905Nazionale4270224841Estrazione Simbolotto
Genova
3845331522
