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
    venerdì 17 ottobre 2025
    Bari
    43
    65
    36
    52
    54
    Cagliari
    63
    89
    22
    85
    45
    Firenze
    59
    17
    66
    88
    78
    Genova
    75
    67
    42
    78
    77
    Milano
    12
    21
    87
    66
    31
    Napoli
    38
    75
    61
    68
    76
    Palermo
    42
    90
    20
    33
    71
    Roma
    57
    13
    80
    84
    79
    Torino
    59
    54
    84
    48
    26
    Venezia
    77
    05
    14
    28
    20
    Nazionale
    05
    04
    10
    43
    68
    Estrazione Simbolotto
    42
    38
    16
    25
    34

Ultimi Messaggi

Indietro
Alto