Ajang Muslim 0 Report post Posted October 19, 2004 Dear Sohib [email protected],Assalamualaikum,Salam kenal semuanya,Saya mahasiswa di suatu perguruan tinggi swasta di Indonesia sangat ingin sekali bantuannya tentang Borland C++ (baru belajar).Tolong dong kasih contoh program konversi number ke word (sample : 10 = sepuluh).Wassalam, Ajang Muslim Quote Share this post Link to post Share on other sites
Nor Arisham Bakar 0 Report post Posted October 19, 2004 Quote Share this post Link to post Share on other sites
sham6574 0 Report post Posted January 12, 2005 aduhai.bengang sebengang-bengagnya.apa kah kita guna software untuk buat kerj c+++ atau kena tulis sendiri. Quote Share this post Link to post Share on other sites
fatah 0 Report post Posted January 14, 2005 aiyak Quote Share this post Link to post Share on other sites
spirit 0 Report post Posted November 16, 2005 aduhaiiiiiii pecah paler nk baca berjela2aku x nah guna pascaltp koding tu cam pseudokod la pulak Quote Share this post Link to post Share on other sites
sekailain 0 Report post Posted February 10, 2006 mak ai ... paskal .... panjang nye....ni baru convert number...kalu wat os..musti panjang gula babai nye Quote Share this post Link to post Share on other sites
indapura 0 Report post Posted February 13, 2006 puhhh...pjgnya berjela.....bapak boleh ambil konsep yg diberi utk diimplimentasikan kpd c++ Quote Share this post Link to post Share on other sites
MyFriendsINC 0 Report post Posted February 25, 2006 Mak Aii... Panjang Berjela-jela...Letih Nak scroll Ke Bawah... Quote Share this post Link to post Share on other sites
chikumarisa 0 Report post Posted March 19, 2006 mak aih...nape pendek sgt..agak penat la nak scroll ke bawah...bak kata MyFriendsINC Quote Share this post Link to post Share on other sites
CFoo++ 4 Report post Posted March 12, 2007 (edited) Ambik yang ni, pendek sikit, coding C++. Function GetTextNumber menerima nombor yang telah siap dalam bentuk string (LPCSTR Number).Kalau nombor dlam integer kena convert ke string dulu misalnya guna CString::Format() function. Yang ni boleh convert nombor hingga juta-juta.LPCSTR TFormat[] = {"", "puluh ", "ratus ", "", "puluh ", "ratus ", "", "puluh ", "ratus ", ""};LPCSTR TNumber[] = {"satu ", "dua ", "tiga ", "empat ", "lima ", "enam ", "tujuh ", "lapan ", "sembilan "};CString GetTextNumber(LPCSTR Number){ int D; int X; int L = strlen(Number); if(L > 9) return "*****"; CString S = ""; for(X=0; X<L; X++) { if(Number[X] < '0' || Number[X] > '9') return "Bukan nombor"; } for(X=0; X<L; X++) { D = (L-X)-1; // 0 base digit position if(Number[X] != '0') { if((D==1 || D==4 || D==7) && Number[X] == '1' && Number[X+1] != '0') // Belas { X++; D--; if(Number[X] != '1') { S += TNumber[Number[X]-'1']; S += "belas "; } else S += "sebelas "; } else { if(Number[X] == '1') { if(Number[X+1] == '0' || D==2 || D==5 || D==8 || (X==0 && L>1)) { S += "se"; S += TFormat[D]; } else { S += TNumber[Number[X] - '1']; S += TFormat[D]; } } else { S += TNumber[Number[X] - '1']; S += TFormat[D]; } } } if(D==3 ) { if(Number[X] != '0' || Number[X-1] != '0' || Number[X-2] != '0') S += "ribu "; } if(D==6) { S += "juta "; } } if(S.IsEmpty()) S = "kosong "; return S;}[/codebox] Edited March 12, 2007 by CFoo++ Quote Share this post Link to post Share on other sites
mindeye 0 Report post Posted March 12, 2007 gune sistem if else.....klu convert guner switch takleh ker??? Quote Share this post Link to post Share on other sites
CFoo++ 4 Report post Posted March 14, 2007 (edited) gune sistem if else.....klu convert guner switch takleh ker???Ini sebenarnya if-else bertingkat. Kalau pakai switch lagi panjang dan lagi susah nak faham. Kalau tak nak buat coding, boleh guna function yang dah siap dalam library. Ini sebenarnya function dalam FlitSDK (fail CoreFlitbase.dll), boleh download kat mawarsoft.com link OpenFlitbase. Sebenarnya ada banyak lagi function dalam tu, tukar RMXXX.XX ke "Ringgi Malaysia...." pun ada tapi tak sempat buat dokumentasi lagi. OK. Edited March 14, 2007 by CFoo++ Quote Share this post Link to post Share on other sites