Visual Basic 6 - gioco del lotto

29/01/08 12:52

Private Sub popolaflex_Click()
MSHFlexGrid1.TextMatrix(0, 0) = "Rit"
MSHFlexGrid1.TextMatrix(0, 1) = "ba"
MSHFlexGrid1.TextMatrix(0, 2) = "ba"
MSHFlexGrid1.TextMatrix(0, 3) = "ba"
MSHFlexGrid1.TextMatrix(0, 4) = "ba"
MSHFlexGrid1.TextMatrix(0, 5) = "ba"

MSHFlexGrid1.TextMatrix(0, 6) = "ca"
MSHFlexGrid1.TextMatrix(0, 7) = "ca"
MSHFlexGrid1.TextMatrix(0, 8) = "ca"
MSHFlexGrid1.TextMatrix(0, 9) = "ca"
MSHFlexGrid1.TextMatrix(0, 10) = "ca"

MSHFlexGrid1.TextMatrix(0, 11) = "fi"
MSHFlexGrid1.TextMatrix(0, 12) = "fi"
MSHFlexGrid1.TextMatrix(0, 13) = "fi"
MSHFlexGrid1.TextMatrix(0, 14) = "fi"
MSHFlexGrid1.TextMatrix(0, 15) = "fi"

MSHFlexGrid1.TextMatrix(0, 16) = "ge"
MSHFlexGrid1.TextMatrix(0, 17) = "ge"
MSHFlexGrid1.TextMatrix(0, 18) = "ge"
MSHFlexGrid1.TextMatrix(0, 19) = "ge"
MSHFlexGrid1.TextMatrix(0, 20) = "ge"

MSHFlexGrid1.TextMatrix(0, 21) = "mi"
MSHFlexGrid1.TextMatrix(0, 22) = "mi"
MSHFlexGrid1.TextMatrix(0, 23) = "mi"
MSHFlexGrid1.TextMatrix(0, 24) = "mi"
MSHFlexGrid1.TextMatrix(0, 25) = "mi"

MSHFlexGrid1.TextMatrix(0, 26) = "na"
MSHFlexGrid1.TextMatrix(0, 27) = "na"
MSHFlexGrid1.TextMatrix(0, 28) = "na"
MSHFlexGrid1.TextMatrix(0, 29) = "na"
MSHFlexGrid1.TextMatrix(0, 30) = "na"

MSHFlexGrid1.TextMatrix(0, 31) = "pa"
MSHFlexGrid1.TextMatrix(0, 32) = "pa"
MSHFlexGrid1.TextMatrix(0, 33) = "pa"
MSHFlexGrid1.TextMatrix(0, 34) = "pa"
MSHFlexGrid1.TextMatrix(0, 35) = "pa"

MSHFlexGrid1.TextMatrix(0, 36) = "ro"
MSHFlexGrid1.TextMatrix(0, 37) = "ro"
MSHFlexGrid1.TextMatrix(0, 38) = "ro"
MSHFlexGrid1.TextMatrix(0, 39) = "ro"
MSHFlexGrid1.TextMatrix(0, 40) = "ro"

MSHFlexGrid1.TextMatrix(0, 41) = "to"
MSHFlexGrid1.TextMatrix(0, 42) = "to"
MSHFlexGrid1.TextMatrix(0, 43) = "to"
MSHFlexGrid1.TextMatrix(0, 44) = "to"
MSHFlexGrid1.TextMatrix(0, 45) = "to"


MSHFlexGrid1.TextMatrix(0, 46) = "ve"
MSHFlexGrid1.TextMatrix(0, 47) = "ve"
MSHFlexGrid1.TextMatrix(0, 48) = "ve"
MSHFlexGrid1.TextMatrix(0, 49) = "ve"
MSHFlexGrid1.TextMatrix(0, 50) = "ve"

MSHFlexGrid1.TextMatrix(0, 51) = "nz"
MSHFlexGrid1.TextMatrix(0, 52) = "nz"
MSHFlexGrid1.TextMatrix(0, 53) = "nz"
MSHFlexGrid1.TextMatrix(0, 54) = "nz"
MSHFlexGrid1.TextMatrix(0, 55) = "nz"
With MSHFlexGrid1
  Dim cel As Integer
  For cel = 1 To 56
        .Redraw = False
        ' imposta la larghezza delle colonne della griglia
        .ColWidth(0) = 400
        .ColWidth(cel) = 263
      Next cel
        .AllowBigSelection = False
        .FillStyle = flexFillSingle
        .Redraw = True

    End With

come da codice sopra

ho creato la struttura della griglia per l'inserimento in essa del tabellone...come sopra discusso e finito

mi dareste un suggerimento su come inserire quel NS

grazie

aaa

29/01/08 15:07

gantonio

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 29/01/08 15:09

aaa

30/01/08 16:32

magicolotto

si ok ...

cmq grazie ancora x l'aiuto

aaa

30/08/18 20:59

magicolotto

OK GRAZIE RISOLTO

aaa

13/05/22 12:50

silvio.falconi

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 ...

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) = &quot;BA&quot;
    RU(2) = &quot;CA&quot;
    RU(3) = &quot;FI&quot;
    RU(4) = &quot;GE&quot;
    RU(5) = &quot;MI&quot;
    RU(6) = &quot;NA&quot;
    RU(7) = &quot;PA&quot;
    RU(8) = &quot;RO&quot;
    RU(9) = &quot;TO&quot;
    RU(10) = &quot;VE&quot;

    With List1
        .Font.Name = &quot;Terminal&quot;
        .Font.Size = 9
        .Clear
        NS = Space$(150)
        For R = 1 To 10
            Mid$(NS, (R - 1) * 15 + 1) = &quot;----- &quot; &amp; RU(R) &amp; &quot; ----- &quot;
        Next R
        .AddItem NS
        .AddItem &quot;&quot;
    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 &quot;SELECT * FROM Archivio ORDER BY Id DESC&quot;, 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) &amp; 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, &quot;00&quot;)
                    Else
                        Mid$(NS, (R - 1) * 15 + (NN - 1) * 3 + 1) = &quot;--&quot;
                    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 &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp; App.Path &amp; &quot;\estrazioni.mdb;Persist Security Info=False&quot;
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

13/05/22 13:45

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 13/05/22 13:48

1 2 3 4 5 6