|
|
|
|
|
Hitri kalkulator
Visual Basic nam nudi ogromno možnosti za izdelovanje programov. Zakaj ne bi poskusili izdelati majhen, a vseeno bolj napreden program v obliki kalkulatorja?
|
|
 |
|
|
|
|
|
|
|
|
|
|
 |
1.
|
|
|
Ustvarite novo aplikacijo v Visual Basicu in jo poimenujte Kalkulator.
|
|
| |
2.
|
|
|
V aplikacijo dodajte tri kontrolnike TextBox in en Gumb (Button).
O tem, kako se to dodaja na aplikacije, ne bomo dolgovezili, poglejte si moje prejšnje lekcije.
|
|
| |
3.
|
|
|
Dvokliknite na dodan gumb in odprlo se vam bo okno za vpisovanje kode.
|
|
| |
4.
|
|
|
Vpišite:
Dim a As Integer
Dim b As Integer
Dim c As Integer
ali krajše:
Dim a As Integer, b As Integer, c As Integer
Dodajte še:
a = TextBox1.Text
b = TextBox2.Text
c = a + b
TextBox3.Text = c
S temi ukazi smo ustvarili program, ki sešteva števila. V kodi se za različne računske operacije uporabljajo tudi različni operatorji:
+, -, za seštevanje in odštevanje, * za množenje in / za deljenje. Za potence se pa uporablja znak ^ (npr. c = a^2 .). Uporabimo lahko tudi operator MOD, ki vrne ostanek pri deljenju dveh števil (npr. c = 5 MOD 2, c bo dobil vrednost 1). Imamo še en poseben operator tj. , ki zdeli dve števili in kot rezultat vrne celo število.
Da pa bomo tudi to kodo okrajšali lahko napišemo:
TextBox3.Text = TextBox1.Text + TextBox2.Text
Za več informacij si pa lahko ogledate tudi na forumu Raznoraznarije>>Izdelava programa ali pa Naloži sliko, kjer je tudi kar veliko zapisano o Visual Basicu.
|
|
| |
5.
|
|
|
Sedaj pa program "razhroščite" (Debugging) in vpišite v prvo polje za besedilo npr. 12, v drugo 13 in kliknite na gumb potrdi. Rezultat lahko vidite že na sličici in mislim, da vidite, da se program ni zmotil. :)
Na koncu lahko pa program še "skompaljate" (prevedete v izvršilno datoteko (.exe) ) in ga posledično namestite.
Toliko za danes.
Za več informacij pišite na forum.
|
|
|
 |
|
|
|
|
|
| |
|
|
|
|
|
Ko napišem skrajšano kodo (TextBox3.Text = TextBox1.Text + TextBox2.Text) in preiskusim program vpišem števili 12 in 13 in mi sešteje 1213.
Morda kdo ve zakaj?
|
|
|
|
|
|
|
|
|
|
Hm - zanimiv problem.
Treba bo narediti popravek pri kodi - program očitno namreč ne sešteje, vendar napiše obe števili zaporedoma.
Najbolje je, da se v lekciji operator popravi na * (krat) in da ne bo po tem +. In v tem je problem, saj boš moral kodo spisat sedaj na daljši način, ki pa preverjeno deluje (integer). S operaterjem * (krat) pa to preverjeno deluje 
minkic, se opravičujem za vse napake pri lekciji. Drugače je bil pa namen lekcije bolj spozanti vse aritmetične operatorje v VB.NET.
|
|
|
|
|
|
|
|
|
|
Tudi jaz sem se že ob ogledu lekcije spraševal, če bo to res delovalo.
Problem je, ker omenjena koda obravnava številke kot tekst in vrne rezultat, kjer sta oba teksta izpisana eden za drugim.
En način je, da se eksplicitno pove, da izraz uporablja številke s funkcijo Cint:
TextBox3.Text = CInt(TextBox2.Text) + CInt(TextBox1.Text)
Lahko pa to tudi naredimo implicitno, da najprej uporabimo običajno številko in bo prevajalnik nato vedel, da operiramo s številkami:
TextBox3.Text = 0 + TextBox2.Text + TextBox1.Text
|
|
|
|
|
|
|
|
|
|
Lahko pa tudi tako:
Val(Text1.text) + Val(Text1.text) |
|
|
|
|
|
|
|
|
|
luksorzi, value (val), Text1.text? To je VB6 |
|
|
|
|
|
|
|
|
|
Ups
Jaz imam VB6, potem pa ... |
|
|
|
|
|
|
|
|
|
Jst bi pa vprašal nekaj..
Kako naj shranim ta izdelek da se mi odpre kod okono...
al je mogoče .exe?? |
|
|
|
|
|
|
|
|
|
My Documents\Visual Studio 2008 (ali 2005)\Projects\imetvojegaprojekta\Build
Tukaj najdeš Exe. |
|
|
|
|
|
|
|
|
|
Mene pa zanima zakaj mi napiše to:
|
|
|
|
|
