Membuat Fungsi Terbilang Dengan Visual Basic 6.0
Fungsi terbilang adalah fungsi yang melakukan konversi dari angka menjadi teks terbilangnya, misalnya 123,4567 menjadi seratus dua puluh tiga koma empat lima enam tujuh.
1.Buatlah sebuah project baru dengan template Standard.EXE.
2.Rancanglah sebuah form seperti terlihat pada gambar 1. Beberapa properti form tersebut harus diberi nilai sebagai berikut:
| Kontrol | Properti | Nilai |
| Form | Caption | Terbilang |
| TextBox1 | Name | txtAngka |
| TextBox2 | Name | txtTerbilang |
| | Multiline | True |
| CommandButton1 | Name | cmdTerbilang |
| | Caption | &Terbilang |
| CommandButton2 | Name | cmdExit |
| | Caption | E&xit |
Gambar.1
3. Kemudian tambahkan sebuah modul dengan cara klik kanan pada Project Explorer dan pada
menu yang muncul pilih Add > Module. Bandingkan dengan gambar 2.
Gambar.2
4. Pada module baru tersebut tambahkan kode program seperti disajikan pada listing 1.
5. Kemudian klik ganda tombol Terbilang dan tambahkan kode program seperti disajikan pada
listing 2.
6. Langkah terakhir, klik ganda tombol Exit dan tambahkan kode program seperti disajikan pada
listing 3.
7.Hasil eksekusi program tersebut ditampilkan pada gambar 3. Masukkan suatu angka pada
kotak teks Angka, klik tombol Terbilang, teks terbilang dari angka tersebut akan muncul pada
kotak teks Terbilang.
Gambar.3
LISTING PROGRAM:
Listing 1. Fungsi terbilang
Public Function Terbilang(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean
Dim letak(5)
letak(1) = "ribu "
letak(2) = "juta "
letak(3) = "milyar "
letak(4) = "trilyun "
If (x = 0) Then
Terbilang = "nol"
Exit Function
End If
If (x < 2000) Then
tanda = True
End If
teks = ""
If (x >= 1E+15) Then
Terbilang = "Nilai terlalu besar"
Exit Function
End If
For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next
teks = teks & ratusan(x, False)
Terbilang = teks
End Function
Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer
Dim angka(9)
angka(1) = "se"
angka(2) = "dua "
angka(3) = "tiga "
angka(4) = "empat "
angka(5) = "lima "
angka(6) = "enam "
angka(7) = "tujuh "
angka(8) = "delapan "
angka(9) = "sembilan "
Dim posisi(2)
posisi(1) = "puluh "
posisi(2) = "ratus "
bilang = ""
For j = 2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = "belas "
Else
angka(y) = "se"
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y - tmp * 10 ^ j
Next
If (flag = False) Then
angka(1) = "satu "
End If
bilang = bilang & angka(y)
ratusan = bilang
End FunctionListing 2. Event click pada cmdTerbilang
Private Sub cmdTerbilang_Click()
Dim angka As Double
Dim teks As String
angka = Val(txtAngka.Text)
teks = Terbilang(angka)
txtTerbilang.Text = teks
End SubListing 3. Event click pada cmdExit
Private Sub cmdExit_Click()
End
End Sub Menambahkan Gambar Pada Command Button
selama ini Anda selalu menggunakan Caption pada Command Button. Anda juga dapat menambahkan gambar pada Command Button untuk menambah daya tarik aplikasi Anda. Untuk itu ada beberapa properti yang perlu diubah, yaitu:
Properti : Nilai
Style : 2 - Graphical
Caption : [Anda boleh mengosongkan properti ini]
Picture : [Gambar yang hendak ditambahkan pada Command Button]
DownPicture : [Gambar pada Command Button ketika diklik]
Contoh:
Buatlah sebuah form, tambahkan sebuah Command Button dan ubahlah propertinya sebagai berikut:
Properti : Nilai
Style : 2 - Graphical
Caption : [kosong]
Picture : C:\Windows\Cursors\No_l.cur
DownPicture : C:\Windows\Cursors\No_m.cur
Untuk properti Picture dan DownPicture, jika file-file kursor yang diberikan pada contoh tidak ada pada komputer Anda, Anda boleh menggantinya sendiri dengan file lain.
Jalankan aplikasi Anda, perhatikan apa yang terjadi jika Command Button tersebut di klik.
Tab Order
Kadang-kadang karena sesuatu hal kita tidak dapat menggunakan mouse dalam mengoperasikan suatu aplikasi, misalnya mouse sedang rusak. Maka terpaksa kita menggunakan keyboard dalam menjalankan suatu aplikasi. Atau mungkin aplikasi kita adalah aplikasi yang digunakan di kasir toko yang memang sengaja tidak diberi mouse.
Pada keadaan dimana kita harus menggunakan keyboard, maka untuk berpindah dari satu kontrol ke kontrol yang lain kita menggunakan tombol tab.
Untuk itu di dalam mendesain suatu form, kita juga perlu mengatur urut-urutan kontrol yang akan aktif jika tombol tab ditekan.
Untuk mengatur urutan tersebut caranya sangat mudah, yaitu dengan mengatur properti TabIndex setiap kontrol. Kontrol yang langsung fokus jika aplikasi dijalankan akan memiliki TabIndex 0, kemudian jika kita menekan tombol tab, maka kontrol berikutnya yang aktif adalah yang memiliki TabIndex 1, dan seterusnya.
Untuk kasus tertentu, maka penggunaan tombol tab untuk berpindah dari satu kontrol ke kontrol lain tidak efisien, dan untuk menggantikan tombol tab diinginkan tombol enter.
Untuk menggantikan tombol tab dengan enter, maka trik yang dapat dipakai adalah menggunakan event KeyPress.
Nilai keyAscii untuk enter adalah 13. Jika nilai keyAscii 13 ini terpenuhi, maka kontrol berikutnya yang ingin dijadikan fokus harus dikenai metoda setfocus.
Menambahkan Kontrol Array Pada Saat Run-Time
Umumnya kita menambahkan kontrol ke dalam form pada saat mendesain form tersebut (pada saat design time), tetapi Visual Basic juga menyediakan fasilitas untuk menambah jumlah kontrol array pada saat run-time dengan menggunakan pernyataan Load.
- Buatlah sebuah form dan tambahkan sebuah Command Button. Ubah properti Indexnya dengan
- Ke dalam Command Button tersebut tambahkan kode program seperti listing 2.
Listing 2. Event Click pada Command1
Private Sub Command1_Click(Index As Integer)
Load Command1(1)
Command1(1).Left = Command1(0).Left
Command1(1).Top = Command1(0).Top + Command1(0).Height
Command1(1).Caption = "Command Baru"
Command1(1).Visible = True
End Sub
- Perhatikan bahwa pada prosedur Command1_Click terdapat parameter Index As Integer yang harus ditambahkan.
- Jalankan aplikasi tersebut. Jika Command Button di klik, maka otomatis akan ditambahkan sebuah Command Button baru tepat di bawahnya.
0 komentar:
Posting Komentar
terimakasih