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), "#.##")
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti