NovitĂ 

Mente da programmatore

allora il pulsante stop l'ho messo anche io , quindi ripartendo da questo sorgente che posto devi solo rimettere la parte degli archivi paralleli che stavi per fare .
Ho modificato il discorso browser , la finestra che hai fatto tu la usiamo per fare l'edit e l'aggiunta manuale delle estrazioni , e verra richiamata da quest'altra finestra che ho messo io e nella quale andremo a mettere altre funzionalitaa oltre a quelle che io ho messo per esempio


www.mediafire.com

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 ha scritto:
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.
Clicca per espandere...
Il controllo devo metterlo al load del form dove lancio il carimento degli item? oppure nel form crea archivi paralleli? non ho ben chiaro
 
dato che gli archivi paralleli vengono creati a partire da quello reale , e dato che con la nostra combo possiamo selezionare un archivio diverso da quello reale per esempio l'archivio L1 , allora la funzione per creare gli archivi paralleli non deve essere abilitata se nella combo non è impostato l'archivioreale , in pratica l'index 0 della combo

invee all selectedchange devi ricaricare la classe archivio col nuovo file prendendolo appunto dalla combo che serve per selezionarlo e che hai gia alimentato
 
LuigiB ha scritto:
dato che gli archivi paralleli vengono creati a partire da quello reale , e dato che con la nostra combo possiamo selezionare un archivio diverso da quello reale per esempio l'archivio L1 , allora la funzione per creare gli archivi paralleli non deve essere abilitata se nella combo non è impostato l'archivioreale , in pratica l'index 0 della combo

invee all selectedchange devi ricaricare la classe archivio col nuovo file prendendolo appunto dalla combo che serve per selezionarlo e che hai gia alimentato
Clicca per espandere...
Aaaaaah ora ho capito. Bene mi metto all'opera appena possibile
 
LuigiB ha scritto:
dato che gli archivi paralleli vengono creati a partire da quello reale , e dato che con la nostra combo possiamo selezionare un archivio diverso da quello reale per esempio l'archivio L1 , allora la funzione per creare gli archivi paralleli non deve essere abilitata se nella combo non è impostato l'archivioreale , in pratica l'index 0 della combo

invee all selectedchange devi ricaricare la classe archivio col nuovo file prendendolo appunto dalla combo che serve per selezionarlo e che hai gia alimentato
Clicca per espandere...
Bene allora nel form MDI mi sono creato una variabile privata globale al form.

Codice: 
    Private IndexArchivio As Integer

questo indicelo cambio al variare del selectedchange

Codice: 
    Private Sub cmbArchivio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbArchivio.SelectedIndexChanged
        IndexArchivio = cmbArchivio.SelectedIndex
    End Sub

Inizialmente ho impedito l'apertura del frmCreaArchPar attraverso un messagebox ma poi ho cambiato idea.

all' interno della sub new del frmMdi ho fatto cosi:

Codice: 
    Private Sub ArchiviParalleliPerPosizioneToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ArchiviParalleliPerPosizioneToolStripMenuItem.Click
        Dim frm As New frmCreaArchPar(IndexArchivio, cmbArchivio)
        ShowFormChild(frm, True)
    End Sub

Ho creato due variabili di comodo temporanee e globali all'interno del form frmCreaArchPar

Codice: 
    Private cmbTmp As ComboBox
    Private IndexArchivioTmp As Integer

assegno i valori presi dalla chiamata nel form MDI

Codice: 
    Sub New(IndexArchivio As Integer, cmb As ComboBox)
        cmbTmp = cmb
        IndexArchivioTmp = IndexArchivio

        InitializeComponent()

        GestioneAbilitaDisabilita(IndexArchivioTmp, cmbTmp)


    End Sub

disabili o abilito i controlli in relazione all'indice dell'archivio:

Codice: 
   Sub GestioneAbilitaDisabilita(Index As Integer, cmb As ComboBox)
        Dim bControlForm As Boolean
        Dim bComboBox As Boolean


        If Index = 0 Then bControlForm = True And bComboBox = False
        ButtonOK.Enabled = bControlForm
        cmb.Enabled = bComboBox


        If Index <> 0 Then bControlForm = False And bComboBox = False
        ButtonOK.Enabled = bControlForm
        CheckBox1.Enabled = bControlForm
        ComboBox1.Enabled = bControlForm
        ButtonAnnulla.Enabled = bControlForm
        cmb.Enabled = bComboBox


    End Sub

