Script Superenalotto da adattare.......

[Roby]

Salve a tutti, vorrei che qualcuno adattasse questo script per il programma di SPAZIOMETRIA. grazie a tutti.


Dim numeri(6)
Dim Num(6)
Dim q
q = 6
Sub main()
For n = 7088 To EstrazioneFin
If IndiceMensile = 1 Then
Ba_1 = Fuori90(Estratto(n,1,1))
Fi_4 = Fuori90(Estratto(n,3,4))
Fi_5 = Fuori90(Estratto(n,3,5))
Pa_1 = Fuori90(Estratto(n,7,1))
Pa_2 = Fuori90(Estratto(n,7,2))
Pa_3 = Fuori90(Estratto(n,7,3))
Na_1 = Fuori90(Estratto(n,6,1))
Na_2 = Fuori90(Estratto(n,6,2))
Na_3 = Fuori90(Estratto(n,6,3))
Na_4 = Fuori90(Estratto(n,6,4))
Na_5 = Fuori90(Estratto(n,6,5))
Ro_1 = Fuori90(Estratto(n,8,1))
Ro_4 = Fuori90(Estratto(n,8,4))
Ro_5 = Fuori90(Estratto(n,8,5))
Ve_1 = Fuori90(Estratto(n,10,1))
Ve_5 = Fuori90(Estratto(n,10,5))
En_1 = EstrattoSuper(n,1,1)
En_3 = EstrattoSuper(n,3,1)
En_6 = EstrattoSuper(n,6,1)
Ses_1_1 = Fuori90(Ba_1 + 2)
Ses_1_2 = Fuori90(Pa_1*53)
Ses_1_3 = Fuori90(Ro_4 + 52)
Ses_1_4 = 87
Ses_1_5 = 39
Ses_1_6 = Fuori90((En_6*32) + 8)
If Ses_1_1 = Ses_1_2 Or Ses_1_1 = Ses_1_3 Or Ses_1_1 = Ses_1_4 Or Ses_1_1 = Ses_1_5 Or Ses_1_1 = Ses_1_6 Then
Ses_1_1 = Fuori90(Ses_1_1 + 45)
End If
If Ses_1_2 = Ses_1_3 Or Ses_1_2 = Ses_1_4 Or Ses_1_2 = Ses_1_5 Or Ses_1_2 = Ses_1_6 Then
Ses_1_2 = Fuori90(Ses_1_2 + 45)
End If
If Ses_1_3 = Ses_1_4 Or Ses_1_3 = Ses_1_5 Or Ses_1_3 = Ses_1_6 Then
Ses_1_3 = Fuori90(Ses_1_3 + 45)
End If
If Ses_1_4 = Ses_1_5 Or Ses_1_4 = Ses_1_6 Then
Ses_1_4 = Fuori90(Ses_1_4 + 45)
End If
If Ses_1_5 = Ses_1_6 Then
Ses_1_5 = Fuori90(Ses_1_5 + 45)
End If
ColoreTesto 0
'Scrivi " "
Scrivi "************************************************************************"
Scrivi DataEstrazione & " *** Prima Sestina ***" & Space(2) & FormatSpace(Ses_1_1,2) & Space(2) & FormatSpace(Ses_1_2,2) & Space(2) & FormatSpace(Ses_1_3,2) & Space(2) & FormatSpace(Ses_1_4,2) & Space(2) & FormatSpace(Ses_1_5,2) & Space(2) & FormatSpace(Ses_1_6,2)
Ses_2_1 = Fuori90((En_1*Ve_5) + Ba_1 + 15)
Ses_2_2 = Fuori90((En_3*32) + Ba_1 + 15)
Ses_2_3 = Fuori90((Ve_1*8))
Ses_2_4 = Fuori90((Na_1 + 8)*7)
Ses_2_5 = Fuori90((Na_5*53))
Ses_2_6 = Fuori90((Pa_2*89))
If Ses_2_1 = Ses_2_2 Or Ses_2_1 = Ses_2_3 Or Ses_2_1 = Ses_2_4 Or Ses_2_1 = Ses_2_5 Or Ses_2_1 = Ses_2_6 Then
Ses_2_1 = Fuori90(Ses_2_1 + 45)
End If
If Ses_2_2 = Ses_2_3 Or Ses_2_2 = Ses_2_4 Or Ses_2_2 = Ses_2_5 Or Ses_2_2 = Ses_2_6 Then
Ses_2_2 = Fuori90(Ses_2_2 + 45)
End If
If Ses_2_3 = Ses_2_4 Or Ses_2_3 = Ses_2_5 Or Ses_2_3 = Ses_2_6 Then
Ses_2_3 = Fuori90(Ses_2_3 + 45)
End If
If Ses_2_4 = Ses_2_5 Or Ses_2_4 = Ses_2_6 Then
Ses_2_4 = Fuori90(Ses_2_4 + 45)
End If
If Ses_2_5 = Ses_2_6 Then
Ses_2_5 = Fuori90(Ses_2_5 + 45)
End If
ColoreTesto 0
Scrivi DataEstrazione & " *** Seconda Sestina ***" & Space(2) & FormatSpace(Ses_2_1,2) & Space(2) & FormatSpace(Ses_2_2,2) & Space(2) & FormatSpace(Ses_2_3,2) & Space(2) & FormatSpace(Ses_2_4,2) & Space(2) & FormatSpace(Ses_2_5,2) & Space(2) & FormatSpace(Ses_2_6,2)
Ses_3_1 = Fuori90((Ro_1 + Ve_5 + 90) - Fi_5)
Ses_3_2 = Fuori90(Pa_3*19)
Ses_3_3 = Fuori90(Pa_2*19)
Ses_3_4 = Fuori90((bb*7) + Fi_4)
Ses_3_5 = Fuori90((Na_5 + Ro_5)*7)
Ses_3_6 = Fuori90((En_1*3) + Ba_1 + 25)
If Ses_3_1 = Ses_3_2 Or Ses_3_1 = Ses_3_3 Or Ses_3_1 = Ses_3_4 Or Ses_3_1 = Ses_3_5 Or Ses_3_1 = Ses_3_6 Then
Ses_3_1 = Fuori90(Ses_3_1 + 45)
End If
If Ses_3_2 = Ses_3_3 Or Ses_3_2 = Ses_3_4 Or Ses_3_2 = Ses_3_5 Or Ses_3_2 = Ses_3_6 Then
Ses_3_2 = Fuori90(Ses_3_2 + 45)
End If
If Ses_3_3 = Ses_3_4 Or Ses_3_3 = Ses_3_5 Or Ses_3_3 = Ses_3_6 Then
Ses_3_3 = Fuori90(Ses_3_3 + 45)
End If
If Ses_3_4 = Ses_3_5 Or Ses_3_4 = Ses_3_6 Then
Ses_3_4 = Fuori90(Ses_3_4 + 45)
End If
If Ses_3_5 = Ses_3_6 Then
Ses_3_5 = Fuori90(Ses_3_5 + 45)
End If
ColoreTesto 0
Scrivi DataEstrazione & " *** Terza Sestina ***" & Space(2) & FormatSpace(Ses_3_1,2) & Space(2) & FormatSpace(Ses_3_2,2) & Space(2) & FormatSpace(Ses_3_3,2) & Space(2) & FormatSpace(Ses_3_4,2) & Space(2) & FormatSpace(Ses_3_5,2) & Space(2) & FormatSpace(Ses_3_6,2)
Ses_4_1 = Fuori90((Pa_1 + 79))
Ses_4_2 = Fuori90((Na_2 + 4

 

[LuigiB]

Attualmente le funzionalità di script in Spaziometria non operano
sull'archivio superenalotto .. pero visto che questa cosa che posso implementare non impatta sulle funzioni del programma ma solo nel funzionamero degli script posso implementarla , se non fosse cosi non lo avrei fatto perche il povero Elephant e BigAlbe si stanno occupando di creare un Help e quindi non è che posso aggiungergli funzioni su funzioni prima che abbiano finito con quelle che gia ci sono ,,senno i poveretti che gia sono anziani potrebbero diventarci vecchi ....

Ciao !

P.S.
Quindi nella prossima versione a breve implemento gli script del superenalotto

 

[cozzio]

Ok grazie Luigi, cmq era solo per apportare un contributo alla comunity senza fretta.

P.S. Però come chiedevo, non so se funziona su SPAZIOMETRIA lo script sopra ...[?]

La fortuna è cieca...ma la sfiga ci vede benissimo!!!

 

[LuigiB]

ho messo sull'altro post la link per la nuova versione del programma
che ha lz possibilita di fare gli script per il superenalotto

 

[cozzio]

Ciao e grazie, quando ti è possibile provi ad adattarlo lo script qui sopra, perchè penso possa dare dei buoni risultati. Io giocavo al superenalotto con questo script prima che cambiassero il modo di gioco un anno fa e mi è dispiaciuto molto. Grazie .
[8D]


La fortuna è cieca...ma la sfiga ci vede benissimo!!!

 

[cozzio]

up

La fortuna è cieca...ma la sfiga ci vede benissimo!!!

 

[imported_n/a]

quote:Originally posted by cozzio

up

La fortuna è cieca...ma la sfiga ci vede benissimo!!!

Ciao cozzio che risultati hai avuto con questo listato sembra molto interessante
ciao

 

[cozzio]

Ho fatto 1 4 e molti 3, purtroppo sono arrivato tardi per fare i 2 5 consecutivi....spero che qualcuno riesca a rieditarlo per spaziometria è un'occasione da non perdere!!![V]

La fortuna è cieca...ma la sfiga ci vede benissimo!!!