Spazio Script in VbNet Per LottoProjectLB

Xeroxs · 31 Gennaio 2022

Perfetto,
Grazie Davvero, Per Me era davvero complicato.

lotto_tom75 · 31 Gennaio 2022

x Tom piccolo stesura ex novo
Giusto per cimentarsi.
sicuramente puoi vedere di immettere i parametri che vuoi ottenere.

Codice:

Class Script
    Sub Main
        Dim k As Integer
        Dim s ,T() As String
        Dim nClasse,nColonneTot,aNumeri() As Integer
        ReDim aNumeri(90)
        Dim aCol(),Ruote() ,r ,sorte  As Integer
        Dim ini As Integer = 1
        Dim fin As Integer = EstrazioniArchivio
        Dim rit,max,incr,fre,pre ,ubNum As Integer
        nClasse = 9 ' sviluppo in classe
        sorte = 2 ' sorte di verifica statistica
        ScegliNumeri(aNumeri)
        ubNum = UBound(aNumeri)
        ScegliRuote(Ruote )
        T = {" k " ," Sviluppo " , " Frequenze "," Presenze "," RitardoCoRRente ", "RitardoMax "," IncrMax "}
        Call InitTabella(T)
        'inizializza lo sviluppo
        nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
        k = 0
        ReDim aCol(nClasse )
        ' ciclo che continua fiono a quando le colonne non finiscono
        Do While GetCombSviluppo  (aCol )
            k = k + 1 ' conteggio colonna corrente
            ' costruisco la stringa che contiene la colonna
            SerieStat (aCol,Ruote,sorte ,rit,max,fre,pre,incr,ini,fin)
            s = StringaNumeri(aCol)
            T = {k,s,fre,pre,rit,max,incr }
            Call AddRigaTabella(T)
            'Call Scrivi(s & vbTab & fre)
            Call Messaggio("Colonna " & k)
            If ScriptInterrotto Then Exit Do
        Loop
        Scrivi (StringaNumeri(aNumeri) &  " ( " & ubNum & " )" & "   Sviluppo In classe : " & nClasse  & " Su Ruote Unite " & ArrayRuoteToString(Ruote) )
        CreaTabella
    End Sub
End Class

71.72.73.81.82.83.84.85.86.87.88.89.90 ( 13 ) Sviluppo In classe : 9 Su Ruote Unite Ba

k	Sviluppo	Frequenze 6	Presenze	RitardoCoRRente	RitardoMax
149	71.72.73.82.83.85.86.87.90	828	729	6	92
154	71.72.73.82.83.85.87.88.90	831	721	6	105
155	71.72.73.82.83.85.87.89.90	835	729	6	108
582	72.73.82.83.84.85.86.87.90	835	729	6	83

Grazie mike, fantastico l'ordinamento per qualsiasi tipo di colonna al semplice click!

Se potessi farne anche la versione per l'analisi sulle ruote volute separate anzichè unite, che era quello che mi servirebbe, sarebbe la ciliegina sulla torta!

Zetrix · 31 Gennaio 2022

Mike58 ha scritto:

x Tom piccolo stesura ex novo
Giusto per cimentarsi.
sicuramente puoi vedere di immettere i parametri che vuoi ottenere.

Codice:

Class Script
    Sub Main
        Dim k As Integer
        Dim s ,T() As String
        Dim nClasse,nColonneTot,aNumeri() As Integer
        ReDim aNumeri(90)
        Dim aCol(),Ruote() ,r ,sorte  As Integer
        Dim ini As Integer = 1
        Dim fin As Integer = EstrazioniArchivio
        Dim rit,max,incr,fre,pre ,ubNum As Integer
        nClasse = 9 ' sviluppo in classe
        sorte = 2 ' sorte di verifica statistica
        ScegliNumeri(aNumeri)
        ubNum = UBound(aNumeri)
        ScegliRuote(Ruote )
        T = {" k " ," Sviluppo " , " Frequenze "," Presenze "," RitardoCoRRente ", "RitardoMax "," IncrMax "}
        Call InitTabella(T)
        'inizializza lo sviluppo
        nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
        k = 0
        ReDim aCol(nClasse )
        ' ciclo che continua fiono a quando le colonne non finiscono
        Do While GetCombSviluppo  (aCol )
            k = k + 1 ' conteggio colonna corrente
            ' costruisco la stringa che contiene la colonna
            SerieStat (aCol,Ruote,sorte ,rit,max,fre,pre,incr,ini,fin)
            s = StringaNumeri(aCol)
            T = {k,s,fre,pre,rit,max,incr }
            Call AddRigaTabella(T)
            'Call Scrivi(s & vbTab & fre)
            Call Messaggio("Colonna " & k)
            If ScriptInterrotto Then Exit Do
        Loop
        Scrivi (StringaNumeri(aNumeri) &  " ( " & ubNum & " )" & "   Sviluppo In classe : " & nClasse  & " Su Ruote Unite " & ArrayRuoteToString(Ruote) )
        CreaTabella
    End Sub
