10 July 2014

VB6: Fungsi Numeric


Visual basic menyediakan beberapa fungsi untuk bekerja dengan angka secara efisien, kali ini akan dibahas mengenai fungsi matematis pada visual basic.

1. Sqr
Sqr mengembalikan nilai akar kuadrat angka.
Contoh:
Print Sqr(9)
Output : 3

2. Int
Int mengembalikan nilai integer terbesar yang kurang dari atau sama dengan angka tersebut. Dia mengabaikan nilai decimal. Fungsi ini sangat membantu untuk menghilangkan nilai desimal sebuah angka. Yang perlu diperhatikan bahwa pada fungsi ini nilai negatif akan dibulatkan ke atas. Untuk lebih jelasnya kita lihat beberapa contoh berikut:
Contoh  1:
Print Int(2.9)
Output : 2

Contoh 2:
Print Int(5)
Output : 5

Contoh 3:
Print Int(-5.8)
Output : -6

3. Round
Fungsi ini melakukan pembulatan terhadap angka
Sintaks :
 Round(Number, [no. of digits after decimal]

Parameter kedua adalah optional, dan jika diabaikan fungsi akan membulatkan ke bilangan bulat.
Contoh 1:
Print Round(5.8)
Output : 6

Contoh 2:
Print Round(5.8, 1)
Output : 5

Contoh 3:
Print Round(5.4568, 2)
Output : 5.46

4. Abs
Mengembalikan nilai absolute dari angka.
Contoh:
Private Sub Form_Load()
    Form1.Show
    Print abs(-10)
End Sub
Output: 10

5. Sin, Cos dan Tan
Fungsi-fungsi ini mengembalikan sinus, cosinus, dan tangen dari sebuah angka yang mewakili sudut. Angka yang digunakan harus merupakan nilai radian.
Contoh:
Private Sub Form_Load()
    Form1.Show
    Print Sin(90)
    Print Cos(0)
    Print Tan(45)
 End Sub
Output :
0.893996663600558
1
1.61977519054386

6. Exp
Fungsi ini mengembalikan nila eksponensial.
Contoh:
Private Sub Form_Load()
    Form1.Show
    Print Exp(5)    'sama dengan e^5
End Sub
Output: 148.413159102677

7. Log
Fungsi log mengembalikan nilai logaritma.
Contoh:
Private Sub cmdPrint_Click()
    Print Log(10)
End Sub
Output : 2.30258509299405

8. Sgn
Fungsi ini mengindikasikan tanda dari sebuah angka (negative atau positif). Fungsi ini mengembalikan nilai -1 jika angka negative, 0 untuk angka nol, dan 1 untuk nilai positif.
Contoh:
Private Sub cmdShowSign_Click()
    Print Sgn(-10)
End Sub
Output: -1

9. Pembulatan dengan Fix
Fungsi ini kegunaannya hampir sama dengan fungsi int, tetai dengan menggunakan fix pembulatan untuk nilai negatif lebih mendekati dan tidak selalu pembulatan ke atas.
Contoh:
Private Sub cmdTruncate_Click()
    Print Fix(4.5)
    Print Fix(-4.5)
End Sub
Output :
4
-4

10. Rnd
Sewaktu-waktu kita butuh untuk menghasilkan nilai random (untuk default password misalnya). Fungsi Rnd mengembalikan nilai random antara 0 sampai dengan 1.
Note: Rnd bukan variable melainkan fungsi.
Contoh: Setiap command button (cmdGenerateRandomNumbers) di klik, dia memberikan nilai random antara 0 sampai dengan 1.
Private Sub cmdGenerateRandomNumbers_Click()
    lblResult.Caption = Rnd
End Sub
Output :


Kita juga dapat menghasilkan nilai random antara angka yang kita inginkan, sebagai contoh antara 1 sampai dengan 10 dengan code sebagai berikut:
Private Sub cmdGenerateRandomNumbers _Click()
    lblResult.Caption = Int(Rnd * 10) + 1
End Sub

Click here if you like this article.


0 comments: