Mente da programmatore

[Edoardo_95]

 

[LuigiB]

oh bravo pero quella è la stuttura di base , dove la usiamo ?

 

[Edoardo_95]

Stessa cosa anche per statistiche formazioni gruppo

 

[LuigiB]

quindi è un array o una variabile ?

bastava la prima immagine la dichiarazione la facciamo li , c'era pure un altro punto e cioe nella struttura dei gruppi

 

[Edoardo_95]

Array

 

[LuigiB]

ok quindi per memorizzare le uscite abbiamo un array del tipo ?
la domanda è stupida pero esige lo stesso la risposta

 

[Edoardo_95]

Del tipo struct_uscita

 

[LuigiB]

quindi se vogliamo che una qualsiasi sub /function operi sulle uscite il parametro che dobbiamo mettere quale sarebbe ?

 

[Edoardo_95]

    Private Sub AlimentaUScite(LvView As ctlLvOrdinabile, frz As struct_uscita)

    Sub StatisticaGruppo()
        Dim aNumeri() As Integer = Nothing
        Dim aRuote() As Boolean = Nothing
        Dim aPos() As Boolean = Nothing
        Dim nSorte As Integer
        Dim Inizio As Integer
        Dim fine As Integer
        Dim frz As struct_gruppo_formazioni = New struct_gruppo_formazioni
        If Me.LvLunghette.SelectedItems.Count Then

            Dim itmSel As ListViewItem = LvLunghette.SelectedItems(0)
            If GetParamFromItem(itmSel, aNumeri, aRuote, aPos, nSorte, Inizio, fine) Then
                frz.Inizializza(aRuote, nSorte, Inizio, fine, aPos)
                For Each itm As ListViewItem In LvLunghette.SelectedItems
                    GetArrayNumeriFromString(itm.Text, aNumeri)
                    frz.AddNumeri(aNumeri)
                Next

                If cArchivio.StatGruppoFormazione(frz) Then
                    Dim itm As ListViewItem = CtlLvOrdinabile1.Items.Add("Gruppo")
                    itm.SubItems.Add(RuoteBToString(frz.aRuote))
                    itm.SubItems.Add(frz.Sorte)
                    itm.SubItems.Add(frz.Ritardo)
                    itm.SubItems.Add(frz.RitardoMax)
                    itm.SubItems.Add(frz.IncrRitMax)
                    itm.SubItems.Add(frz.Frequenza)
                    itm.SubItems.Add(frz.Presenze)
                    itm.SubItems.Add(frz.Inizio)
                    itm.SubItems.Add(frz.Fine)
                    itm.SubItems.Add(ArrayNumeriToString(frz.aPosizioni))
                    For k = 1 To UBound(frz.aUscite)
                        AlimentaUScite(CtlLvOrdinabile2, frz.aUscite(k))
                    Next
                End If
            End If
        End If

    End Sub

 

[LuigiB]

e quel frz accetterebbe un array ?

 

[LuigiB]

poi questo ciclo lo devi fare nlla funzione che alimenta la lista lo stai a fa apposta

For k = 1 To UBound(frz.aUscite)
AlimentaUScite(CtlLvOrdinabile2, frz.aUscite(k))
Next

 

[LuigiB]

ad AlimentaUScite gli deve arrivare la lista su cui operare e l'arya delle uscite , frz.aUScite

 

[Edoardo_95]

    Sub StatisticaGruppo()
        Dim aNumeri() As Integer = Nothing
        Dim aRuote() As Boolean = Nothing
        Dim aPos() As Boolean = Nothing
        Dim nSorte As Integer
        Dim Inizio As Integer
        Dim fine As Integer
        Dim frz As struct_gruppo_formazioni = New struct_gruppo_formazioni
        If Me.LvLunghette.SelectedItems.Count Then

            Dim itmSel As ListViewItem = LvLunghette.SelectedItems(0)
            If GetParamFromItem(itmSel, aNumeri, aRuote, aPos, nSorte, Inizio, fine) Then
                frz.Inizializza(aRuote, nSorte, Inizio, fine, aPos)
                For Each itm As ListViewItem In LvLunghette.SelectedItems
                    GetArrayNumeriFromString(itm.Text, aNumeri)
                    frz.AddNumeri(aNumeri)
                Next

                If cArchivio.StatGruppoFormazione(frz) Then
                    Dim itm As ListViewItem = CtlLvOrdinabile1.Items.Add("Gruppo")
                    itm.SubItems.Add(RuoteBToString(frz.aRuote))
                    itm.SubItems.Add(frz.Sorte)
                    itm.SubItems.Add(frz.Ritardo)
                    itm.SubItems.Add(frz.RitardoMax)
                    itm.SubItems.Add(frz.IncrRitMax)
                    itm.SubItems.Add(frz.Frequenza)
                    itm.SubItems.Add(frz.Presenze)
                    itm.SubItems.Add(frz.Inizio)
                    itm.SubItems.Add(frz.Fine)
                    itm.SubItems.Add(ArrayNumeriToString(frz.aPosizioni))

                    AlimentaUScite(CtlLvOrdinabile2, frz.aUscite)

                End If
            End If
        End If

    End Sub
    Private Sub AlimentaUScite(LvView As ctlLvOrdinabile, frz() As struct_uscita)
        Dim itm As ListViewItem
        For k As Integer = 0 To UBound(frz)
            itm = LvView.Items.Add(frz(k).IdEstr)
            itm.SubItems.Add(cArchivio.GetDataEstrazione(frz(k).IdEstr))
            itm.SubItems.Add(NumeriUscitiToString(frz(k).))
            itm.SubItems.Add(frz(k).Ritardo)
            itm.SubItems.Add(frz(k).RitardoMax)
            itm.SubItems.Add(frz(k).Presenze)
            itm.SubItems.Add(frz(k).Frequenza)
            itm.SubItems.Add(frz(k).IncrRitMax)
        Next
    End Sub

 

[LuigiB]

ci siamo ora manca AlimentaUScite(CtlLvOrdinabile2, frz.aUscite)
hai visto come si fa per capire che parametr ici vogliono ?

 

[Edoardo_95]

ci siamo ora manca AlimentaUScite(CtlLvOrdinabile2, frz.aUscite)
hai visto come si fa per capire che parametr ici vogliono ?

Sisi già fatto. Hai ragione. E che mi sono impuntato sulla struttura delle formazioni senza andare a pensare dove metteva i dati. Quindi non ne uscivo

 

[LuigiB]

quindi procedi con quel pulsante di cui sopra..

 

[LuigiB]

attenzione che le uscite partono da 0 ...

 

[LuigiB]

qui al posto dei pulsanti potresti mettere un menustrip con pulsanti e menu

 

[Edoardo_95]

qui al posto dei pulsanti potresti mettere un menustrip con pulsanti e menu

Vedi l'allegato 2225624

ah stavo facendo cosi

 

[Edoardo_95]

    Private Sub ButtonSelezionaTutto_Click(sender As Object, e As EventArgs) Handles ButtonSelezionaTutto.Click
        For k As Integer = 0 To LvLunghette.Items.Count - 1
            LvLunghette.Items(k).Selected = True
            LvLunghette.Select()
        Next
    End Sub