Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
L
LuigiB
Guest
ti ricordi che ho detto che la grid ha le proprieta rows e cols ?
le hai impostate ?
Ciao !
le hai impostate ?
Ciao !
per Paciola
Private Sub Form_Load()
PopolaFlex
AlimentaGriglia
End Sub
Sub PopolaFlex()
Dim cel As Integer
With FlexArchivio
.Rows = 2 ''quantita di righe allapertura
.Cols = 56 ' quantità di colonne
.Font.Name = "Verdana"
.Font.Size = 8
.FontWidth = 3.5
.TextMatrix(0, 0) = "Data"
For cel = 1 To 56
.Redraw = False
' imposta la larghezza delle colonne della griglia
.ColWidth(0) = 950 '' riga e colonna fixed
.ColWidth(cel) = 250
Next cel
.AllowBigSelection = False
.FillStyle = flexFillSingle
.Redraw = True
'''' unisce celle superiori per scrivere le ruote
ncol = 0
For j = 1 To 11
For i = 1 To 5
ncol = ncol + 1
.MergeCells = flexMergeFree
.TextMatrix(0, ncol) = aNomiRuote(j)
.MergeRow(0) = True
Next
Next
End With
End Sub
Sub AlimentaGriglia()
ReDim aEstr(0) As STRUCT_ESTRAZIONE
Dim QMax As Long
Dim nPrimaRiga As Long
Dim nPrimaColonna As Long
Dim k As Integer, r As Integer
Dim ncol
QMax = GetQuantitaEstrInArchivio
Call ApriBaseDatiInMemoria(1, QMax, aEstr)
If UBound(aEstr) > 0 Then
'Me.FlexArchivio.Clear
nPrimaRiga = 1
nPrimaColonna = 0
For k = 1 To UBound(aEstr)
Me.FlexArchivio.TextMatrix(nPrimaRiga, nPrimaColonna) = aEstr(k).DataEstr.nNumEstr & "-" & TranslateDataEstToHuman(aEstr(k).DataEstr)
ncol = 0 ''' conta il numero delle colonne che va da 1 a 55
For r = 1 To 11
For v = 1 To 5
ncol = ncol + 1 ' alla fine di bari 5 alla fine di cagliari 10 e cosi via
Me.FlexArchivio.TextMatrix(nPrimaRiga, ncol) = aEstr(k).aRuote(r).aNum(v)
Next
Next
If k = QMax Then Exit Sub ' se ultima in archivio esco
nPrimaRiga = nPrimaRiga + 1 'aumenta vado riga successiva
FlexArchivio.Rows = FlexArchivio.Rows + 1 ' aumento le righe nella griglia in run time
Next k
End If
End Sub
Ho una domanda da fare.
chi di voi avrebbe già sviluppato il codice Aggiornamento manuale archivio
con salvataggio nel file .dat se vorrà metterlo a disposizione
ringrazio in anticipo
esselotto
Private Sub Form_Load()
PopolaFlex
AlimentaGriglia
End Sub
Sub PopolaFlex()
Dim cel As Integer
With FlexArchivio
.Rows = 2 ''quantita di righe allapertura
.Cols = 56 ' quantità di colonne
.Font.Name = "Verdana"
.Font.Size = 8
.FontWidth = 3.5
.TextMatrix(0, 0) = "Data"
For cel = 1 To 56
.Redraw = False
' imposta la larghezza delle colonne della griglia
.ColWidth(0) = 950 '' riga e colonna fixed
.ColWidth(cel) = 250
Next cel
.AllowBigSelection = False
.FillStyle = flexFillSingle
.Redraw = True
'''' unisce celle superiori per scrivere le ruote
ncol = 0
For j = 1 To 11
For i = 1 To 5
ncol = ncol + 1
.MergeCells = flexMergeFree
.TextMatrix(0, ncol) = aNomiRuote(j)
.MergeRow(0) = True
Next
Next
End With
End Sub
Sub AlimentaGriglia()
ReDim aEstr(0) As STRUCT_ESTRAZIONE
Dim QMax As Long
Dim nPrimaRiga As Long
Dim nPrimaColonna As Long
Dim k As Integer, r As Integer
Dim ncol
QMax = GetQuantitaEstrInArchivio
Call ApriBaseDatiInMemoria(1, QMax, aEstr)
If UBound(aEstr) > 0 Then
'Me.FlexArchivio.Clear
nPrimaRiga = 1
nPrimaColonna = 0
For k = 1 To UBound(aEstr)
Me.FlexArchivio.TextMatrix(nPrimaRiga, nPrimaColonna) = aEstr(k).DataEstr.nNumEstr & "-" & TranslateDataEstToHuman(aEstr(k).DataEstr)
ncol = 0 ''' conta il numero delle colonne che va da 1 a 55
For r = 1 To 11
For v = 1 To 5
ncol = ncol + 1 ' alla fine di bari 5 alla fine di cagliari 10 e cosi via
Me.FlexArchivio.TextMatrix(nPrimaRiga, ncol) = aEstr(k).aRuote(r).aNum(v)
Next
Next
If k = QMax Then Exit Sub ' se ultima in archivio esco
nPrimaRiga = nPrimaRiga + 1 'aumenta vado riga successiva
FlexArchivio.Rows = FlexArchivio.Rows + 1 ' aumento le righe nella griglia in run time
Next k
End If
End Sub
Ho una domanda da fare.
chi di voi avrebbe già sviluppato il codice Aggiornamento manuale archivio
con salvataggio nel file .dat se vorrà metterlo a disposizione
ringrazio in anticipo
esselotto
Ciao esselotto,
grazie per aver postato il codice.
Ora , più che copiarlo, cerco di studiarlo altrimenti non mi serve a niente!!
Io l'ho implementato l'inserimento manuale, ma non so ancora se funziona bene in quanto non avevo estrazioni da inserire.
Ora lo provo inserendo quella di ieri sera e, se tutto va bene, te lo posto.
Ciao
Davide
quote:Originally posted by paciola
Ciao esselotto,
grazie per aver postato il codice.
Ora , più che copiarlo, cerco di studiarlo altrimenti non mi serve a niente!!
Io l'ho implementato l'inserimento manuale, ma non so ancora se funziona bene in quanto non avevo estrazioni da inserire.
Ora lo provo inserendo quella di ieri sera e, se tutto va bene, te lo posto.
Ciao
Davide
ciao Davide
E' sottointeso che ognuno deve copiarlo e studiare i vari passaggi altrimenti
non si impara mai. E poi usarlo come meglio crede. Spero di aver mandato un codice comprensibile.
Infatti Leggi e confronta con il tuo. Ho cercato di mettere accanto qualche spiegazione.
senza nulla togliere a Luigi
Importante è la parte segnata in rosso
serve per la formattazione del numero.
altrimenti dovresti aumentare la larghezza della colonna .ColWidth(cel) = 250
.Font.Name = "Verdana"
.Font.Size = 8
.FontWidth = 3.5 ' <---------------
.TextMatrix(0, 0) = "Data"
For cel = 1 To 56
.Redraw = False
' imposta la larghezza delle colonne della griglia
.ColWidth(0) = 950 '' riga e colonna fixed
.ColWidth(cel) = 250
detto ciò
buon proseguimento
esselotto
pfca
Advanced Member >GOLD<
Ciao Esselotto,
tu hai scritto di aggiungere il seguente componente dal menu Progetto:
Microsoft Hierarchical FlexGrid Control 6.0(SP6)
Io nel mio ritrovo solo queste due voci:
Microsoft Flexgrid Control 6.0 (SP6) e
Microsoft Hierarchical Flexgrid Control 6.0 (Sp4)
Mi puoi dire se vanno bene o se devo fare qualche altra ricerca?
Grazie
C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco
tu hai scritto di aggiungere il seguente componente dal menu Progetto:
Microsoft Hierarchical FlexGrid Control 6.0(SP6)
Io nel mio ritrovo solo queste due voci:
Microsoft Flexgrid Control 6.0 (SP6) e
Microsoft Hierarchical Flexgrid Control 6.0 (Sp4)
Mi puoi dire se vanno bene o se devo fare qualche altra ricerca?
Grazie
C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco
Ciao esselotto
ti ringrazio per il chiarimento di cui sopra.
Allego la videata di quello che esce.
Putroppo i numeri non sono allineati bene, ho provato ad usare la proprietà ColAllignmentFixed = 4 (che sarebbe CenterCenter) ma funziona solo con l'intestazione e non con il resto delle celle.
Ho ragionato come se fosse un foglio excel, che se selezioni l'intera colonna e allinei tutto in centro, lo fa con il contenuto di tutte le celle. Ma cosi non va.
E poi vorrei colorare alternativamente le colonne per differenziarle.
Immagino occorra utilizzare la proprietà BackColor...ci proverò!
Per quanto riguarda l'inserimento manuale, di cui ti parlavo prima, al momento non funziona (casualmente!!!).
Devo verificare che cavolo ho combinato.
Ti faccio sapere.
Davide
ti ringrazio per il chiarimento di cui sopra.
Allego la videata di quello che esce.
Putroppo i numeri non sono allineati bene, ho provato ad usare la proprietà ColAllignmentFixed = 4 (che sarebbe CenterCenter) ma funziona solo con l'intestazione e non con il resto delle celle.
Ho ragionato come se fosse un foglio excel, che se selezioni l'intera colonna e allinei tutto in centro, lo fa con il contenuto di tutte le celle. Ma cosi non va.
E poi vorrei colorare alternativamente le colonne per differenziarle.
Immagino occorra utilizzare la proprietà BackColor...ci proverò!
Per quanto riguarda l'inserimento manuale, di cui ti parlavo prima, al momento non funziona (casualmente!!!
).Devo verificare che cavolo ho combinato.
Ti faccio sapere.
Davide
Rigrazio Paciola per l'aiuto che mi ha dato,
per esselotto come si fa usare il codice che hai postato non mi alimenta l'estrazione del flexgrid mi dal'errore del felxarchivio
mi da errore utilizzo del parola chiave me, ho letto nel help dice che Laparola chiave Me può essere utilizzata nei moduli di classe.
il codice lo dovrei usare ne modulo di classe?
grazie
saluti Aldo
per esselotto come si fa usare il codice che hai postato non mi alimenta l'estrazione del flexgrid mi dal'errore del felxarchivio
mi da errore utilizzo del parola chiave me, ho letto nel help dice che Laparola chiave Me può essere utilizzata nei moduli di classe.
il codice lo dovrei usare ne modulo di classe?
grazie
saluti Aldo
Microsoft Flexgrid Control 6.0 (SP6) e
Microsoft Hierarchical Flexgrid Control 6.0 (Sp4)
puoi usare anche il primo flexgrid control 6.0
o il Hierarchical
qualsiasi datagrid va bene
basta leggere la guida in linea del componente
oppure vai su planet source code e ti scarichi qualche esempio
pagina VB6 sulla casella cerca scrivi Flexgrid
ti uscirano delle pagine con codici sorgenti fai il download
e studiati la struttura
esselotto
Ciao a tutti gli amici
Condivido l'ultima versione. Dovrebbe funzionare tutto, anche l'aggiornamento manuale.
Aiutiamoci e proseguiamo con lo sviluppo.
http://www.4shared.com/file/qT-i3SIb/LottoVB_1_3.html
Ciao Davide
Condivido l'ultima versione. Dovrebbe funzionare tutto, anche l'aggiornamento manuale.
Aiutiamoci e proseguiamo con lo sviluppo.
http://www.4shared.com/file/qT-i3SIb/LottoVB_1_3.html
Ciao Davide
Prossimo passo.
Vorrei provare ad implementare la modifica suggerita da Luigi per la visualizzazione dell'archivio tramite la scrollbar.
E poi vorrei provare a fare la divisione delle estrazioni in decina e visualizzarle.
Secondo voi che tipo di controllo si può usare? Ancora un FlexGrid?
Attendo pareri.
Ciao
Davide
Vorrei provare ad implementare la modifica suggerita da Luigi per la visualizzazione dell'archivio tramite la scrollbar.
E poi vorrei provare a fare la divisione delle estrazioni in decina e visualizzarle.
Secondo voi che tipo di controllo si può usare? Ancora un FlexGrid?
Attendo pareri.
Ciao
Davide
Atlantis57
Super Member >PLATINUM<
Ciao Paciola,
vedo che stai approfondendo sempre di più il VB,
però noto una lentezza nelle elaborazioni,
in confronto a spaziometria il tabellone dell'intero archivio è molto più lento.[:I][:I]
vedo che stai approfondendo sempre di più il VB,
però noto una lentezza nelle elaborazioni,
in confronto a spaziometria il tabellone dell'intero archivio è molto più lento.[:I][:I]
Atlantis57
Super Member >PLATINUM<
Se non sbaglio,da qualche parte avevo letto,
che le varie text si potevano creare con un ciclo For Next,
senza elencarle ad una ad una.
questo ciclo For Next azzera Nuova estrazione
For I = 0 To 54
Controls("Text" & I).Text = ""
Next I
sostituisce
che le varie text si potevano creare con un ciclo For Next,
senza elencarle ad una ad una.
questo ciclo For Next azzera Nuova estrazione
For I = 0 To 54
Controls("Text" & I).Text = ""
Next I
sostituisce
Codice:
Me.Text0 = ""
Me.Text1 = ""
Me.Text2 = ""
Me.Text3 = ""
Me.Text4 = ""
Me.Text5 = ""
Me.Text6 = ""
Me.Text7 = ""
Me.Text8 = ""
Me.Text9 = ""
Me.Text10 = ""
Me.Text11 = ""
Me.Text12 = ""
Me.Text13 = ""
Me.Text14 = ""
Me.Text15 = ""
Me.Text16 = ""
Me.Text17 = ""
Me.Text18 = ""
Me.Text19 = ""
Me.Text20 = ""
Me.Text21 = ""
Me.Text22 = ""
Me.Text23 = ""
Me.Text24 = ""
Me.Text25 = ""
Me.Text26 = ""
Me.Text27 = ""
Me.Text28 = ""
Me.Text29 = ""
Me.Text30 = ""
Me.Text31 = ""
Me.Text32 = ""
Me.Text33 = ""
Me.Text34 = ""
Me.Text35 = ""
Me.Text36 = ""
Me.Text37 = ""
Me.Text38 = ""
Me.Text39 = ""
Me.Text40 = ""
Me.Text41 = ""
Me.Text42 = ""
Me.Text43 = ""
Me.Text44 = ""
Me.Text45 = ""
Me.Text46 = ""
Me.Text47 = ""
Me.Text48 = ""
Me.Text49 = ""
Me.Text50 = ""
Me.Text51 = ""
Me.Text52 = ""
Me.Text53 = ""
Me.Text54 = ""Ciao Atlantis
in effetti, come aveva già suggerito Luigi, occorre fare una modifica alla lettura dell'archivio proprio perchè caricare tutte le estrazioni in memoria causa un rallentamento nell'apertura della form.
Ci sto già lavorando.
Per quanto riguarda il ciclo sulle textbox l'avevo già implementato ieri sera dopo che avevo già messo in rete il progetto.
Cmq grazie per i suggerimenti.
A presto
Davide
in effetti, come aveva già suggerito Luigi, occorre fare una modifica alla lettura dell'archivio proprio perchè caricare tutte le estrazioni in memoria causa un rallentamento nell'apertura della form.
Ci sto già lavorando.
Per quanto riguarda il ciclo sulle textbox l'avevo già implementato ieri sera dopo che avevo già messo in rete il progetto.
Cmq grazie per i suggerimenti.
A presto
Davide
Atlantis57
Super Member >PLATINUM<
Ciao Paciola,
per quanto riguarda la visualizzazione dell'archivio,
secondo me si dovrebbe creare una nuova struttura
tipo estratti(55) che poi usare con un ciclo For Next,
purtroppo ho tempi strettissimi,posso dedicarmi solo un pò la sera,per fare dele prove,pian piano mi stò ricordando quel poco che ho studiato anni fa.
per quanto riguarda la visualizzazione dell'archivio,
secondo me si dovrebbe creare una nuova struttura
tipo estratti(55) che poi usare con un ciclo For Next,
purtroppo ho tempi strettissimi,posso dedicarmi solo un pò la sera,per fare dele prove,pian piano mi stò ricordando quel poco che ho studiato anni fa.
Per Paciola
ok prime pecche
1) l'archivio non è completo alcune estrazioni
danno 00 00 0 000 0 0 00 0 0 00 0 0 0 0 0 0 00 0 0 0 0 0 00 0 0 0 00 0
2)MANCA nell'Inserimento manuale
Modifica delle estrazioni
Eliminazione di un'estrazione
molto importanti perchè se sbaglio inserimento dovro pur modificare
esselotto
ok prime pecche
1) l'archivio non è completo alcune estrazioni
danno 00 00 0 000 0 0 00 0 0 00 0 0 0 0 0 0 00 0 0 0 0 0 00 0 0 0 00 0
2)MANCA nell'Inserimento manuale
Modifica delle estrazioni
Eliminazione di un'estrazione
molto importanti perchè se sbaglio inserimento dovro pur modificare
esselotto
per Luigi
Chiedo a Luigi se può dare un'occhiata al file di Paciola
ringrazio anticipatamente
Purtroppo io ho uso archivi in formato .mdb e in formato .dbf
grazie ai file di evidenzie e a quelli di paciola Ho risolto.
scarico da internet
faccio l'unzip del file
e aggiornamento file mdb
Chiedo a Luigi se può dare un'occhiata al file di Paciola
ringrazio anticipatamente
Purtroppo io ho uso archivi in formato .mdb e in formato .dbf
grazie ai file di evidenzie e a quelli di paciola Ho risolto.
scarico da internet
faccio l'unzip del file
e aggiornamento file mdb
Ciao Esselotto
in effetti nell'inserimento manuale, avevo già intenzione di fare le modifiche da te evidenziate.
Per quanto riguarda l'archivio, effettivamente ci sono delle estrazioni a 00 però non so cosa farci. Ho guardato anche l'archivio di Spaziometria e mancano le stesse estrazioni, per cui ho pensato che in certe date, soprattutto vecchie, non ci fossero state le estrazioni.
In caso contrario non saprei dove andarle a recuperare.
Ora sono impegnato in quella modifica proposta da Luigi, mi sta facendo diventare pazzo.....
Poi magari è più semplice di quanto pensi, ma al momento non sono riuscito a farla.
Ciao
Davide
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 21 gennaio 2025Bari7809700323Cagliari3288301345Firenze8723153986Genova7148675923Milano5850808529Napoli9081798262Palermo7033900510Roma1571558576Torino8909183369Venezia4480827358Nazionale8025136317Estrazione Simbolotto
Bari
3936341431
