xSalvo50

[salvo50]

xsalvo50,
rispondo alla tua risposta "non mi interessa di quello che ai scritto"
vedi quelle tabelle le ho messe tanto per mettere qualche tabella non necessariamente
ti devono interessare ma a qualcun'altro puo interessare..che ti piacciono o meno le mie tabelle..

Ciao a Tutti
Ciao ZetrIx

Io non te lo avrei mai detto che le tue tabelle non mi inreressano,
infatti mi ero limitato a non rispondere.
Te l'ho detto, perché ti sei rivolto a me sul fatto che io non ti avevo
risposto, l'avevi scritto nel post 14, che adesso hai cancellato tutto
e messo altro.
Sono sicurissimo che le tue tabelle interessano ad altri utenti e
sono contento per te.

Riguardo al tuo ultimo script che è lento, secomdo me una delle
cause potrebbe essere perche
lo fai iniziare dall'estrazione 2021 in questa estrazione mancano
le ruote di Cagliari, Genova e Nazionale, quando lo script trova
queste ruote vuote fa i calcoli lo stesso e perde tempo

 

[Zetrix]

Ciao Salvo50,
non te la devi prendere se ti rispondo in quel modo io ti ringrazio sempre per l'impegno che ci metti a scrivere uno script perche so che ci vuole tempo perche ne ho scritti anche io migliaia di script in quanto alle tabelle ne potrei mettere a milioni di tabelle tanto per renderti lì'idea di quanti script ne ho scritti sulle tabelle
ma te sai meglio di me che quanto ci si espone troppo con le tabelle nel forum non tutti apprezzano le cose che condividi nel forum e qua ce gente che mi a risposto male ma questo e un altro discorso..
il fatto dello script che e un po lento puo darsi e come dici tu ma volevo provare se funzionava questo metodo
ma a quanto ho visto non mi sembra che da tanti risultati questo perche si devono impostare certe condizioni e come sono disposti i numeri sulle estr..
non tutte le condizioni sono uguali se cambiano le disposizioni dei numeri sul quadro delle estr..
adesso vorrei fare un altro script con un metodo diverso e questa sembra che da dei risultati ma devo fare altre prove sulle estr..
ma non me ne intendo come te in fatto di script anche se ne ho scritti tanti script..
comunque se oggi riesco a sistemare uno script ti farò vedere questo nuovo metodo..

 

[Zetrix]

 

[Zetrix]

xSalvo50 ,
ai qualche script che sviluppa le colonne con la riduzione a -1
con 30 numeri in sestine sviluppa 593775 integrale..
ho notato un cruciverba a dato un 5+1 al SuperEnalotto ma sono 30 numeri nel cruciverba..
facendo una riduzione con la garanzia 5 quante colonne giocano nel sistema..?

 

[Zetrix]

Estrazione generatrice del pronostico 04084 [173 - 30/10/2025]
G 0001 Numeri in gioco : 45.59.63.07.43.90.44.48.82.28.83.23.41.75.21.81.21.35.73.19.64.04.18.22.02.46.76.90.04.38
  N. [45.59.63.07.43.90.44.48.82.28.83.23.41.75.21.81.21.35.73.19.64.04.18.22.02.46.76.90.04.38] [.. .. .. .. .. ..] [  ] C.      1            04085 [174 - 31/10/2025]
  N. [45.59.63.07.43.90.44.48.82.28.83.23.41.75.21.81.21.35.73.19.64.04.18.22.02.46.76.90.04.38] [.. .. .. 81 .. ..] [  ] C.      2 Estratto   04086 [175 - 03/11/2025]
V N. [45.59.63.07.43.90.44.48.82.28.83.23.41.75.21.81.21.35.73.19.64.04.18.22.02.46.76.90.04.38] [.. 18 28 38 44 76] [23] C.      3 5+1        04087 [176 - 04/11/2025]
  N. [45.59.63.07.43.90.44.48.82.28.83.23.41.75.21.81.21.35.73.19.64.04.18.22.02.46.76.90.04.38] [.. 48 .. .. 73 ..] [  ] C.      4 Ambo       04088 [177 - 06/11/2025]
  N. [45.59.63.07.43.90.44.48.82.28.83.23.41.75.21.81.21.35.73.19.64.04.18.22.02.46.76.90.04.38] [.. .. .. .. 82 ..] [  ] C.      5 Estratto   04089 [178 - 07/11/2025]