End Class

71.72.73.81.82.83.84.85.86.87.88.89.90 ( 13 ) Sviluppo In classe : 9 Su Ruote Unite Ba

k	Sviluppo	Frequenze 6	Presenze	RitardoCoRRente	RitardoMax
149	71.72.73.82.83.85.86.87.90	828	729	6	92
154	71.72.73.82.83.85.87.88.90	831	721	6	105
155	71.72.73.82.83.85.87.89.90	835	729	6	108
582	72.73.82.83.84.85.86.87.90	835	729	6	83

Mike se volessi colorare la riga con il rit corrente 0 va bene questa stringa

For x1 As Integer = 0 To 10
If rit(x1) 0 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreGiallo )
Next
ma e sbagliata perche mi da errore forse e impostata male come e scritta

Mike58 · 31 Gennaio 2022

zetrix mi sembra sbagliata intanto deve essere = a zero

If rit(x1) 0 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreGiallo )

If rit(x1) = 0 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreGiallo )
poi le righe partono da zero fai il ciclo giusto altrimenti anche gli altri zero vengono colorati
sono 5 colonne al ritardo quindi imposta
for x1 = 0 to 4
comunque fai le prove.

Mike58 · 31 Gennaio 2022

lotto_tom75 ha scritto:
Grazie mike, fantastico l'ordinamento per qualsiasi tipo di colonna al semplice click!
Se potessi farne anche la versione per l'analisi sulle ruote volute separate anzichè unite, che era quello che mi servirebbe, sarebbe la ciliegina sulla torta!

Tom ho + cose che sto verificando al momento, magari il tuo lo rimando a mente + libera.

Mike58 · 31 Gennaio 2022

x xeroxs lo script in spaziometria per creare il file csv 10 e lotto

Codice:

Sub Main
   ImpostaArchivio10ELotto(1)
   Dim Nu(20),sFilecsv,sRiga,sFileLocal
   Ini = EstrazioneIniDL ' - 10
   fin = EstrazioneFinDL
   sFileLocal = "C:\Users\miche\desktop\Mio10elottoSerale.csv" 'mettere il proprio percorso
   Call EliminaFile(sFileLocal)
   sFilecsv = GetDirectoryAppData & "temp\Analisi.csv"
   Call EliminaFile(sFilecsv)
   ' scrive i titoli delle colonne nel file csv
   '-------------------------------------
   'sRiga = "Id;IndAn;dataEstrazione;n1;n2;n3;n4;n5;n6;n7;n8;n9;n10;n11;n12;n13;n15;n15;n16;n17;n18;n19;n20"
   'Call ScriviFile(sFilecsv,sRiga,False)
   '-------------------------------------
   For es = Ini To fin
      k = k + 1
      For p = 1 To 20
         Nu(p) = EstrattoDL(es,p)
      Next
      Scrivi k & ";" & IndiceAnnualeDL(es) & ";" & DataEstrazioneDL(es) & ";" & StringaNumeri(Nu,";",1)
      sRiga = k & ";"
      sRiga = sRiga & IndiceAnnualeDL(es) & ";"
      sRiga = sRiga & Replace (DataEstrazioneDL(es),".","/" ) & ";"
      For x = 1 To 19
         sRiga = sRiga & Nu(x) & ";"
      Next
      sRiga = sRiga & Nu(2)
      Call ScriviFile(sFilecsv,sRiga,False)
      Call ScriviFile(sFileLocal,sRiga,False)
   Next
   Call CloseFileHandle(sFilecsv)
   Call LanciaFile(sFilecsv)
End Sub

Mike58 · 31 Gennaio 2022

