Operasi Matematika pada VB

Oct 14, 2008   

Operator Bilangan

Operator
Gunanya
Format
Contoh
^
Pangkat
x ^ y
3 ^ 2 =9
-
Negatif
- y
- 9
*
Perkalian
x * y
3 * 2 = 6
/
Pembagi real
x / y
5 /2 = 2.5
\
Pembagi Integer
x \ y
5 / 2 = 2
mod
Modulo (sisa pembagian)
x mod y
5 mod 2 = 1
+
Tambah
x +y
2 + 4 = 6
-
Kurang
x - y
4 -2 = 2


Fungsi Matematik Internal
VB menyediakan fungsi matematika siap pakai untuk manipulasi variabel.

Fungsi Contoh Penjelasan
Abs(x) a = abs(-32) 'a=32 nilai absolut x
Atn(x) Nilai arcus tangent x x dalam radian : degree = radian * 180/phi
Cos(x) Nilai cosinus x x dalam radian
Exp(x) Nilai exponensial x  
Fix(x)

fix(3.2) = 3

fix(-3.2) = -3

mencari integer bilangan pecah, untuk bilangan negatif; mencari bilangan pertama > x

Int(x)

int(5.4) = 5

int(-5.4) =-6

Bilangan negatif; mencari bilangan pertama <=x
Log(x) nilai natural log x  
Rnd(x)

0 <= hasil random <1

nilai x menentukan hasil random

sebelumnya gunakan perintah Randomize untuk memastikan bahwa hasil Rnd(x) selalu beda
Sgn(x)

menghasilkan :

1 bila x > 0

0 bila x = 0

-1 bilaa x < 0

 
Sin(x)

A = SQR(16) 'A=4

A = SQR(-16) 'error

nilai cosinus x dalam radian
Sqr(x) Akar bilangan x  
Tan(x) Q = Tan(45*phi/180) 'Q=1

nilai tangent x dalam radian

phi=3.141592653589732



Derifat Fungsi Matematika
Fungsi matematika yang tidak ada dapat diderifasi dari fungsi yang tersedia.

Fungsi Derifat Sepadan
Secant Sec(X) = 1 / Cox(X)
Cosecant Cosec(X) = 1 / Sin(X)
Cotangent Cotan(X) = 1 / Tan(X)
Inverse Sinus Arcsin(X) = Atn(X / Sqr(-X * X +1))
Inverse Cosinus Arcos(X) = Atn( -X / Sqr(-X * X +1)) + 2 * Atn(1)
Inverse Secant Arsec(X) = 2 * Atn(1) - Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cosecant Arccosec(X) = Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cotangen Arccotan(X) = 2 * Atn(1) - Atn(X)
Hyperbolic Sinus HSin(X) = (Exp(X) - Exp(-X)) / 2
Hyperbolic Cosinus HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant HCosec(X) = 2 / (Exp(X) - Exp(-X))
Hyperbolic Cotangent HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Inverse Hyperbolic Sinus HArcsin(X) = Log(X + Sqr(X * X + 1)
Inverse Hyperbolic Cosinus HArccos(X) = Log(X + Sqr(X * X - 1)
Inverse Hyperbolic Tangent HArctan(X) = Log(1 + X) / (1 - X)) / 2
Inverse Hyperbolic Secant HArcsec(X) = Log((Sqr(-X * X +1) + 1) / X)
Inverse Hyperbolic Cosecant HArccosec(X) = Log(Sgn(X) * Sqr(X * X +1) + 1) / X)
Inverse Hyperbolic Cotangent HArcotan(X) = Log((X + 1) / (X - 1)) / 2
Logaritgm ti base N LogN(X) = Log(X) / Log(N)


