Aiuto per Script

[salvo14]

OGNI QUALVOLTA IL 1° ESTRATTO DI BARI LA FIGURA E' 6 ALLORA LO SCRIPT DEVE SVILUPPARE 5 QUATERNE CLP 15

AL PRIMO DI BARI SOMMARE I SEGUENTI NUMERI PER FORMARE 5 QUATERNE



1Q 7 40 57 68

2Q 39 60 71 79

3Q 24 50 51 57

4Q 14 45 56 83

5Q 24 30 39 84



IL GIOCO SI SVOLGE NELLA STESSA ESTRAZIONE DI BARI.

N.B LA SOMMA DI OGNI SINGOLO NUMERO SI SOMMA AL PRIMO ESTRATTO DI BARI CHE HA DATO LA FIGURA 6 E NON ALLA SUA FIGURA.

Lo Script funziona, solo che calcola la previsione ad ogni estrazione e non quando cè la condizione della figura 6.




Sub Main()
ColoreTesto 1
Dim poste(1)
Dim ruota(1)
Dim a1(4)
poste(1) = 1
clp = 15
ini = EstrazioneFin - 150
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
Scrivi
ColoreTesto 0 :Scrivi " FARE LA FIGURA DEL PRIMO ESTRATTO DI BARI CHE DEVE ESSERE 6 CLP 15 ",1,1,1,4,4,"verdana",1
Scrivi
If Figura(Estratto(Estrazione,BA_,1)) = 6 Then
End If

a1(1) = Fuori90(Estratto(es,1,1) + 7)
a1(2) = Fuori90(Estratto(es,1,1) + 40)
a1(3) = Fuori90(Estratto(es,1,1) + 57)
a1(4) = Fuori90(Estratto(es,1,1) + 68)
ImpostaGiocata 1,a1,ruota,poste,clp

a1(1) = Fuori90(Estratto(es,1,1) + 39)
a1(2) = Fuori90(Estratto(es,1,1) + 60)
a1(3) = Fuori90(Estratto(es,1,1) + 71)
a1(4) = Fuori90(Estratto(es,1,1) + 79)
ImpostaGiocata 2,a1,ruota,poste,clp

a1(1) = Fuori90(Estratto(es,1,1) + 24)
a1(2) = Fuori90(Estratto(es,1,1) + 50)
a1(3) = Fuori90(Estratto(es,1,1) + 51)
a1(4) = Fuori90(Estratto(es,1,1) + 57)
ImpostaGiocata 3,a1,ruota,poste,clp

a1(1) = Fuori90(Estratto(es,1,1) + 14)
a1(2) = Fuori90(Estratto(es,1,1) + 45)
a1(3) = Fuori90(Estratto(es,1,1) + 56)
a1(4) = Fuori90(Estratto(es,1,1) + 83)
ImpostaGiocata 4,a1,ruota,poste,clp

a1(1) = Fuori90(Estratto(es,1,1) + 24)
a1(2) = Fuori90(Estratto(es,1,1) + 30)
a1(3) = Fuori90(Estratto(es,1,1) + 39)
a1(4) = Fuori90(Estratto(es,1,1) + 84)
ImpostaGiocata 5,a1,ruota,poste,clp


ruota(1) = 1

Gioca es,1

Next

ScriviResoconto
End Sub

 

[Pomito]

Salvo 14 vedi se va bene
Sub Main()
ColoreTesto 1
Scrivi:Scrivi " (Figura 6 su BA in 1° pos.) - - -> By Pomito "
Scrivi " Metodo di Fidelio"
ColoreTesto 1
Dim ruota(3),posta(5),poste(5),quaterna(4),quaterna1(4),quaterna2(4),quaterna3(4),quaterna4(4)
Dim quaterna5(4),quaterna6(4)
'Dim ambo2(2)
posta(1) = 1oste(2) = 1: poste(3) = 1oste(4) = 1
k = 13
ce = 300
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To fin:Messaggio es
r1 = BA_
For p = 1 To 1
a = Estratto(es,r1,p)
If Figura(a) = 6 Then
casi = casi + 1:Scrivi String(65,"o"),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] " & Format2(a) & " " &(p) & "^ pos."
Scrivi String(52,"-") & " caso n° " &(casi)
ruota(1) = r1
quaterna(1) = Fuori90(Estratto(es,BA_,1) + 7)
quaterna(2) = Fuori90(Estratto(es,BA_,1) + 40)
quaterna(3) = Fuori90(Estratto(es,BA_,1) + 57)
quaterna(4) = Fuori90(Estratto(es,BA_,1) + 68)
ImpostaGiocata 1,quaterna,ruota,poste,k,4
quaterna1(1) = Fuori90(Estratto(es,BA_,1) + 39)
quaterna1(2) = Fuori90(Estratto(es,BA_,1) + 60)
quaterna1(3) = Fuori90(Estratto(es,BA_,1) + 71)
quaterna1(4) = Fuori90(Estratto(es,BA_,1) + 79)
ImpostaGiocata 2,quaterna1,ruota,poste,k,4
quaterna2(1) = Fuori90(Estratto(es,BA_,1) + 24)
quaterna2(2) = Fuori90(Estratto(es,BA_,1) + 50)
quaterna2(3) = Fuori90(Estratto(es,BA_,1) + 51)
quaterna2(4) = Fuori90(Estratto(es,BA_,1) + 57)
ImpostaGiocata 3,quaterna2,ruota,poste,k,4
quaterna3(1) = Fuori90(Estratto(es,BA_,1) + 14)
quaterna3(2) = Fuori90(Estratto(es,BA_,1) + 45)
quaterna3(3) = Fuori90(Estratto(es,BA_,1) + 56)
quaterna3(4) = Fuori90(Estratto(es,BA_,1) + 83)
ImpostaGiocata 4,quaterna3,ruota,poste,k,4
quaterna4(1) = Fuori90(Estratto(es,BA_,1) + 24)
quaterna4(2) = Fuori90(Estratto(es,BA_,1) + 30)
quaterna4(3) = Fuori90(Estratto(es,BA_,1) + 39)
quaterna4(4) = Fuori90(Estratto(es,BA_,1) + 84)
ImpostaGiocata 5,quaterna4,ruota,poste,k,4
Gioca es,1
End If
Next:Next':Next
ScriviResoconto
End Sub

 

[salvo14]

Bravissimooo funziona alla perfezione. Grazie di cuore, ti auguro una serena giornata. Ciao