Per Luigi ho visto adesso che avevi postato lo script x xeroxs, comunque c'è anche la mia versione semplice.
Scusa.

LuigiB · 31 Gennaio 2022

Mike58 ha scritto:
Per Luigi ho visto adesso che avevi postato lo script x xeroxs, comunque c'è anche la mia versione semplice.
Scusa.

ciao Mike nemmeno mi ero accorto , ora non ho provato il tuo script pero è importante che tutti i record del file abbiano la stessa lunghezza , i numeri li devi formattare con "00" ..

Xeroxs · 31 Gennaio 2022

Grazie ad entrambi, utile per me capirne la logica in quanto prelevo da file

Mike58 · 31 Gennaio 2022

LuigiB ha scritto:
ciao Mike nemmeno mi ero accorto , ora non ho provato il tuo script pero è importante che tutti i record del file abbiano la stessa lunghezza , i numeri li devi formattare con "00" ..

non sarebbe un problema formattarli a "00" ma avendolo già provato non da errori.

Mike58 · 31 Gennaio 2022

Lo stesso mio script può essere convertito per creare un file per il SuperEnalotto.
Nonchè alla bisogna per tutte le altre lotterie, ma qui c'è bisogno che chi utilizza le lotterie si ingegni anche un pochetto.
Purtroppo hanno fatto un passo indietro in tanti e non si capisce la ragione e forse e meglio non chiedersela.

Ciao a tutti

Zetrix · 31 Gennaio 2022

mike ho provato questa e non da errore ma non colora
la riga con il rit 0

If rit = 0 Then Call SetColoreCellaRighe(ColoreVerde,ColoreGiallo )

se invece si usa questa mi da errore e ho fatto diverse prove

For x1 As Integer = 0 To 10
If rit(x1) = 0 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreGiallo )
Next

LuigiB · 31 Gennaio 2022

Mike58 ha scritto:
non sarebbe un problema formattarli a "00" ma avendolo già provato non da errori.

che funziona lo stesso non significa che non ci sia una ragioen per quello che ho scritto ...
se passa di qua edoardo vi siega perche i record devono essere della stessa lunghezza

Mike58 · 31 Gennaio 2022

Mike se volessi colorare la riga con il rit corrente 0 va bene questa stringa

For x1 As Integer = 0 To 10
If rit(x1) 0 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreGiallo )
Next
ma e sbagliata perche mi da errore forse e impostata male come e scritta

zetrix fai un ciclo delle colonne e poi utilizza la stringa T valorizzata con x1 del for next

cosi
For x1 As Integer = 1 To 5
If T(x1) = 0 Then Call SetColoreCellaRighe((x1),ColoreRosso,ColoreBianco)
Next

Mike58 · 31 Gennaio 2022

LuigiB ha scritto:
che funziona lo stesso non significa che non ci sia una ragioen per quello che ho scritto ...
se passa di qua edoardo vi siega perche i record devono essere della stessa lunghezza

Luigi scusa, va bene i numeri sortiti formattati a 2 (basta usare il format2), ma anche i progressivi e indiceannuale formattati a 2 ?

LuigiB · 31 Gennaio 2022

ogni stringa deve avere la stessa lunghezza , quindi è necessario normalizzare tutti i campi che la compongono

Mike58 · 31 Gennaio 2022

x Tom
lo script per ruote separate

Codice:

Class Script
    Sub Main
        Dim k As Integer
        Dim s ,T() As String
        Dim nClasse,nColonneTot,aNumeri() As Integer
        ReDim aNumeri(90)
        Dim aCol(),Ruote(1) ,r ,sorte  As Integer
        Dim ini As Integer = 1
        Dim fin As Integer = EstrazioniArchivio
        Dim rit,max,incr,fre,pre ,ubNum As Integer
        nClasse = 2 ' sviluppo in classe
        sorte = 2 ' sorte di verifica statistica
        ScegliNumeri(aNumeri)
        ubNum = UBound(aNumeri)
        'ScegliRuote(Ruote )
        Scrivi (StringaNumeri(aNumeri) &  " ( " & ubNum & " )" & "   Sviluppo In classe : " & nClasse  & " Su Ruote separate " )
        T = {" k "," Ruota " ," Sviluppo " , " Frequenze "," Presenze "," RitardoCoRRente ", "RitardoMax "," IncrMax "}
        Call InitTabella(T)
        'inizializza lo sviluppo
        For r = 1 To 11
            Ruote(1) = r
            nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
            k = 0
            ReDim aCol(nClasse )
            ' ciclo che continua fiono a quando le colonne non finiscono
            Do While GetCombSviluppo  (aCol )
                k = k + 1 ' conteggio colonna corrente
                ' costruisco la stringa che contiene la colonna
                SerieStat (aCol,Ruote,sorte ,rit,max,fre,pre,incr,ini,fin)
                s = StringaNumeri(aCol)
                T = {k,NomeRuota(r),s,fre,pre,rit,max,incr }
                Call AddRigaTabella(T)
                'Call Scrivi(s & vbTab & fre)
                Call Messaggio("Colonna " & k)
                If ScriptInterrotto Then Exit Do
            Loop
        Next
        CreaTabella
    End Sub
