konversi angka menjadi abjad

[sinyonamakoe]

@foxy: memang bukan penemuan baru yang bakal dinominasi untuk Nobel tapi untuk forum ini pantas segera dipin diatas, sistem bilangan baru mungkin layak diberi nama nick FOXY, VSEX atau ada usulan lain?....  Ayo mana tuh GM Sinyo atau GA Taz?

Kalo urusan nobel-menobel, Pak. Taz nich yang lebih berwenang ...

@armen_sakti,foxy,davidmustakim

Seneng sekali jika para senior pada bagi-bagi ilmu kaya gini  ...

[foxy]

p3m4lu:

[quote = "You"]
...kalau boleh saya minta tolong lagi untuk di sempurnakan pak...
[/qoute]

Sebenarnya bukan tidak sempurna, tapi memang konsep konversi yang Anda buat (dan ternyata sudah Anda pakai ya?) itu berbeda dengan konsep bilangan basis-26 yang saya gunakan. Yang Anda lakukan dengan fungsi Anda adalah konversi dari numerik ke karakter. Sedangkan pada waktu saya mempelajari post pertama Anda di thread ini, yang saya pikirkan adalah membuat sistem bilangan baru. Setelah saya pelajari lagi, sebenarnya konversi Anda hampir mirip dengan konsep bilangan; tetapi ada satu pengecualian, konsep konversi itu tidak mengenal angka nol. Jadi kalau kita ibaratkan bilangan desimal; setelah angka sembilan, langsung 11; setelah 19, langsung 21, dan setelah 99 langsung 101.

Coba perhatikan tabel berikut:

Code: [Select]

Decimal   Konversi  VicesiumSextus (VS)
1             A            A
2             B            B
.             .            .
.             .            .
25            Y            Y
26            Z           AZ   ===> menurut VS; AZ = 10 basis26 = 26 desimal ; yakni 1 puluhan (A=1) dan 0 satuan (Z=0)
              ===> menurut konversi Z = 26; karena di konversi tidak ada bilangan 0
27            AA          AA
28            AB          AB
29            AC          AC
.              .           .
.              .           .
51            AY          AY
52            AZ          BZ   ===> menurut VS; BZ = 20 basis26 = 52 desimal ; yakni 2 puluhan (B=2) dan 0 satuan (Z=0)
              ===> menurut konversi AZ = 52; karena di konversi tidak ada bilangan AZ (= 20 bilangan basis26)
53            BA          BA
54            BA          BB
.              .          .
.              .          .
dst.

Jadi, kalau melihat tabel di atas, polanya kelihatan kan? Berarti untuk menyesuaikan fungsi VicesimusSextus dengan requirement Anda, semua bilangan yang merupakan kelipatan 26 harus dikurangi 26 sebelum perhitungan dilakukan, karena '26' = 'Z' (=0 basis26), '52' = 'AZ' (=10 basis26), dst.

Kode-nya menjadi:

Code: [Select]

function VicesimusSextus_2
lparameters lnNumber

local liIndex, lcVicesimusSextus, lnNumber, ;
  lnHasilBagi, lnSisa, lcLookup
 
lcVicesimusSextus = ""

if lnNumber # 0 && Bilangan nol tidak ada.
lcLookup = "ZABCDEFGHIJKLMNOPQRSTUVWXY"

if lnNumber % 26 = 0
lnNumber = lnNumber - 26
endif

lnHasilBagi = 1
do while lnHasilBagi # 0
lnHasilBagi = int(lnNumber / 26)
lnSisa = lnNumber % 26
lcVicesimusSextus = substr(lcLookup, lnSisa+1, 1) +  lcVicesimusSextus
lnNumber = lnHasilBagi
enddo
endif

Terus terang saya sendiri tidak yakin apakah fungsi VicesimusSextus_2 ini bisa sama dengan konversi yang sudah Anda lakukan atau berbeda -- terutama karena Anda sekarang sudah punya kode barcode dari hasil konversi Anda.

@armen_sakti:
Sejak bikin versi pertama, sampai sekarang, total udah 2 jam 30 menit. Tagihannya saya kirim yaaa.... )


Regards,
foxy

[p3m4lu]

terimakasih kembali papa foxy

functionnya sudah kelar, sudah bisa di gunakan, pencerahannya juga sangat baik sekali, skrng saya jadi mengerti langkah

[taz]

Nice Topic.
STICKY now. Tq

[p3m4lu]

wew, ada yg empunya

alhamdulillah

pak taz, thx sekali lagi, forum ini banyak kasi ilmu ke saya, jadi banyak paham mengenai programming dengan vfp

skrng saya lagi buat konversi nya dari basis 26 ke angka, ntar kalo gak bisa, minta tolong lagi di sini.

[armen_sakti]

@armen_sakti:
Sejak bikin versi pertama, sampai sekarang, total udah 2 jam 30 menit. Tagihannya saya kirim yaaa.... Smiley)

Ooopsss jangan sekarang, baca dulu ini !

skrng saya lagi buat konversi nya dari basis 26 ke angka, ntar kalo gak bisa, minta tolong lagi pada papa foxy sini.

Kalo sekarang saya tidak punya duit, apa mau bayar pake Daun......? 

[p3m4lu]

sesuai dengan post yang lalu, semoga blom terlambat

konversi abjad menjadi angka sudah saya coba membuatnya,
mohon koreksinya apa bila terdapat kekurangan,

Function refoxy
   Lparameters _BAR

   Local lcvicesimussextus, i, Panjang,lclookup
   lcvicesimussextus = 0

   lclookup = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

   Panjang = Len(Alltrim(_BAR))
   For i= 1 To Panjang
      HURUF    = Upper(Substr(_BAR,i,1))
      POSISI    = At(HURUF,lclookup)
      If i = PANJANG
         lcvicesimussextus = lcvicesimussextus+POSISI
      Else
         lcvicesimussextus = lcvicesimussextus+(POSISI*(26^(PANJANG-I)))
      Endif
   Endfor
   Return lcvicesimussextus
Endfunc

papa foxy, mohon di periksa ulang apa masih ada kesalahan dalam pembuatan functionnya.