|
|
|
|
|
Ž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.
|
|
|
 |
|
|
|
|
|
| |
|
|
|
|
|
| moj prvi program v virtual basicu. super lekcija! : |
|
|
|
|
|
|
|
|
|
| no ce zelite pobrisati vse pa dodajte nov gumb, koda pri gumbu pa je : ListBox1.Items.Clear |
|
|
|
|
