Heri Media

Sabtu, 30 Juli 2011

Membuat Fungsi Terbilang Dengan Visual Basic 6.0

Published : 23.54 Author : Herry Potter

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))

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

y = y - tmp * 10 ^ j

angka(1) = "satu "

End If

bilang = bilang & angka(y)

ratusan = bilang

End Function

Listing 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 Sub

Listing 3. Event click pada cmdExit

Private Sub cmdExit_Click()

End

End Sub

WiFi 802.22, Teknologi Nirkabel Hingga Jarak 100 Km

Published : 23.11 Author : Herry Potter

Badan standar IEEE (Institute of Electrical and Electronics Engineers ) hari ini mengumumkan IEEE 802.22, generasi berikutnya dari WiFi yang dirancang untuk memfasilitasi transfer data nirkabel hingga 60 mil (atau seratus kilometer) dengan kecepatan sampai 22 Mbps. Bayangkan, anda dapat tetap terhubung langsung dengan jaringan komputer anda yang berada di Jakarta saat anda sedang berlibur di Puncak, misalnya.

Teknologi ini mengambil keuntungan dari pita VHF dan UHF dan mengirimkan internet broadband nirkabel sampai diameter 100 km. Teknologi ini bertempat di ruang antara channel TV sehingga tidak mengganggu penerimaan stasiun siaran televisi yang ada pada saat itu. Berikut penjelasan dari para pejabat di badan standar IEEE:Standar baru untuk Wireless Regional Area Network (WRAN) mengambil keuntungan dari karakteristik transmisi dari VHF dan UHF TV untuk menyediakan akses nirkabel broadband dengan area hingga 100 km dari pemancar. Setiap WRAN akan memberikan kecepatan hingga 22 Mbps per kanal tanpa mengganggu penerimaan stasiun siaran TV yang ada, menggunakan apa yang disebut White Space yang ada di antara saluran-saluran TV IEEE adalah asosiasi profesional terbesar di dunia yang didedikasikan untuk inovasi teknologi yang lebih maju dan keunggulannya untuk kepentingan kemanusiaan. Ini sangat menarik, kita tunggu saja sampai benar-benar diterapkan.

Template Orestado

Published : 09.16 Author : Herry Potter

Downloads (100)

Demo (147)


Platform:	WordPress Theme
Name:	Orestado
Description:	Orestado WordPress Theme is free wordpress theme, premium quality theme, elegant theme, fresh and clean, dark color background, slide show ready, 2 columns layout with right sidebar. Download Orestado WordPress Theme atWordPress Theme Gallery.