xSalvo50

[Zetrix]

x Salvo50
queste sono delle sequenze speciali dette anche le sequenze a scaletta,
es, vogliamo scrivere una sequenza con il 17 ?
domanda : quale numero segue dopo il 17 ?
risposta : il numero 18
ecco la sequenza generata con il 17..
ci sto lavorando su queste sequenze specie al SuperEnalotto..

 

[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]

ok Salvo, dopo vedo lo script di Mike58..
il piu bravo con gli script e LuigiB..dopo seguono tutti gli altri..

 

[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]

Salvo non serve lo script ho notato su SpazioLight fa lo stesso lavoro che fa SpazioMetria..
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