Richiesta script

[pieroPalermo]

Salve, chiedo cortesemente agli esperti se possono fare uno script ed una statistica di questo ITER OPERATIVO:
Alla quarta estrazione del mese su Cagliari si dovrà sommare al 1° estratto il fisso 4. Del numero ottenuto si ricaverà il diametrale in decina, questo ed il suo vertivile, saranno le due ambate da porre in gioco sulla ruota di Palermo.
poi se avete degli abbinamenti ancora meglio.
Grazie a tutti

 

[Thauk]

Controlla se va bene.

Sub Main()
Dim rt(1),pte(5),am(2)

ini=EstrazioneFin-100
fin=EstrazioneFin

For es=ini To fin
If IndiceMensile(es)=4 Then
Messaggio es

rt(1)=7 : pte(1)=1 : clp=12

am(1)=DiametraleD(Fuori90(Estratto(es,2,1)+4))
am(2)=Vert(am(1))
ImpostaGiocata 1,am,rt,pte,clp,1

Scrivi String(70,"="),1 : Scrivi
Gioca es
End If
Next
ScriviResoconto
End Sub

 

[pieroPalermo]

richiesta script

richiesta script

Grazie thauk, stasera lo proverò. grazie