Thursday, May 29, 2014

Mengenal Fungsi (function) Visual Basic 6


Ketik Visual Basic! - Pada kesempatan kali ini akan dibahas mengenai Mengenal Fungsi (function) Visual Basic 6 yang akan dibagi dalam beberapa bagian. Bisa dikatakan bahwa fungsi atau akan kita tulis function adalah sebuah prosedur biasa tetapi mempunyai sebuah tujuan utama mengolah data dan menampilkannya sesuai dengan hasil olahan fungsi tersebut. Ada dua macam fungsi di dalam visual basic yaitu built-in functions (atau internal functions) dan fungsi yang dibuat oleh seorang programmer untuk tujuan tertentu.

Fungsi visual basic ditulis dalam bentuk

                  NamaFungsi (argument)

Argumen adalah nilai yang akan dilewatkan kedalam fungsi untuk diolah menjadi sebuah keluaran (output). Pada kesempatan kali ini, kita akan belajar dua macam bentuk dasar internal function yaitu MsgBox() dan InputBox().

MsgBox ( ) Function

MsgBox ( ) function mempunyai fungsi utama adalah menampilkan kotak pesan atau peringatan yang berisi sebuah tombol pilihan sebelum lanjut menuju langkah berikutnya. MsgBox ( ) function mempunyai format sebagai berikut:

                   PesanAnda = MsgBox (Prompt, StyleValue, Title)

Untuk penjelasannya adalah sebagai berikut, argumen pertama adalah Prompt yang akan menampilkan pesan di dalam kotak pesan dan disinilah informasi dapat diberikan kepada user (pengguna), StyleValue adalah jenis kotak pesan (MsgBox) yang akan ditampilkan, untuk lebih jelasnya silahkan lihat table macam-macm MsgBox, dan terakhir adalah Title yaitu bagian yang akan menampilkan judul kotak pesan.

Style ValueName ConstantButton Displayed
0vbOKOnlyOK button
1vbOKCancelOK dan Cancel button
2vbAbortRetryIgnoreAbort, Retry dan Ignore button
3vbYesNoCancelYes, No dan Cancel button
4vbYesNoYes dan No button
5vbRetryCancelRetry dan Cancel button

Kita dapat mengganti nilai StyleValue dengan sebuah nama konstanta (name constant) agar lebih mudah pembacaannya. Beriktu adalah contoh penggunaannnya Pesan = MsgBox ("Klik OK untuk proses selanjutnya" , 1, "Proses verifikasi") atau  Pesan = MsgBox ("Klik OK untuk proses selanjutnya" , vbOKCancel, "Proses verifikasi"). Pesan adalah sebuah variabel yang menyimpan nilai ketika kita mengoperasikan MsgBox ( ) function. Besarnya nilai ditentukan oleh tipe button atau tombol yang diklik oleh user dan dideklarasikan didalam bentuk tipe data integer. Untuk mengetahui nilai masing-masing tipe tombol atau button bisa melihat tabel berikut ini.

ValueName ConstantButton Clicked
1vbOKOK button
2vbCancelCancel button
3vbAbortAbort button
4vbRetryRetry button
5vbIgnoreIgnore button
6vbYesYes button
7vbNoNo button

Contoh penggunaan MsgBox ( ) function

1. Buat sebuah user interface sebagai berikut

Penggunaan Aplikasi Kotak Pesan

2. Buat sebuah kode program seperti berikut,

Private Sub Command1_Click()
Dim pesan As Integer
pesan = MsgBox("Tekan Ok untuk proses selanjutnya", vbOKCancel, "Aplikasi MsgBox (Title)")

If pesan = 1 Then
    Label1.Caption = "Anda baru saja menekan tombol OK - Succesful"
Else
    Label1.Caption = "Anda baru saja menekan tombol Cancel - Fail"
End If
End Sub

3. Coba jalankan dengan menekan tombol F5 dan test aplikasi diatas maka akan muncul sebuah MsgBox seperti gambar berikut

Aplikasi Kotak Pesan (MsgBox)

4. Agar kotak pesan dapat menampilkan sifat kepentingannya maka kita dapat menambahkan beberapa icon seperti berikut ini

5. Untuk melihat aplikasinya silahkan modifikasi program pada langkah ke 2 menjadi seperti berikut,

Private Sub Command1_Click()
Dim pesan As Integer
pesan = MsgBox("Tekan Ok untuk proses selanjutnya", vbYesNoCancel + vbExclamation, "Aplikasi MsgBox (Title)")

If pesan = 6 Then
    Label1.Caption = "Anda baru saja menekan tombol Yes"
ElseIf pesan = 7 Then
    Label1.Caption = "Anda baru saja menekan tombol No"
Else
    Label1.Caption = "Anda baru saja menekan tombol Cancel - Fail"
End If
End Sub

6. Dan kotak pesan akan menjadi lebih informatif seperti gambar berikut

Penggunaan Aplikasi Kotak Pesan dengan Icon


InputBox ( ) Function

InputBox ( ) function mempunyai tugas utama untuk menampilkan sebuah window yang berisi sebuah inputan nilai. Format dasar InputBox ( ) adalah sebagai berikut,

                         PesanAnda = InputBox (Prompt, Title, default_text, x-position, y-position)

PesanAnda adalah sebuah variabel data yang dapat berbentuk berbagai macam tipe data dan tetapi secara default dideklarasikan sebagai tipe data string yang menerima masukan dari seorang user. Argument InputBox ( ) dapat dijelaskan sebagai berikut,

  • Prompt adalah pesan yang ditampilkan dalam kotak input
  • Title adalah judul kotak input
  • default_text berisi sebuah text yang akan tampil pada awal kotak input dijalankan
  • x-position dan y-position adalah letak kotak input di dalam sebuah layar komputer

Contoh Penggunaan InputBox ( )

1. Buat sebuah user interface seperti berikut,

Penggunaan Aplikasi InputBox

2. Buat sebuah kode program seperti berikut,

Private Sub Command1_Click()
Dim pesan As String
pesan = InputBox("Masukkan pesan Anda", "Aplikasi InputBox (Title)", "Masukkan pesan Anda di sini", 1400, 600)

If pesan <> "" Then
    Label1.Caption = pesan
Else
    Label1.Caption = "Tidak Ada Pesan"
End If
End Sub

3. Coba jalankan aplikasi dengan menekan tombol F5 dan lakukan testing terhadap input pesan seperti gambar berikut (Klik tombol Input Pesan >> Masukkan Pesan >> Klik OK)

Aplikasi InputBox

4. Maka akan ditampilkan sebuah pesan di dalam user interface seperti berikut (sesuai dengan algoritma program)

Penggunaan Aplikasi InputBox

5. Selesai, Selamat mencoba.

Sekian posting blog atau sharing informasi mengenai Mengenal Fungsi (function) Visual Basic 6 bagian pertama yang dapat disampaikan. Jika masih terdapat ketidak jelasan materi atau tulisan maka bisa berbagi informasi melalui form komentar yang ada di bawah ini. 


Fungsi (Function) Visual Basic 6 

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 RndSqrIntAbsExpLogCos,SinTanAtnFix, 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 Logyang 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 sepertiAbs(-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.

Sumber: http://ketikvisualbasic.blogspot.com/2013/04/mengenal-fungsi-function-visual-basic-6.html

0 comments:

Post a Comment

Followers

  © Blogger template 'A Click Apart' by Ourblogtemplates.com 2008

Back to TOP