Visual Basic 6 - gioco del lotto

Forum - Visual Basic 6 - gioco del lotto - Pagina 6

Pagine: [ 1 2 3 4 5 6 ]

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 16:07
Martedì, 29/01/2008

Prima di tutto mi sembra assurdo il codice che hai scritto ... Programmi da tantissimo tempo e non riesci ad utilizzare un ciclo for per riempire le celle della matrice con le sigle delle ruote?

Dai ...

In secondo luogo, se vuoi usare la griglia, NON devi piu' utilizzare la variabile NS, ma devi MODIFICARE il codice in modo che i dati vengano inseriti direttamente nelle celle della griglia piuttosto che nella variabile NS che serviva SOLO per la ListBox.

Ultima modifica effettuata da gantonio il 29/01/2008 alle 16:09

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 17:32
Mercoledì, 30/01/2008

si ok ...

cmq grazie ancora x l'aiuto

magicolotto (Normal User)
Expert

Messaggi: 338
Iscritto: 21/01/2008

Postato alle 22:59
Giovedì, 30/08/2018

OK GRAZIE RISOLTO

silvio.falconi (Normal User)
Newbie

Messaggi: 3
Iscritto: 11/05/2022

Postato alle 14:50
Venerdì, 13/05/2022

Testo quotato

Postato originariamente da gantonio:
Inserisci in un form una listbox e un pulsante e usa questo codice. In questa versione pero', il tabellone viene mostrato "al contrario" ... vedi tu di adattarlo ...

Codice sorgente - presumibilmente VB.NET

Option Explicit
 
Private cn As Connection
 
Private Sub Command1_Click()
    Dim rs As ADODB.Recordset
    Dim RU(1 To 10) As String
    Dim R As Integer
    Dim N As Integer
    Dim RN(1 To 10, 1 To 90)
    Dim C(1 To 10)
    Dim NN As Integer
    Dim NS As String * 150
    Dim v As Integer
    
    RU(1) = "BA"
    RU(2) = "CA"
    RU(3) = "FI"
    RU(4) = "GE"
    RU(5) = "MI"
    RU(6) = "NA"
    RU(7) = "PA"
    RU(8) = "RO"
    RU(9) = "TO"
    RU(10) = "VE"
 
    With List1
        .Font.Name = "Terminal"
        .Font.Size = 9
        .Clear
        NS = Space$(150)
        For R = 1 To 10
            Mid$(NS, (R - 1) * 15 + 1) = "----- " & RU(R) & " ----- "
        Next R
        .AddItem NS
        .AddItem ""
    End With
    
    For R = 1 To 10
        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$(150)
        For R = 1 To 10
            If C(R) < 90 Then
                For NN = 1 To 5
                    v = Val(rs.Fields(RU(R) & CStr(NN)).Value)
                    If RN(R, v) = -1 Then
                        RN(R, v) = v
                        C(R) = C(R) + 1
                        Mid$(NS, (R - 1) * 15 + (NN - 1) * 3 + 1) = Format$(v, "00")
                    Else
                        Mid$(NS, (R - 1) * 15 + (NN - 1) * 3 + 1) = "--"
                    End If
                Next NN
            End If
        Next R
        List1.AddItem NS
        
        rs.MoveNext
    Loop
    
    rs.Close
    
    Set rs = Nothing
End Sub
 
Private Sub Form_Load()
    Set cn = New ADODB.Connection
    
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\estrazioni.mdb;Persist Security Info=False"
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    cn.Close
    
    Set cn = Nothing
End Sub

scusami mi potresti scrivere una piccola funzione in vb6 avendo lo stesso archivio per calcolare la frequenza di un numero? grazie

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 15:45
Venerdì, 13/05/2022

Ma a chi ti stai rivolgendo???

Questo thread è vecchissimo.

E comunque no, qui non si scrive codice a richiesta. Per le offerte di lavoro, la richiesta è diversa.
Mi sembra che MagicoLotto ne abbia approfittato parecchio ...

Ultima modifica effettuata da nessuno il 13/05/2022 alle 15:48

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

Pagine: [ 1 2 3 4 5 6 ]