Ciauz
- Codice: Seleziona tutto
'http://www.lottopassion.it/forum/viewtopic.php?f=10&t=4419
'23/11/2019
ColoreTesto 2 :Scrivi String(37,32)&"AMBI ISOTOPI DISTANZA 30 ,1
Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
Sub Main()
Dim am1(10)
Dim am2(10)
Dim m(10)
Dim ambo(2)
Dim cou1(6),cou2(6)
Dim ruote(10),ruota(1),ruota1(1)
Dim poste(5),poste1(5),poste2(4),poste3(5)
poste(1) = 1
poste1(2) = 1
poste2(2) = 1
poste2(3) = 1
poste3(2) = 1
poste3(3) = 1
poste3(4) = .50
poste3(5) = .50
rs = InputBox("Quante estrazioni vuoi controllare?",,50)
fin = EstrazioneFin
ini = fin - rs
k=12 'colpi di gioco
For es = ini To fin
co = 0
Messaggio DataEstrazione(es)
For r = 1 To 12
If r=11 Then r=12
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(es,r,i)
b = Estratto(es,r,j)
c = Distanza(a,b)
For r2 = r+1 To 12
If r2=11 Then r2=12
aa = Estratto(es,r2,i)
bb = Estratto(es,r2,j)
cc = Distanza(aa,bb)
If c = cc And cc = 30 Then
nw1 = Fuori90(a + aa)
nw11 = Fuori90(a + aa+30)
nw111 = Fuori90(a + aa+60)
nw2 = DiametraleD(Fuori90(a + aa))
nw22 = DiametraleD(Fuori90(a + aa+30))
nw222 = DiametraleD(Fuori90(a + aa+60))
ColoreTesto 2 : Scrivi "=============================================================================",1
ColoreTesto 1 : Scrivi " < ambo isotopo - stessa Distanza 30 >",1
ColoreTesto 0
Scrivi "-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r) & "..." & StringaEstratti(es,r) & "..." & SiglaRuota(r) & "..." & CInt(a) & " e " & CInt(b) & " = Dist " & CInt(c) & " Terzo elem.Simm. " & CInt(nw1),1
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r2) & "..." & StringaEstratti(es,r2) & "..." & SiglaRuota(r2) & "..." & CInt(aa) & " e " & CInt(bb) & " = Dist " & CInt(cc) & " Terzo elem.Simm. " & CInt(nw2),1
ruote(1) = r
ruote(2) = r2
ruote(3) = 11
ruote(4) = 12
Messaggio " elaboro " & es
: co = 0
Scrivi String(85,"-") & Chr(10)
cou1(1) =nw1
cou1(2) = nw11
cou1(3) = nw111
ImpostaGiocata 1,cou1,ruote,poste2,k
cou1(1) =nw2
cou1(2) = nw22
cou1(3) = nw222
ImpostaGiocata 2,cou1,ruote,poste2,k
cou2(1) =nw1
cou2(2) = nw11
cou2(3) = nw111
cou2(4) =nw2
cou2(5) = nw22
cou2(6) = nw222
ImpostaGiocata 3,cou2,ruote,poste3,k
Gioca es
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub