Novità

Mente da programmatore

ho messo la proprità readonly come da tuo consiglio. la richiamo nel frmEstrazioni alla pressione del button modifica

Codice:
    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Dim frm As New FrmBrowser
        Dim mdifrm As New frmMdi
        If mdifrm.ArchivioPuntato = 0 Then
            frm.ShowDialog() 
            ImpostaLimitiScroll(False)
            AlimentaGriglia(HScrollBar1.Value)
        End If
    End Sub

archiviopuntato non restituisce mai un valore diverso da 0
 
ah si è .. dopo tutti i soldi che ho speso pe fatte studia ...

commenta ogni singola linea di codice che hai scritto ...
 
quali liste dici quelle delel somme e delle distanze ? quelle puoi usare delel seplici listview dato che devi mostrare la differenza o la somma tra i numeri delel 5 posizioni
 
sembrerebbe che la combobox non accetti valori stringa ....mi sembra strano ci sarà qualche proprietà da impostare io ho il 2019
 
Sisi sul 2019 nessun problema anzi tutto perfetto. La cosa cambia sul 2022. l'unica differenza sostanziale tra i due risiede nel net framework. Sicuramente sarà come dici tu. Però va beh l'importante è aver risolto
 
prova a mettere rem su tutti gl ieventi della combo e riprova .. mi sembra un errre strano non vorrei che capiti perche scatta l'eventoselection change
 
bha che stranezza mi sono scaricato il 2022 per vedere ,allora l'errore capita in modalita release , la versione del framework non c'entra è la stessa 4.7.2
la cosa ancora piu strana è che cancellando la routine e riscrivendola dopo funziona eppure sono uguali .. fai la prova

Codice:
 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
 
ti conviene copiare anche il file ini dalla cartella debug a quella release cosi come pure la cartella archivio
 
bha che stranezza mi sono scaricato il 2022 per vedere ,allora l'errore capita in modalita release , la versione del framework non c'entra è la stessa 4.7.2
la cosa ancora piu strana è che cancellando la routine e riscrivendola dopo funziona eppure sono uguali .. fai la prova

Codice:
 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
Si in effetti hai ragione. Muah strano
 
quali liste dici quelle delel somme e delle distanze ? quelle puoi usare delel seplici listview dato che devi mostrare la differenza o la somma tra i numeri delel 5 posizioni
Quindi devo mettere come colonne "distanza" oppure somme, ruote,posizioni giusto?

E poi con somma cosa si intende?

primo estratto + secondo estratto
primo estratto + terzo

ecc ecc

giusto?
 
si esatto . .gli esperti di lotto siete voi :) non so tu ma certo non io ..
intendevo 2 listview che mostrino le somme e le differenze ciclometriche deglie estratti comese un osviluppasse 5 numeri in classe 2 e di ogni colonna facesse la somma o la differenza. Solo che le 10 combinazioni vanno messe tutte su una riga corrispondente a quella ruota , i ltitolo della colonna è 1-2 . 1-3 ... 4-5
in una lista mostri le somme in un altra le differenze
Crea un modulo AssistenteLotto dove metteremo varie funzioni specifiche tipoo quelle chedovrai scrivere fuori90 e DiffCiclometrica
 
poi una volta fatto prova ad evidenziare cambiando il colore font al subitems le somme o le distanze uguali , oppure a riportarle in una list a parte una per ciascuna delle 2 somme e distanze
 
Allora ho fatto tutto. Sono talmente tante le cose che ho fatto (a livello di codice) che pur volendo non potrei nemmeno scriverle. Posto direttamente sorgenti


Inoltre ho risolto il problema in merito agli archivi paralleli (Non leggeva l'archivio L5)
 
Stavo pensando una cosa (so che me ne pentirò amaramente). Potremo fare un form stile statistiche lunghette ma più semplice. Potremmo chiamarlo statistiche lunghette ridotte. Uno inserisce una combinazione e seleziona la sortegarantita e la classe di sviluppo ed ottiene la statistica di tutte le lunghette a garanzia n-k con le rispettive uscite. Nella list view metteremmo solo la singola lunghetta e poi subitems. Subitems delle formazioni ridotte. Ovviamente metteremmo un limite di classe di sviluppo pari a tre. Cattiva idea?
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto