xSalvo50

[Zetrix]

 

[Zetrix]

07 15 24 34 45 57 70 84 99 115

 

[salvo50]

Tu mi sopravvaluti io non sono così bravo

Ho cercato negli script che ho salvato nel mio computer
e ho trova questo script del MITICO Mike58

da come ho capito sviluppa i sistemi che già ci sono
in SpazioMetria e li sviluppa con lo zero nei numeretti

Quindi basta fare copia e incolla in un file di testo TXT

Option Explicit
Sub Main
   Dim sFile
   Dim aRetColonne
   Dim nGaranzia,nClasse,nColonne,nQNumeri
   Dim k,e,sColonna
   sFile = ScegliFileSistema
   If sFile <> "" Then
      If GetMatriceSistemaRidotto(sFile,aRetColonne,nQNumeri,nColonne,nClasse,nGaranzia) Then
         Call Scrivi("File          : " & sFile)
         Call Scrivi("Per numeri    : " & FormatSpace(nQNumeri,8,True))
         Call Scrivi("Colonne       : " & FormatSpace(nColonne,8,True))
         Call Scrivi("Classe        : " & FormatSpace(nClasse,8,True))
         Call Scrivi("Garanzia      : " & FormatSpace(nGaranzia,8,True))
         Call Scrivi
         Call Scrivi("Sviluppo :",True)
         Call Scrivi
         For k = 1 To nColonne
            sColonna = ""
            For e = 1 To nClasse
               sColonna = sColonna & Format2(aRetColonne(k,e)) & "."
            Next
            sColonna = Left(sColonna,Len(sColonna) - 1)
            Call Scrivi(FormatSpace(k,5,True) & ") " & sColonna)
         Next
      End If
   End If
End Sub
Function ScegliFileSistema()
   Dim sDir
   Dim i
   sDir = GetDirectoryAppData & "sistemi\"
   ReDim aRetFiles(0)
   Call ElencoFileInDirectory(sDir,aRetFiles,".dat")
   i = ScegliOpzioneMenu(aRetFiles,,"Scegli file matrice")
   If i > 0 Then
      ScegliFileSistema = sDir & aRetFiles(i) & ".dat"
   End If
End Function

 

[Zetrix]

lo script di mike58 e troppo complicato non va bene..

 

[Zetrix]

SuperEnalotto
07-09-17-54-73-90
02 05 09 14 20 27 35 44 54 65 77 90

 

[Zetrix]

 

[Zetrix]

xSalvo50
lo script di MIKE58 scrive solo la matrice dopo si devono seguire altri passaggi..
volevo uno script piu semplice nel senso di incollare una lunghetta di numeri
e lo script fa lo sviluppo del sistema ridotto in formato txt..
a scelta a garanzia del 3 or del 4 or del 5..

 

[Zetrix]

SuperEnalotto
07-09-17-54-73-90
09 17 25 33 41 49 57 65 73 81 89 97

 

[salvo50]

Io non sono capace di fare lo script che ti serve

 

[Zetrix]

ho notato su SpazioLight fa lo sviluppo dei sistemi ridotti..
ed e veloce a fare lo sviluppo basta incollare una lunghetta di numeri e fa lo sviluppo ridotto
con diverse garanzie del sistema, il problema e il formato del txt i numeri non sono scritti tutti
in format2 ,
e questo e un problema perche il programma evidenziatore i numeri che non hanno il format2
non li evidenzia nella tabella..

 

[Zetrix]

2,4,7,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 lo sviluppo ridotto a garanzia del 2,
27 numeri , in gioco 27 colonne..
tutto sommato si e incolonnato un 4 , non male perche il sistema costa 27 euro..
il 5+1 come minimo si doveva fare un sistema a garanzia del 5 ma costerebbe troppo il sistema
e quindi impossibile giocare un sistema con 27 numeri a garanzia del 5
quindi in conclusione conviene fare lo sviluppo ridotto a garanzia del 2
in questo modo si giocano poche colonne e si puo giocare il sistema ridotto..
il problema rimane il formato del txt non li esporta in format2
e un problema perche i numeretti non li evidenzia nella tabella se non hanno il format2..
ma comunque non e un problema si puo mettere lo 0 davanti ai numeretti..

 

[Zetrix]

SuperEnalotto
07-09-17-54-73-90
07 18 29 40 51 62 73 84

 

[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]
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] [07 .. .. .. 73 90] [  ] C.      8 Terno      04092 [181 - 13/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] [.. 38 43 46 .. 73] [  ] C.      9 Quaterna   04093 [182 - 14/11/2025]

In corso per altre 1 estrazioni

45 59 63 7 43 90 44 48 82 28 83 23 41 75 21 81 21 35 73 19 64 4 18 22 2 46 76 90 4 38

questa condizione regala ancora vincite al SuperEnalotto,
ieri sera a dato una quaterna..
con il sistema ridotto a garanzia del 2 , giocano 27 colonnne ( 27 euro) ,
nello sviluppo si sono incolonnati due 3..

 

[Zetrix]

Anticipazione (Spoiler)

02.04.07.21.44.76
04.07.18.22.45.81
07.18.19.23.46.82
18.19.21.28.48.83
19.21.22.35.59.90
02.21.22.23.38.63
04.22.23.28.41.64
07.23.28.35.43.73
18.28.35.38.44.75
19.35.38.41.45.76
21.38.41.43.46.81
22.41.43.44.48.82
23.43.44.45.59.83
28.44.45.46.63.90
02.35.45.46.48.64
04.38.46.48.59.73
07.41.48.59.63.75
18.43.59.63.64.76
19.44.63.64.73.81
21.45.64.73.75.82
22.46.73.75.76.83
23.48.75.76.81.90
02.28.59.76.81.82
04.35.63.81.82.83
07.38.64.82.83.90
02.18.41.73.83.90
02.04.19.43.75.90

 

