Tip Trik VB

MS- Visual of Basic 6.0 for windows is laboring Ianguage programming in scope MS-WINDOWS. VB can exploit the ability MS-WINDOWS in an optimal fashion. Its ability usable to design the application program which have appearance like other;dissimilar application program being based on MS-WINDOWS.
VB Version 6.0 a lot of liked the programmer because not require the heavy conditions hardware, its packet enough summarize the, program is easy to weared and some other reason. And surely from time to time there repair with the packet of servise pack-nya.

Strarting program VB, the stages; steps in the following is:

1. Click Start at system operate for the MS-WINDOWS

2. Show the Programs ( all programs > Visual Microsoft of Basic 6.0 > Basic 6.0. if VB come from Visual bundle Microsoft of Studio, its choice is Programs > Visual Microsoft of Studio > Visual Microsoft of Basic 6.0

3. Emerging appearance of like Picture 1.1. You deflect to chosen the icon VB Enterprise Edition Control or VB Professional Edition Control. On the contrary choice of Don'T show this dialogued in the future said the word to select;choose.

Dim kata(1 To 9) As String

Private Sub Form_Load()

kata(1) = "Satu "
kata(2) = "Dua "
kata(3) = "Tiga "
kata(4) = "Empat "
kata(5) = "Lima "
kata(6) = "Enam "
kata(7) = "Tujuh "
kata(8) = "Delapan "
kata(9) = "Sembilan "

End Sub

Function sebut(x)

Dim a, b, c As Integer
Dim teks1 As String

a = x \ 100
b = (x \ 10) Mod 10
c = x Mod 10

If a > 0 Then
If a = 1 Then
teks1 = "Seratus "
Else
teks1 = teks1 & kata(a) & "Ratus "
End If
End If

If b > 0 Then
If b = 1 Then
If c = 0 Then
teks1 = teks1 & "Sepuluh "
ElseIf c = 1 Then
teks1 = teks1 & "Sebelas "
c = 0
Else
teks1 = teks1 & kata(c) & "Belas "
c = 0
End If
Else
teks1 = teks1 & kata(b) & "Puluh "
End If
End If

If c > 0 Then teks1 = teks1 & kata(c)
sebut = teks1

End Function

Private Sub txttitip_KeyPress(KeyAscii As Integer)
Dim a, b, c As Integer
Dim teks1 As String
Dim angka As Long

If KeyAscii = 13 Then
angka = Val(txttotal.Text)
a = angka \ 1000000
b = (angka \ 1000) Mod 1000
c = angka Mod 1000
If a > 0 Then
teks1 = teks1 & sebut(a) & "Juta "
End If

If b > 0 Then
If b = 1 Then
teks1 = teks1 & "Seribu "
Else
teks1 = teks1 & sebut(b) & "Ribu "
End If

End If
If c > 0 Then teks1 = teks1 & sebut(c)
txtbilang.Text = teks1 & "Rupiah"
End If
End Sub