Mente da programmatore

[LuigiB]

Ok quindi una cosa del genere

    Public Enum eValoriAppConfig
        Archivio
        RangeInizio
        Rangefine
        chkRuoteSel
        SfondoColoreNumeri
        ForeColorNumeri
        SfondoColoreNumEvidenziato
        ForeColorNumEvidenziato
        ArchivioCorrente
        ArchiviParalleli      <================================
    End Enum

Public Class frmCreaArchPar
    Private bStop As Boolean
    Dim cAp As ClsCreaArcParallelo
    Dim cApNew As ClsCreaArcParallelo

    Private Sub FrmArchiviParalleli_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AggiornaStatoComboBox()
        LoadComboQuantita()
    End Sub
    Sub AggiornaStatoComboBox()
        If ConvertToInt(GetValoreCfg(eValoriAppConfig.ArchiviParalleli)) = 0 Then
            SalvaValoreCfg(eValoriAppConfig.ArchiviParalleli, "0")
        End If
    End Sub
    Sub LoadComboQuantita()

        Me.ComboBox1.Items.Clear()
        For k As Integer = 1 To 5
            ComboBox1.Items.Add(k)
        Next
        ComboBox1.SelectedIndex = GetValoreCfg(eValoriAppConfig.ArchiviParalleli)

    End Sub

    Sub GestioneEsegui()


        Dim nDaFare As Integer = ComboBox1.SelectedItem


        bStop = False
        cAp = New ClsCreaArcParallelo(cArchivio.FileEstrazioni, Nothing)

        For k As Integer = 1 To nDaFare
            cApNew = New ClsCreaArcParallelo(GetPercorsoFileArchivioParallelo(k), cAp)
            cApNew.CreaArchivioParallelo(CheckBox1.Checked, ProgressBar2)
            ProgressBar1.Value = Percentuale(k, nDaFare)
            Application.DoEvents()
            cAp = cApNew
            If bStop Then Exit For

        Next
        cAp = Nothing
        cApNew = Nothing

    End Sub

    Private Sub ButtonOK_Click(sender As Object, e As EventArgs) Handles ButtonOK.Click
        If ButtonOK.Text = "OK" Then
            SalvaValoreCfg(eValoriAppConfig.ArchiviParalleli, ComboBox1.SelectedIndex.ToString)
            ButtonOK.Text = "STOP"
            ButtonAnnulla.Enabled = False
            GroupBox1.Enabled = False
            GestioneEsegui()
            ButtonOK.Text = "OK"
            GroupBox1.Enabled = True
            ButtonAnnulla.Enabled = True
            MessageBox.Show("Fine processo", "Fine", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Close()

        Else
            cApNew.StopProcess()

        End If
    End Sub

    Private Sub ButtonAnnulla_Click(sender As Object, e As EventArgs) Handles ButtonAnnulla.Click
        Me.Close()

    End Sub

End Class

si , hai provato te l icrea gl iarchivi ?

 

[LuigiB]

conviene anche mettere uan progressbar e un doevents mentre fa la statistica delel formazioni o la scomposizione dei numeri

 

[Edoardo_95]

conviene anche mettere uan progressbar e un doevents mentre fa la statistica delel formazioni o la scomposizione dei numeri

Per la scomposizione l'ho messa però ho notato una cosa molto antipatica che sto cercando di risolvere. La progress bar va da 0 al numero di combinazioni però poi c'è il caricamento degli item nella listbox. Di conseguenza giunge alla fine ma poi rimane bloccato per alcuni secondi

 

[Edoardo_95]

si , hai provato te l icrea gl iarchivi ?

Sisi

 

[LuigiB]

devi mettere i ldoevents metre carica gli items e sempre diurante devi calcolare la percentuale della progressbar .. appena ha isistemato queste cose poi proseguiamo dimmi tu , convien consolidare le cose fatte

 

[LuigiB]

comunque dato che è semplice procedi pure con il mettee una combobox nel form mdi nel pannello sotto
poi insersciquest aroutine e lanciala al load del form e prepara un 'altra vocenel file di configurazione da chiamarsi
ArchivioCorrente

  Sub LoadComboArchivi()
        Dim cItm As ClsItemCombo
        cmbArchivio.Items.Clear()

        cItm = New ClsItemCombo
        cItm.Tag = GetPercorsoArchivio()
        cItm.Text = "Lotto"
        cmbArchivio.Items.Add(cItm)

        For k As Integer = 1 To 5
            If FileExist(GetPercorsoFileArchivioParallelo(k)) Then
                cItm = New ClsItemCombo
                cItm.Tag = GetPercorsoFileArchivioParallelo(k)
                cItm.Text = "Archivio L" & k
                cmbArchivio.Items.Add(cItm)
            End If
        Next

        SelezionaItemCombo(cmbArchivio, GetValoreCfg(eValoriAppConfig.ArchivioCorrente))
        If cmbArchivio.Text = "" Then
            cmbArchivio.SelectedIndex = 0
        End If
    End Sub

 

[LuigiB]

il 5 sostituiscilo cl valore letto da configurazione che hai messo prima

 

[Edoardo_95]

devi mettere i ldoevents metre carica gli items e sempre diurante devi calcolare la percentuale della progressbar .. appena ha isistemato queste cose poi proseguiamo dimmi tu , convien consolidare le cose

per quanto riguarda la percentuale. Cosi intendi?

    Private Sub AvanzamentoElab(VMin As Integer, VMax As Integer, Valore As Integer, BarraDiProgresso As ProgressBar)
        Dim PrecentualeAvanzamento As Integer
        BarraDiProgresso.Visible = True
        BarraDiProgresso.Minimum = VMin
        BarraDiProgresso.Maximum = VMax
        PrecentualeAvanzamento = Percentuale(Valore, VMax)
        BarraDiProgresso.Increment(PrecentualeAvanzamento) 
    End Sub

 

[LuigiB]

BarraDiProgresso.value = percentuale

se usi valoremin e max devi clacolare la dimensione del range per poi usare la percentuale ,non puoi mettere direttamente valoremax

 

[LuigiB]

è chiaro che per mostrare una progressbar devi poter calcolare la percentuale quindi ci vuole una funzione che conta le righe nel file delel formazioni per dirtiquante sono , e lo devi fare prima di eseguire la statistica.
un modo è questo

Dim lineCount = File.ReadAllLines("file.txt").Length

certo non è consigliabile fare questo su un filedi 50 mega... ma tra le formazioni non ce ne sono..

 

[Edoardo_95]

Fatto tutto.

LottoProjectLB

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[LuigiB]

ok allora adesso innanzi tutto fai un controllo per la funzione degli archivi paralleli che non possa essere lanciata se nellacombo non è selezionato l'archivio reale.
Poi devi fare una modifica ,tu attualemnte le estrazioni le leggi nel formsplash , invece devi leggerle al selecteditem della combobox degli archivi.
In prati quando uno seleziona l'archivio nella combo la classea archivio prende il puntamento a quel file.

 

[mgrruggiu]

grazie per tutto il lavoro e l'impegno che mettete, ho provato ad avviare il vostro codice ma da questo errore,

giovanni

 

[LuigiB]

devi andare in risorse del computer su quel file fare click col destro proprietà e rimuovere il blocco internet

 

[LuigiB]

Edoardo non toccare piu la funzione statistica sperando che non l'abbia fatto dagli ultimi sorgenti che hai postato che faccio qualche aggiustamento io ..

 

[LuigiB]

qua non so che ti sei inventato .. ma si fa come si vede nella immagine

 

[LuigiB]

ok , ripartiamo da questo sorgente qui , non so se sei andato avanti ma le cose che ti avevo detto puoi rimetterle qui se già le hai fatte

LottoProjectLB

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

ecco le modifiche che ho fatto

- all'inserimento della formazione seleziona e rende visibile il nuovo item
- azzerare progress alla fine del ciclo
- quando fa la statistica gruppo mette il nome del gruppo del primo item selezionato
- Gestion abilita pulsanti
- problema con edit parametri
- pulsante edit
- pulsante duplica
- pulsante scegli file csv txt
- solo caratteri numerici nella combo dei numeri
- varie ed eventua

 

[Edoardo_95]

ok , ripartiamo da questo sorgente qui , non so se sei andato avanti ma le cose che ti avevo detto puoi rimetterle qui se già le hai fatte

LottoProjectLB

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

ecco le modifiche che ho fatto

- all'inserimento della formazione seleziona e rende visibile il nuovo item
- azzerare progress alla fine del ciclo
- quando fa la statistica gruppo mette il nome del gruppo del primo item selezionato
- Gestion abilita pulsanti
- problema con edit parametri
- pulsante edit
- pulsante duplica
- pulsante scegli file csv txt
- solo caratteri numerici nella combo dei numeri
- varie ed eventua

Ora non riesco a mettermi all'opera però ho testato velocemente la versione che hai mandato. Porca la miseria se si vede la mano di un professionista. Ha una velocità impressionante! ...Caricamenti lampo oltre a tutto il resto ovviamente. Voglio vedere dove si trovano i cambiamenti e devo studiarmeli bene

 

[LuigiB]

ma no andava bene pure prima , ho sistemato poche cose..

 

[LuigiB]

bisognerebbe mettere un tasto stop per interrompere volendo la statistica delle formazioni se dura troppo..