Terbilang Indonesia

Fungsi Terbilang Indonesia



Terbilang Indonesia


Contoh coding ini digunakan untuk menampilkan tulisan terbilang
dengan bahasa Indonesia dari besar uang yang dimasukkan ke




Dalam textbox. Besar uang yang dimasukkan bukan bilangan
pecahan, tapi bilangan bulat.


"Membuat parameter "MataUang" yang bersifat opsional, di mana
default-nya = "rupiah". Jika parameter ini dikosongkan dengan ""
maka kata "rupiah" tidak muncul. Jika parameter ini tidak ada
(hanya memiliki 1 parameter), kata "rupiah" ditampilkan.
Persiapan:
1.    Buat 1 Project baru dengan 1 Form dan 2 TextBox.
2.    Text1 untuk input dengan angka, Text2 menampilkan terbilang.
3.    Ketik coding berikut ke dalam editor form yang bertalian.


Tampilan Form1:




Ketik coding berikut ini pada Form.
'Pembuat : Ujexs Base 2009
'Tanngal : 26 Oktober 2009
'tempat : Labor STMIK NH JAMBI




Public Function TerbilangBulat(strAngka As String, _
Optional MataUang As String = "rupiah") As String
Dim strJmlHuruf$, intPecahan As Integer
Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$
Dim X As Integer, Y As Integer, z As Integer
On Error GoTo Pesan
Dim strValid As String, huruf As String * 1
Dim i As Integer
'Periksa setiap karakter yg diketikkan ke kotak
'UserID
strValid = "1234567890"
For i% = 1 To Len(strAngka)
huruf = Chr(Asc(Mid(strAngka, i%, 1)))
If InStr(strValid, huruf) = 0 Then
Set AngkaTerbilang = Nothing
MsgBox "Harus karakter angka!", _
vbCritical, "Karakter Tidak Valid"
Exit Function
End If
Next i%
If strAngka = "" Then Exit Function
If Len(Trim(strAngka)) > 15 Then GoTo Pesan
strJmlHuruf = LTrim(strAngka)
'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))
If (intPecahan = 0) Then
strPecahan = ""
Else
'strPecahan = LTrim(Str(intPecahan)) + "/100 "
strPecahan = ""
End If
X = 0
Y = 0
Urai = ""
While (X < Len(strJmlHuruf))
X = X + 1




