script per Donatella

[Alien.]

CIAO per chi può

D

Discussione 'Nuovo metodo..PApaVE.RO : 1 ambata - 1 ambo secco - 2 terni secchi ( o 1 quaterna)'

15 Gennaio 2025

Alla prima estrazione sulla ruota di Torino andremo a calcolare un pronostico che porrà in gioco :
1 ambata sulla ruota di Palermo
1 ambo secco
2 ambi.terni secchi
Calcolo del pronostico : 1à estrazione del mese > ruota di Torino
Ambata : rigiocare il 03° estratto della ruota di Torino
Ambo secco : sommare il fisso 47 all'ambata - abbinare all'ambata il vertibile del risultato della somma precedente
Giocare a : Tutte ( escluso la Nazionale)
Ambi.terni : abbinare all'ambo secco
a) il risultato derivante dalla somma del + 10...

• donatella
• Risposte: 13
• Forum: METODI

• 

 

[Pomito]

Alien spero che lo script va bene
Scrivi
Scrivi " Metodo PApaVE.RO (donatella)",1
Scrivi
Sub Main()
Dim ruota(10),ruote(3),ru(10),ruo(10)
Dim n1(10),terno(3),n(2),terno1(3)
Dim n2(10)
Dim poste(5),postee(3)
Dim posta(5)
casi = 0
ruota(1) = BA_
ruota(2) = FI_
ruota(3) = NA_
ruota(4) = PA_
ruota(5) = TT_
ruote(1) = PA_
ru(1) = TT_
ruo(1) = BA_
ruo(2) = FI_
ruo(3) = NA_
ruo(4) = PA_
ruo(5) = VE_
ruo(6) = TT_
poste(1) = 1
posta(2) = 1
postee(2) = 1
postee(3) = 1
k = 18
y = 3
ini = EstrazioneFin - 350
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then
a =(Estratto(es,TO_,3))
b = Fuori90((a) + 47)
c = Vert(b)
n(1) = a
ImpostaGiocata 1,n,ruote,poste,k,y
n1(1) = a
n1(2) = c
ImpostaGiocata 2,n1,ru,posta,k,y
terno1(1) = a
terno1(2) = c
terno1(3) = Fuori90(c + 10)
ImpostaGiocata 3,terno1,ruota,posta,k,y
terno(1) = a
terno(2) = c
terno(3) = Fuori90(90 +(c - 20))
ImpostaGiocata 4,terno,ruota,postee,k,y
n2(1) = a
n2(2) = c
n2(3) = Fuori90(c + 10)
n2(4) = Fuori90(90 +(c - 20))
ImpostaGiocata 5,n2,ruo,posta,k,y
Gioca es,1
casi = casi + 1
End If
Next
Scrivi
Scrivi "Numero Totale casi analizzati: " & CInt(casi)
ScriviResoconto
End Sub