Fungsi Manipulasi Bilangan
VB mempunyai fungsi untuk memanipulasi data numerik sebagai berikut :
Round : membulatkan bilangan cacah dengan jumlah desimal tertentu
MyValue = Round(33.4549, 2) ‘hasil 33.45
MyValue = Round(33.455, 2) ‘hasil 33.46
MyValue = Round(33.456, 2) ‘hasil 33.46
Val : menghasilkan bilangan numerik dari suatu variabel string
MyValue = Val(“2457”) ‘hasil 2457
MyValue = Val(“2 4 5 7”) ‘hasil 2457
MyValue = Val(“24 and 57”) ‘hasil 24
Str : menghasilkan variabel string (Variant) dari ekspresi numerik
MyString = Str (459) ‘hasil “459”
MyString = Str (-459.65) ‘hasil “-459.65”
MyString = Str (459.001) ‘hasil “459.001”
Hex : menghasilkan nilai hexadesimal dari suatu bilangan
MyHex = Hex(5) ‘hasil 5
MyHex = Hex(10) ‘hasil A
MyHex = Hex(459) ‘hasil 1CB
Oct : menghasilkan nilai octal dari setiap bilangan
MyOct = Oct(4) ‘hasil 4
MyOct = Oct(8) ‘hasil 10
MyOct = Oct(459) ‘hasil 713

posted by : ade




Komentar (31)

Aiz Bo

Nov 10, 2008

klo buat akar gmn ?

soulmath

Nov 20, 2008

ya tnggl d pngkatkn 1/2 ais..

alvin

Mar 10, 2009

cara buat hitungan
y = 2x^2+ 3
sedangkan x=0sampai 50
gimana cara buat sampai keluar 1list yang isinya 50 baris???

Mustakim

Apr 24, 2009

Thanks ya tas totorialnya, update terus ya mengenai PHP and VB nya.

abc

Jun 08, 2009

kalo mau cari sin 30derajat bgmn?
coba sin(30) kok hasilnya -0.988031624092862

nina

Jun 27, 2009

tolongin aku donk scrip buat ngitung waktu masuk di kurang waktu keluar gmana?

eka

Oct 12, 2009

kalo akar(sqrt) tandanya apa??

dewi monicha

Jan 14, 2010

klo rumus akar kodingnya gmana????

johan

Jan 25, 2010

bang membuat hitungan deret d vb gimana ya!!


soal:

hitung lha jumlah deret dari angkag dgn rumus 1+2+3+...+n
contoh hasil

0-0
1-1
2-3
3-6
4-10
5-15

buat d vb 6.0


mohon bantuan nya bang

tendo

Feb 02, 2010

mas kalo buat pengurangan gmn...

misal------->
80-79=....


minta scriptnya donk.......

TomiES

Jun 10, 2010

kok ngak dijawab sama pemiliknya??

ntr klo ada pertanyaan email kesaya saja

mudahan saya bsa bantu..

to-mi.e@hotmail.com

reggie

Jul 11, 2010

udh keren......
muat tulisan dreamweaver ya, aku tunggu.
thanks

eko

Jul 30, 2010

minta tolong kalo akar 2 code d VB sqr, tp kalo akar 3 gmn caranya (soalnya ^1/3) tdk mau baca. terima kasih

cinde

Aug 03, 2010

kalo cara subtitusi n eliminasi gimana y?

contoh : 2x1 + 3x2 = 60
2x1 + x2 = 40
nyari nilai x1 n x2...
mohon bantuannya segera y....

budi

Nov 04, 2010

kalo sinh(2x)?

san

Nov 27, 2010

da yang buku bagus gak buat bisa ngerti VB dari dasar...

thanks

ifan

Dec 17, 2010

gimana yaw bwt perkalian matriks ukuran (60x576)x(576x576)

fhaa

Jan 08, 2011

....????

udi nugroho

Jan 19, 2011

atn dalam vb express edition gx ada??? tapi dalam vb.6 ada.......??
gimana tuh mas??
mohon bimbingannya...........

terimakasih sebelumnya

huda kh

Apr 27, 2011

ms mw tx,
klw seumpama "rumus ABC" dalam Visual Studio gmn carax ms?
tengs sblx,
;)

sandi

May 19, 2011

