Per salvo50 o altri esperti script ricerca 2 numeri in terza posiz

[Matematico]

Ciao salvo50 , un saluto a tutti , avrei bisogno di uno script x la ricerca 2 numeri in terza posiz su 2 ruote con imput box inserimento a mia scelta di numeri e ruote.
ESEMPIO: 30/10/2025
BA-12 terzo estratto
CA-24 terzo estratto

Calcolo ambate 12 fig.3 e 24 fig 6 = unire 36 più vertibile 63
per ambo : decina 1 di BA unita a unità 4 di CA = 14 VERT. 41
decina 2 di CA unita a unità 2 di BA= 22 VERT. 29

Unire in lunghetta x t/q : 36-63-41-14-22-29
6 colpo 36 ambata
7 colpo uscirono 41-29-14 su CA

 

[Pandit]

Tieni presente che come scripter sono una pippa, quindi.... Me l'ha passato Toon..
Migliorabile, spero che come inizio possa andare bene..

Anticipazione (Spoiler)

'Terza cifra Figurale for Matematico
Sub Main()
Dim n(2),nu(6),ru(12),ps(10),pt(5),Toon
Dim rt(12),c,d,e,f,g,h,z,z1,z2,z3,x,ex,k
ps(1) = 1
'pt(2) = 1
pt(3) = 1
pt(4) = 0.5
'pt(5) = 0.2
k = 10
x = CInt(InputBox("Scegli la Prima Ruota",Toon,1))
ex = CInt(InputBox("Quante Estrazioni Controllo?",Toon,18))
For es = EstrazioneFin - ex To EstrazioneFin
r = x
r1 = r + 1
If r1 = 11 Then r1 = 12
a = Estratto(es,r,3)
b = Estratto(es,r1,3)
z = Figura(a)
z1 = Figura(b)
z2 = Fuori90((Decina(a)) &(Cadenza(b)))
z3 = Fuori90((Decina(b)) &(Cadenza(a)))
c = Fuori90(z & z1)
d = Fuori90(Vert(c))
e = z2
f = Vert(z2)
g = z3
h = Vert(z3)
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " - " & SiglaRuota(r) & " -> " & CInt(a) & " Figura " & CInt(z),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " - " & SiglaRuota(r1) & " -> " & CInt(b) & " Figura " & CInt(z1),1
Scrivi CInt(z) & "." & CInt(z1) & " = " & CInt(c) & " Vertibile " & CInt(d),1
ColoreTesto 1:Scrivi String(45,152)
ru(1) = r : ru(2) = r1
rt(1) = r : rt(2) = r1:rt(3) = 11
n(1) = c
n(2) = d
ImpostaGiocata 1,n,ru,ps,k
nu(1) = c
nu(2) = d
nu(3) = e
nu(4) = f
nu(5) = g
nu(6) = h
EliminaRipetuti nu
ImpostaGiocata 2,nu,rt,pt,k
Gioca es,1
Next
ScriviResoconto
End Sub

 

[Matematico]

Tieni presente che come scripter sono una pippa, quindi.... Me l'ha passato Toon..
Migliorabile, spero che come inizio possa andare bene..

Anticipazione (Spoiler)

'Terza cifra Figurale for Matematico
Sub Main()
Dim n(2),nu(6),ru(12),ps(10),pt(5),Toon
Dim c,d,e,f,g,h,z,z1,z2,z3,x,ex,k
ps(1) = 1
pt(2) = 1
pt(3) = 0.5
pt(4) = 0.2
'pt(5) = 0.2
k = 10
x = CInt(InputBox("Scegli la Prima Ruota",Toon,1))
ex = CInt(InputBox("Quante Estrazioni Controllo?",Toon,18))
For es = EstrazioneFin - ex To EstrazioneFin
r = x
r1 = r + 1
If r1 = 11 Then r1 = 12
a = Estratto(es,r,3)
b = Estratto(es,r1,3)
z = Figura(a)
z1 = Figura(b)
z2 = Fuori90((Decina(a)) &(Cadenza(b)))
z3 = Fuori90((Decina(b)) &(Cadenza(a)))
c = Fuori90(z & z1)
d = Fuori90(Vert(c))
e = z2
f = Vert(z2)
g = z3
h = Vert(z3)
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " - " & SiglaRuota(r) & " -> " & CInt(a) & " Figura " & CInt(z),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " - " & SiglaRuota(r1) & " -> " & CInt(b) & " Figura " & CInt(z1),1
Scrivi CInt(z) & "." & CInt(z1) & " = " & CInt(c) & " Vertibile " & CInt(d),1
ColoreTesto 1:Scrivi String(45,152)
ru(1) = r : ru(2) = r1
n(1) = c
n(2) = d
ImpostaGiocata 1,n,ru,ps,k
nu(1) = c
nu(2) = d
nu(3) = e
nu(4) = f
nu(5) = g
nu(6) = h
EliminaRipetuti nu
ImpostaGiocata 2,nu,ru,pt,k
Gioca es,1
Next
ScriviResoconto
End Sub

Grazie 1000 Pandit , lo provo subito

 

[Pandit]

Guarda che ho fatto qualche piccola modifica, riscaricalo e provalo..