CIAO SOLEDAD, OGGI SONO STATO TUTTO IL GIORNO A CASA A CAUSA DEL CALDO TORRIDO CHE FA IN SICILIA, E MI SONO CIMENTATO NELLO SVILUPPO DELLO SCRIPT (ANCHE SE HO POCHE CONOSCENZE DEL LINGUAGGIO) MA ALLA FINE ANCHE SE LA TESTA MI STA SCOPPIANDO CREDO DI ESSERCI RIUSCITO. TI PREGO DI CONTROLLARLO PER VERIFICARE SE TUTTO E' A POSTO.
Sub Main() ColoreTesto 1
Scrivi " METODO SOLEDAD 1 AMBATA SU VENEZIA ALLA 1° ESTRAZIONE MENSILE",1
Scrivi " PROCEDIMENTO: 5° DI NAZIONALE + 81 + 5 + VERTIBILE",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata1(1): Dim ambo1(2) : Dim ambo2(2) : Dim poste(2) : Dim postee(3)
poste(1) = 1
postee(2) = 2
ruote(1) = 10
klp = 12
ini = 8841
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata1(1) = Fuori90(Estratto(es,12,5) + 81)
ImpostaGiocata 1,ambata1,ruote,poste,klp,10
ambata1(1) = Fuori90(Estratto(es,12,5) + 81 + 5)
ambata1(1) = Vert(ambata1(1))
ImpostaGiocata 2,ambata1,ruote,poste,klp,10
ambo1(1) = Fuori90(Estratto(es,12,5) + 81)
ambo1(2) = (ambata1(1))
ImpostaGiocata 3,ambo1,ruote,postee,klp,10
ambo2(1) = Fuori90(Estratto(es,12,5) + 81)
ambo2(2) = Fuori90(Estratto(es,12,5) + 81 + 5)
ImpostaGiocata 4,ambo2,ruote,postee,klp,10
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub