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

Hitri kalkulator
Avtor: Erco | Objavljeno: dne 1. julij 2009, 12:07
  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.
 
 
Komentiraj
  
 
 
 
 
1.7.2009, 12:00
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?
 
 
 
 
1.7.2009, 12:11
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.

spremenil: Erco (1.7.2009 ob 12.13.22)
 
 
 
 
1.7.2009, 12:16
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
 
 
 
 
1.7.2009, 13:08
Lahko pa tudi tako:
Val(Text1.text) + Val(Text1.text)
 
 
 
 
1.7.2009, 13:30
luksorzi, value (val), Text1.text? To je VB6
 
 
 
 
1.7.2009, 13:39
Ups

Jaz imam VB6, potem pa ...
 
 
 
 
24.7.2009, 9:41
Jst bi pa vprašal nekaj..
Kako naj shranim ta izdelek da se mi odpre kod okono...
al je mogoče .exe??
 
 
 
 
24.7.2009, 9:42
My Documents\Visual Studio 2008 (ali 2005)\Projects\imetvojegaprojekta\Build

Tukaj najdeš Exe.
 
 
 
 
27.7.2009, 9:14
Mene pa zanima zakaj mi napiše to:

spremenil: aljo23 (27.7.2009 ob 09.15.25)
 
 
 
 
27.7.2009, 9:18
Dobrodošel!
Moral boš dati spremenljivki drugačno ime, saj v podprogramu piše:

ByVal e As System.EventArgs


Kar pomeni, da je bila spremenljivka e že deklarirana. Skratka, vse kar moraš stroiti je, da preprosto spremeniš ime spremenljivke.

spremenil: Erco (27.7.2009 ob 09.20.29)
 
 
 
 
21.1.2010, 14:58
Kako pa narediti, da bi bile še druge enote(-, *, :, itd.)?

Lp, Jan
 
 
 
 
21.1.2010, 18:05
npr:

a = TextBox1.Text
b = TextBox2.Text
c = a * b
TextBox3.Text = c


Za deljenje ne uporabit : ampak /.

lp

spremenil: Erco (21.1.2010 ob 18.05.48)
 
 
 
 
22.1.2010, 14:40
Erco:
npr:

a = TextBox1.Text
b = TextBox2.Text
c = a * b
TextBox3.Text = c

Za deljenje ne uporabit : ampak /.
lp

Hvala.
Zdaj me zanima kako narediti to v .exe. Tisto, ki je dal kljuka preprosto ne najde.

Lp, Jan
 
 
 
 
22.1.2010, 14:48
No gremo po vrsti. Najprej moraš iti v moje dokumente - klikni z miško na Start levo spodaj in nato poišči Moji dokumenti oz. My Documents. Klikni na to!
 
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!
  
Zmaga.com na Facebooku | Pošljite nam e-pošto | Informacije o Zmaga.com