haaii guyyss....
met pagi....
assalamualaikum wr. wb.
kali ini saya mau bikin program konversi dari angka ke huruf menggunakan delphi...
sebagai contoh ketika saya memasukkan angka 1234 ketika diproses akan muncul output seribu dua ratus tiga puluh empat....
ok cukup buat prolog nya.hehehe.....cekidotttt.....
untuk tampilannya kurang lebih seperti berikut....para pembaca silahkan bisa memodifikasi bentuk tampilan sebagus dan semenarik mungkin....
dalam pembuatan desain seperti diatas yang dibutuhkan adalah ....
1. label (untuk penulisan identitas, angka dan bilangan)
2. edit1 (untuk tempat memasukkan inputan)
3. memo1 (untuk tempat menampilkan outputan)
4. botton1 ( untuk tombol proses)
5. botton2 ( untuk tombol tutup)
setelah pembuatan desain kali ini yaitu melakukan perubahan "name" label, edit, memo dan botton ......
1. edit1 = adi
2. memo1 = susanto
3. botton1 = terbilang
4. botton2 = tutup
oke jika sudah kali ini list program adalah sebagai berikut ........
1. double klik botton1 (terbilang) dan ketikan list program berikut ...
procedure TForm1.TerbilangClick(Sender: TObject);
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 := ' '
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(Uang div 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(Uang div 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(Uang div 1000) + 'Ribu ' + Terbilang(Uang Mod 1000)
Else If (Uang >= 1000000) And (Uang <= 999999999) Then Terbilang := Terbilang(Uang div 1000000) + 'Juta ' + Terbilang(Uang Mod 1000000)
Else If (Uang >= 1000000000) And (Uang <= 999999999999) Then Terbilang :=Terbilang(Uang div 1000000000) + 'Milyar ' + Terbilang(Uang Mod 1000000000)
Else If (Uang >= 1000000000000) Then Terbilang :=Terbilang(Uang div 1000000000000) + 'Triliun ' + Terbilang(Uang Mod 1000000000000);
End;
begin
susanto.Text := Terbilang(StrToInt64(adi.Text));
end;
2. double klik botton1 (tutup) dan ketikan list program berikut ...
procedure TForm1.tutupClick(Sender: TObject);
begin
close;
end;
pembuatan program telah selesai....silahkan cek dengan klik tombol play pada delphi....jika masih ada kesalahan silahkan diteliti lagi list program yang telah diketik..... : )
ok demikian postingan kali ini...jika masih ada pertanyaan silahkan komentar di bawah atau fb atau hubungi saya langsung....
semoga bermanfaat.......
Senin, 04 Juni 2012
Rabu, 23 Mei 2012
koneksi 2 komputer peer to peer windows xp & windows 7
Published :
21.57
Author :
adi susanto
pagi guyss...
kali ini mau posting gimana cara koneksikan 2 buah komputer atau lebih sehingga bisa saling terhubung.... dan kenapa peer to peer???? disebut peer to peer karena semua komputer yang terhubung memiliki kedudukan yang sama dalam jaringan tersebut....
silahkan donnload materi nya disini
Minggu, 06 Mei 2012
Program Delphi 7
Published :
20.14
Author :
adi susanto
haii guyss....
kali ini saya mau bikin program sederhana dari delphi 7. dalam program tersebut ada beberapa skript For To Do, For Downto Do, While Do, Repeat Until. termasuk juga ada script untuk membuat pangkat bilangan. semoga teman-teman bisa membedakan beberapa skript tersebut.
CEK IT DOT>>>>
procedure TForm1.btkeluarClick(Sender: TObject);
begin
close;
end;
procedure TForm1.fortodoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
b:=''; j:=2;
for i:=1 to 10 do
begin
b:=b+inttostr(j)+' ';
j:=j+2;
end;
label1.caption:=b;
end;
procedure TForm1.fordowntodoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
b:=''; j:=2;
for i:=10 downto 1 do
begin
b:=b+inttostr(i)+' ';
j:=j+2;
end;
label2.Caption:=b;
end;
procedure TForm1.whiledoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
i:=1;
b:='';
while i<=10 do begin b:=b+inttostr(i)+' '; i:=i+1; end; label3.Caption:=b; end; procedure TForm1.repeatuntilClick(Sender: TObject); var i, j : integer; b : string; begin i:=1; b:=''; repeat b:=b+inttostr(i)+' '; i:=i+1; until i>10;
label4.caption:=b;
end;
procedure TForm1.bt_pangkatClick(Sender: TObject);
var
bil, hasil, pangkat, a : integer;
begin
bil := strtoint(edit1.text);
hasil := bil;
pangkat := strtoint(edit2.text);
if edit2.text='0' then edit3.text:='1' else
if edit2.Text='1' then edit3.Text:=edit1.Text
else
begin
for a :=2 to pangkat do
hasil :=hasil*bil;
edit3.text:=inttostr(hasil);
end;
end;
end.
untuk tambilan hasilnya seperti gambar di bawah ne.....
dan berikut adalah hasil jadinya....
ok demikian tutorial kali ini....semoga bermanfaat....
see u... : )
kali ini saya mau bikin program sederhana dari delphi 7. dalam program tersebut ada beberapa skript For To Do, For Downto Do, While Do, Repeat Until. termasuk juga ada script untuk membuat pangkat bilangan. semoga teman-teman bisa membedakan beberapa skript tersebut.
CEK IT DOT>>>>
procedure TForm1.btkeluarClick(Sender: TObject);
begin
close;
end;
procedure TForm1.fortodoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
b:=''; j:=2;
for i:=1 to 10 do
begin
b:=b+inttostr(j)+' ';
j:=j+2;
end;
label1.caption:=b;
end;
procedure TForm1.fordowntodoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
b:=''; j:=2;
for i:=10 downto 1 do
begin
b:=b+inttostr(i)+' ';
j:=j+2;
end;
label2.Caption:=b;
end;
procedure TForm1.whiledoClick(Sender: TObject);
var
i, j : integer;
b : string;
begin
i:=1;
b:='';
while i<=10 do begin b:=b+inttostr(i)+' '; i:=i+1; end; label3.Caption:=b; end; procedure TForm1.repeatuntilClick(Sender: TObject); var i, j : integer; b : string; begin i:=1; b:=''; repeat b:=b+inttostr(i)+' '; i:=i+1; until i>10;
label4.caption:=b;
end;
procedure TForm1.bt_pangkatClick(Sender: TObject);
var
bil, hasil, pangkat, a : integer;
begin
bil := strtoint(edit1.text);
hasil := bil;
pangkat := strtoint(edit2.text);
if edit2.text='0' then edit3.text:='1' else
if edit2.Text='1' then edit3.Text:=edit1.Text
else
begin
for a :=2 to pangkat do
hasil :=hasil*bil;
edit3.text:=inttostr(hasil);
end;
end;
end.
untuk tambilan hasilnya seperti gambar di bawah ne.....
dan berikut adalah hasil jadinya....
ok demikian tutorial kali ini....semoga bermanfaat....
see u... : )
Minggu, 01 April 2012
Program Hitung Kombinasi (Faktorial)
Published :
16.25
Author :
adi susanto
berikut adalah list program untuk membuat program menghitung kombinasi dari pascal...
lets do it...!!!
program kombinasi_faktorial_adi;
uses wincrt;
var
fn, fk, fn_k, Kombinasi : real;
i, n, k : integer;
begin
clrscr;
writeln(' PROGRAM HITUNG FAKTORIAL ');
writeln(' ======================== ');
writeln(' adi susanto ');
writeln;
write('Masukkan bilangan n =');readln(n);
write('Masukkan bilangan k =');readln(k);
writeln;
writeln;
fn:=1;
fk:=1;
fn_k:=1;
for i:= 2 to n do {Menghitung n faktorial}
fn:=fn*i;
for i:= 2 to k do {Menghitung k faktorial}
fk:=fk*i;
for i:= 2 to (n-k) do {menghitung n-k faktorial}
fn_k:=fn_k*i;
kombinasi:=fn/(fk*fn_k);
writeln('jadi',n,' Kombinasi ',k, ' = ',Kombinasi:0:0);
end.
lets do it...!!!
program kombinasi_faktorial_adi;
uses wincrt;
var
fn, fk, fn_k, Kombinasi : real;
i, n, k : integer;
begin
clrscr;
writeln(' PROGRAM HITUNG FAKTORIAL ');
writeln(' ======================== ');
writeln(' adi susanto ');
writeln;
write('Masukkan bilangan n =');readln(n);
write('Masukkan bilangan k =');readln(k);
writeln;
writeln;
fn:=1;
fk:=1;
fn_k:=1;
for i:= 2 to n do {Menghitung n faktorial}
fn:=fn*i;
for i:= 2 to k do {Menghitung k faktorial}
fk:=fk*i;
for i:= 2 to (n-k) do {menghitung n-k faktorial}
fn_k:=fn_k*i;
kombinasi:=fn/(fk*fn_k);
writeln('jadi',n,' Kombinasi ',k, ' = ',Kombinasi:0:0);
end.
Sabtu, 10 Maret 2012
Program Perkalian Matrik
Published :
04.08
Author :
adi susanto
berikut adalah list program untuk membuat program perkalian matrik dari pascal...
cek it dot...
program Perkalian_Matrix_adi;
uses wincrt;
var
a,b,c : array [1..10,1..10] of integer;
i,j,k,n,m,p : integer;
begin
clrscr;
writeln(' PROGRAM PERKALIAN MATRIK');
writeln(' ========================');
writeln;
writeln('cara penggunaan!');
writeln;
writeln('1. inputkan jumlah baris dan kolom matrik A dan matrik B');
writeln('2. maksimal ordo matrik yaitu 10 x 10.');
writeln('3. input data matrik sebanyak 2 kali yaitu matrik A dan matrik B');
writeln;
writeln('Ukuran matrix A');
writeln;
write('Baris : '); readln(n);
write('Kolom : '); readln(m);
writeln;
writeln('Ukuran matrix B');
writeln;
writeln('Baris : ',m);
write('Kolom : '); readln(p);
writeln;
for i:=1 to n do
for j:=1 to m do
begin
write('data A[',i,',',j,'] : ');
readln(a[i,j]);
end;
writeln;
for i:=1 to m do
for j:=1 to p do
begin
write('data B[',i,',',j,'] : ');
readln(b[i,j]);
end;
for i:=1 to n do
for j:=1 to p do
for k:=1 to m do
c[i,j] := c[i,j] + a[i,k]*b[k,j];
writeln;
writeln;
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
Writeln;
for i:=1 to n do
begin
for j:=1 to p do
write(c[i,j],' ');
writeln;
end;
writeln;
readln;
end.
dan untuk hasilnya....bisa liyat gambar di bawah ini...
demikian terima kasih...
cek it dot...
program Perkalian_Matrix_adi;
uses wincrt;
var
a,b,c : array [1..10,1..10] of integer;
i,j,k,n,m,p : integer;
begin
clrscr;
writeln(' PROGRAM PERKALIAN MATRIK');
writeln(' ========================');
writeln;
writeln('cara penggunaan!');
writeln;
writeln('1. inputkan jumlah baris dan kolom matrik A dan matrik B');
writeln('2. maksimal ordo matrik yaitu 10 x 10.');
writeln('3. input data matrik sebanyak 2 kali yaitu matrik A dan matrik B');
writeln;
writeln('Ukuran matrix A');
writeln;
write('Baris : '); readln(n);
write('Kolom : '); readln(m);
writeln;
writeln('Ukuran matrix B');
writeln;
writeln('Baris : ',m);
write('Kolom : '); readln(p);
writeln;
for i:=1 to n do
for j:=1 to m do
begin
write('data A[',i,',',j,'] : ');
readln(a[i,j]);
end;
writeln;
for i:=1 to m do
for j:=1 to p do
begin
write('data B[',i,',',j,'] : ');
readln(b[i,j]);
end;
for i:=1 to n do
for j:=1 to p do
for k:=1 to m do
c[i,j] := c[i,j] + a[i,k]*b[k,j];
writeln;
writeln;
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
Writeln;
for i:=1 to n do
begin
for j:=1 to p do
write(c[i,j],' ');
writeln;
end;
writeln;
readln;
end.
dan untuk hasilnya....bisa liyat gambar di bawah ini...
demikian terima kasih...
Sabtu, 25 Februari 2012
membuat matriks pada pascal
Published :
13.51
Author :
adi susanto
dengan program dibawah kita dapat membuat matrik dengan ordo terserah tetapi maksimal berordo 10 x 10....
dan kita dapat mengisi bilangan matrik secara berurutan sesuai pada baris dan kolom yang telah ditentukan.....
LET'S DO IT....
program matriks;
uses crt;
var
baris, kolom, i, j : byte;
array1, array2, array3 : array [1..10,1..10] of integer;
begin
write('masukan jumlah baris : ');readln(baris);
write('masukan jumlah kolom : ');readln(kolom);
writeln('input matrik');
for i:= 1 to baris do
for j:= 1 to kolom do
begin
write('input data matrik ke : ',i,' - ',j,':');
readln(array[i,j]);
end;
end.
dan kita dapat mengisi bilangan matrik secara berurutan sesuai pada baris dan kolom yang telah ditentukan.....
LET'S DO IT....
program matriks;
uses crt;
var
baris, kolom, i, j : byte;
array1, array2, array3 : array [1..10,1..10] of integer;
begin
write('masukan jumlah baris : ');readln(baris);
write('masukan jumlah kolom : ');readln(kolom);
writeln('input matrik');
for i:= 1 to baris do
for j:= 1 to kolom do
begin
write('input data matrik ke : ',i,' - ',j,':');
readln(array[i,j]);
end;
end.
Langganan:
Postingan (Atom)
Cari Blog Ini
Popular Posts
-
haaii guyyss.... met pagi.... assalamualaikum wr. wb. kali ini saya mau bikin program konversi dari angka ke huruf menggunakan delphi......
-
sistem operasi ada bahasa kerennya Operating Sistem (OS) secara sederhana dapat diartikan sebagai sebuah program yang bertugas menghubungkan...