+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 6 su 6

Tabella Lotto

  1. #1
    Salve Ragazzai, ho da fare una console application che simula i 90 numeri casuali che vengono estrati a un gioco di lotto....
    Il mio problema e' che devo mettere questi numeri all'interno dele celle di una tabella, e non so come fare.
    Module Module1
        Dim n As Integer
        Sub Main()
            n = DateTime.Now.Millisecond
            Randomize(n)
            n = (CInt(Int(99 * Rnd() + 1)))
            Console.WriteLine(n)
    
            Console.WriteLine("┌────┬────┬────┬────┬────┬────┬────┬────┬────┐")
            Console.WriteLine("│    │    │    │    │    │    │    │    │    │")
            Console.WriteLine("├────┼────┼────┼────┼────┼────┼────┼────┼────┤")
            Console.WriteLine("│    │    │    │    │    │    │    │    │    │")
            Console.WriteLine("├────┼────┼────┼────┼────┼────┼────┼────┼────┤")
            Console.WriteLine("│    │    │    │    │    │    │    │    │    │")
            Console.WriteLine("├────┼────┼────┼────┼────┼────┼────┼────┼────┤")
            Console.WriteLine("│    │    │    │    │    │    │    │    │    │")
            Console.WriteLine("├────┼────┼────┼────┼────┼────┼────┼────┼────┤")
            Console.WriteLine("│    │    │    │    │    │    │    │    │    │")
            Console.WriteLine("├────┼────┼────┼────┼────┼────┼────┼────┼────┤")
            Console.WriteLine("│    │    │    │    │    │    │    │    │    │")
            Console.WriteLine("├────┼────┼────┼────┼────┼────┼────┼────┼────┤")
            Console.WriteLine("│    │    │    │    │    │    │    │    │    │")
            Console.WriteLine("├────┼────┼────┼────┼────┼────┼────┼────┼────┤")
            Console.WriteLine("│    │    │    │    │    │    │    │    │    │")
            Console.WriteLine("├────┼────┼────┼────┼────┼────┼────┼────┼────┤")
            Console.WriteLine("│    │    │    │    │    │    │    │    │    │")
            Console.WriteLine("├────┼────┼────┼────┼────┼────┼────┼────┼────┤")
            Console.WriteLine("│    │    │    │    │    │    │    │    │    │")
            Console.WriteLine("└────┴────┴────┴────┴────┴────┴────┴────┴────┘")
            Console.ReadLine()
    
        End Sub
    
    End Module
    
    questo e' il codice, se qualcuno mi potrebbe aiutare gli sarei molto grato

  2. #2
    AlbertoM non  in linea Scribacchino
    Ciao david.

    QUESTO un esempio funzionante molto valido per affrontare il tuo problema.
    ℹ️ Leggi di pi su AlbertoM ...

  3. #3
    Grazie Alberto, ma adesso non so...o mi scapa a me qualcosa...o il "DataGridView.SelectedCells" vale solo per le windows apps...
    Io ho da fare una console application...e ci ho pensato anche...come possa VB sapere quale e' la cella 0,1 in quela tabella, perche io lo fatta con le console.writeline...
    Se mi scapa qualcosa ... illuminami!

  4. #4
    AlbertoM non  in linea Scribacchino
    Module Module1
    
      Dim n As Integer
      Sub Main()
    
        n = DateTime.Now.Millisecond
        Randomize(n)
    
        For r As Int16 = 0 To 9
          If r = 0 Then
            Console.WriteLine("┌────┬────┬────┬────┬────┬────┬────┬────┬────┐")
          Else
            Console.WriteLine("├────┼────┼────┼────┼────┼────┼────┼────┼────┤")
          End If
          For c As Int16 = 0 To 8
            n = (CInt(Int(90 * Rnd() + 1)))
            If n > 9 Then
              Console.Write("│ " & n & " ")
            Else
              Console.Write("│  " & n & " ")
            End If
          Next c
          Console.WriteLine("│")
        Next r
        Console.WriteLine("└────┴────┴────┴────┴────┴────┴────┴────┴────┘")
    
        Console.ReadLine()
    
      End Sub
    
    
    
    End Module
    
    Copia-incolla, poi mi dici.
    Ciao.

    P.S. Va gestito meglio il Randomize !!! e l'uscita dei doppioni.
    ℹ️ Leggi di pi su AlbertoM ...

  5. #5
    L'avatar di Cteniza
    Cteniza non  in linea Amanuense
    A parte che stai usando su vb.net istruzioni di vb6 hai comunque una estrazione del tutto errata perch i numeri si possono ripetere.
    Questo mio post ti pu aiutare per l'estrazione (ne approfitto per inaugurare il mio blog su masterdrive)
    Estrazione di n numeri casuali senza ripetizione - MasterDrive.it - Information Technology Developers Community
    ℹ️ Leggi di pi su Cteniza ...

  6. #6
    Grazie ragazzi...
    Fino a qui ci sono...pero' avrei un'altro problema...
    Come faccio a impostare il codice che ogni volta che viene premuto il tasto "x"...mi fa l'estrazione...e il numero lo memorizza nella prima, seconda, terza casella...
    Pratticamente ogni volta che premi il tasto "x"...il numero va scritto uno per volta nele caselle dela tabella...

    Vi ringrazio anticipato

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Spoglio estrazioni lotto
    Da lottomoney nel forum Microsoft Excel
    Risposte: 11
    Ultimo Post: 06-02-2017, 16:01
  2. Generare numeri casuali senza duplicati (estrazione lotto)
    Da padronus5 nel forum Microsoft Excel
    Risposte: 4
    Ultimo Post: 06-06-2014, 10:36
  3. Tabella per il lotto
    Da sandrino nel forum Microsoft Word
    Risposte: 10
    Ultimo Post: 25-02-2010, 00:00
  4. Numeri lotto
    Da bruceex40 nel forum Visual Basic 6
    Risposte: 11
    Ultimo Post: 11-09-2008, 16:15
  5. Sistema lotto con excel
    Da karloc1 nel forum Microsoft Excel
    Risposte: 2
    Ultimo Post: 20-11-2004, 01:09