Home | Looking for something? Sign In | New here? Sign Up | Log out

Minggu, 10 Februari 2013

Fungsi-Fungsi Angka VB

Minggu, 10 Februari 2013
Mas rizki-Berikut ini adalah fungsi-fungsi yang sering digunakan untuk mengolah data bertipe angka (integer, long, double, dll). Sebelumnya khusus untuk VB .NET, ketikkan kode berikut dibagian paling atas dari jendela kode dari Form.

  • Abs(n), digunakan untuk mencari nilai absolut dari n. Contoh :
    a = Abs(5) , nilai a adalah 5
    a = Abs(-5) , nilai a adalah 5

  • CInt(n) dan Int(n), digunakan untuk mengubah nilai n menjadi nilai bertipe integer / bulat. Perbedaannya adalah jika CInt bila desimalnya bernilai lebih besar dari 0,5 , maka nilai akan dibulatkan 1 ke atas. Sedangkan Int tidak. Contoh :
    a = CInt(3.4) , nilai a adalah 3
    a = CInt(3.6) , nilai a adalah 4
    a = Int(3.4) , nilai a adalah 3
    a = Int(3.6) , nilai a adalah 3

  • CDbl(n) dan Val(n), digunakan untuk menkonversi nilai n yang bertipe string ke nilai bertipe double / angka. Perbedaannya adalah jika Val nilai n harus berformat Inggris (karakter desimal adalah tanda titik), sehingga muncul permasalahan jika settingan komputer menggunakan format Indonesia (karakter desimal adalah tanda koma) yang akan menghasilkan nilai berbeda. Sedangkan bila CDbl mampu menyesuaikan nilai sesuai dengan setting format komputer.
    Berikut contoh yang diterapkan di komputer dengan setting format Indonesia.
    a = Val("2,5") , nilai a adalah 2
    a = CDbl("2,5") , nilai a adalah 2,5

  • Randomize dan Rnd() * n, kedua fungsi ini sering dikombinasikan untuk mencari angka acak antara 0 sampai dengan n. Contoh :
    Randomize
    a = Rnd() * 4
    nilai a bisa bernilai antara 0 sampai dengan 4

    Namun jika Anda ingin angka bertipe bulat saja, berikut contohnya :
    Randomize
    a = CInt(Rnd() * 4)

    Dan jika Anda menginginkan acak dalam tipe boolean (True atau False),
    berikut contohnya :
    Randomize
    a = CBool(CInt(Rnd() * 1))
    nilai a bisa bernilai True atau False

  • Log(n), digunakan untuk mencari nilai logaritma natural dari n. Contoh :
    a = Log(5) , nilai a adalah 1,60943791243
    Jika Anda ingin mencari nilai logaritma standar dari n gunakan fungsi berikut :
    VB 6.0 a = Log(n) / Log(10)
    VB .NET a = Log10(n)

  • Exp(n), merupakan fungsi kebalikan dari Log(n). Contoh :
    a = Exp(1,60943791243) , nilai a adalah 5

  • Round(n, x), digunakan untuk menyesuaikan jumlah angka desimal dari n sebanyak x. Contoh :
    a = Round(5.3784, 2) , nilai a adalah 5,38

  • Sgn(n), digunakan untuk mencari tanda angka dari n. Fungsi ini menghasilkan nilai 1 jika n adalah positif, nilai -1 jika n adalah negatif, dan nilai 0 jika n adalah nol. Contoh:
    VB 6.0 a = Sgn(-9)
    VB .NET a = Sign(-9)
    nilai a adalah -1

  • Sqr(n), digunakan untuk mencari akar kuadrat dari n. Contoh :
    VB 6.0 a = Sqr(9)
    VB .NET a = Sqrt(9)
    nilai a adalah 3

  • Sin, Cos, Tan
    VB 6.0
    NamaFungsi
    Sina = Sin(n * Angle)
    Cosina = Cos(n * Angle)
    Tangena = Tan(n * Angle)
    Inv. Sina = Atn(n / Sqr(-n * n + 1)) / Angle
    Inv. Cosina = (Atn(-n / Sqr(-n * n + 1)) + 2 * Atn(1)) / Angle
    Inv. Tangena = Atn(n) / Angle
    Sin Hyp.a = (Exp(n) - Exp(-n)) / 2
    Cosin Hyp.a = (Exp(n) + Exp(-n)) / 2
    Tangen Hyp.a = (Exp(n) - Exp(-n)) / (Exp(n) + Exp(-n))
    Inv. Sin Hyp.a = Log(n + Sqr(n * n + 1))
    Inv. Cosin Hyp.a = Log(n + Sqr(n * n - 1))
    Inv. Tangen Hyp.a = Log((1 + n) / (1 - n)) / 2

    VB NET
    NamaFungsi
    Sina = Sin(n * Angle)
    Cosina = Cos(n * Angle)
    Tangena = Tan(n * Angle)
    Inv. Sina = Asin(n) / Angle
    Inv. Cosina = Acos(n) / Angle
    Inv. Tangena = Atan(n) / Angle
    Sin Hyp.a = Sinh(n)
    Cosin Hyp.a = Cosh(n)
    Tangen Hyp.a = Tanh(n)
    Inv. Sin Hyp.a = Log(n + Sqrt(n * n + 1))
    Inv. Cosin Hyp.a = Log(n + Sqrt(n * n - 1))
    Inv. Tangen Hyp.a = Log((1 + n) / (1 - n)) / 2

    Dalam beberpa fungsi diatas terdapat variabel dengan nama Angel, yang bisa digantikan dengan nilai berikut :
    Degress (DEG), gantikan dengan (3.14159265358979 / 180)
    Radians (RAD), gantikan dengan 1
    Grads (GRAD), gantikan dengan (3.14159265358979 / 200)
    Contoh menghitung Sin dari 5 dengan ukuran DEG :
    a = Sin(5 * (3.14159265358979 / 180))

0 :

Posting Komentar

Related Posts Plugin for WordPress, Blogger...
 

Contoh Pilihan

SMS GRATIS

Like Box