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
sabato 13 giugno 2026Bari2562861937Cagliari0365846963Firenze8434830826Genova1929905332Milano7570865135Napoli4648683719Palermo1639878474Roma2942655480Torino7767685745Venezia0582854219Nazionale7527453339Estrazione Simbolotto
Napoli
4215270841