Codice: 
    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
            cmbTmp.Enabled = True
            MessageBox.Show("Fine processo", "Fine", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Close()
        Else
            cApNew.StopProcess()

        End If
    End Sub


all'evento shown del form in relazione all'indice mostro o meno una messagebox


Codice: 
    Private Sub frmCreaArchPar_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        If IndexArchivioTmp <> 0 Then
            If MessageBox.Show("Gli archivi paralleli si possono creare a partire da un archivio di base. Selezionare l'archivio di base 'Lotto' in basso a sinistra. Archivio parallelo attualmente selezionato: " & cmbTmp.SelectedItem.ToString, GetNomeAppEVersione, MessageBoxButtons.OK, MessageBoxIcon.Information) Then
                cmbTmp.Enabled = True
                Me.Close()
            End If

        End If
    End Sub

Da notare che grazie al "passaggio" della combobox ho gestito internamente al form frmCreaArchPar l'enable e disable della cmbArchivio del form principale. In modo tale da non permettere cambiamenti di archivio durante l'esecuzione del form stesso e della function che crea gli archivi.
 
LuigiB ha scritto:
dato che gli archivi paralleli vengono creati a partire da quello reale , e dato che con la nostra combo possiamo selezionare un archivio diverso da quello reale per esempio l'archivio L1 , allora la funzione per creare gli archivi paralleli non deve essere abilitata se nella combo non è impostato l'archivioreale , in pratica l'index 0 della combo

invee all selectedchange devi ricaricare la classe archivio col nuovo file prendendolo appunto dalla combo che serve per selezionarlo e che hai gia alimentato
Clicca per espandere...
Per quanto riguarda la seconda parte ho semplicemente fatto così


Codice: 
    Private Sub cmbArchivio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbArchivio.SelectedIndexChanged
        IndexArchivio = cmbArchivio.SelectedIndex
        If IndexArchivio = 0 Then
            sFileArchivio = GetPercorsoArchivio()

        Else
            sFileArchivio = GetPercorsoFileArchivioParallelo(IndexArchivio)
        End If
        cArchivio = New ClsArchivio(sFileArchivio)
    End Sub
 
ciao Edoardo , hai fatto bene , per stare ancora piu sicuri dato che il cambio dell'archivio potrebbe creare confusione se cis sono altre funzioni aperte
bisogan fare cosi
1) chiudere tutti i form aperti previa conferma tranne il form mdi ovviamente
2) far apparire in modo modal la finsetra che crea gli archivi paralleli.

per chiudere tutti i form usa questa sub

Codice: 
    Sub CloseAllForm()
        Dim formNames As New List(Of String)
        For Each frm As Form In Application.OpenForms
            If Not (TypeOf frm Is frmMdi) Then
                formNames.Add(frm.Name)

            End If
        Next
        For Each frmName As String In formNames
            Application.OpenForms(frmName).Close()

        Next
    End Sub
 
fatto questo io direi di dedicarci alla finestra Estazione che ho messo io ieri.
Innanzi tutto da li è possibile lanciare la funzione edit/add estrazioni quindi attenzione in quel pulsante prima va fatto un controllo che faccia aprire il form add/edit solo se siamo nell'archivio reale.
Puoi tranquillamente testare l'index della combo box della selezione archivio , se è 0 il form puo essere aperto senno no.

successivamente bisogna alimentarte le listview delel somme e delle distanze tra gli estratti , le devi mettere perche io non le ho messe.
 
LuigiB ha scritto:
fatto questo io direi di dedicarci alla finestra Estazione che ho messo io ieri.
Innanzi tutto da li è possibile lanciare la funzione edit/add estrazioni quindi attenzione in quel pulsante prima va fatto un controllo che faccia aprire il form add/edit solo se siamo nell'archivio reale.
Puoi tranquillamente testare l'index della combo box della selezione archivio , se è 0 il form puo essere aperto senno no.

successivamente bisogna alimentarte le listview delel somme e delle distanze tra gli estratti , le devi mettere perche io non le ho messe.
Clicca per espandere...
Va bene procedo
 
