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
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17

Ultimi Messaggi

Indietro
Alto