[TuT] Digitron u VB-u

Nastavljamo sa jednostavnim Tutorijalima :

Moj treci tut o VB-u ...

Prvi :

Web Broswer

Drugi :

Blackjack



Danas cu vam pokazati kako da napravite jednostavan Digitron sa racunskim operacijama : +,-,% (podjeljeno), X (puta) .

Pa pocnimo.


Prvo kreirajte novu windows aplikaciju i malo prosirite FORM1 window i dajte mu ime npr. Digitron. (iz prethodnih tutorijala mogli ste nauciti kako se to radi).

Sada dodajte 4 buttona : +,-,%,X:



Sada kreirajte 2 text boxa iznad ovih buttona :



Sada cemo kreirati 2 Labela. Jedan izmedju text boxova i jedan na dnu.
Ja cu vam pokazati sa textom da bolje vidite gdje treba staviti a vi kasnije izbrisite text :




Sada je vrijeme za CODE.

Kliknite dva puta na + button i ukucajte sljedeci text :

Label2.Text = "+"
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)


Sada kliknite na - button i ukucajte sljedeci code .

Label2.Text = "-"
Label1.Text = Val(TextBox1.Text) - Val(TextBox2.Text)


Sada kliknite na % button i unesite sljedeci code :

Label2.Text = "%"
Label1.Text = Val(TextBox1.Text) / Val(TextBox2.Text)


I na kraju kliknite na dugme X i ukucajte sljedeci code :

Label2.Text = "X"
Label1.Text = Val(TextBox1.Text) * Val(TextBox2.Text)


Sada negdje mozete dodati dugme RESETUJ i unijeti sljedeci code

:
label1.text = " "
label2.text = " "
textbox1.clear
textbox2.clear


Konacni code (sa resetom) bi trebao izgledati ovako :


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Label2.Text = "+"
Label1.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click
Label2.Text = "-"
Label1.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click
Label2.Text = "%"
Label1.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button4.Click
Label2.Text = "X"
Label1.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button5.Click
Label1.Text = " "
Label2.Text = " "
TextBox1.Clear()
TextBox2.Clear()
End Sub
End Class


Slika programa :




Ako kome treba Source File :

Download


Tut created by mandA

ohladi malo


ostavi nesto i za sutra,
ne smeta meni sto pises tutove, samo polako,
ajd sad nesto kompliciranije

svaka cast

A gdje ti je jednako??

Kad ukucas brojeve , samim tim sto pritisnes +,-,% i X dobijas rezultat... = tu nebi imalo smisla a ni funkcije ...

Et' svega ti, zar nije lakše u qBasicu napravit' za 10 sec program koji sabira, oduzima, dijeli ili množi?

Sabiranje:
5 CLS
7 PRINT "Unesi 2 broja koje hoćeš sabrati"
10 INPUT a,b
20 c=a+b
30 PRINT "Zbir dva broja je";c
40 END

Oduzimanje:
5 CLS
7 PRINT "Unesi 2 broja koje hoćeš oduzeti"
10 INPUT a,b
20 c=a-b
30 PRINT "Razlika dva broja je";c
40 END

Množenje:
5 CLS
7 PRINT "Unesi 2 broja koje hoćeš pomnožiti"
10 INPUT a*b
20 c=a+b
30 PRINT "Proizvod dva broja je";c
40 END

Dijeljenje:
5 CLS
7 PRINT "Unesi 2 broja koje hoćeš podijeliti"
10 INPUT a/b
20 c=a+b
30 PRINT "Količnik dva broja je";c
40 END

Inaće;

plus (+)
minus (-)
puta (*)
podijeljeno (/)
cjelobrojno dijeljenje (\)
ostatak dijeljenja (MOD)
stepenovanje (^)
korjenovanje (SQR)

Da al u QBasicu taj program nema korisit jer ga samo mozes pokrenut u programu i nema nikakvo soucelje (vizuelno...)

Pa šta će ti sučelje kad je tvoja namjena da izračunaš nešto?

Ne znam, brkaš dvije stvari; je l' tebi do izvršetka zadatka il' do j3banja sa dizajnom?

A i +, Windowsi imaju odličan digitron/kalkulator sa deset hiljada opcija ne znam ni što će ti ovo...

Da ne zaboravim, program, u qBasicu, MOŽEŠ snimiti