adeleadele
Advanced Member >PLATINUM<
Sub Main()
Dim num(2),nu1(5),nu2(8)
Dim ruote(3),posta(5),poste(5)
posta(1)=3
oste(2)=2
oste(3)=2
oste(4)=2
oste(5)=2
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",50)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi "10 è la distanza giusta di c_baldazzi ",1
Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)
For r1=1 To 10
For p1=1 To 5
a=Estratto (es,r1,p1)
For r2=r1+1 To 12
If r2=11 Then r2=12
b=Estratto(es,r2,p1)
ds1=Distanza(a,b)
If ds1=10 Then
casi=casi+1:Scrivi String(58,"=")&" script by chilofa",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)& " - "&_
StringaEstratti(es,r1)&_
" ] [ "&Format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)& " - "&_
StringaEstratti(es,r2)&_
" ] [ "&Format2(b)&" ] in "&(p1)&"^ pos."
Scrivi String(62,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:cg=0
amb1=Fuori90(a+b)
If Cadenza(amb1)=0 Or Cadenza(amb1)=1 Or Cadenza(amb1)=2 Or Cadenza(amb1)=3 Or Cadenza(amb1)=4 Then ab1=Abs(amb1-25) Else ab1=Fuori90(amb1+25)
ab2=Fuori90(ab1+a) ' 1 capogioco
ab3=Fuori90(ab1+b) ' 2 capogioco
ab4=Vert(ab2)
ab5=Vert(ab3)
ab6=Diametrale(ab2)
ab7=Diametrale(ab3)
nu2(1)=ab5
nu2(2)=ab1:nu2(3)=ab2
nu2(4)=ab3:nu2(5)=ab4:nu2(6)=ab6:nu2(7)=ab7
cg=cg+1
ImpostaGiocata cg,nu2,ruote,poste,k
Gioca es
End If
Next:Next:Next:Next
Scrivi String(58,"=")&" script by ",1
ScriviResoconto
Scrivi "10 è la distanza giusta di c_baldazzi ",1
End Sub
Tecnica individuati le due distanze 10
1 Aprile distanza 10
abbiamo 89 e 9 ok:somma 8 o vertibile
89 fa somma 17 e mettete sotto 90quando avete solo l'unità dovete inserirlo sempre sotto la decina e leggete dall'alto verso il basso abbiamo ambate 8 o 80 con 19 o 11- 7 -70
1 aprile 89 79 di Cag ven somma 68 86 fate gli ambettiambata con 8più 9 fa 17 mettiamoli in colonna 17e 79 verrebbe 17 71 77 79 ......
-----------------------------------------------------------------------
Dim num(2),nu1(5),nu2(8)
Dim ruote(3),posta(5),poste(5)
posta(1)=3




ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",50)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi "10 è la distanza giusta di c_baldazzi ",1
Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)
For r1=1 To 10
For p1=1 To 5
a=Estratto (es,r1,p1)
For r2=r1+1 To 12
If r2=11 Then r2=12
b=Estratto(es,r2,p1)
ds1=Distanza(a,b)
If ds1=10 Then
casi=casi+1:Scrivi String(58,"=")&" script by chilofa",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)& " - "&_
StringaEstratti(es,r1)&_
" ] [ "&Format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)& " - "&_
StringaEstratti(es,r2)&_
" ] [ "&Format2(b)&" ] in "&(p1)&"^ pos."
Scrivi String(62,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:cg=0
amb1=Fuori90(a+b)
If Cadenza(amb1)=0 Or Cadenza(amb1)=1 Or Cadenza(amb1)=2 Or Cadenza(amb1)=3 Or Cadenza(amb1)=4 Then ab1=Abs(amb1-25) Else ab1=Fuori90(amb1+25)
ab2=Fuori90(ab1+a) ' 1 capogioco
ab3=Fuori90(ab1+b) ' 2 capogioco
ab4=Vert(ab2)
ab5=Vert(ab3)
ab6=Diametrale(ab2)
ab7=Diametrale(ab3)
nu2(1)=ab5
nu2(2)=ab1:nu2(3)=ab2
nu2(4)=ab3:nu2(5)=ab4:nu2(6)=ab6:nu2(7)=ab7
cg=cg+1
ImpostaGiocata cg,nu2,ruote,poste,k
Gioca es
End If
Next:Next:Next:Next
Scrivi String(58,"=")&" script by ",1
ScriviResoconto
Scrivi "10 è la distanza giusta di c_baldazzi ",1
End Sub
Tecnica individuati le due distanze 10
1 Aprile distanza 10
abbiamo 89 e 9 ok:somma 8 o vertibile
89 fa somma 17 e mettete sotto 90quando avete solo l'unità dovete inserirlo sempre sotto la decina e leggete dall'alto verso il basso abbiamo ambate 8 o 80 con 19 o 11- 7 -70
1 aprile 89 79 di Cag ven somma 68 86 fate gli ambettiambata con 8più 9 fa 17 mettiamoli in colonna 17e 79 verrebbe 17 71 77 79 ......
-----------------------------------------------------------------------