Jumat, 03 Mei 2013

Fungsi (Function) Visual Basic 6 Bagian Kedua

Ketik Visual Basic! - Fungsi matematika sangat penting dan berguna dalam pemrograman karena kita akan sering berhubungan dengan konsep mate... thumbnail 1 summary
Ketik Visual Basic! - Fungsi matematika sangat penting dan berguna dalam pemrograman karena kita akan sering berhubungan dengan konsep matematika seperti peluang atau probability, variabel, logika matematika, perhitungan, koordinat, time interval dan lain sebagainya. Fungsi matematika yang secara umum di dalam visual basic adalah Rnd, Sqr, Int, Abs, Exp, Log, Cos, Sin, Tan, Atn, Fix, dan Round.

Sebelum kita melanjutkan ke pembahasan yang lebih dalam mungkin ada baiknya jika para pengunjung bisa membaca terlebih dahulu bab sebelumnya tetapi jika sudah membaca dan ingin membaca maka ayuk silahkan saja ikuti penjelasan berikut ini.

Rnd Function (Fungsi acak)

adalah sebuah fungsi yang sangat akan banyak kita gunakan di dalam pemrograman ketika bergelut dengan masalah peluang atau probability. Rnd function akan memberikan nilai antara 0 dan 1, sebagai contoh adalah aplikasi di bawah ini, kita akan mendapatkan 10 angka acak antara 0 dan 1. Randomize timer adalah hal yang sangat peenting disini (aplikasi) karena akan mengacak proses yang sedang berlangsung.

Contoh 1 Rnd Function


Private Sub Form_Activate()
Randomize Timer
For x = 1 To 10
    Print Rnd
Next x
End Sub


Contoh 1 Rnd Function

Perlu diketahui bahwa nomor acak (Rnd) di dalam bentuk aslinya tidak terlalu berguna di dalam pemrograman selama belum kita rubah kedalam bentuk tipe data integer. Sebagai contoh ketika kita ingin mengacak angka yang keluar dari bilangan angka 1 sampai 6 maka kita harus mengubahnya dengan menggunakan format Int(Rnd*6)+1. Untuk lebih jelasnya mari kita ikuti contoh berikut.

Contoh 2 Rnd Function Buat Nilai Acak 1 - 6

Di dalam contoh ini Int(Rnd*6) akan menghasilkan angka antara 1 sampai 5 karena fungsi Int akan memotong angka dibelakang koma dan mengembalikannya menjadi tipe data integer. Setelah ditambah dengan angka 1 maka fungsi nomor acak akan menghasilkan angka diantara angka 1 sampai 6 setiap kali klik tombol acak. Sebagai ilustrasi perhitungan bisa kita asumsikan bahwa nilai terbesar muncul adalah 0.98, setelah itu dikalikan dengan dengan angka 6 maka akan menghasilkan Int(5.88) dan akan dirubah menjadi 5, setelah ditambah 1 akan menghasilkan nilai 6.

Untuk lebih jelasnya kita buat sebuah aplikasi yang akan menampilkan angka 1 sampai 6 seperti contoh berikut,

1. Buat sebuah user interface seperti berikut

contoh aplikasi rnd function

2. Buat sebuah programnya seperti berikut,

Private Sub Command1_Click()
Randomize Timer
angka = Int(Rnd * 6) + 1
Label1.Caption = angka
End Sub

Contoh 3 Rnd Function Crack Password 4 Digit Angka

1. Buat user interface seperti berikut,

Aplikasi crack password


2. Buat sebuah program seperti berikut,


Dim password As Integer
Dim crackpass As Integer
Dim x As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
password = 5689
crackpass = 0
End Sub

Private Sub Timer1_Timer()
x = x + 1
If x < 10 Then
Label1.Visible = True
Label1.Caption = "Please wait..."
Randomize Timer
crackpass = Int(Rnd * 9000) + 1000
Text1.Text = crackpass
Else
generate
End If 
End Sub

Private Sub generate()
While crackpass <> password
Randomize Timer
crackpass = Int(Rnd * 9000) + 1000
Text1.Text = crackpass
Wend
Timer1.Enabled = False
Text1.Text = crackpass
Label1.Visible = True
Label1.Caption = "Password Cracked! Login Successful!"
Timer1.Enabled = False
End Sub

Numeric Function