LuigiB ha scritto:
fatto questo io direi di dedicarci alla finestra Estazione che ho messo io ieri.
Innanzi tutto da li è possibile lanciare la funzione edit/add estrazioni quindi attenzione in quel pulsante prima va fatto un controllo che faccia aprire il form add/edit solo se siamo nell'archivio reale.
Puoi tranquillamente testare l'index della combo box della selezione archivio , se è 0 il form puo essere aperto senno no.

successivamente bisogna alimentarte le listview delel somme e delle distanze tra gli estratti , le devi mettere perche io non le ho messe.
Clicca per espandere...
Sicuramente sarà una domanda sciocca e ti chiedo scusa ma non riesco a capire il perché. Vorrei prendere il valore della variabile globale interna al form con un readonly ma non funge.

Codice: 
    Public ReadOnly Property ArchivioPuntato() As Integer
        Get
            Return IndexArchivio
        End Get
    End Property

Come posso risolvere?
 
bhe se la proprieta che vuoi mettere è nel form mdi non ha senso passare per quella variabile index archivio in quanto basta leggere la proprieta selected index delal combo

Public ReadOnly Property ArchivioPuntato As Integer
Get
Return cmbArchivio.SelectedIndex
End Get
End Property
 
sospendiamo un secondo questa finestra per accontentare chi ci chiede degli aggiornamenti

inserisci questa classe

Codice: 
Option Compare Text

Public Class clsEstrMonopoli

    Private WebB As WebBrowser



    Sub New()
        WebB = New WebBrowser

    End Sub
    Public Property WebBrowser As WebBrowser
        Get
            Return WebB
        End Get
        Set(value As WebBrowser)
            WebB = value
        End Set
    End Property

    Sub Naviga(sUrl As String)


        WebB.Navigate(sUrl)
        Do While WebB.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop

    End Sub



    Friend Function GetEstrazione(ByRef strctE As StrEstrazione, Optional nTentativiMax As Integer = 20) As Boolean



        Dim docAll As HtmlElementCollection = Nothing
        Dim doc As HtmlDocument
        Dim bFound As Boolean
        Dim nTentativi As Integer
        Dim nRuota As Integer, nPos As Integer
        Dim sTemp As String
        Dim nEstratto As Integer


        nRuota = 1
        strctE.DimensionaRuote()

        Do
            System.Threading.Thread.Sleep(500)
            Application.DoEvents()
            If Not IsNothing(WebB.Document) Then
                doc = WebB.Document

                For Each element In doc.All
                    If UCase(element.tagName) = "DIV" Then

                        If element.Id = "contenuti_aams" Then


                            docAll = element.All

                            Exit For
                        End If
                    End If
                Next


                If Not IsNothing(docAll) Then

                    For Each element As HtmlElement In docAll
                        If element.TagName.ToString.ToUpper = "TABLE" Then

                            If element.InnerText.Contains("Estrazione") Then
                                sTemp = element.InnerText
                                Dim i As Integer = sTemp.IndexOf(vbCrLf)
                                If i > 0 Then
                                    sTemp = sTemp.Substring(0, i)

                                    sTemp = Replace(sTemp, "n°", "")

                                    Dim av() As String = sTemp.Split(" ")
                                    If av.GetUpperBound(0) >= 3 Then
                                        If IsDate(av(3)) AndAlso IsNumeric(av(1)) Then
                                            strctE.Data.Data = ConvertTodate(av(3))
                                            strctE.Data.Numero = ConvertToInt(av(1))

                                            For Each cell As HtmlElement In element.All

                                                If (cell.TagName.ToString.ToUpper).Contains("TD") Then

                                                    nEstratto = ConvertToInt(cell.InnerText.Trim)
                                                    If nEstratto > 0 Then
                                                        nPos += 1
                                                        If nPos = 6 Then
                                                            nPos = 1
                                                            nRuota += 1
                                                        End If

                                                        strctE.Ruote(nRuota).SetNumero(nEstratto, nPos)
                                                    End If

                                                End If
                                            Next cell
                                        End If
                                    End If

                                    bFound = nRuota >= 10

                                End If
                            End If
                        End If

                    Next

                End If
            End If

            nTentativi += 1
            If nTentativi > nTentativiMax Then Exit Do
        Loop While bFound = False

        Return bFound

    End Function
End Class


in un form con una listbox invece metti questa sub e lanciala da un pulsante.


