Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi

Žrebalni boben

  V Visual Basicu 2010 bomo ustvarili enostaven program, ki vam sam naključno izbere enega izmed dodanih elementov.
 
 
1
 
 
Najprej vklopimo program Visual Basic 2010 in izberemo New Project.
 
 
2
 
 
Odpre se vam okno v katerem označite, da želite ustvariti Windows forms application.

Okna še ne zapirajte.
 
 
3
 
 
V spodnjem kotu boste našli okno za vnos imena programa. Vpišite ga in kliknite na gumb OK.

Jaz sem dal programu ime Žrebalni boben, kajti ta program nam bo na koncu izžrebal eno izmed dodanih vrednosti.
 
 
4
 
 
Na levem robu poiščite paleto z orodji, kjer izberete Button, da vam Visual Basic ustvari gumb.

Potrebovali bomo 2, ki ju ustvarimo.
 
 
 
 
 
5
 
 
Nato podobno preko palete orodij ustvarite še en Listbox.
 
 
6
 
 
Nato ustvarimo še Textbox, v katerega bomo vnašali vrednosti.
 
 
7
 
 
Postavitev naj bo približno takšna, kot na moji fotografiji.

Nato dvokliknimo na prvi gumb in vnesimo kodo:

ListBox1.Items.Add(TextBox1.Text)
        If TextBox1.Text = "" Then MsgBox("Polje ste pustili prazno! Vnesite vsaj eno vrednost.")
        TextBox1.Text = ""


Ta koda vam bo ob kliku na gumb besedilo iz textboxa premaknila v listbox in ob tem izbrisala besedilo iz le tega (textboxa). Če pa bo textbox prazen vam bo napisalo opozorilo, naj vnesemo vsaj eno vrednost.
 
 
8
 
 
Nato kliknimo na textbox, ki smo ga prej ustvarili in vnesemo kodo:

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If asc(e.KeyChar) = 13 Then
            ListBox1.Items.Add(TextBox1.Text)
            If TextBox1.Text = "" Then MsgBox("Polje ste pustili prazno! Vnesite vsaj eno vrednost.")
            TextBox1.Text = ""
        End If
End Sub

Ob tem pa moramo še izbrisati zgornjo in spodnjo vrstico.

 
 
9
 
 
Dvokliknemo še na gumb, ki smo ga ustvarili kot drugega in prilepimo:

 Dim myRandom As New Random
        Dim i As Integer = ListBox1.Items.Count
        MsgBox("Računalnik je izbral " & ListBox1.Items.Item(myRandom.Next(i)).ToString)

Ta koda vam bo iz listboxa izbrala poljubi element.
 
 
10
 
 
Nato spremenimo še obe imeni gumbov med lastnostmi, ki jih najdemo v spodnjem desnem kotu.
 
 
11
 
 
Stestirajmo program tako, da ga zaženemo.
 
 
12
 
 
Besedilo vnesimo v zgornji textbox in kliknemo na gumb Vnesi.

To besedilo se nam nato vnese v listbox.
 
 
13
 
 
Še boljši prikaz prej navedenega. Besedilo, ki sem ga vpisal mi je vneslo v listbox.

Ne pozabimo, da smo ustvarili kodo, ki deluje ob kliku na tipko Enter, tako da besedilo samo vpišemo v textbox in pritisnemo Enter.
 
 
14
 
 
Na koncu kliknemo le še gumb Izžrebaj in računalnik nam v novem okencu, izbere poljubni element.

Upam, da vam je bila lekcija všeč, če pa kaj ni jasno, pa povprašajte na forumu.
 
 
Komentiraj
 
 
 
 
 
20.3.2012, 19:05
moj prvi program v virtual basicu. super lekcija! :
 
 
 
 
20.3.2012, 19:26
Sicer sem si jaz u svoji verziji programa 1.0.1 dodal še možnost odstranitve elementa iz listboxa.
Če koga zanima se to naredi nekako tako:
Najprej dodamo nov gumb, dvokliknemo nanj in vnesemo to kodo:
ListBox1.Items.Remove(ListBox1.SelectedItem)

Sicer pa mi je všeč da se ti zdi lekcija super.
Lep pozdrav drobilc

 
 
 
 
26.1.2013, 13:46
no ce zelite pobrisati vse pa dodajte nov gumb, koda pri gumbu pa je : ListBox1.Items.Clear
 
 
 
 
8.7.2015, 18:56
Kako pa bi naredil potrditev pred brisanjem (Ali želite izbrisati element "nekaj"?)
 
 
 
 
9.7.2015, 5:25
Za prikaz dialoga z izbiro lahko uporabiš naslednjo kodo:


dim result as dialogresult

result = MessageBox.Show("Ali želite zbrisati element", "Brisanje", MessageBoxButtons.YesNoCancel)

If result = DialogResult.Cancel Then
MessageBox.Show("Cancel pressed")
ElseIf result = DialogResult.No Then
MessageBox.Show("No pressed")
ElseIf result = DialogResult.Yes Then
MessageBox.Show("Yes pressed")
End If
 
 
 
 
16.7.2015, 18:35
Sem naredil tako. Kako pa naredim, da napiše kateri element želimo izbrisati?
Ali želite izbrisati element "nekaj"?

Sem ugotovil


spremenjeno: filips (16.7.2015, 19:57)
 
Prijava in registracija
 
 
 
Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, vas na enkraten način spozna z različnimi svetovnimi jeziki, s podrobno obrazloženimi recepti prikaže čare kulinarike in vam prežene strahove pred domačimi opravili.
 
 
Poleg tega lahko prebirate poučne članke, ki so namenjene širjenju naše splošne razgledanosti ter preverite svoje znanje z priljubljenim in enostavnim sistemom za preverjanje znanja. Če med vsebinami, ki se dodajajo vsak dan, ne najdete želenega znanja, je za vaša vprašanja na voljo dobro obiskan forum, kjer lahko tudi aktivno sodelujete. V primeru, da bi radi svoje praktično znanje delili z ostalimi, pa to lahko storite preko preprostega vmesnika za dodajanje vsebin. Zmagajte z znanjem z Zmaga.com!