Tips & Trik : Pemograman melalui Visual Basic dan Turbo Pascal

Sedikit saya ingin berbagi ilmu dengan rekan pembaca semua. Kebetulan saya hobby menulis dan membuat program  aplikasi.  Pada  kesempatan  ini  saya  akan  mencoba  menerapkan  sebuah  fungsi  dengan  nama: 'Terbilang'  pada  dua  bahasa  pemograman  yaitu:  Visual  Basic  dan  Turbo  Pascal.  Kenapa  dikatakan Terbilang?  Sebetulnya  saya  bingung  untuk  menamai  fungsi  ini.  Cuma,  saya  terinspirasi  oleh  sehelai kwitansi, di situ tertulis: "Terbilang : Sepuluh ribu rupiah. Ya sudah, saya namakan saja fungsi ini dengan 'Terbilang'. Langsung saja, berikut ini syntax yang bisa Anda coba: •  Untuk Bahasa Pascal: Baris Kode Program Huruf_Terbilang; Uses Crt; {==========================================} Function IntToStr(I: LongInt): String; var StrS: string[15]; begin Str(I, StrS); IntToStr := StrS; end; {==========================================} Function DlmHuruf(Var nHuruf:String):String; Begin If nHuruf ='1' Then DlmHuruf:='satu' Else If nHuruf ='2' Then DlmHuruf:='dua' Else If nHuruf ='3' Then DlmHuruf:='tiga' Else If nHuruf ='4' Then DlmHuruf:='empat' Else If nHuruf ='5' Then DlmHuruf:='lima' Else If nHuruf ='6' Then DlmHuruf:='enam' Else If nHuruf ='7' Then DlmHuruf:='tujuh' Else If nHuruf ='8' Then DlmHuruf:='delapan' Else If nHuruf ='9' Then DlmHuruf:='sembilan' Else End; {-------------------------------------------} Function Terbilang(Var Angka:LongInt):String; var ChrS : Array[1..10] of String; StrT : Array[1..10] of String; Huruf:String;Indeks,Panjang:Integer; {ChrS1,ChrS2,ChrS3,ChrS4,ChrS5: String; ChrS6,ChrS7,ChrS8,ChrS9,ChrS10: String; StrT1,StrT2,StrT3,StrT4,StrT5:String; StrT6,StrT7,StrT8,StrT9,StrT10:String;} Begin Huruf:=''; Panjang:=0; For Indeks := 1 to 10 do begin ChrS[Indeks]:=''; StrT[Indeks]:='';End; Panjang:=Length(IntToStr(Angka)); For Indeks := 1 to Panjang do {If Panjang >= Indeks Then} ChrS[Indeks] := Copy(IntToStr(Angka), (Panjang-(Indeks-1)),1); {======================================} If ChrS[8] ='0' Then Begin StrT[8] :=''; StrT[7]:=DlmHuruf(ChrS[7]) + 'juta '; End; Else If ChrS[8] ='1' Then Begin StrT[8]:=''; If ChrS[7] = '0' Then StrT[7]:='Sepuluh juta ' Else If ChrS[7] = '1' Then StrT[7]:='Sebelas juta ' Else StrT[7]:= DlmHuruf(ChrS[7]) + 'belas juta'; End; Else If ChrS[8] >'1' Then Begin StrT[7]:=DlmHuruf(ChrS[7]) + 'juta '; StrT[8]:=DlmHuruf(ChrS[8]) + 'puluh '; End; Begin End; {======================================} If ChrS[6] = '0' Then StrT[6]:='' Else Begin If ChrS[6] <> '1' Then StrT[6]:=DlmHuruf(ChrS[6]) + 'ratus ' Else StrT[6]:='Seratus '; End; {========================================} If ChrS[5] = '0' Then Begin StrT[5]:=''; If ChrS[4] = '1' Then StrT[4]:= 'Seribu ' Else StrT[4] := DlmHuruf(ChrS[4]) + 'ribu '; End Else If ChrS[5] = '1' Then Begin StrT[5]:=''; If ChrS[4] = '0' Then StrT[4]:='Sepuluh ribu ' Else If ChrS[4] = '1' Then StrT[4]:='Sebelas ribu ' Else StrT[4]:= DlmHuruf(ChrS[4]) + 'belas ribu '; End Else Begin StrT[4]:=DlmHuruf(ChrS[4]) + 'ribu '; StrT[5]:=DlmHuruf(ChrS[5]) + 'puluh '; End; {=======================================} If ChrS[3] = '0' Then StrT[3]:='' Else If ChrS[3] ='1' Then StrT[3]:='Seratus ' Else If ChrS[3] > '1' Then StrT[3]:=DlmHuruf(ChrS[3]) + 'ratus '; {========================================} If ChrS[2] = '0' Then Begin StrT[2]:=''; StrT[1]:=DlmHuruf(ChrS[1]); End Else If ChrS[2] ='1' Then Begin StrT[2]:=''; If ChrS[1] = '0' Then StrT[1]:='Sepuluh' Else If ChrS[1] = '1' Then StrT[1]:='Sebelas' Else StrT[1]:= DlmHuruf(ChrS[1]) +'belas'; End Else If ChrS[2] > '1' Then Begin StrT[1]:=DlmHuruf(ChrS[1]); StrT[2]:=DlmHuruf(ChrS[2])+'puluh '; End; For Indeks := 1 to 8 Do If Panjang <= Indeks Then StrT[Indeks + 1] :=''; For Indeks := 8 DownTo 1 Do Huruf:=Huruf + StrT[Indeks]; {Huruf:=StrT[8+StrT[7+StrT[6+StrT[5+ StrT[4+StrT[3+StrT[2+StrT[1;} Terbilang:=Huruf; Dwnloan File disini : VB Pascal