Codice: 
    Sub AggiornaEstrazioni()

        Dim w As clsEstrMonopoli = New clsEstrMonopoli
        Dim strctLastE As StrEstrazione = New StrEstrazione
        Dim strctE As New StrEstrazione
        Dim sLink As String = "https://www.adm.gov.it/portale/monopoli/giochi/gioco-del-lotto/lotto_g/lotto_estr?prog=[PROG]&anno=[ANNO]"  ' esempio  : https://www.adm.gov.it/portale/monopoli/giochi/gioco-del-lotto/lotto_g/lotto_estr?prog=142&anno=2021
        Dim sLinkTmp As String
        Dim nLastMese As Integer
        Dim nIndiceMensile As Integer
        Dim nIdEstr As Integer
        Dim nAggiornate As Integer


        Dim NumEstrAnn As Integer



        If cArchivio.GetEstrazione(cArchivio.QuantitaEstrazioni, strctLastE) Then
            NumEstrAnn = strctLastE.Data.Numero
            nLastMese = Month(strctLastE.Data.Data)
            nIndiceMensile = strctLastE.Data.Numero
            nIdEstr = cArchivio.QuantitaEstrazioni

            For nAnno As Integer = Year(strctLastE.Data.Data) To Year(Now)

                Do
                    NumEstrAnn += 1
                    sLinkTmp = Replace(sLink, "[PROG]", NumEstrAnn.ToString)
                    sLinkTmp = Replace(sLinkTmp, "[ANNO]", nAnno.ToString)
                    ListBox1.Items.Add(sLinkTmp)
                    ListBox1.SelectedIndex = ListBox1.Items.Count - 1
                    Application.DoEvents()

                    w.Naviga("abaut:blank")
                    w.Naviga(sLinkTmp)

                    If w.GetEstrazione(strctE) Then
                        nIdEstr += 1
                        If Month(strctE.Data.Data) = nLastMese Then
                            nIndiceMensile += 1
                        Else
                            nIndiceMensile = 1
                        End If
                        strctE.Data.Numero = NumEstrAnn
                        strctE.Data.IndiceMensile = nIndiceMensile
                        strctE.identifier = nIdEstr

                        nLastMese = Month(strctE.Data.Data)
                        cArchivio.ScriviEstrazione(nIdEstr, strctE)
                        nAggiornate += 1
                    Else
                        Exit Do
                    End If

                Loop
                NumEstrAnn = 0


            Next

        End If

        MsgBox("Fine Estrazioni aggiornate : " & nAggiornate.ToString)

    End Sub
 
è chiaro che pure l'aggiornamento delle estrazioni debba essere fatto solo se puntimo l'archivio corrente.
 
LuigiB ha scritto:
sospendiamo un secondo questa finestra per accontentare chi ci chiede degli aggiornamenti

inserisci questa classe

Codice: 
Option Compare Text

Public Class clsEstrMonopoli

    Private WebB As WebBrowser



    Sub New()
        WebB = New WebBrowser

    End Sub
    Public Property WebBrowser As WebBrowser
        Get
            Return WebB
        End Get
        Set(value As WebBrowser)
            WebB = value
        End Set
    End Property

    Sub Naviga(sUrl As String)


        WebB.Navigate(sUrl)
        Do While WebB.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop

    End Sub



    Friend Function GetEstrazione(ByRef strctE As StrEstrazione, Optional nTentativiMax As Integer = 20) As Boolean



        Dim docAll As HtmlElementCollection = Nothing
        Dim doc As HtmlDocument
        Dim bFound As Boolean
        Dim nTentativi As Integer
        Dim nRuota As Integer, nPos As Integer
        Dim sTemp As String
        Dim nEstratto As Integer


        nRuota = 1
        strctE.DimensionaRuote()

        Do
            System.Threading.Thread.Sleep(500)
            Application.DoEvents()
            If Not IsNothing(WebB.Document) Then
                doc = WebB.Document

                For Each element In doc.All
                    If UCase(element.tagName) = "DIV" Then

                        If element.Id = "contenuti_aams" Then


                            docAll = element.All

                            Exit For
                        End If
                    End If
                Next


                If Not IsNothing(docAll) Then

                    For Each element As HtmlElement In docAll
                        If element.TagName.ToString.ToUpper = "TABLE" Then

                            If element.InnerText.Contains("Estrazione") Then
                                sTemp = element.InnerText
                                Dim i As Integer = sTemp.IndexOf(vbCrLf)
                                If i > 0 Then
                                    sTemp = sTemp.Substring(0, i)

                                    sTemp = Replace(sTemp, "n°", "")

                                    Dim av() As String = sTemp.Split(" ")
                                    If av.GetUpperBound(0) >= 3 Then
                                        If IsDate(av(3)) AndAlso IsNumeric(av(1)) Then
                                            strctE.Data.Data = ConvertTodate(av(3))
                                            strctE.Data.Numero = ConvertToInt(av(1))

                                            For Each cell As HtmlElement In element.All

                                                If (cell.TagName.ToString.ToUpper).Contains("TD") Then

                                                    nEstratto = ConvertToInt(cell.InnerText.Trim)
                                                    If nEstratto > 0 Then
                                                        nPos += 1
                                                        If nPos = 6 Then
                                                            nPos = 1
                                                            nRuota += 1
                                                        End If

                                                        strctE.Ruote(nRuota).SetNumero(nEstratto, nPos)
                                                    End If

                                                End If
                                            Next cell
                                        End If
                                    End If

                                    bFound = nRuota >= 10

                                End If
                            End If
                        End If

                    Next

                End If
            End If

            nTentativi += 1
            If nTentativi > nTentativiMax Then Exit Do
        Loop While bFound = False

        Return bFound

    End Function