Yang dimaksud numeric function antara lain adalah Int, Sqr, Abs, Exp, Fix, Round, dan Log yang dapat dijelaskan seperti berikut,
  1. Int adalah sebuah fungsi yang akan merubah angka desimal menjadi angka bulat atau integer dengan cara memotong angka dibelakang koma dan menghasilkan nilai yang lebih kecil dari nilai sebenarnya. Contoh Int(2.88) = 2, Int(-3.55) = -4, Int(0.002) = 0 dan lain sebagainya. 
  2. Sqr adalah sebuah fungsi akar kuadrat atau square root sebuah angka. Contoh Sqr(4) = 2, Sqr(49) = 7 dan lain sebagainya.
  3. Abs adalah sebuah fungsi yang akan menghasilkan angka mutlak atau absolut seperti Abs(-9) = 9, Abs(9) = 9 dan lain sebagainya
  4. Exp adalah sebuah fungsi exponensial, misalnya Exp(x) = ex sebagai contoh Exp(1) = e=2.7182818284590
  5. Fix adalah sebuah fungsi yang sama dengan integer yaitu membulatkan atau menghilangkan angka dibelakang koma tetapi mempunyai perbedaan ketika memotong nilai negatif yaitu fungsi Fix akan membulatkan angka negatif menjadi lebih besar dari nilai sebenarnya. Misalnya Int(-3.55) = -4, Fix(-3.55) = -3
  6. Round adalah sebuah fungsi untuk melakukan pembulatan keatas dengan menentukan jumlah decimalnya. Format fungsi Round adalah Round(m, n) yang akan membulatkan angka m sebanyak n decimal. Contoh Round(7.2568 , 2) = 7.26
  7. Log adalah fungsi logaritma sebagai contoh Log(10) = 2.302585

Contoh Aplikasi Numeric Function

Pada aplikasi ini akan menggunakan pengulangan Do Loop dan Rnd function (fungsi acak) untuk menampilkan 10 angka acak. Pernyataan x = Round(Rnd*7, 7) akan menghasilkan angka antara 0 - 7 dengan 7 angka decimal. Dengan menggunakan koma diantara nama (item) maka akan menghasilkan sebuah kolom seperti Print " n", "x", "Int(x)", "Fix(x)", "Round(x, 4)".

1. Buka sebuah form di dalam vb 6
2. Tulisakan kedalam jendela program kode berikut,


Private Sub Form_Activate ()
n = 1
Print " n", " x", "Int(x)", "Fix(x)", "Round(x, 4)"
Do While n < 11
Randomize Timer
x = Round (Rnd * 7, 7)
Print n, x, Int(x), Fix(x), Round(x, 4)
n = n + 1
Loop
End Sub

3. Jalankan apliksi dengan tekn F5

aplikasi math function

Trigonometri Function

Secara umum fungsi trigonometri adalah sin, Cos, Tan dan Atn dengan penjelasan singkat seperti berikut,

  • Sin adalah sebuah fungsi yang menghitung nilai sin sebuah sudut dalam satuan radian
  • Cos adalah sebuah fungsi yang menghitung nilai cosine sebuah sudut dalam satuan radian
  • Tan adalah sebuah fungsi yang menghitung nilai tangent sebuah sudut dalam satuan radian
  • Atn adalah sebuah fungsi yang menghitung nilai arc tangent sebuah sudut dalam satuan radian
Sebuah sudut yang masih dalam bentuk derajat harus dirubah terlebih dahulu dalam satuan radian sebelum dapat diolah oleh fungsi trigonometri tersebut diatas. Ketika sekolah kita tahu bahwa ∏ radian sama dengan 180 deg yang artinya bahwa 1 radian adalah sama dengan ∏ dibagi 180 deg. Oleh karena itu untuk merubah sudut x dalam satuan degree menjadi radian kita harus mengalikan x dengan (∏/180). Tetapi kita mempunyai kesulitan untuk mencari nilai pasti dari ∏ tetapi kita jangan khawatir bahwa tidak ada masalah yang tidak dapat terselesaikan. Kita tahu bahwa Arc tangen 1 sama dengan 45 degree atau sama dengan ∏/4 sehingga untuk mencari nilai pasti ∏ = Atn(1) * 4. Untuk lebih jelasnya mari kita ikuti langsung contoh dibawah ini.

Contoh Aplikasi Trigonometri Function

1. Buat user interface yang hanya terdiri dari sebuah form (agak lebar ukurannya)
2. Tulis kode program berikut kedalam jendela program,


Private Sub Form_Activate()
pi = 4 * Atn(1)
Print "Sudut", "Sin x", "Cos x", "Tan x"
For degree = 0 To 360 Step 30
Sudut = degree * (pi / 180)
Print Sudut, Round(Sin(angle), 4), Round(Cos(angle), 4), Round(Tan(angle), 4)
Next degree
End Sub

3. Jalankan dengan menekan tombol F5,


aplikasi fungsi trigonometri

4. Selesai, selamat mencoba

Sekian posting mengenai Fungsi (Function) Visual Basic 6 Bagian Kedua yang dapat disampaikam atas perhatiannya diucapkan terimaksih yang sebesar-besarnya. Jika masih terdapat kebingungan mengenai materi visual basic atau tulisan maka silahkan mengajuka pertanyaan atau memberikan sekedar aran kepada kami biar dapat dengan segera kami tindak lanjuti.