input data di VB

ku

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtpstudi = “”
Txttahun = “”
Txtnurut = “”
Txtbp = “”
Txtterbilang = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama = “”
Txtnpm = “”
Txtjurusan = “”
Txtpstudi = “”
Txttahun = “”
Txtnurut = “”
Txtbp = “”
Txtterbilang = “”
End Sub

Private Sub Cmdproses_Click()
Dim s As String
Txttahun = “20” & Left(Txtnpm.Text, 2)
s = Mid(Txtnpm.Text, 3, 1)
If s = “1” Then
Txtjurusan.Text = “Sistem Informasi”
ElseIf s = “2” Then
Txtjurusan.Text = “Tehnik Informatika”
ElseIf s = “3” Then
Txtjurusan.Text = “Manajemen Informatika”
ElseIf s = “4” Then
Txtjurusan.Text = “Manajemen&komp.Akutansi”
End If

s = Mid(Txtnpm.Text, 4, 2)
If s = “01” Then
Txtpstudi.Text = “Strata Satu”
Txtbp.Text = “1950000”
ElseIf s = “02” Then
Txtpstudi.Text = “Diploma Empat”
Txtbp.Text = “1750000”
ElseIf s = “03” Then
Txtpstudi.Text = “Diploma Tiga”
Txtbp.Text = “1650000”
ElseIf s = “04” Then
Txtpstudi.Text = “Diploma Dua”
Txtbp.Text = “1450000”
End If

Txtnurut = Right(Txtnpm.Text, 3)
End Sub

Private Sub Txtbp_Change()
Txtterbilang.Text = terbilang(Val(Txtbp.Text))
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
Private Sub Txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmdproses.SetFocus
End If
End Sub
Private Function baca(X As Integer) As String
Dim i As Long
Dim ratus(9) As String
Dim belas(9) As String
Dim puluh(9) As String
Dim satuan(9) As String
Dim sbaca As String

satuan(1) = “satu”
satuan(2) = “dua”
satuan(3) = “tiga”
satuan(4) = “empat”
satuan(5) = “lima”
satuan(6) = “enam”
satuan(7) = “tujuh”
satuan(8) = “delapan”
satuan(9) = “sembilan”

For i = 1 To 9
If i = 1 Then
puluh(i) = “sepuluh”
Else
puluh(i) = satuan(i) & ” puluh”
End If
Next

For i = 1 To 9
If i = 1 Then
belas(i) = “sebelas”
Else
belas(i) = satuan(i) & ” belas”
End If
Next

For i = 1 To 9
If i = 1 Then
ratus(i) = “seratus”
Else
ratus(i) = satuan(i) & ” ratus”
End If
Next

If X >= 100 Then
sbaca = ratus(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 2))
End If

If X >= 20 Or X = 10 Then
sbaca = sbaca & ” ” & puluh(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 1))
Else
If X > 10 Then
sbaca = sbaca & ” ” & belas(Val(Mid(Str(X), 3, 1)))
X = -1
End If
End If

If X >= 1 Then
sbaca = sbaca & ” ” & satuan(Val((Str(X))))
End If

baca = sbaca
End Function
Function terbilang(X As Currency) As String
Dim ribu, juta, milyar, trilyun, ratusan As Integer
Dim sterbilang As String
Dim ptext As Byte
sterbilang = “”

If Val(X) < 0 Then
Exit Function
End If

If Val(X) = 0 Then
sterbilang = “nol”
End If

If X >= 1000000000000# Then
ptext = Len(Str(X)) – 13
trilyun = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(trilyun)) & ” trilyun”
X = Val(Mid(Str(X), ptext + 2, 12))
End If

If X >= 1000000000 Then
ptext = Len(Str(X)) – 10
milyar = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(milyar)) & ” milyar”
X = Val(Mid(Str(X), ptext + 2, 9))
End If

If X >= 1000000 Then
ptext = Len(Str(X)) – 7
juta = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(juta)) & ” juta”
X = Val(Mid(Str(X), ptext + 2, 6))
End If

If X >= 1000 Then
ptext = Len(Str(X)) – 4
ribu = Val(Mid(Str(X), 2, ptext))
If ribu = 1 Then
sterbilang = “seribu”
Else
sterbilang = sterbilang & ” ” & baca(Val(ribu)) & ” ribu”
End If
X = Val(Mid(Str(X), ptext + 2, 3))
End If

sterbilang = sterbilang & ” ” & baca(Val(X))
terbilang = Trim(sterbilang) & ” rupiah”
End Function

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s