V N. [45.59.63.07.43.90.44.48.82.28.83.23.41.75.21.81.21.35.73.19.64.04.18.22.02.46.76.90.04.38] [.. 18 19 .. 35 ..] [  ] C.      6 Terno      04090 [179 - 08/11/2025]
  N. [45.59.63.07.43.90.44.48.82.28.83.23.41.75.21.81.21.35.73.19.64.04.18.22.02.46.76.90.04.38] [.. .. .. 59 63 ..] [  ] C.      7 Ambo       04091 [180 - 11/11/2025]

questa e la combinazione che a dato il 5+Jolly

 

[Zetrix]

Option Explicit
Sub Main
   Dim COLONNE,Classe,SCOLONNA,K,J,X
   Dim NUMERI(10)
   Classe = 6
   NUMERI(X) = X
   ScegliNumeri(NUMERI)
   COLONNE = SviluppoIntegrale(NUMERI,Classe)
   For K = 1 To UBound(COLONNE)
      SCOLONNA = ""
      For J = 1 To Classe
         SCOLONNA = SCOLONNA & Format2(COLONNE(K,J)) & "."
      Next
      Scrivi FormattaStringa(K,"000") & ") " & SCOLONNA
   Next
End Sub

xSalvo50
questo script fa solo lo sviluppo integrale delle sestine..
ma se si vuole fare un sistema ridotto come si deve fare..

45.59.63.07.43.90.
44.48.82.28.83.23.
41.75.21.81.21.35.
73.19.64.04.18.22.
02.46.76.90.04.38.
comunque i numeri dovrebbero essere di meno di 30 perche ci sono anche i doppioni che si devono eliminare dal sistema
con la riduzione delle colonne, es, il 4 scrive due volte nel cruciverba..
se con la riduzione si giocano tante colonne sarebbe impossibile giocare tutto il sistema..

 

[Zetrix]

Numeri in gioco : 71.81.25.33.75.59.47.81.89.41.54.32.76.84.36.37.15.25.67.19.33.11.21.55.15.12.80.90.34.42
In corso

x Salvo50 ,
su questi numeri si dovrebbe fare un sistema a riduzione , es, ridotto a garanzia del 3, or , del 4 , or del 5,

 

[salvo50]

Ciao a Tutti
Ciao Zetrix

Non ho idea di come fare con gli script, ma in Spaziometri ci deve essere una sezione
dove inserisci i numeri e ti calcola in automatico i numeri da giocare in ridotto,
adesso vado a vedere dove e poi te lo dico

 

[salvo50]

Devi cliccare su Sistemi, si apre un menù a tendina e puoi scegliere cosa fare

 

[Zetrix]

Ciao Salvo50,
grazie delle indicazioni su spaziometria ma su sistemi fa lo sviluppo delle riduzioni ma non esporta le colonne
in formato txt,
mi serve il file di tutte le colonne ridotte in formato txt..

 

[Zetrix]

mi serve il formato txt delle colonne ridotte perche devo incollare le sestine in quest'altro programma
cosi posso fare una simulativa su tutte le sestine del sistema ridotto e vedere se si e incolonnato il 5+1
con tuttii i vari sistemi di riduzione da 3 , 4 , 5,

 

[Zetrix]

 

[salvo50]

Ciao a Tutti
Ciao Zetrix
Avevo pensato di fare copia e incolla, ma non lo fa fare,
dove sono poche colonne si potrebbero copiare a mano
ma come impostarli nel TXT non saprei
Magari qualcuno che ne sa più di noi potrebbe intervenire.

 

[LoneWolf]

Ciao a Tutti
Ciao Zetrix
Avevo pensato di fare copia e incolla, ma non lo fa fare,
dove sono poche colonne si potrebbero copiare a mano
ma come impostarli nel TXT non saprei
Magari qualcuno che ne sa più di noi potrebbe intervenire.

Ciao , se vuoi vedere questo esempio: ridotto su 10 cifre:
Id;1;2;3;4;5;6;
0001;1;2;3;4;5;7;
0002;2;3;4;5;6;8;
0003;3;4;5;6;7;9;
0004;4;5;6;7;8;10;
0005;1;5;6;7;8;9;
0006;2;6;7;8;9;10;
0007;1;3;7;8;9;10;
0008;1;2;4;8;9;10;
0009;1;2;3;5;9;10;
0010;1;2;3;4;6;10;
Se esegui esporta, e scelta TXT , avresti questo - Poi esiste anche la Stampa Schedine ...
Buona speromentazione

 

[salvo50]

Ciao Lonewolf

Grazie non mi ero accorto che c'era esporta, guardavo le righe in alto
Penso che sia la soluzione che cercava Zetrix

 

