Hai Sherina, dalam VB6;
1. Buat project baru (otomatis ada 1 form)
2. tambahkan 2 textbox (Text1, Text2)
3. tambahkan 1 command button (Command1)
code-nya copy paste semua dari sini.
coba klik Command1-nya, ^_^
Catatan:
dalam contoh kita merubah 1 menjadi A, kalau besok2 mau dirubah 1
menjadi Z tinggal kamu rubah aja const-nya dan sterusnya. Code will
find its own way :D
Coding:
'-----------------------------------------
Private Const vChar0 As String = "J"
Private Const vChar1 As String = "A"
Private Const vChar2 As String = "B"
Private Const vChar3 As String = "C"
Private Const vChar4 As String = "D"
Private Const vChar5 As String = "E"
Private Const vChar6 As String = "F"
Private Const vChar7 As String = "G"
Private Const vChar8 As String = "H"
Private Const vChar9 As String = "I"
Option Explicit
Private Sub Command1_Click()
Dim vText As String, vLength As String, i As Integer
Dim vChar As String, vPrevChar As String, vCount As Integer
Dim vToReplace As String, vNewText As String, vReplacement As String
vCount = 1
If Not IsNumeric(Text1.Text) Then
MsgBox "Entry salah. Masukkan angka", 48
Text1.SetFocus
Exit Sub
End If
vText = Text1.Text
'1st Phase: Ganti semua angka jadi huruf
vText = Replace(vText, "0", vChar0)
vText = Replace(vText, "1", vChar1)
vText = Replace(vText, "2", vChar2)
vText = Replace(vText, "3", vChar3)
vText = Replace(vText, "4", vChar4)
vText = Replace(vText, "5", vChar5)
vText = Replace(vText, "6", vChar6)
vText = Replace(vText, "7", vChar7)
vText = Replace(vText, "8", vChar8)
vText = Replace(vText, "9", vChar9)
'2nd Phase: Cari yang merupakan pengulangan, ganti dengan angka
vLength = Len(vText)
For i = 0 To vLength - 1
vChar = Left(Right(vText, vLength - i), 1)
If vChar <> vPrevChar Then
If vCount > 1 Then
vToReplace = String(vCount, vPrevChar)
vReplacement = vPrevChar & LTrim(Str(vCount))
vText = Replace(vText, vToReplace, vReplacement)
End If
vCount = 1
Else
vCount = vCount + 1
End If
vPrevChar = vChar
Next i
If vCount > 1 Then
vToReplace = String(vCount, vPrevChar)
vReplacement = vPrevChar & LTrim(Str(vCount))
vText = Replace(vText, vToReplace, vReplacement)
End If
Text2.Text = vText
End Sub
Private Sub Form_Load()
Text1.Text = "210000"
Text2.Text = ""
End Sub
'-----------------------------------------
Semoga membantu
F
in Code we trust..
--- In [email protected], "sherinalavenda"
<[EMAIL PROTECTED]> wrote:
>
> dear all millis...
> saya lagi dapet kesulitan mengkonversikan angka ke huruf.
> misalkan A mewakili angka 1, B mewakili angka 2,.. ,J mewakili 0.
> contoh: di text box ada angka 210000 maka ditexbox kedua berisi
BAJ4.
> thanks large....
>