strTot = Mid(strJmlHuruf, X, 1)
Y = Y + Val(strTot)
z = Len(strJmlHuruf) - X + 1
Select Case Val(strTot)
Case 1
If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
Bil1 = "satu "
ElseIf (z = 4) Then
If (X = 1) Then
Bil1 = "se"
Else
Bil1 = "satu "
End If
ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then X = X + 1
strTot = Mid(strJmlHuruf, X, 1)
z = Len(strJmlHuruf) - X + 1
Bil2 = ""
Select Case Val(strTot)
Case 0: Bil1 = "sepuluh "
Case 1: Bil1 = "sebelas "
Case 2: Bil1 = "dua belas "
Case 3: Bil1 = "tiga belas "
Case 4: Bil1 = "empat belas "
Case 5: Bil1 = "lima belas "
Case 6: Bil1 = "enam belas "
Case 7: Bil1 = "tujuh belas "
Case 8: Bil1 = "delapan belas "
Case 9: Bil1 = "sembilan belas "
End Select
Else
Bil1 = "se"
End If
Case 2: Bil1 = "dua "
Case 3: Bil1 = "tiga "
Case 4: Bil1 = "empat "
Case 5: Bil1 = "lima "
Case 6: Bil1 = "enam "
Case 7: Bil1 = "tujuh "
Case 8: Bil1 = "delapan "
Case 9: Bil1 = "sembilan "
Case Else
Bil1 = ""
End Select
If (Val(strTot) > 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
Bil2 = "puluh "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
Bil2 = "ratus "
Else
Bil2 = ""
End If
Else
Bil2 = ""
End If




If (Y > 0) Then
Select Case z
Case 4: Bil2 = Bil2 + "ribu "
Y = 0
Case 7: Bil2 = Bil2 + "juta "
Y = 0
Case 10: Bil2 = Bil2 + "milyar "
Y = 0
Case 13: Bil2 = Bil2 + "trilyun "
Y = 0
End Select
End If
Urai = Urai + Bil1 + Bil2
Wend
Urai = Urai + strPecahan
TerbilangBulat = (Urai & MataUang)
Exit Function
Pesan:
TerbilangBulat = "(maksimal 15 digit)"
End Function
'manampilkan fungsi terbilang di text2
Private Sub Text1_Change()
Text2.Text = TerbilangBulat(Text1.Text)
End Sub

Silahkan Download  Disini :

== Fungsi Terbilang==

Baca Selengkapnya ..

Membuat Hurup Capital Pada Awal Kata

Membuat Hurup Capital Pada Awal Kata



Coding berikut ini digunakan untuk menampilkan huruf pertama dari

setiap kata dalam suatu kalimat menjadi huruf besar/kapital.



Persiapan:

1.Buat 1 Project baru dengan 1 Form dan 1 TextBox.

2.Ketik coding berikut ke dalam editor form yang bertalian.



Tampilan Form1







Ketik coding berikut ini pada Form.



'Pembuat : Ujexs Base 2009

'Tanngal : 26 Oktober 2009

'tempat : Labor STMIK NH JAMBI





Public Function AwalKataKapital(strKalimat As String)

Dim i As Integer

Dim Temp As String

Dim Lokasi As Integer

Dim huruf As String * 1

Temp$ = ""

For i% = 1 To Len(strKalimat)

huruf = Chr(Asc(Mid(strKalimat, i%, 1)))

If Len(Trim(huruf)) < 1 Then

Lokasi% = i% + 1

End If

If i% = Lokasi% Or i% = 1 Then

Temp$ = Temp$ + UCase(Chr(Asc(Mid(strKalimat, _

i%, 1))))

Else

Temp$ = Temp$ + LCase(Chr(Asc(Mid(strKalimat, _

i%, 1))))

End If

Next i

AwalKataKapital = Temp$

End Function

Private Sub Text1_Change()

Dim posisi As Integer

posisi = Text1.SelStart

Text1.Text = AwalKataKapital(Text1.Text)

Text1.SelStart = posisi

End Sub


Download disini :
== Hurup Kapital==
Good Luck !

Baca Selengkapnya ..

“ Lelaki Biasa”

Lagu Karya Musisi Ujexs Base ini,Sangat Impresif,lagu yang berjudul tentang lelaki biasa ini berkisah dan hampir semua ada pada diri seorang lelaki ,sebenarnya lagu ini ditujukan untuk kaum hawa biar didengar dan dibaca …

Lelaki biasa adalah lelaki yang memiliki kepribadian yang sangat luar biasa ..

========================



Selamat Menikmati ... !!





==========================================================



Title : " Lelaki Biasa "

Genre : " Pop "

Year : " 2009 "

Liric : " Ujexs Base 2010 "



*

Sebelum kau mengenal aku lebih jauh

ku harap kepadamu untuk menilaiku lebih dulu ..

kutak ingin jika nanti kau menyesal

bila kau tak kenal lebih dulu kepribadianku ..



**

kukatakan padamu aku adanya seperti ini ...

tak ada yang bisa kubanggakan untukmu

sejujurnya diriku tak layak memilikimu ...

agar dapat kau lihat dulu baru mememikirkan pilihanmu





Reff

=====



Aku ini lelaki biasa yang tak pernah menyerah untuk selalu berusaha

menjadi seorang lelaki yang kau banggakan ..



Aku ini lelaki biasa yang belum mengerti akan cintaku

yang masih selalu belajar dalam dunia cinta karna ku lelaki biasa ...



Back to *,Reff





Download lagunya :

http://www.ziddu.com/download/6292273/LelakiBiasa.mp3.html

Baca Selengkapnya ..

Program Membuat Winamp sederhana

Program Membuat Winamp sederhana

Menggunakan Visual Basic . 06



  • Rancangan tampilan FORM1
Komponen
Nama
Nilai
Form
Name
frmLagu
Caption
Player Music By Ujexs
Frame
Name
Frame1
Backcolor
Blue (biru)
Caption
(Kosongkan)
Label
Name
Label1
Caption
(kosongkan)

ToolTipsText
Judul lagu
Label
Name
Label2
Caption
Music Is My Live
Label
Name
Label3
Caption
Create Ujexs Base 2008
MMC Control
Name
MMC
Picture Box
Name
Picture 1
Back Color
Biru ( Blue)
Command
Name
Command 1
Caption
Add
Command
Name
Command 2
Caption
Play
Command
Name
Command 3
Caption
Exit
Timer
Name
Timer1
Interval
500
Timer
Name
Timer2

Interval
300
Commond Dialog

Name
bukafile

File Name
bukafile








  • Listing Kode Program
'Ini program music sederhana yang hanya bisa memutrarkan 1 lagu aja

'Pembuat : Ujexs Base 2008

'Tanggal : 20 Nov 2008

'Tempat : Kost Jl.Cemara II ,Sipin, Jambi

'Jam : 23.00 WIB

'E-mail : ujexsbase@gmail.com

'Website : http://ujexs09.blogspot.com/



'Menyatakan Variabel

Dim ket As String

Dim X As Integer





Private Sub Command1_Click()

On Error Resume Next

bukafile.Filter = _

"MP3 |*.mp3|ASF|*.asf|ASX|*.asx|WAV|*.wav|AVI|*.avi|"

bukafile.ShowOpen

MMC.FileName = bukafile.FileName

MMC.Command = "close'"

MMC.Command = "open"

Label1.Caption = "TRACK : " & bukafile.FileTitle

End Sub



Private Sub Command2_Click()

MMC.Command = "seek"

MMC.Command = "play"

End Sub



Private Sub Command3_Click()

Unload Me

End Sub



Private Sub Form_Load()

X = 1

ket = ""

End Sub



Private Sub Label3_Click()

Shell "EXPLORER.EXE " & " http://ujexs09.blogspot.com/"

End Sub





Private Sub Timer1_Timer()

ket = ket & Mid(Label2.Caption, X, 1) 'ket = ket & Mid(Label2.Caption, X, 1)

Frame1.Caption = ket

If X = Len(Label2.Caption) Then

ket = ""

X = 1

Else

X = X + 1

End If

End Sub



Private Sub Timer2_Timer()

Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

If Label1.Left > frmLagu.Width Then

Label1.Left = -Label1.Width

Else

Label1.Left = Label1.Left + 200

End If

End Sub

By MAHASISWA TI STMIK NH JAMBI

Ujexs Base 2009

ujexsbase@gmail.com

Baca Selengkapnya ..

Program Membuat Tulisan Berjalan

Program Membuat Tulisan Berjalan

Menggunakan Visual Basic . 06



  • Rancangan tampilan FORM1
Komponen
Nama
Nilai
Form
Name
Form1
Caption
___Program Tulisan Berjalan ^^^^
Frame
Name
Frame1
Caption
-
Label
Name
Label1
Caption
SELAMAT DATANG DI STMIK NURDIN HAMZAH JAMBI
Label
Name
Label2
Caption
Ujexs base 2009
Option
Name
Option1
Caption
Kanan-kiri
Option
Name
Option2
Caption
Kiri-kanan
Option
Name
Option3
Caption
Atas-bawah
Option
Name
Option4
Caption
Bawah-atas
Picture
Name
Picture1
Caption
-
Timer
Name
Timer1
Interval
100
Timer
Name
Timer2
Interval
2000














 




  • Listing Kode Program
' ========================================================

'Program Tulisan Berjalan ini dibuat untuk bagaimana membuat suatu tulisan bisa berjalan sendiri

'di mana pembuatanya memaksimalkan fungsi Timer yang terdapat dalam Visual basic...

'silahkan aja jika mau diperbarui tanpa harus merusak karya asli pembuat ,, ntar bisa dituntut Looo

========================================================

Private Sub Label2_Click()

'untuk membuat link online langsung ke internet

Shell "EXPLORER.EXE " & "http://ujexs09.blogspot.com/"

End Sub



Private Sub Timer1_Timer()

'tulisan jalan ke kiri

If Option1.Value = True Then

If Label1.Left < -Label1.Width Then

Label1.Left = Picture1.Width

Else

Label1.Left = Label1.Left - 50

End If

'tulisan jalan ke kanan

ElseIf Option2.Value = True Then

If Label1.Left > Picture1.Width Then

Label1.Left = -Label1.Width

Else

Label1.Left = Label1.Left + 50

End If



'tulisan jalan ke atas

ElseIf Option3.Value = True Then

If Label1.Top < -Label1.Height Then

Label1.Top = Picture1.Height

Else

Label1.Top = Label1.Top - 50

End If

'tulisan jalan kebawah

ElseIf Option4.Value = True Then

If Label1.Top >= Picture1.Height Then

Label1.Top = 0

Else

Label1.Top = Label1.Top + 50

End If

End If

End Sub



Private Sub Timer2_Timer()

'membuat tulisan berkedip-kedip

Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

End Sub

By MAHASISWA TI STMIK NH JAMBI

Ujexs Base 2009

ujexsbase@gmail.com

Good Luck …… !!!

Baca Selengkapnya ..

Tugas Pengalamatan Data


Tugas Pengalamatan Data
=======================
Diposting : Tanggal 11 Oktober 2009

Lah ....
Ini kok ada tugas Ya ... ???
Hemmmm ...

Nih Tugas Pengalamatan data yang di ajari di Prodi TI STMIK NH Jambi pada semester 4 ,
Mungkin saking gak ngertinya belajar teori makanya prustasi dibikin aj programnya ,..,
habis cerita ...
Heeee


silahkan di Download aja ...
Gratis dan Mudah ... !!!
Good Luck ... !!

^ Tugas Pengalamatan data ^

Baca Selengkapnya ..

Program membuat jam analog


Program membuat jam analog
==========================
Diposting : Tanggal 10 Oktober 2009

Pernah liat jam dinding gak ...
yah beruntung yang punya jam dinding ..
yang gak punya ya terpaksa buat sendiri ...
Seperti program di bawah ini ...


silahkan di Download aja ...
Gratis dan Mudah ... !!!
Good Luck ... !!

== Jam Analog ==

Baca Selengkapnya ..

Membaca Tulisan With sound English


Membaca Tulisan With sound English
==================================
Diposting : Tanggal 10 Oktober 2009

yang pingin belajar " speak english " aplikasi dibawah ini cukup membantu Loo ...
buatnya pake bahasa pemograman Visual basic ..
silahkan di Download aja ...
Gratis dan Mudah ... !!!
Good Luck ... !!

== JefriSpeech ==

Baca Selengkapnya ..

Program Retail mini market by IPTEK

Program Retail mini market by IPTEK
===================================
Diposting : Tanggal 10 Oktober 2009


Yak ... Tibalah saatnya memperkenalkan Program Retail Minimarket ...
mantep nih ,Kayak2 diswalayan itu loo ...mirip2 dikit .. Heeeee

silahkan di Download aja ...
Gratis dan Mudah ... !!!
Good Luck ... !!

== IPTEK PROGRAM ==

Baca Selengkapnya ..