Per salvo50 , una cortesia x uno script

[salvo50]

x salvo 50 cortesemente formula somma pentagono,grazie

Ciao Gabby, non conosco la formula somma pentagono, poi cosa devo sommare?

 

[gabby]

estratto 5 di roma +78

 

[Alien.]

Scusate come mai gli script non mi funzionano più,grazie.
Non danno nulla oppure un solo ambo-

 

[salvo50]

Per Gabby

Option Explicit
Sub Main
Dim A,Es,R1,Nu,Fin,Num
Es = EstrazioneFin
R1 = RO_
Nu = 18
A = Estratto(Es,R1,5)
Num = Fuori90(A + Nu)
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
Scrivi
Scrivi "Quinto estratto di " & NomeRuota (R1)& " " & Format2(A) & " + " & Format2(Nu) & " = " & Format2(Num),1
End Sub

 

[gabby]

grazie

 

[gabby]

per salvo 50 (cortesemente si puo' avere uno script per incroci pericolosi(di donatella) grazie

 

[gabby]

cerco script metodo incroci pericolosi by donatella list by marco (chi me lo posta grazie)

 

[sax71]

cerco script metodo incroci pericolosi by donatella list by marco (chi me lo posta grazie)

Sub Main() ColoreTesto 2
Scrivi
Scrivi "METODO INCROCI PERICOLOSI by DONATELLA",1
Scrivi
Scrivi
Scrivi " LIST BY Marco",1
Scrivi
ColoreTesto 0
Dim ruota(12)
Dim ruote(12)
Dim ruotee(12)
Dim t1(2): Dim t2(5) : Dim t3(5) : Dim t4(5): Dim poste(4): Dim posta(1): Dim postee(4)
poste(2) = 1
poste(3) = 1
poste(4) = 1
postee(4) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",100)
klp= InputBox("per quanti colpi?","colpi di gioco",15)
ini = EstrazioneFin - ce
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
a = Estratto(es,4,1)
b = Estratto(es,5,2)
ruota(1) = 4
ruota(2) = 5
ruota(3) = 1
ruote(1) = 11
ruote(2) = 12
casi = casi + 1
co = co + 1
ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile - metodo - incroci pericolosi"
ColoreTesto 7:Scrivi String(100,"°")
ColoreTesto 0
t1(1) = Abs(a - b)
t1(2) = Fuori90(a + b)
ImpostaGiocata 1,t1,ruota,posta,klp
t1(1) = Abs(a - b)
t1(2) = Fuori90(a + b)
ImpostaGiocata 2,t1,ruote,poste,klp
t2(1) = Abs(a - b)
t2(2) = a
t2(3) = b
t2(4) = Fuori90(b + 6)
t2(5) = Fuori90(a + b)
ImpostaGiocata 3,t2,ruota,poste,klp
t2(1) = Abs(a - b)
t2(2) = a
t2(3) = b
t2(4) = Fuori90(b + 6)
t2(5) = Fuori90(a + b)
ImpostaGiocata 4,t2,ruota,poste,klp
t3(1) = Abs(a - b)
t3(2) = Vert(Abs(a - b))
t3(3) = a
t3(4) = Vert(a)
t3(5) = b
ImpostaGiocata 5,t3,ruote,postee,klp
t3(1) = Abs(a - b)
t3(2) = Vert(Abs(a - b))
t3(3) = a
t3(4) = Vert(a)
t3(5) = b
ImpostaGiocata 6,t3,ruote,postee,klp
t4(1) = Abs(a - b)
t4(2) = Fuori90(a + b)
t4(3) = Fuori90((t4(1)) + 1)
t4(4) = Fuori90((t4(1)) * 2)
t4(5) = Vert(a)
ImpostaGiocata 7,t4,ruota,poste,klp
t4(1) = Abs(a - b)
t4(2) = Fuori90(a + b)
t4(3) = Fuori90((t4(1)) + 1)
t4(4) = Fuori90((t4(1)) * 2)
t4(5) = Vert(a)
ImpostaGiocata 8,t4,ruote,postee,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

 

[gabby]

grazie