Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - gioco del lotto
Forum - Visual Basic 6 - gioco del lotto - Pagina 3

Pagine: [ 1 2 3 4 5 6 ] Precedente | Prossimo
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 11:24
Domenica, 27/01/2008
perfettoooo


non so come ringraziartiiii

grazieeee






cmq sei fantastico

e devo ammettere che  non ce l'avrei mai fatta a creare tale meccanismo

adesso devo capire il xchè nella listbox

scrive anche tutte le righe per quanti sono i recordset

PM
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 11:26
Domenica, 27/01/2008
scus a la domanda.....

questo :  Space$(150)

che vuol dire?

PM
Avatar
gantonio (Normal User)
Guru^2


Messaggi: 1532
Iscritto: 09/09/2007

Segnala al moderatore
Postato alle 11:51
Domenica, 27/01/2008
Testo quotato

non so come ringraziartiiii



Di nulla ...

Testo quotato


scrive anche tutte le righe per quanti sono i recordset



Cioe'?

Testo quotato


questo : Space$(150)

che vuol dire?



Ottiene una stringa di 150 spazi ...

Ultima modifica effettuata da gantonio il 27/01/2008 alle 11:52
PM
Avatar
gius (Ex-Member)
Expert


Messaggi: 294
Iscritto: 20/06/2007

Segnala al moderatore
Postato alle 11:55
Domenica, 27/01/2008
La funzione space,non ho guardato il codice,ma restituisce un numero di spazi indicati
es.
Codice sorgente - presumibilmente Visual Basic 6

  1. Dim nome As String
  2. nome = "Hello" & Space$(8) & "World"
  3. MsgBox nome



La funzione restituisce un msgbox e tra hello ed world ci sono 8 spazi:D

PM
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 13:01
Domenica, 27/01/2008
Postato originariamente da gantonio:




scrive anche tutte le righe per quanti sono i recordset

Cioe'?


cioè quando elaboro...
mi scrive tutto cio' che gli chiediamo
dopo l'ultima riga della list box
vengono scritte altre righe , ma vuote
esse sono tantissime
credo che siano pari al numeri dei recordset presenti in archivio

mentre credo, che  non dovrebbero esserci..

non so se sono stato chiaro...
di nuovo grazieee

PM
Avatar
gantonio (Normal User)
Guru^2


Messaggi: 1532
Iscritto: 09/09/2007

Segnala al moderatore
Postato alle 13:38
Domenica, 27/01/2008
Come al solito confondi recordset e record ...

Comunque, questa e' la parte di codice con le modifiche che devi sostituire

Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2.     Dim rs As ADODB.Recordset
  3.     Dim RUS As String
  4.     Dim RU() As String
  5.     Dim R As Integer
  6.     Dim N As Integer
  7.     Dim RN(1 To 10, 1 To 90)
  8.     Dim C(1 To 10)
  9.     Dim NN As Integer
  10.     Dim NS As String * 150
  11.     Dim v As Integer
  12.     Dim p As Integer
  13.     Dim ss As String * 2
  14.    
  15.     RUS = "--*BA*CA*FI*GE*MI*NA*PA*RO*TO*VE*"
  16.     RU = Split(RUS, "*")
  17.  
  18.     With List1
  19.         .Font.Name = "Terminal"
  20.         .Font.Size = 9
  21.         .Clear
  22.         NS = Space$(150)
  23.         For R = 1 To 10
  24.             Mid$(NS, (R - 1) * 15 + 1) = "----- " & RU(R) & " ----- "
  25.         Next R
  26.         .AddItem NS
  27.         .AddItem ""
  28.     End With
  29.    
  30.     For R = 1 To 10
  31.         C(R) = 0
  32.         For N = 1 To 90
  33.             RN(R, N) = -1
  34.         Next N
  35.     Next R
  36.    
  37.     Set rs = New ADODB.Recordset
  38.    
  39.     rs.Open "SELECT * FROM Archivio ORDER BY Id DESC", cn, adOpenForwardOnly
  40.    
  41.     Do While Not rs.EOF
  42.         NS = Space$(150)
  43.         For R = 1 To 10
  44.             If C(R) < 90 Then
  45.                 For NN = 1 To 5
  46.                     v = Val(rs.Fields(RU(R) & CStr(NN)).Value)
  47.                     p = (R - 1) * 15 + (NN - 1) * 3 + 1
  48.                     If RN(R, v) = -1 Then
  49.                         RN(R, v) = v
  50.                         C(R) = C(R) + 1
  51.                         ss = Format$(v, "00")
  52.                     Else
  53.                         ss = "--"
  54.                     End If
  55.                     Mid$(NS, p) = ss
  56.                 Next NN
  57.             End If
  58.         Next R
  59.         If NS <> Space$(150) Then List1.AddItem NS
  60.        
  61.         rs.MoveNext
  62.     Loop
  63.    
  64.     rs.Close
  65.    
  66.     Set rs = Nothing
  67. End Sub


Ultima modifica effettuata da gantonio il 27/01/2008 alle 13:38
PM
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 15:13
Domenica, 27/01/2008
sempre piu mi accorgo delle mie incapacita'



sei davvero un grande

non vorrei pretendere...


che mi consigli

su come deve mettere il totale dei ritardi?


PM
Avatar
gantonio (Normal User)
Guru^2


Messaggi: 1532
Iscritto: 09/09/2007

Segnala al moderatore
Postato alle 16:45
Domenica, 27/01/2008
Testo quotato

Postato originariamente da magicolotto:
su come deve mettere il totale dei ritardi?



Perche' non spieghi chiaramente?

E' piu' difficile capire cosa vuoi fare che farlo ... :)

PM
Pagine: [ 1 2 3 4 5 6 ] Precedente | Prossimo