k" mw tanya ni.....
gimana cara desain websaite dengan vb......,???
tolong kzi informasinya dong low bsa....
t'hks

digo

Jan 02, 2012

yang penggunaan sin bagaimana yaa??
kok hasilnya ga sesuai??
cara yg benar bagaimana ya??
terima kasih

nv

Jan 16, 2012

iya penggunaan sinus da arcos sin gmana ??
untuk nyari sudut gitu... ???

sarjo

Mar 03, 2012

bro misalkan saya mau cari = 69 : 100 * 2 = 1.38 la ini yang saya mau tanyakan misalnya jumlah dari perhitungan tersebut dihilangkan semua angka di belakang koma. bagaimana scripnya...? jika hasilnya harus begini = 69 : 100 * 2 = 1

zeze

Apr 22, 2012

Mas ini ada skrip

Randomize
angka = Int(Rnd * 3) + 1

Angka yang dirandom berarti angka 1, 2, 3.
Tapi kenapa bisa muncul angka yang sma berkali2 ya.

punya solusi gak mas supaya angka yang dirandom gak muncul berkali2.

email saya: j.navaro@ymail.com

zeze

Apr 22, 2012

Mas ini ada skrip

Randomize
angka = Int(Rnd * 3) + 1

Angka yang dirandom berarti angka 1, 2, 3.
Tapi kenapa bisa muncul angka yang sma berkali2 ya.

punya solusi gak mas supaya angka yang dirandom gak muncul berkali2.

email saya: j.navaro@ymail.com

markas gambas

Apr 25, 2012

Ke sini
<a href="http://www.markasgambas.blogspot.com">www.MarkasGambas.blogspot.com</a>
belajar Pemrograman basic di linux

markas gambas

Apr 25, 2012

Ke sini
<a href="http://www.markasgambas.blogspot.com">www.MarkasGambas.blogspot.com</a>
belajar Pemrograman basic di linux

Garry Priambudi

Aug 27, 2012

Mau bantu om sarjo sedikit :D

Coba lihat code vb ini >>
Dim a As Double = 69
Dim b As Double = 100
Dim c As Double = 2
Dim hasil As Double

Textbox1.Text = a : b * c = CInt(hasil)
-------
Dari code di atas jangan lupa menambahkan komponen Textbox1. Untuk fungsi yang seperti anda inginkan adalah menggunakan CInt(x) x adalah variable yang ingin anda Convert ke Integer. Jadi maksudnya CInt(hasil) adalah mengkonvert tipe Double ke tipe Integer :)

Semoga bermanfaat, jangan lupa kunjungi blog baru saya. Anda juga bisa request software, nanti saya akan buatkan softwarenya sesuai kemampuan saya secara gratis :)
Info lebih lanjut >> http://gcomxp.blogspot.com/2012/08/my-software-menerima-request.html

Garry Priambudi

Aug 27, 2012

Mau bantu om sarjo sedikit :D

Coba lihat code vb ini >>
Dim a As Double = 69
Dim b As Double = 100
Dim c As Double = 2
Dim hasil As Double

Textbox1.Text = a : b * c = CInt(hasil)
-------
Dari code di atas jangan lupa menambahkan komponen Textbox1. Untuk fungsi yang seperti anda inginkan adalah menggunakan CInt(x) x adalah variable yang ingin anda Convert ke Integer. Jadi maksudnya CInt(hasil) adalah mengkonvert tipe Double ke tipe Integer :)

Semoga bermanfaat, jangan lupa kunjungi blog baru saya. Anda juga bisa request software, nanti saya akan buatkan softwarenya sesuai kemampuan saya secara gratis :)
Info lebih lanjut >> http://gcomxp.blogspot.com/2012/08/my-software-menerima-request.html

walimun

Sep 11, 2012

gan klaw mengurangkan data time gmn???
misal menghitung keterlambatan karayawan..
jam kerja jam masuk si A jam pulang siA
7.30 8.20 16.30

Send Comments

Name
Email
Comment
3fBdd
Masukkan kode di atas *case sensitive