oduzimanje,množenje,djelenje

[ system32 @ 12.04.2005. 16:57 ] @

Malo glupo,ali mi treba za školu a baš to i ne znam
Treba mi kod za oduzimanje npr:Text3.text = Text1.text minus Text2.text
--------------- djelenje npr :Text3.text = Text1.text Podjeljeno s Text2.text
--------------- množenje npr:Text3.text = Text1.text pomnozeno s Text2.text
Hvala

[ VRKY @ 12.04.2005. 17:07 ] @

Pa brate to ti je bar lako...

Code:

broj1 = Text1.text
broj2 = Text2.text
rez = broj1 + broj2
Text3.text = rez

Ovo sam pisao napamet stoga :)
Sad samo mijenjaj operacije...

[ system32 @ 12.04.2005. 17:18 ] @

Hvala.Prvi sam srednje i tek smo počeli u VB-u.Još ako bi mi mogao reci kako korjenovati i kvadrirati bio bih prezadovoljan ali ne treba.npr:korjen text1,kvadrat text2
Još jedanput hvala

[ system32 @ 12.04.2005. 17:29 ] @

Napišem
Text3.text = Text1.text ÷ Text2.text,i neće,ili probam text3.text = Text1.text × text2.text i opt ništa,šta je sad to?

[ vujkev @ 12.04.2005. 17:34 ] @

Sabiranje: +
Oduzimanje: -
Deljenje: /
Množenje: *
Kvadrat: ^ 2 ' ovo 2 možeš naravno da menjaš ako ti treba veći stepen
Koren: ^ (1/2) ' ovo 2 možeš naravno da menjaš ako ti treba 3,4 ... x-ti koren

[ vujkev @ 12.04.2005. 17:35 ] @

Kvadrat je "^"

Code:

broj1 = Text1.text

rez = broj1 ^ 2

Text3.text = rez

a koren je u principu isto �to i kvadratiranje

Code:


  broj1 = Text1.text

  rez = broj1 ^ (1/2)

  Text3.text = rez

[ Zeromicin @ 12.04.2005. 17:50 ] @

Text1.text sadrzi podatke o stringu (tekstu) pa je potrebno konvertovati u brojcanu vrednost. funkcija za konverziju je Val(string) pa mozes sa pises: deljenje: Text1 = val(text2.text) / val(text3.text) mnozenje: Text1 = val(text2.text) *val(text3.text) itd... Umesto Text1.text mozes da pises Text1 pa dodela, posto se podrazumeva da dodela ide u text property. A za ostale operacije, ako ne znas engleski, uzmes lepo neki Sr-En recnik, pa lepo ukucas kako se na naski kaze funkcija, odes lepo u help VB-a i ukucas trazenu funkciju, i tamo imas opis funkcije, primere, etc. cu

[ KiselinaXP @ 12.04.2005. 18:08 ] @

Uzmes naprimer:
da imas: txtBroj1, txtBroj2, txtSvega, cmdIzracunaj

Code:

Private sub cmdIzracunaj_Click()
On Error Resume Next

txtSvega = val(txtBroj1)+(txtBroj2) ' primjer za sabiranje
txtSvega = txtBroj1 / txtBroj2 ' primjer za djeljenje
txtSvega = txtBroj1 * txtBroj2 ' primjer za mnozenje
txtSvega = txtBroj1 - txtBroj2 ' primjer za oduzimanje

End Sub

Valjda ce ti pomoci. Pozdrav

[ System alert @ 12.04.2005. 18:18 ] @

Izracunavanje kvadratnog korena:

Code:
Text2.text = Sqr(text1.text)

[ Marko_L @ 12.04.2005. 19:13 ] @

Po meni, najbolja solucija je napraviti funkcije za računske operacije.Recimo ovako, u modul:

Code:
Public Function Saberi(a As Single, b As Single)
Saberi = a + b
End Function
Public Function Oduzmi(a As Single, b As Single)
Oduzmi = a - b
End Function
Public Function Pomnozi(a As Single, b As Single)
Pomnozi = a * b
End Function
Public Function Podeli(a As Single, b As Single)
Podeli = a / b
End Function
Public Function Kvadriraj(a As Single)
Kvadriraj = a ^ 2
End Function

I onda ih pozivati bilo gde iz koda.Recimo, za sabiranje 2 i 3 kucamo

Code:
Dim a as Single
a = Saberi(2, 3)

Sličan je princip i za ostale računske radnje, a za kvadratni koren VB već ima ugrađenu funkciju Sqr.Recimo ako vam treba kvadratni koren za broj 25

Code:
Dim a As Single
a = Sqr(25)

Za ograničavanje decimala možete koristiti funkciju format.Recimo ograničenje za dve decimale

Code:
Dim a As Single
a = Format(Sqr(17), "#.##")

[ system32 @ 13.04.2005. 13:17 ] @

Hvala ljudi.