ANGKA TERBILANG
Program ini terdiri dari beberapa komponen yaitu: 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
Tiga komponen label Satu kompone edit Dua komponen panel Dua komponen memo Tia komponen timer Tiga komponen BitBtn Satu komponen Image Satu komponen MediaPlayer Satu komponen OpenDialog Satu komponen ProgressBar
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, MPlayer, Mask; {} type TForm1 = class(TForm) Panel1: TPanel; Label1: TLabel; Edit1: TEdit; Heri afrizal | Mahasiswa Manajemen informatika Univ. Almuslim Bireuen
ANGKA TERBILANG Memo1: TMemo; Panel2: TPanel; BitBtn3: TBitBtn; BitBtn2: TBitBtn; BitBtn1: TBitBtn; Panel3: TPanel; Label2: TLabel; Label3: TLabel; Timer1: TTimer; Timer2: TTimer; Timer3: TTimer; OpenDialog1: TOpenDialog; ProgressBar1: TProgressBar; MediaPlayer1: TMediaPlayer; BitBtn4: TBitBtn; Image1: TImage; MP3: TMemo; Label4: TLabel; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure Timer3Timer(Sender: TObject); procedure BitBtn4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; n:integer; implementation {$R *.dfm} Function Terbilang(Uang:Int64):String; Begin If (Uang = 1) Then Terbilang:='Satu ' Else If (Uang = 2) Then Terbilang:='Dua ' Else If (Uang = 3) Then Terbilang:='Tiga ' Else If (Uang = 4) Then Terbilang:='Empat ' Else If (Uang = 5) Then Terbilang:='Lima ' Else If (Uang = 6) Then Terbilang:='Enam ' Else If (Uang = 7) Then Terbilang:='Tujuh ' Else If (Uang = 8) Then Terbilang:='Delapan ' Else If (Uang = 9) Then Terbilang:='Sembilan ' Else If (Uang = 0) Then Terbilang := ' ' Heri afrizal | Mahasiswa Manajemen informatika Univ. Almuslim Bireuen
ANGKA TERBILANG Else If (Uang = 10) Then Terbilang := 'Sepuluh ' Else If (Uang = 11) Then Terbilang := 'Sebelas ' Else If (Uang >= 12) And (Uang <= 19) Then Terbilang:=Terbilang(Uang Mod 10) + 'Belas ' Else If (Uang >=20) And (Uang <=99) Then Terbilang := Terbilang(Round(Uang / 10)) + 'Puluh ' + Terbilang(Uang Mod 10) Else If (Uang >=100) And (Uang <=199) Then Terbilang := 'Seratus ' + Terbilang(Uang - 100) Else If (Uang >= 200) And (Uang <=999) Then Terbilang := Terbilang(Round(Uang / 100)) + 'Ratus ' + Terbilang(Uang Mod 100) Else If (Uang >=1000) And (Uang <=1999) Then Terbilang := 'Seribu ' + Terbilang(Uang - 1000) Else If (Uang >=2000) And (Uang <=999999) Then Terbilang := Terbilang(Round(Uang / 1000)) + 'Ribu ' + Terbilang(Uang Mod 1000) Else If (Uang >=1000000) And (Uang <=999999999) Then Terbilang := Terbilang(Round(Uang / 1000000)) + 'Juta ' + Terbilang(Uang Mod 1000000) Else If (Uang >=1000000000) And (Uang <=999999999999) Then Terbilang :=Terbilang(Round(Uang / 1000000000)) + 'Milyar ' + Terbilang(Uang Mod 1000000000) Else If (Uang >=1000000000000) Then Terbilang :=Terbilang(Round(Uang / 1000000000000)) + 'Triliun ' + Terbilang(Uang Mod 1000000000000); End; procedure TForm1.BitBtn1Click(Sender: TObject); begin Memo1.Text := Terbilang(StrToInt64(Edit1.Text)); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin edit1.Clear; memo1.Clear; edit1.SetFocus; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin close; end; procedure TForm1.Timer1Timer(Sender: TObject); begin label3.Caption := formatdatetime('"Tanggal : "dd/mm/yyyy',now)+chr(10)+ formatdatetime('"Pukul : "hh:nn:ss',now); label3.Refresh; label2.left:=label2.left-1; if(label2.left+label2.width)<=0 then label2.left:=panel3.width; end; procedure TForm1.FormCreate(Sender: TObject); begin n:=0; Progressbar1.Position:=0; Heri afrizal | Mahasiswa Manajemen informatika Univ. Almuslim Bireuen
ANGKA TERBILANG end; procedure TForm1.Timer2Timer(Sender: TObject); begin n:=n+1; if n=1 then label4.Caption:='H'; if n=2 then label4.Caption:=label4.Caption + 'E'; if n=3 then label4.Caption:=label4.Caption + 'R'; if n=4 then label4.Caption:=label4.Caption + 'I'; if n=5 then label4.Caption:=label4.Caption + ' '; if n=6 then label4.Caption:=label4.Caption + 'A'; if n=7then label4.Caption:=label4.Caption + 'F'; if n=8 then label4.Caption:=label4.Caption + 'R'; if n=9 then label4.Caption:=label4.Caption + 'I'; if n=10 then label4.Caption:=label4.Caption + 'Z'; if n=11 then label4.Caption:=label4.Caption + 'A'; if n=12 then label4.Caption:=label4.Caption + 'L'; if n=13 then label4.Caption:=label4.Caption + ''; if n=13 then begin label4.Caption:=''; n:=0;
end end; procedure TForm1.Timer3Timer(Sender: TObject); begin if Progressbar1.Max<>0 then Progressbar1.Position:=MediaPlayer1.Position; end; procedure TForm1.BitBtn4Click(Sender: TObject); begin if opendialog1.Execute then begin MP3.Text:=opendialog1.FileName; end; Progressbar1.Max:=0; MediaPlayer1.Close; MediaPlayer1.FileName:=MP3.Text; MediaPlayer1.Open; Progressbar1.Max:=MediaPlayer1.Length; end; end. end; end.
Heri afrizal | Mahasiswa Manajemen informatika Univ. Almuslim Bireuen
ANGKA TERBILANG < Info Dan Kontak Penulis> Heri Afrizal HERI AFRIZAL adalah salah satu mahasiswa manajemen informatika universitas almuslim yang saat ini masih semester dua,lahir dan di besarkan di daerah aceh kawasan pedesaan yang sangat sejuk dan indah.Sekarang tinggal di daerah Bireuen,tepatnya desa Jangka kec,Jangka Kab.Bireuen. Untuk informasi lebih lanjut mengenai saya bisa didaptkan di :
Didukung Oleh:
Telp/HP : 085277229767 Facebook: Heri Afrizal email :
[email protected] Web : www.herfikom.hexat.com TTL : Bireuen, 18 Juli 1986 Domisili : Aceh Status : Mahasiswa Univ. Almuslim Bireuen Jurusan :Manajemen Informatika Hoby : Sepakbola, Musik, ngeband Kritik,Saran,maupun Pertanyaan seputar Tutorial bisa menghubungi Penulis…….!!!!!!!!
Semua Konten Di www.herfikom.hexat.com Bertujuan Sebagai Media Pendidikan Dan Pembelajaran, Oleh Karena Itu Dimohon Tidak Menyalahgunakan Informasi Dan Pengetahuan Yang Diperoleh Untuk Hal - Hal Yang Merugikan Diri Sendiri Maupun Orang Lain
Heri afrizal | Mahasiswa Manajemen informatika Univ. Almuslim Bireuen
