Script x il Metodo somma 90 di pier

[parmando]

Se qualche scripter ha del tempo utile per poter fare lo script riferito a questo metodo sarebbe cosa gradita.

Ciao

Qui: http://forum.lottoced.com/f8/metodo-x-ambo-di-somma-90-a-94667/

 

[DjNomade]

Ciauz dovrebbe essere questo

Scrivi " Metodo dopo ambo di somma 90     by Pier58   ",1
Scrivi " Script                 29/05/2012 DjNomade ",1

Sub main()
Dim ru(2),ruo(1),nu2(3),nu(1)
Dim posta(1),poste(3)
posta(1)=1:poste(2)=1.5:poste(3)=.50:casi=0
rs=InputBox("quante estrazioni vuoi controllare? ","controllo estrazioni",20)
k=InputBox(" X quanti colpi di gioco? ","colpi di gioco",20)
ini=EstrazioneFin -rs
fin=EstrazioneFin
For es=ini To fin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
For p3=1 To 3
For p4=p3+1 To 4
For p5=p4+1 To 5
aaa=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)

aa=Estratto(es,r1,p3)
bb=Estratto(es,r1,p4)
cc=Estratto(es,r1,p5)
so=Fuori90(aaa+b)



c=Abs(aaa-b)'si sottrae il più piccolo dal più grande 78-12= 66 che sarà l'ambata principale

d=Fuori90(SommaEstratti(es,r1))'1° abbin
If so=90 And aaa<>aa And aaa<>bb And aaa<>cc And b<>aa And b<>bb And b<>cc Then

casi=casi+1:
Scrivi
Scrivi
Scrivi String(76,"="),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" "&stringaestratti(es,r1)&" ] [ "&format2(aaa)&"."&format2(b)&" ]",1
'--------------------------------
'piramide 1
ColoreTesto 2
Scrivi String (75,"*")
ColoreTesto 1
Scrivi String(30," ")& "<<< Piramide >>>"& String(15," "),1
ColoreTesto 2
Scrivi String(75,"*")
ColoreTesto 0

pir=aa&bb&cc ' Assegnamo a pir il numero
Piramidiza9 (pir) '<------------ richiamo la Funzione 
ColoreTesto  2
Scrivi "Risultato--------> "& pir,1
Scrivi "Somma estratti---> "& d,1
ColoreTesto 1

:Scrivi String(76,"-")
ru(1)=r1



nu2(1)=c:nu2(2)=d:nu2(3)=pir
ImpostaGiocata 1,nu2,ru,poste,k

Gioca es

End If
Next:Next:Next:Next:Next:Next:Next


Scrivi
Scrivi
Scrivi
Scrivi " Metodo dopo ambo di somma 90     by Pier58   ",1
Scrivi " Script                 29/05/2012 DjNomade ",1
ScriviResoconto 
End Sub 
'--------------------------------'
'Functio Aggiuntiva 
Dim  pir   
Function Piramidiza9 (piramide)
s=0
lun = Len(Pir)
Piramide=pir
Scrivi "Piramide a - 9" ' visuallizare a video la piramide
Scrivi Piramide,1  ' visuallizare a video la piramide
Do Until lun < 3
For i = 1 To Len(Piramide) - 1 
vt1 = CInt(Mid(Piramide, i, 1)) + CInt(Mid(Piramide, i + 1, 1))
If vt1 > 9 Then vt1 = vt1 - 9
vatmp = vatmp & vt1 
Next
Piramide = vatmp
s=s+1
Scrivi String (s," ") & piramide,1 ' visuallizare a video la piramide
lun = Len(vatmp)
vatmp = ""
Loop
pir=Fuori90 (piramide)
End Function

 

[Roby]

Perfetto, grazie mille della tua disponibilità.