Pertanyaan Dari : Joni
*bos..bisakah kita membuat harga barang dengan kode? misalnya gini,,kode sayaS=1
D=2
T=3
0=0 saya pengen agar di tabel excel,,ketika saya memasukkan kode DT00,bisa langsung di artikan dengan 2300…kira@ bisa ga ya?
Berikut ini saya berikan 1 program untuk mendekode dan meng-encode
Const Secret = "SDTOMBILA0"
Function DecodeHarga(Harga As String) As Long
Panj = Len(Harga)
Harga = UCase(Harga)
Nilai = 0
j = Panj
For i = 1 To Panj
Huruf = Mid(Harga, i, 1)
NilaiHuruf = InStr(1, Secret, Huruf, vbTextCompare)
If NilaiHuruf = 10 Then NilaiHuruf = 0
Nilai = Nilai + NilaiHuruf * 10 ^ (j - 1)
j = j - 1
Next i
DecodeHarga = Nilai
End Function
Function EncodeHarga(Harga As Long) As String
Panj = Len(CStr(Harga))
Nilai = ""
For i = 1 To Panj
Angka = Mid(Harga, i, 1)
If Angka = 0 Then Angka = 10
Huruf = Mid(Secret, Angka, 1)
Nilai = Nilai & Huruf
Next i
EncodeHarga = Nilai
End Function
Itu adalah kode Decode dan Encode
Kalau decode, artinya merubah dari kode menjadi angka, dan encode, mengkodekan angka menjadi kode harga
Silahkan buka VBA, insert new module, dan copykan fungsi diatas pada modul, lalu simpan filenya sebagai xlsm
Oh iya, anda bisa merubah nilai Secret, yang penting 10 angka yang masing-masing hurufnya tidak sama. Contoh, BUNGAKECIL.
Yang perlu diingat, adalah nilai 10 mewakili 0. Jadi angka 0 di belakang sendiri.
Pemakaiannya seperti fungsi excel biasa, mulai dengan =, lalu tulis EncodeHarga(, klik sel yang berisi angka , tulis kurung tutup, tekan enter
Kalo di php ato java gmn Om?
ReplyDelete