Per chi usa L8+ o Spaziometria salvo errori.....
Ciauz
'
www.lottostudio.net/cms/index.php?option...=14845&Itemid=44
ColoreTesto 1 :Scrivi "TABELLA NUMERETTI---by BUBU' ----",1
Scrivi
Scrivi String(28,32)&"List.DjNomade",1
ColoreTesto 0
Sub main()
Dim nn(2),nn1(5),amb(6),nn4(5)
Dim ruote(10),ruot(1)
Dim n(10),pt(10),ptt(5), pttt(4)
pt(1)=1 :
ptt(2)=1 :
pttt(2)=1
pttt(3)=1
pttt(4)=1
colpi=13
ini=EstrazioneFin -50
fin=EstrazioneFin
For es=ini To fin
For r=1 To 10
For p=1 To 5
a=Estratto (es,r,p)
r1=r+1
If r1=11 Then r1=12
b=Estratto (es,r1,p)
ruote(1)=r
ruote(2)=r1
If (a<10 And b<10) Then
'-------------------------------------------------------------------
ok=0
If (a=1 And b=1)Or (a=1 And b=1) Then amb(1)=89:amb(2)=44:amb(3)=65:amb(4)=88:ok=1
If (a=1 And b=2)Or (a=2 And b=1) Then amb(1)=79:amb(2)=21:amb(3)=47:amb(4)=80:ok=1
If (a=1 And b=3)Or (a=3 And b=1) Then amb(1)=44:amb(2)=22:amb(3)=55:amb(4)=86:ok=1
If (a=1 And b=4)Or (a=4 And b=1) Then amb(1)=77:amb(2)=23:amb(3)=41:amb(4)=88:ok=1
If (a=1 And b=5)Or (a=5 And b=1) Then amb(1)=60:amb(2)=22:amb(3)=47:amb(4)=80:ok=1
If (a=1 And b=6)Or (a=6 And b=1) Then amb(1)=16:amb(2)=32:amb(3)=47:amb(4)=86:ok=1
If (a=1 And b=7)Or (a=7 And b=1) Then amb(1)=45:amb(2)=22:amb(3)=50:amb(4)=90:ok=1
If (a=1 And b=8)Or (a=8 And b=1) Then amb(1)=81:amb(2)=09:amb(3)=61:amb(4)=88:ok=1
If (a=1 And b=9)Or (a=9 And b=1) Then amb(1)=90:amb(2)=18:amb(3)=19:amb(4)=63:ok=1
If (a=2 And b=2)Or (a=2 And b=2) Then amb(1)=29:amb(2)=22:amb(3)=47:amb(4)=90:ok=1
If (a=2 And b=3)Or (a=3 And b=2) Then amb(1)=05:amb(2)=08:amb(3)=20:amb(4)=59:ok=1
If (a=2 And b=4)Or (a=4 And b=2) Then amb(1)=60:amb(2)=02:amb(3)=24:amb(4)=88:ok=1
If (a=2 And b=5)Or (a=5 And b=2) Then amb(1)=17:amb(2)=56:amb(3)=65:amb(4)=89:ok=1
'If (a=2 And b=6)Or (a=6 And b=2) Then amb(1)=90:amb(2)=49:amb(3)=16:amb(4)=61:ok=1
If (a=2 And b=7)Or (a=7 And b=2) Then amb(1)=90:amb(2)=09:amb(3)=30:amb(4)=69:ok=1
If (a=2 And b=8)Or (a=8 And b=2) Then amb(1)=82:amb(2)=28:amb(3)=68:amb(4)=75:ok=1
If (a=2 And b=9)Or (a=9 And b=2) Then amb(1)=22:amb(2)=33:amb(3)=44:amb(4)=80:ok=1
If (a=3 And b=3)Or (a=3 And b=3) Then amb(1)=66:amb(2)=24:amb(3)=42:amb(4)=68:ok=1
If (a=3 And b=4)Or (a=4 And b=3) Then amb(1)=43:amb(2)=34:amb(3)=77:amb(4)=89:ok=1
If (a=3 And b=5)Or (a=5 And b=3) Then amb(1)=90:amb(2)=30:amb(3)=45:amb(4)=47:ok=1
If (a=3 And b=6)Or (a=6 And b=3) Then amb(1)=66:amb(2)=17:amb(3)=65:amb(4)=90:ok=1
If (a=3 And b=7)Or (a=7 And b=3) Then amb(1)=80:amb(2)=20:amb(3)=45:amb(4)=90:ok=1
If (a=3 And b=8)Or (a=8 And b=3) Then amb(1)=11:amb(2)=08:amb(3)=47:amb(4)=89:ok=1
If (a=3 And b=9)Or (a=9 And b=3) Then amb(1)=39:amb(2)=13:amb(3)=61:amb(4)=90:ok=1
If (a=4 And b=5)Or (a=5 And b=4) Then amb(1)=09:amb(2)=21:amb(3)=84:amb(4)=90:ok=1
If (a=4 And b=6)Or (a=6 And b=4) Then amb(1)=64:amb(2)=32:amb(3)=46:amb(4)=77:ok=1
If (a=4 And b=7)Or (a=7 And b=4) Then amb(1)=11:amb(2)=10:amb(3)=64:amb(4)=65:ok=1
If (a=4 And b=8)Or (a=8 And b=4) Then amb(1)=48:amb(2)=42:amb(3)=66:amb(4)=84:ok=1
If (a=4 And b=9)Or (a=9 And b=4) Then amb(1)=49:amb(2)=04:amb(3)=44:amb(4)=79:ok=1
If (a=5 And b=5)Or (a=5 And b=5) Then amb(1)=90:amb(2)=09:amb(3)=30:amb(4)=45:ok=1
If (a=5 And b=6)Or (a=6 And b=5) Then amb(1)=56:amb(2)=17:amb(3)=65:amb(4)=90:ok=1
If (a=5 And b=7)Or (a=7 And b=5) Then amb(1)=12:amb(2)=44:amb(3)=68:amb(4)=75:ok=1
If (a=5 And b=8)Or (a=8 And b=5) Then amb(1)=13:amb(2)=33:amb(3)=67:amb(4)=68:ok=1
If (a=5 And b=9)Or (a=9 And b=5) Then amb(1)=90:amb(2)=30:amb(3)=59:amb(4)=70:ok=1
If (a=6 And b=6)Or (a=6 And b=6) Then amb(1)=66:amb(2)=21:amb(3)=51:amb(4)=90:ok=1
If (a=6 And b=7)Or (a=7 And b=6) Then amb(1)=76:amb(2)=40:amb(3)=67:amb(4)=88:ok=1
If (a=6 And b=8)Or (a=8 And b=6) Then amb(1)=68:amb(2)=08:amb(3)=23:amb(4)=61:ok=1
If (a=6 And b=9)Or (a=9 And b=6) Then amb(1)=69:amb(2)=11:amb(3)=21:amb(4)=70:ok=1
If (a=7 And b=7)Or (a=7 And b=7) Then amb(1)=77:amb(2)=41:amb(3)=44:amb(4)=80:ok=1
If (a=7 And b=8)Or (a=8 And b=7) Then amb(1)=87:amb(2)=13:amb(3)=55:amb(4)=78:ok=1
If (a=7 And b=9)Or (a=9 And b=7) Then amb(1)=79:amb(2)=21:amb(3)=45:amb(4)=80:ok=1
If (a=8 And b=8)Or (a=8 And b=8) Then amb(1)=88:amb(2)=24:amb(3)=42:amb(4)=66:ok=1
If (a=8 And b=9)Or (a=9 And b=8) Then amb(1)=89:amb(2)=45:amb(3)=66:amb(4)=87:ok=1
If (a=9 And b=9)Or (a=9 And b=9) Then amb(1)=90:amb(2)=19:amb(3)=27:amb(4)=63:ok=1
If ok=1 Then
'-------------------------------------------------------------------
co=co+1
Scrivi String (65,"=")
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" trovato ",0,0
ColoreTesto 2
Scrivi a,1
ColoreTesto 0
Scrivi DataEstrazione (es)&" "& SiglaRuota (r1)&" "& StringaEstratti (es,r1)&" trovato ",0,0
ColoreTesto 2
Scrivi b,1
ColoreTesto 0
Scrivi
nn(1)=amb(1)
nn(2)=amb(1)
ImpostaGiocata 1,nn,ruote,pt,colpi
nn1(1)=amb(1)
nn1(2)=amb(2)
ImpostaGiocata 2,nn1,ruote,ptt,colpi
nn1(1)=amb(1)
nn1(2)=amb(3)
ImpostaGiocata 3,nn1,ruote,ptt,colpi
nn1(1)=amb(1)
nn1(2)=amb(4)
ImpostaGiocata 4,nn1,ruote,ptt,colpi
nn4(1)=amb(1)
nn4(2)=amb(2)
nn4(3)=amb(3)
nn4(4)=amb(4)
ImpostaGiocata 5,nn4,ruote,pttt,colpi
Gioca es
End If
End If
Next : Next : Next
Scrivi "Casi trovati "& CInt (co)
ScriviResoconto
End Sub