magicolotto (Normal User)
Expert
 
Messaggi: 338
Iscritto: 21/01/2008
|
Codice sorgente - presumibilmente Plain Text |
Rit Bari
-----------------------
[b]98[/b] -- 10 -- -- --
[b]97[/b] -- -- -- -- --
[b]96[/b] -- -- -- -- --
[b]95[/b] -- -- -- -- --
[b]94[/b] -- -- -- -- --
[b]93[/b] -- -- -- -- --
[b]92[/b] -- -- -- -- --
[b]91[/b] -- -- -- -- --
[b]90[/b] -- -- -- -- --
[b]89[/b] -- -- -- -- --
[b]88[/b] -- -- -- -- --
[b]87[/b] -- -- -- -- --
[b]86[/b] -- -- -- -- --
[b]85[/b] -- -- -- -- --
[b]84[/b] -- -- -- -- --
[b]83[/b] -- -- -- -- --
[b]82[/b] -- -- -- -- --
[b]81[/b] -- -- -- -- --
[b]80[/b] -- -- -- -- --
[b]79[/b] -- -- -- -- --
[b]78[/b] -- -- -- -- --
[b]77[/b] -- -- -- -- --
[b]76[/b] -- -- -- -- --
[b]75[/b] -- -- -- -- --
[b]74[/b] -- -- -- 15 --
[b]73[/b] -- -- -- -- --
[b]72[/b] -- -- -- -- --
|
intendo il numero dei ritardi
che li come noti
l'ho evidenziato in grassetto
li ho messo una parte
dal ritardo 72
al 98
cioè quel dieci(10)
manca da 98 estrazioni
Ultima modifica effettuata da magicolotto il 27/01/2008 alle 20:28 |
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
Beh ... adesso non hai la listbox?
Puoi usare la ListIndex per sapere in quale riga e' il numero e quindi determinare il valore che cerchi.
Oppure lo puoi fare, per tutti i numeri (ma e' piu' difficile) all'interno del codice che ti ho mostrato, mentre crei il tabellone.
|
|
|
magicolotto (Normal User)
Expert
Messaggi: 338
Iscritto: 21/01/2008
|
ecco come ho fatto, ho posto di fianco alla list1, una seconda list
Codice sorgente - presumibilmente VB.NET |
On Error GoTo LocalErr Dim st, numeroline As Integer Dim numeroFin As Variant List2.Clear For st = 0 To List1.ListCount - 1 numeroline = (st) numeroFin = numeroline - 2 List1.ListIndex = st List2.AddItem numeroFin Next st LocalErr:
|
ho inserito quel codicee mi vengono fuori i ritardi sulla stessa linea..
ho due problemi
nella 2° lista
le prime due righe sono
-2
-1
dovrei non visualizzatrle
|
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
Semmai
Codice sorgente - presumibilmente VB.NET |
Dim st As Integer List2.Clear For st = 0 To List1.ListCount - 1 If st>=2 List2.AddItem st-2 Else List2.AddItem "" End If Next st
|
ma con poche modifiche puoi operare in modo simile nella List1 senza necessita' di avere un'altra List ...
Tu hai questa tendenza ad usare mille variabili inutili ... Ad esempio, la variabile numeroline e' assolutamente INUTILE dato che e' una copia della st di cui gia' disponi. E anche fosse necessaria una copia della variabile, non servono le parentesi come hai scritto in
numeroline = (st)
ma semplicemente
numeroline = st
Ultima modifica effettuata da gantonio il 28/01/2008 alle 11:14 |
|
|
magicolotto (Normal User)
Expert
Messaggi: 338
Iscritto: 21/01/2008
|
ok grazie del consiglio
ho unificato tutto in una lista
ecco il risultato parziale :
Codice sorgente - presumibilmente Plain Text |
rit ----- NZ -----
0 57 64 69 75 16
1 41 -- 20 48 --
2 -- 04 10 08 25
3 15 74 29 39 --
4 76 -- 68 -- 63
5 01 42 18 24 26
6 -- 70 -- 83 --
7 21 65 03 02 12
8 49 -- 17 -- 58
9 -- 52 11 44 --
10 -- 22 56 -- 13
11 14 -- 59 -- --
12 -- -- 40 -- --
|
pero' si è creato un piccolissimo problema di SPACE
infatti si nota sopra
che dove i ritardi sono con un numero < 10
9-8-7-6-5-4-3-2-1-0
cioè le prime 10 righe
tutto il resto dopo non è piu' incolonnato come si dovrebbe
non so dove agire
ci sto provando ma non riesco
n.b. grazie dei consigli
copiare la parte nel codice code ed incollarla in blocco note
Ultima modifica effettuata da magicolotto il 28/01/2008 alle 13:53 |
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
Quale codice hai usato?
|
|
|
magicolotto (Normal User)
Expert
Messaggi: 338
Iscritto: 21/01/2008
|
Codice sorgente - presumibilmente VB.NET |
Dim rs As ADODB.Recordset Dim RUS As String Dim RU() As String Dim R As Integer Dim N As Integer Dim RN(1 To 11, 1 To 90) Dim C(1 To 11) Dim NN As Integer Dim NS As String * 164 Dim v As Integer Dim p As Integer Dim ss As String * 2 Dim st As Integer RUS = "--*BA*CA*FI*GE*MI*NA*PA*RO*To*VE*NZ*" RU = Split(RUS, "*") With List1 .Font.Name = "Terminal" .Font.Size = 7 .Clear NS = Space$(164) For R = 1 To 11 Mid$(NS, (R - 1) * 15 + 1) = "----- " & RU(R) & " ----- " Next R .AddItem "-rit- " & NS .AddItem "" End With For R = 1 To 11 C(R) = 0 For N = 1 To 90 RN(R, N) = -1 Next N Next R Set rs = New ADODB.Recordset rs.Open "Select * FROM Archivio ORDER BY Id DESC", cn, adOpenForwardOnly Do While Not rs.EOF NS = Space$(164) For st = 0 To List1.ListCount - 1 Next st For R = 1 To 11 If C(R) < 90 Then For NN = 1 To 5 v = Val(rs.Fields(RU(R) & CStr(NN)).Value) p = (R - 1) * 15 + (NN - 1) * 3 + 1 If RN(R, v) = -1 Then RN(R, v) = v C(R) = C(R) + 1 ss = Format$(v, "00") Else ss = "--" End If Mid$(NS, p) = ss Next NN End If Next R If st >= 2 Then st = st - 2 Else End If If NS <> Space$(164) Then List1.AddItem st & " --> " & NS rs.MoveNext Loop rs.Close Set rs = Nothing
|
|
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
Ma la
For st ...
seguita subito dalla
Next
e la If st ... in basso ...
a cosa servono???
Scrivendo del codice a caso non fai altro che rendere inutile il resto del programma ...
Ultima modifica effettuata da gantonio il 28/01/2008 alle 15:59 |
|
|
