Richiesta Script

[salvo14]

Buongiorno, gentilmente è possibile costruire il seguente script?

IL METODO CONSISTE IN UN AMBATA E 3 AMBI SECCHI DA GIOCARE SU PALERMO X 9 COLPI...
1A ESTRAZIONE DEL MESE
Ambata: 5° di Ba + 12
Numeri fissi da abbinare per ambo: 67-17-82

Grazie di cuore.

 

[rudivall]

Ciao Salvo14 buona serata, vedi se va bene, questo tipo di script puoi provare anche da solo ad adattarlo a molte altre condizioni sommative...
Sub Main()
Dim Ambata(1)
Dim Ambo1(2)
Dim Ambo2(2)
Dim Ambo3(2)
Dim ru(1)
Dim ruote(1)
Dim po(1)
Dim pos(2)
po(1) = 1
pos(2) = 1
'<---------------Ruote di gioco e ci metti quelle che vuoi
ru(1) = 7
'<---------------Ruote di rilevamento e ci metti quelle che vuoi
r1 = 1
For es = 9800 To EstrazioneFin
If IndiceMensile(es) = 1 Then
a = Estratto(es,r1,5)
c1 = Fuori90(a + 12)
Ambata(1) = c1
Ambo1(1) = c1
Ambo1(2) = 67
Ambo2(1) = c1
Ambo2(2) = 17
Ambo3(1) = c1
Ambo3(2) = 82
ColoreTesto 1
Scrivi "Richiesta Salvo14 - prima estrazione del mese il 5 estratto di Bari + il fisso 12 abbinamenti all'ambata i fissi 67 17 82"
ColoreTesto 0
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " *** " &(a),1
ImpostaGiocata 1,Ambata,ru,po,9,1
ImpostaGiocata 2,Ambo1,ru,pos,9,2
ImpostaGiocata 3,Ambo2,ru,pos,9,2
ImpostaGiocata 4,Ambo3,ru,pos,9,2
Gioca es,1
Scrivi
End If
Next
ScriviResoconto
End Sub
QUESTA E' LA PREVISIONE IN CORSO QUESTO MESE...

 

[salvo14]

Ciao rudivall, lo script funziona benissimo, sei stato gentilissimo Grazie e buona serata.