End Class

Zetrix · 31 Gennaio 2022

grazie mike adesso ho capito come colorare la tabellla

For x1 As Integer = 4 To 4
If T(x1) < 8 Then Call SetColoreCellaRighe((x1),ColoreRosso,ColoreGiallo)
For x2 As Integer = 4 To 4
If T(x2) > 8 Then Call SetColoreCellaRighe((x2),ColoreVerde,ColoreGiallo)

Next
Next

Xeroxs · 1 Febbraio 2022

Mike58 ha scritto:

x xeroxs lo script in spaziometria per creare il file csv 10 e lotto

Codice:

Sub Main
   ImpostaArchivio10ELotto(1)
   Dim Nu(20),sFilecsv,sRiga,sFileLocal
   Ini = EstrazioneIniDL ' - 10
   fin = EstrazioneFinDL
   sFileLocal = "C:\Users\miche\desktop\Mio10elottoSerale.csv" 'mettere il proprio percorso
   Call EliminaFile(sFileLocal)
   sFilecsv = GetDirectoryAppData & "temp\Analisi.csv"
   Call EliminaFile(sFilecsv)
   ' scrive i titoli delle colonne nel file csv
   '-------------------------------------
   'sRiga = "Id;IndAn;dataEstrazione;n1;n2;n3;n4;n5;n6;n7;n8;n9;n10;n11;n12;n13;n15;n15;n16;n17;n18;n19;n20"
   'Call ScriviFile(sFilecsv,sRiga,False)
   '-------------------------------------
   For es = Ini To fin
      k = k + 1
      For p = 1 To 20
         Nu(p) = EstrattoDL(es,p)
      Next
      Scrivi k & ";" & IndiceAnnualeDL(es) & ";" & DataEstrazioneDL(es) & ";" & StringaNumeri(Nu,";",1)
      sRiga = k & ";"
      sRiga = sRiga & IndiceAnnualeDL(es) & ";"
      sRiga = sRiga & Replace (DataEstrazioneDL(es),".","/" ) & ";"
      For x = 1 To 19
         sRiga = sRiga & Nu(x) & ";"
      Next
      sRiga = sRiga & Nu(2)
      Call ScriviFile(sFilecsv,sRiga,False)
      Call ScriviFile(sFileLocal,sRiga,False)
   Next
   Call CloseFileHandle(sFilecsv)
   Call LanciaFile(sFilecsv)
End Sub

Buongiorno a Tutti,

Ho Testato il tuo script, Sembra Tutto Ok in Quanto mi sembrano corretti come esposizione dei dati nel csv.
Ma ho riscontrato un anomalia, ovvero ciò che scrive su Spaziometria è corretto come dati in quanto i numeri esposti sono corretti, ma quando esporta o crea csv l'ultimo numero è diverso da quello esposto in Spaziometria, ho provato a capirne il motivo ma al momento nulla.
Riporto il tutto per correttezza, perch copiare può sembrare facile ma io amo poi entrare nei dettagli per capirne anche funzionamento e altro.

Grazie.

Mike58 · 1 Febbraio 2022

si !!! xeroxs c'è un errore di battitura ho fatto un ciclo per 19 numeri per poter mettere il concatena ";"
e poi dovevo scrivere l'ultima riga Nu(20) senza ";" e come vedi ho scritto 2, correggi con Nu(20)

For x = 1 To 19
sRiga = sRiga & Nu(x) & ";"
Next
sRiga = sRiga & Nu(2)

Spazio Script in VbNet Per LottoProjectLB

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<