B
Baffoblu
Guest
Il primo script prendeva in considerazione solo i laterali a sinistra, come preferenza dell'autore.
Ecco invece lo script per prendere in considerazione "SOLO" i laterali a destra.
Codice:
Sub Main()
Dim idEstr
Dim Inizio
Dim Fine
Dim ruota(11)
Dim ruote(11)
Dim posta(10)
Dim poste(10)
Dim r
Dim p
Dim p1
Dim nAnalisi
Dim nColpiDiGioco
Dim n(1)
Dim am(4)
posta(1) = 1
poste(2) = 1
r = CInt(InputBox(" Scegli la ruota ",,"1"))
p = CInt(InputBox(" Scegli la posizione ",,"1"))
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
ruota(1) = r
a1 = Estratto(idEstr - 1,r,p)
b1 = Estratto(idEstr,r,p)
If a1 = b1 Then
ok = 0
If p = 1 Then
a2 = Estratto(idEstr - 1,r,2)
b2 = Estratto(idEstr,r,2)
p1 = 2
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
If a5 <> b5 Then
ok = 1
End If
End If
End If
If p = 2 Then
a2 = Estratto(idEstr - 1,r,3)
b2 = Estratto(idEstr,r,3)
p1 = 3
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
If a5 <> b5 Then
ok = 1
End If
End If
End If
If p = 3 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
If a5 <> b5 Then
End If
End If
End If
If p = 4 Then
a2 = Estratto(idEstr - 1,r,5)
b2 = Estratto(idEstr,r,5)
p1 = 5
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
If a5 <> b5 Then
ok = 1
End If
End If
End If
If p = 5 Then
a2 = Estratto(idEstr - 1,r,4)
b2 = Estratto(idEstr,r,4)
p1 = 4
If pari(a2) And pari(b2) Or dispari(a2) And dispari(b2) Then
a3 = a1 + a2
b3 = b1 + b2
a4 = Distanza(a1,a2)
b4 = Distanza(b1,b2)
a5 = a3 + b4
b5 = b3 + a4
If a5 <> b5 Then
ok = 1
End If
End If
End If
If ok = 1 Then
k1 = a5 / 2
k2 = a3 - k1
k3 = b5 / 2
k4 = b3 - k3
n(1) = k1
am(1) = k1
am(2) = k2
am(3) = k3
am(4) = k4
EliminaRipetuti am
ruota(1) = r
ruote(1) = r
ruote(2) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr - 1) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr - 1,r),1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
ColoreTesto 1
Scrivi "Numeri ripetuti Isotopi in 2 estrazioni consecutive : " & Format2(a1) & " e " & Format2(b1) & " in " & p & "° pos.",1
Scrivi "Laterali : " & Format2(a2) & " e " & Format2(b2) & " in " & p1 & "° pos.",1
Scrivi "1° Ambo di somma : " & a3 & " e di Distanza : " & a4,1
Scrivi "2° Ambo di somma : " & b3 & " e di Distanza : " & b4,1
Scrivi "1° Ambo : " & k1 & " - " & k2,1
Scrivi "2° Ambo : " & k3 & " - " & k4,1
ColoreTesto 2
Scrivi "Ho preferito la messa in gioco della quartina ricavata, per ovvi motivi.",1
Scrivi "Quando nella quartina vi è un Num. ripetuto, diventa una terzina.",1
ColoreTesto 0
Scrivi String(80,"="),1
ImpostaGiocata 1,n,ruota,posta,nColpiDiGioco,1
ImpostaGiocata 2,am,ruote,poste,nColpiDiGioco,2
Gioca idEstr,1
End If
End If
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End Sub