[Zetrix]

Ciao Salvo50,
ringrazio LoneWolf mi ero un po distratto credevo che era solo esporta excel,
infatti stamattina ho fatto una prova e si puo esportare il file in txt, excel, e csv,
ma ce un altro problema che ho rilevato nel formato txt..
le colonne non le scrive in Format2..

0001;35;43;46;64;73;83;
0002;19;38;45;76;82;83;
0003;7;21;46;59;76;83;
0004;7;38;63;64;81;83;
0005;7;22;41;45;73;83;
0006;4;38;41;46;75;83;
0007;4;21;23;43;45;83;
0008;4;18;19;63;73;83;
0009;4;7;28;35;82;83;
0010;23;44;46;63;82;83;
0011;7;19;43;44;48;83;
0012;28;44;45;64;75;83;
0013;4;22;44;59;81;83;
0014;18;35;41;44;76;83;
0015;2;19;22;28;46;83;
0016;2;7;18;23;75;83;
0017;2;35;45;59;63;83;
0018;2;4;48;64;76;83;
0019;2;21;38;44;73;83;
0020;2;41;43;81;82;83;
0021;28;41;43;45;46;76;
0022;22;35;45;46;75;82;
0023;23;38;45;46;59;73;
0024;19;21;45;46;63;64;
0025;18;28;38;43;59;83;
0026;38;41;48;59;76;81;
0027;35;38;41;63;73;82;
0028;28;59;63;64;76;82;
0029;18;21;22;64;82;83;
0030;23;38;43;64;75;82;
0031;22;28;35;41;64;81;
0032;21;35;43;48;76;82;
0033;21;41;64;73;75;76;
0034;21;43;59;63;73;81;
0035;21;22;23;28;59;75;
0036;19;23;28;35;43;63;
0037;19;21;22;38;41;43;
0038;19;23;41;59;64;83;
0039;19;22;35;59;73;76;
0040;19;28;38;48;64;73;
0041;19;22;48;63;81;82;
0042;18;22;38;73;75;81;
0043;18;21;23;38;63;76;
0044;19;21;35;75;81;83;
0045;18;23;35;59;81;82;
0046;18;19;28;41;75;82;
0047;18;19;43;64;76;81;
0048;18;23;41;43;48;73;
0049;18;35;48;63;64;75;
0050;21;28;38;46;81;82;
0051;19;23;46;48;75;76;
0052;18;22;41;46;59;63;
0053;23;41;45;63;75;81;
0054;22;43;45;48;59;64;
0055;18;21;28;35;45;73;
0056;7;28;46;63;73;75;
0057;7;22;23;43;46;81;
0058;7;41;46;48;64;82;
0059;7;18;19;35;38;46;
0060;7;35;41;43;59;75;
0061;7;19;21;23;73;82;
0062;7;18;22;28;48;76;
0063;7;23;35;45;64;76;
0064;21;28;41;48;63;83;
0065;7;21;38;45;48;75;
0066;7;19;28;45;59;81;
0067;7;18;43;45;63;82;
0068;4;35;46;63;76;81;
0069;4;21;22;46;48;73;
0070;4;45;64;73;81;82;
0071;4;22;28;38;45;63;
0072;22;23;35;38;48;83;
0073;4;21;35;38;59;64;
0074;4;22;23;41;76;82;
0075;4;28;43;48;75;81;
0076;4;19;43;46;59;82;
0077;4;19;35;41;45;48;
0078;4;18;45;59;75;76;
0079;4;18;23;28;46;64;
0080;22;43;63;75;76;83;
0081;4;7;38;43;73;76;
0082;4;7;23;48;59;63;
0083;4;7;19;22;64;75;
0084;4;7;18;21;41;81;
0085;22;38;44;46;64;76;
0086;19;41;44;46;73;81;
0087;28;35;44;46;48;59;
0088;18;21;43;44;46;75;
0089;7;44;75;76;81;82;
0090;7;23;28;38;41;44;
0091;7;21;22;35;44;63;
0092;23;28;73;76;81;83;
0093;7;18;44;59;64;73;
0094;35;38;43;44;45;81;
0095;21;41;44;45;59;82;
0096;44;45;48;63;73;76;
0097;18;19;22;23;44;45;
0098;4;23;35;44;73;75;
0099;4;41;43;44;63;64;
0100;4;19;21;28;44;76;
0101;4;18;38;44;48;82;
0102;22;28;43;44;73;82;
0103;19;38;44;59;63;75;
0104;21;23;44;48;64;81;
0105;2;46;59;64;75;81;
0106;2;21;23;35;41;46;
0107;48;59;73;75;82;83;
0108;2;38;43;46;48;63;
0109;2;18;46;73;76;82;
0110;2;7;35;48;73;81;
0111;2;7;22;38;59;82;
0112;2;7;21;28;43;64;
0113;2;7;19;41;63;76;
0114;18;45;46;48;81;83;
0115;2;23;28;45;48;82;
0116;2;21;22;45;76;81;
0117;2;19;43;45;73;75;
0118;2;18;38;41;45;64;
0119;2;4;28;41;59;73;
0120;2;4;21;63;75;82;
0121;2;4;19;23;38;81;
0122;2;4;18;22;35;43;
0123;2;23;43;44;59;76;
0124;2;19;35;44;64;82;
0125;2;22;41;44;48;75;
0126;2;18;28;44;63;81;
0127;2;28;35;38;75;76;
0128;2;22;23;63;64;73;
0129;2;18;19;21;48;59;
0130;2;4;7;44;45;46;
0131;2;22;43;63;82;90;
0132;4;23;44;64;73;90;
0133;7;28;45;46;75;90;
0134;18;35;38;48;76;90;
0135;19;21;41;59;81;90;
0136;2;35;44;59;75;90;
0137;4;21;45;63;76;90;
0138;7;22;38;64;81;90;
0139;18;23;41;46;82;90;
0140;19;28;43;48;73;90;
0141;2;21;38;46;73;90;
0142;4;22;41;48;75;90;
0143;7;23;43;59;76;90;
0144;18;28;44;63;81;90;
0145;19;35;45;64;82;90;
0146;2;4;7;18;19;90;
0147;21;22;23;28;35;90;
0148;38;41;43;44;45;90;
0149;46;48;59;63;64;90;
0150;73;75;76;81;82;90;
0151;2;28;41;64;76;90;
0152;4;35;43;46;81;90;
0153;7;21;44;48;82;90;
0154;18;22;45;59;73;90;
0155;19;23;38;63;75;90;
0156;2;23;45;48;81;90;
0157;4;28;38;59;82;90;
0158;7;35;41;63;73;90;
0159;18;21;43;64;75;90;
0160;19;22;44;46;76;90;
0161;2;4;7;18;83;90;
0162;19;21;22;23;83;90;
0163;28;35;38;41;83;90;
0164;43;44;45;46;83;90;
0165;48;59;63;64;83;90;
0166;73;75;76;81;83;90;
0167;44;48;81;82;83;90;