[Zetrix]

il problema del SuperEnalotto i 2 e 3 pagano troppo poco..
il malloppo del 6 lo hanno sempre loro (furbi questi della Sisal)
hanno messo quel gioco cretino win box per distrarre i giocatori..
cosi fanno vedere che loro regalano vincite instantenee cosi sanno tutto nel tel
con il qr code..
questo SuperEnalotto cosi come e combinato non va bene per niente..
secondo me il super star non dovevano metterlo bastava solo il jolly che lavorava su tutti i numeri
della sestina..
2+jolly
3+jolly
4+jolly
5+jolly
e invece i vertici della Sisal furbi questi hanno messo solo il 5+jolly
difficilissimo da realizzare come il 6
che senso a mettere il super star quanto bastava gia il jolly
a volte fanno le cose per complicare il gioco e le cose ai giocatori..
i 2 e 3 pagano poco perche chi gioca con il sistema sviluppa tante combinazioni del 2 e del 3
questo il motivo perche i 2 e 3 pagano cosi poco..
ma la gente non reclama e va bene cosi il SuperEnalotto..come vogliono i vertici della Sisal..
perche a loro conviene cosi..
questa tabella con le vincite spiega tutto il sistema del SuperEnalotto..
nessun 6 e nessun 5+jolly e la Sisal festeggia e stappa lo spumante..

 

[Zetrix]

 

[Zetrix]

Ciao Salvo,
volevo chiederti se riesci a fare uno script su questa tabella al SuperEnalotto..
in teoria lo script dovrebbe fare l'addizione o la sottrazione (differenza) tra un numero della sestina e un numero della tabella,
es,
20+1=21 , 23+2=25 , 40+3=43 , 51+4=55 , 55+5=60 , 85+6=91-90=1
lo stesso si fa sulla colonna successiva vorrei vedere se da qualcosa in out sulla sestina di stasera..
le due opzioni in inputbox si deve scegliere se fare l'addizione o la sottrazione tra i numeri della sestina
e i numeri della sestina della tabella..
ho scritto queste sestine perche la tabella (6 numeri) si puo adattare usando le chiavi (6 numeri) della sestina del SE
ma questo e un tema piu complesso e quindi per adesso proviamo con il sistema dell'addizione e sottrazione dei numeri
della tabella..
se non ai uno script di base del SuperEnalotto posso mettere uno script cosi si devono scrivere solo i calcoli sulla tabella..
se e difficile da fare lo script in alternativa si potrebbe provare a fare un altro calcolo piu facile usando un altro metodo di calcolo sulla tabella,
es, si considera solo la sestina di calcolo 01.02.03.04.05.06.
01+55=56
01+85=86
20+02=22
51+03=54
40+04=44
23+05=28
su questa tabella si possono fare tanti diversi modi di calcolo e ci si puo sbizzarire a usare anche le chiavi della sestina..
ma questo e un lavoro che devo fare in seguito dopo aver fatto questo script..

 

[Zetrix]

Option Explicit
Sub Main
   Dim k
   k = EstrazioniArchivioSE - 0
   '''''''''''''''''''''''''''''''''''''''''''''''
   '''definizione tabella intestazione e righe
   ReDim atitoli2(11),avalori2(11),avalori1(11),Estrat(6)
   ' preimposto i titoli delle colonne
   atitoli2(1) = "  "
   atitoli2(2) = "  "
   atitoli2(3) = "  "
   atitoli2(4) = "  "
   atitoli2(5) = "  "
   atitoli2(6) = "  "
   atitoli2(7) = "  "
   atitoli2(8) = "  "
   atitoli2(9) = "  "
   atitoli2(10) = "  "
   atitoli2(11) = "  "
   '.............................
   Estrat(1) = EstrattoSE(k,1)
   Estrat(2) = EstrattoSE(k,2)
   Estrat(3) = EstrattoSE(k,3)
   Estrat(4) = EstrattoSE(k,4)
   Estrat(5) = EstrattoSE(k,5)
   Estrat(6) = EstrattoSE(k,6)
   '...............................
   ' ' inizializza la tabella
   Call SetTableWidth("50%")
   Call InitTabella(atitoli2,Bianco_,"center",6,Nero_,"dubai light")
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
   avalori1(3) = Estrat(1)
   avalori1(4) = Estrat(2)
   avalori1(5) = Estrat(3)
   avalori1(6) = Estrat(4)
   avalori1(7) = Estrat(5)
   avalori1(8) = Estrat(6)
   Call AddRigaTabella(avalori1,Bianco_,"center",6,Nero_,"dubai light")
   Call SetColoreCella(2,RGB(254,153,52),RGB(0,0,0))
   avalori2(1) = "  "
   avalori2(2) = GetInfoEstrazioneSE(k)
   Call AddRigaTabella(avalori2,Bianco_,"center",3,Nero_,"consolas")
   Call SetColoreCella(2,RGB(54,213,52),RGB(0,0,0))
   ScriviEstrazioneSE(k)
   'Call SetTableWidth("50%")
   Call CreaTabella
End Sub

questa e la base dello script del SuperEnalotto....

 

[salvo50]

Ciao a Tutti
Ciao Zetrix
Sono col telefonino fino al 6 di Dicembre, non ho il computer.

 

[Zetrix]

ok Salvo ,
non ti preoccupare non e un problema ho scritto diversi script x il SuperEnalotto
vedrò se riesco a compilare lo script prima delle estr del SuperEnalotto di stasera..