Novità

Script Superenalotto da adattare.......

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

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


Dim numeri(6)
Dim Num(6)
Dim q
q = 6
Sub main()
For n = 7088 To EstrazioneFin
If IndiceMensile(n) = 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(n) & " *** 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(n) & " *** 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(n) & " *** 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
 
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
 
Ok grazie Luigi, cmq era solo per apportare un contributo alla comunity senza fretta. :D

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

La fortuna è cieca...ma la sfiga ci vede benissimo!!!
 
ho messo sull'altro post la link per la nuova versione del programma
che ha lz possibilita di fare gli script per il superenalotto
 
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!!!
 
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!!!
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 ottobre 2025
    Bari
    04
    25
    41
    83
    90
    Cagliari
    16
    81
    09
    87
    82
    Firenze
    67
    13
    08
    49
    39
    Genova
    29
    61
    54
    15
    22
    Milano
    06
    11
    08
    48
    53
    Napoli
    60
    13
    46
    67
    63
    Palermo
    78
    72
    54
    02
    58
    Roma
    35
    47
    89
    25
    77
    Torino
    39
    27
    35
    30
    85
    Venezia
    36
    32
    47
    63
    73
    Nazionale
    17
    33
    10
    51
    28
    Estrazione Simbolotto
    10
    11
    43
    13
    04
Indietro
Alto