quanto incollo queste colonne nell'altro programma non evidenzia i numeretti..
se non hanno lo zero..

 

[Zetrix]

02-04-07-18-19-21-22-23-28-35-38-41-43-44-45-46-48-59-63-64-73-75-76-81-82-83-90
ecco il programma come colora tutti i numeri della sestina..
in questo caso nella sestina non scrive il numero 5
comunque ho elaborato questo sistema ridotto a garanzia del 3
sviluppa 167 colonne su 27 numeri,
non si e incolonnato il 5+1 ma solo 4 numeri della sestina..
adesso provo con il sistema ridotto a garanzia del 4
ma sono 1170 colonne quasi impossibile giocarle tutte le sestine..
ma per curiosità voglio vedere se si e incolonnato il 5+1

 

[Zetrix]

con il sistema ridotto a garanzia del 4 sviluppa 1170 colonne
al numero (1025) si sono incolonnati 5 numeri ma il numero jolly e il 23
e questi bastardi il 4+1 non lo considerano nelle vincite ma solo il 5+1 (furbi questi della Sisal)
ad ogni modo si sono realizzati tanti 3 e 4 ma giocando il sistema la spesa era di 1170 euro..

 

[Zetrix]

Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7,T8
   Dim A,B,C,D,X,Y,RS,K,ES,SR,W,S
   Dim N1,N2,N3,N4,N5,larghezze
   Dim A2,B2,C2,D2,G4,G5,G6,G7,G8,G9
   Dim A1,B1,C1,D1,A3,B3,C3,D3,B4,B5,B6,B7,B8
   Dim C4,C5,C6,C7,C8,C9
   Dim D4,D5,D6,D7,E4,E5,E6,E7,F,F1,F8,D8,E8
   Dim E,E1,E2,E3,F4,F5,F6,F7,V,L
   Dim N(40),poste(5),Ambata(2)
   Dim EX,TV,Anumeri(2),EST,INFO
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Ambo6(2)
   '
   'S = InputBox("1 NUMERO",,0) ' evidenzia 1 numero (colore giallo,limone)
   'V = InputBox("2 NUMERO",,0) ' evidenzia 2 numero (colore giallo,limone)
   TV = InputBox("Quante Estrazione vuoi controllare",,0)
   EX = EstrazioniArchivioSE - TV
   For K = EX To EX
      For W = S To S
         For L = V To V
            A = EstrattoSE(K,1)
            B = EstrattoSE(K,2)
            C = EstrattoSE(K,3)
            D = EstrattoSE(K,4)
            E = EstrattoSE(K,5)
            F = EstrattoSE(K,6)
            '------------------------
            If ScriptInterrotto Then Exit Sub
            '-------------------------------
            '---------------------------------
            A1 = Fuori90(A + A)
            B1 = Fuori90(B + B)
            C1 = Fuori90(C + C)
            D1 = Fuori90(D + D)
            E1 = Fuori90(E + E)
            F1 = Fuori90(F + F)
            '-------------------------------
            T1 = Array(T1,"Super Enalotto",A1,B1,C1,D1,E1,F1,"  ")
            larghezze = Array(T1,5,5,5,5,5,5,5,6)
            Call InitTabella(T1,RGB(55,128,200),"center",larghezze,RGB(200,200,255),"gulim")
            '-------------------------------
            A3 = Fuori90(90 - A)
            '------------------------------------
            B4 = Fuori90(A3 + B1)
            B5 = Fuori90(A3 + C1)
            B6 = Fuori90(A3 + D1)
            B7 = Fuori90(A3 + E1)
            B8 = Fuori90(A3 + F1)
            '-------------------------------
            T2 = Array(T2,"1)" & Space(1) & A,A,B4,B5,B6,B7,B8,"  ") ' SESTINA 1
            larghezze = Array(T1,5,5,5,5,5,5,5,6)
            Call AddRigaTabella(T2,Bianco_,"center",larghezze,Nero_,"gulim")
            Call SetColoreCella(1,RGB(55,128,200),RGB(200,200,255))
            Call SetColoreCella(2,RGB(55,128,200),RGB(200,200,255)) ' *
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------------------------------
            If B4 = W Or B4 = L Then Call SetColoreCella(3,RGB(236,255,0),RGB(0,0,0))
            If B5 = W Or B5 = L Then Call SetColoreCella(4,RGB(236,255,0),RGB(0,0,0))
            If B6 = W Or B6 = L Then Call SetColoreCella(5,RGB(236,255,0),RGB(0,0,0))
            If B7 = W Or B7 = L Then Call SetColoreCella(6,RGB(236,255,0),RGB(0,0,0))
            If B8 = W Or B8 = L Then Call SetColoreCella(7,RGB(236,255,0),RGB(0,0,0))
            '-------------------------------
            If B4 = A Or B4 = B Or B4 = C Or B4 = D Or B4 = E Or B4 = F Then Call SetColoreCella(3,RGB(253,53,102),RGB(0,0,0))
            If B5 = A Or B5 = B Or B5 = C Or B5 = D Or B5 = E Or B5 = F Then Call SetColoreCella(4,RGB(253,53,102),RGB(0,0,0))
            If B6 = A Or B6 = B Or B6 = C Or B6 = D Or B6 = E Or B6 = F Then Call SetColoreCella(5,RGB(253,53,102),RGB(0,0,0))
            If B7 = A Or B7 = B Or B7 = C Or B7 = D Or B7 = E Or B7 = F Then Call SetColoreCella(6,RGB(253,53,102),RGB(0,0,0))
            If B8 = A Or B8 = B Or B8 = C Or B8 = D Or B8 = E Or B8 = F Then Call SetColoreCella(7,RGB(253,53,102),RGB(0,0,0))
            '-------------------------------
            B3 = Fuori90(90 - B)
            C4 = Fuori90(B3 + A1)
            C5 = Fuori90(B3 + C1)
            C6 = Fuori90(B3 + D1)
            C7 = Fuori90(B3 + E1)
            C8 = Fuori90(B3 + F1)
            '-------------------------------
            T3 = Array(T3,"2)" & Space(1) & B,C4,B,C5,C6,C7,C8,"  ") ' SESTINA 2
            larghezze = Array(T3,5,5,5,5,5,5,5,6)
            Call AddRigaTabella(T3,Bianco_,"center",larghezze,Nero_,"gulim")
            Call SetColoreCella(1,RGB(55,128,200),RGB(200,200,255))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(55,128,200),RGB(200,200,255)) ' *
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            If C4 = W Or C4 = L Then Call SetColoreCella(2,RGB(236,255,0),RGB(0,0,0))
            If C5 = W Or C5 = L Then Call SetColoreCella(4,RGB(236,255,0),RGB(0,0,0))
            If C6 = W Or C6 = L Then Call SetColoreCella(5,RGB(236,255,0),RGB(0,0,0))
            If C7 = W Or C7 = L Then Call SetColoreCella(6,RGB(236,255,0),RGB(0,0,0))
            If C8 = W Or C8 = L Then Call SetColoreCella(7,RGB(236,255,0),RGB(0,0,0))
            '
            If C4 = A Or C4 = B Or C4 = C Or C4 = D Or C4 = E Or C4 = F Then Call SetColoreCella(2,RGB(253,53,102),RGB(0,0,0))
            If C5 = A Or C5 = B Or C5 = C Or C5 = D Or C5 = E Or C5 = F Then Call SetColoreCella(4,RGB(253,53,102),RGB(0,0,0))
            If C6 = A Or C6 = B Or C6 = C Or C6 = D Or C6 = E Or C6 = F Then Call SetColoreCella(5,RGB(253,53,102),RGB(0,0,0))
            If C7 = A Or C7 = B Or C7 = C Or C7 = D Or C7 = E Or C7 = F Then Call SetColoreCella(6,RGB(253,53,102),RGB(0,0,0))
            If C8 = A Or C8 = B Or C8 = C Or C8 = D Or C8 = E Or C8 = F Then Call SetColoreCella(7,RGB(253,53,102),RGB(0,0,0))
            '-------------------------------
            C3 = Fuori90(90 - C)
            D4 = Fuori90(C3 + A1)
            D5 = Fuori90(C3 + B1)
            D6 = Fuori90(C3 + D1)
            D7 = Fuori90(C3 + E1)
            D8 = Fuori90(C3 + F1)
            '-------------------------------
            T4 = Array(T4,"3)" & Space(1) & C,D4,D5,C,D6,D7,D8,"  ") ' SESTINA 3
            larghezze = Array(T4,5,5,5,5,5,5,5,6)
            Call AddRigaTabella(T4,Bianco_,"center",larghezze,Nero_,"gulim")
            Call SetColoreCella(1,RGB(55,128,200),RGB(200,200,255))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(55,128,200),RGB(200,200,255)) ' *
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            If D4 = W Or D4 = L Then Call SetColoreCella(2,RGB(236,255,0),RGB(0,0,0))
            If D5 = W Or D5 = L Then Call SetColoreCella(3,RGB(236,255,0),RGB(0,0,0))
            If D6 = W Or D6 = L Then Call SetColoreCella(5,RGB(236,255,0),RGB(0,0,0))
            If D7 = W Or D7 = L Then Call SetColoreCella(6,RGB(236,255,0),RGB(0,0,0))
            If D8 = W Or D8 = L Then Call SetColoreCella(7,RGB(236,255,0),RGB(0,0,0))
            '-------------------------------
            If D4 = A Or D4 = B Or D4 = C Or D4 = D Or D4 = E Or D4 = F Then Call SetColoreCella(2,RGB(253,53,102),RGB(0,0,0))
            If D5 = A Or D5 = B Or D5 = C Or D5 = D Or D5 = E Or D5 = F Then Call SetColoreCella(3,RGB(253,53,102),RGB(0,0,0))
            If D6 = A Or D6 = B Or D6 = C Or D6 = D Or D6 = E Or D6 = F Then Call SetColoreCella(5,RGB(253,53,102),RGB(0,0,0))
            If D7 = A Or D7 = B Or D7 = C Or D7 = D Or D7 = E Or D7 = F Then Call SetColoreCella(6,RGB(253,53,102),RGB(0,0,0))
            If D8 = A Or D8 = B Or D8 = C Or D8 = D Or D8 = E Or D8 = F Then Call SetColoreCella(6,RGB(253,53,102),RGB(0,0,0))
            '-------------------------------
            D3 = Fuori90(90 - D)
            E4 = Fuori90(D3 + A1)
            E5 = Fuori90(D3 + B1)
            E6 = Fuori90(D3 + C1)
            E7 = Fuori90(D3 + E1)
            E8 = Fuori90(D3 + F1)
            '-------------------------------
            T5 = Array(T5,"4)" & Space(1) & D,E4,E5,E6,D,E7,E8,"  ") ' SESTINA 4
            larghezze = Array(T5,5,5,5,5,5,5,5,6)
            Call AddRigaTabella(T5,Bianco_,"center",larghezze,Nero_,"gulim")
            Call SetColoreCella(1,RGB(55,128,200),RGB(200,200,255))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(55,128,200),RGB(200,200,255)) ' *
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            If E4 = W Or E4 = L Then Call SetColoreCella(2,RGB(236,255,0),RGB(0,0,0))
            If E5 = W Or E5 = L Then Call SetColoreCella(3,RGB(236,255,0),RGB(0,0,0))
            If E6 = W Or E6 = L Then Call SetColoreCella(4,RGB(236,255,0),RGB(0,0,0))
            If E7 = W Or E7 = L Then Call SetColoreCella(6,RGB(236,255,0),RGB(0,0,0))
            If E8 = W Or E8 = L Then Call SetColoreCella(7,RGB(236,255,0),RGB(0,0,0))
            '-------------------------------
            If E4 = A Or E4 = B Or E4 = C Or E4 = D Or E4 = E Or E4 = F Then Call SetColoreCella(2,RGB(253,53,102),RGB(0,0,0))
            If E5 = A Or E5 = B Or E5 = C Or E5 = D Or E5 = E Or E5 = F Then Call SetColoreCella(3,RGB(253,53,102),RGB(0,0,0))
            If E6 = A Or E6 = B Or E6 = C Or E6 = D Or E6 = E Or E6 = F Then Call SetColoreCella(4,RGB(253,53,102),RGB(0,0,0))
            If E7 = A Or E7 = B Or E7 = C Or E7 = D Or E7 = E Or E7 = F Then Call SetColoreCella(6,RGB(253,53,102),RGB(0,0,0))
            If E8 = A Or E8 = B Or E8 = C Or E8 = D Or E8 = E Or E8 = F Then Call SetColoreCella(7,RGB(253,53,102),RGB(0,0,0))
            '-------------------------------
            E3 = Fuori90(90 - E)
            F4 = Fuori90(E3 + A1)
            F5 = Fuori90(E3 + B1)
            F6 = Fuori90(E3 + C1)
            F7 = Fuori90(E3 + D1)
            F8 = Fuori90(E3 + F1)
            '-------------------------------
            T6 = Array(T6,"5)" & Space(1) & E,F4,F5,F6,F7,E,F8,"  ") ' SESTINA 5
            larghezze = Array(T6,5,5,5,5,5,5,5,6)
            Call AddRigaTabella(T6,Bianco_,"center",larghezze,Nero_,"gulim")
            Call SetColoreCella(1,RGB(55,128,200),RGB(200,200,255))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(55,128,200),RGB(200,200,255)) ' *
            Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
            '-------------------------------
            If F4 = W Or F4 = L Then Call SetColoreCella(2,RGB(236,255,0),RGB(0,0,0))
            If F5 = W Or F5 = L Then Call SetColoreCella(3,RGB(236,255,0),RGB(0,0,0))
            If F6 = W Or F6 = L Then Call SetColoreCella(4,RGB(236,255,0),RGB(0,0,0))
            If F7 = W Or F7 = L Then Call SetColoreCella(5,RGB(236,255,0),RGB(0,0,0))
            If F8 = W Or F8 = L Then Call SetColoreCella(7,RGB(236,255,0),RGB(0,0,0))
            '
            If F4 = A Or F4 = B Or F4 = C Or F4 = D Or F4 = E Or F4 = F Then Call SetColoreCella(2,RGB(253,53,102),RGB(0,0,0))
            If F5 = A Or F5 = B Or F5 = C Or F5 = D Or F5 = E Or F5 = F Then Call SetColoreCella(3,RGB(253,53,102),RGB(0,0,0))
            If F6 = A Or F6 = B Or F6 = C Or F6 = D Or F6 = E Or F6 = F Then Call SetColoreCella(4,RGB(253,53,102),RGB(0,0,0))
            If F7 = A Or F7 = B Or F7 = C Or F7 = D Or F7 = E Or F7 = F Then Call SetColoreCella(5,RGB(253,53,102),RGB(0,0,0))
            If F8 = A Or F8 = B Or F8 = C Or F8 = D Or F8 = E Or F8 = F Then Call SetColoreCella(7,RGB(253,53,102),RGB(0,0,0))
            '-------------------------------
            G4 = Fuori90(90 - F)
            G5 = Fuori90(G4 + A1)
            G6 = Fuori90(G4 + B1)
            G7 = Fuori90(G4 + C1)
            G8 = Fuori90(G4 + D1)
            G9 = Fuori90(G4 + E1)
            '-------------------------------
            T7 = Array(T7,"6)" & Space(1) & F,G5,G6,G7,G8,G9,F,"  ") ' SESTINA 6
            larghezze = Array(T7,5,5,5,5,5,5,5,6)
            Call AddRigaTabella(T7,Bianco_,"center",larghezze,Nero_,"gulim")
            Call SetColoreCella(1,RGB(55,128,200),RGB(200,200,255))
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(7,RGB(55,128,200),RGB(200,200,255)) ' *
            '-------------------------------
            If G5 = W Or G5 = L Then Call SetColoreCella(2,RGB(236,255,0),RGB(0,0,0))
            If G6 = W Or G6 = L Then Call SetColoreCella(3,RGB(236,255,0),RGB(0,0,0))
            If G7 = W Or G7 = L Then Call SetColoreCella(4,RGB(236,255,0),RGB(0,0,0))
            If G8 = W Or G8 = L Then Call SetColoreCella(5,RGB(236,255,0),RGB(0,0,0))
            If G9 = W Or G9 = L Then Call SetColoreCella(6,RGB(236,255,0),RGB(0,0,0))
            '
            If G5 = A Or G5 = B Or G5 = C Or G5 = D Or G5 = E Or G5 = F Then Call SetColoreCella(2,RGB(253,53,102),RGB(0,0,0))
            If G6 = A Or G6 = B Or G6 = C Or G6 = D Or G6 = E Or G6 = F Then Call SetColoreCella(3,RGB(253,53,102),RGB(0,0,0))
            If G7 = A Or G7 = B Or G7 = C Or G7 = D Or G7 = E Or G7 = F Then Call SetColoreCella(4,RGB(253,53,102),RGB(0,0,0))
            If G8 = A Or G8 = B Or G8 = C Or G8 = D Or G8 = E Or G8 = F Then Call SetColoreCella(5,RGB(253,53,102),RGB(0,0,0))
            If G9 = A Or G9 = B Or G9 = C Or G9 = D Or G9 = E Or G9 = F Then Call SetColoreCella(6,RGB(253,53,102),RGB(0,0,0))
            '-------------------------------
            INFO = GetInfoEstrazioneSE(K)
            '-------------------------------
            T8 = Array(T8,INFO,A3,B3,C3,D3,E3,G4,"  ")
            larghezze = Array(T8,5,5,5,5,5,5,5,6)
            Call AddRigaTabella(T8,RGB(55,128,200),"center",larghezze,RGB(200,200,255),"gulim")
            '-------------------------------
            Call SetTableWidth("35%")
            CreaTabella
            '
            N(1) = B4 : N(2) = B5 : N(3) = B6 : N(4) = B7 : N(5) = B8
            N(6) = C4 : N(7) = C5 : N(8) = C6 : N(9) = C7 : N(10) = C8
            N(11) = D4 : N(12) = D5 : N(13) = D6 : N(14) = D7 : N(15) = D8
            N(16) = E4 : N(17) = E5 : N(18) = E6 : N(19) = E7 : N(20) = E8
            N(21) = F4 : N(22) = F5 : N(23) = F6 : N(24) = F7 : N(25) = F8
            N(26) = G5 : N(27) = G6 : N(28) = G7 : N(29) = G8 : N(30) = G9
            '
            Call ImpostaGiocataSE(1,N,K,10,0)
            Call GiocaSE(K)
            Scrivi
         Next
      Next
   Next
   Scrivi StringaNumeri((N)," ")
End Sub

x Salvo50
ecco lo script che ho scritto al SuperEnalotto ho anche la versione nel formato del lotto..
metto questo script voglio fare un regalo ad ALIEN..

 

[Zetrix]

Option Explicit
Sub Main
   Dim COLONNE,Classe,SCOLONNA,K,J,X
   Dim NUMERI(10)
   Classe = 6
   NUMERI(X) = X
   ScegliNumeri(NUMERI)
   COLONNE = SviluppoIntegrale(NUMERI,Classe)
   For K = 1 To UBound(COLONNE)
      SCOLONNA = ""
      For J = 1 To Classe
         SCOLONNA = SCOLONNA & Format2(COLONNE(K,J)) & "."
      Next
      Scrivi FormattaStringa(K,"000") & ") " & SCOLONNA
   Next
End Sub

x SALVO50
volendo riesci a modificare questo script e invece dello sviluppo integrale fare lo sviluppo ridotto
con la garanzia del 3, del 4, e del , 5, a scelta, e in out in formato txt con il format2,..