X

Zmaga.com | Zmagajmo z znanjem  
Programi Programski jeziki Visual Basic  
  Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi

Žrebalni boben

  Možnosti
   
  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
 
Prijava in registracija
 
 
 
 
 
 
  Zmaga.com | Zmagajmo z znanjem
 
  Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, nudi enkraten način spoznavanja z različnimi svetovnimi jeziki, vas s podrobno obrazloženimi recepti nauči kulinarike in vam prežene strahove pred domačimi opravili.