Losowanie ze spisu

16 Września 2014

Hej, staram się napisać dla własnej potrzeby mały programik do losowania. Program losował by wygranego ze spisu osób (listbox) i następnie podawał go w textboxie. Ma ktoś może taki kod albo pomógłby mi z ogarnięciem go? Z góry dziekuję

3.1 tys. · 24 Września 2014

Napisałem prosty program dla Ciebie , dostosujesz go pod siebie.

Public Class Form1    Dim w As Integer = 1        Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click        Do Until w = 10            ListBox1.Items.Add(w)            w = w + 1        Loop    End Sub    Dim r As New Random    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click        TextBox1.Text = ListBox1.GetItemText(ListBox1.Items(r.Next(0, ListBox1.Items.Count)))    End SubEnd Class

Dajesz 2 buttony na forme i 1 listbox , textbox.

Button1 - nazywasz losuj

Button2 - nazywasz dodaj

wklejasz kod taki jak napisałem , po naciśnięciu buttona losuj do listboxa dodają się liczby 1,2,3,4,5,6,7,8,9.

Po naciśnięciu button dodaj z listboxa losowana jest byle jaka linia i wklejana jest do texboxa. Jak coś to zacytuj mnie w tym temacie to pomoge.