End Class


in un form con una listbox invece metti questa sub e lanciala da un pulsante.


Codice: 
    Sub AggiornaEstrazioni()

        Dim w As clsEstrMonopoli = New clsEstrMonopoli
        Dim strctLastE As StrEstrazione = New StrEstrazione
        Dim strctE As New StrEstrazione
        Dim sLink As String = "https://www.adm.gov.it/portale/monopoli/giochi/gioco-del-lotto/lotto_g/lotto_estr?prog=[PROG]&anno=[ANNO]"  ' esempio  : https://www.adm.gov.it/portale/monopoli/giochi/gioco-del-lotto/lotto_g/lotto_estr?prog=142&anno=2021
        Dim sLinkTmp As String
        Dim nLastMese As Integer
        Dim nIndiceMensile As Integer
        Dim nIdEstr As Integer
        Dim nAggiornate As Integer


        Dim NumEstrAnn As Integer



        If cArchivio.GetEstrazione(cArchivio.QuantitaEstrazioni, strctLastE) Then
            NumEstrAnn = strctLastE.Data.Numero
            nLastMese = Month(strctLastE.Data.Data)
            nIndiceMensile = strctLastE.Data.Numero
            nIdEstr = cArchivio.QuantitaEstrazioni

            For nAnno As Integer = Year(strctLastE.Data.Data) To Year(Now)

                Do
                    NumEstrAnn += 1
                    sLinkTmp = Replace(sLink, "[PROG]", NumEstrAnn.ToString)
                    sLinkTmp = Replace(sLinkTmp, "[ANNO]", nAnno.ToString)
                    ListBox1.Items.Add(sLinkTmp)
                    ListBox1.SelectedIndex = ListBox1.Items.Count - 1
                    Application.DoEvents()

                    w.Naviga("abaut:blank")
                    w.Naviga(sLinkTmp)

                    If w.GetEstrazione(strctE) Then
                        nIdEstr += 1
                        If Month(strctE.Data.Data) = nLastMese Then
                            nIndiceMensile += 1
                        Else
                            nIndiceMensile = 1
                        End If
                        strctE.Data.Numero = NumEstrAnn
                        strctE.Data.IndiceMensile = nIndiceMensile
                        strctE.identifier = nIdEstr

                        nLastMese = Month(strctE.Data.Data)
                        cArchivio.ScriviEstrazione(nIdEstr, strctE)
                        nAggiornate += 1
                    Else
                        Exit Do
                    End If

                Loop
                NumEstrAnn = 0


            Next

        End If

        MsgBox("Fine Estrazioni aggiornate : " & nAggiornate.ToString)

    End Sub
Clicca per espandere...
Fatto
 
LuigiB ha scritto:
bhe se la proprieta che vuoi mettere è nel form mdi non ha senso passare per quella variabile index archivio in quanto basta leggere la proprieta selected index delal combo

Public ReadOnly Property ArchivioPuntato As Integer
Get
Return cmbArchivio.SelectedIndex
End Get
End Property
Clicca per espandere...
Nemmeno così funziona....non riesco trasportare fuori dal form l'index del dell'archivio
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto