R
Roby
Guest
Ciao Margot, prova questo
Codice:
Sub Main()
Scrivi String(67,"="),1
Scrivi " METODO POSTATO DA BLADY ",1
Dim nn(2),nu(5)
Dim ruota(2)
Dim posta(1),poste(2)
k = 9
posta(1) = 1
poste(2) = 1
ruota(1) = BA_
ruota(2) = CA_
ini = EstrazioneIni + 4633
fin = EstrazioneFin
For es = ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
a = Fuori90(Estratto(es,BA_,1) + Estratto(es,CA_,1)) ' sommare il Primo di ba con Primo di ca (eventuale fuori 90) elemento A
b = Fuori90(Estratto(es,BA_,5) + Estratto(es,CA_,5)) ' sommare il quinto di ba con quinto di ca (eventuale fuori 90) elemento B
c = Fuori90(a - b) ' fare differenza tra A e B elemento C
x = Fuori90(c - 2) ' detrarre due unità da C (prima ambata)
d = Fuori90(x + 1) ' aggiungere una unità a C elemento D
y = DiametraleD(d) ' ricavare il diametrale in decina (seconda ambata)
e = Fuori90(d + 10) ' abbinamenti: D+10
f = Fuori90(d + 20) ' abbinamenti: D+20
casi = casi + 1
Scrivi String(67,"=") & " caso n° " &(casi)
nn(1) = x ' (prima ambata)
nn(2) = y ' (seconda ambata)
EliminaRipetuti nn
ImpostaGiocata 1,nn,ruota,posta,k,1
nu(1) = x ' (prima ambata)
nu(2) = y ' (seconda ambata)
nu(3) = d ' elemento D
nu(4) = e ' abbinamenti: D+10
nu(5) = f ' abbinamenti: D+20
EliminaRipetuti nu
ImpostaGiocata 2,nu,ruota,poste,k,2
Gioca es,True,,1
Next
ScriviResoconto
End Sub