Agung Mulyawan

Sabtu, 07 Januari 2012

Nostalgia dengan Digimon Adventure 2

Posted on 16.20 by Agung Mulyawan

Continue

Senin, 28 November 2011

Program ATM menggunakan Pascal

Posted on 15.22 by Agung Mulyawan

Buat sebuah program aplikasi ATM yang memiliki fungsionalitas sebagai berikut :

a. Membuat Rekening Baru

b. Menabung (Debit)

c. Mangambil Uang (Withdraw)

d. Transfer ke nomor rekening lain

Catatan :

- Terdapat type bentukan nasabah yang berisi field nama, nomor rekening, dan saldo

- Data disimpan dalam file bertipe nasabah

- Data tidak hilang saat program ditutup

- Pada fungsionalitas debit, withdraw, dan transfer harus dicek apakah file yang berisi data nasabah sudah ada atau belum

- Pada fungsionalitas debit, withdraw, dan transfer harus dilakukan pengecekan apakah nomor rekening yang dimaksud terdapat dalam data atau tidak.

- Pada fungsionalitas withdraw dan transfer harus dilakukan pengecekan saldo apakah saldo cukup atau tidak

Jawaban : DOWNLOAD


program atm;
uses crt;
type nasabah=record
    nama:string;
    norek:string;
    saldo:real;
end;
var
    f:file of nasabah;
    nsb,nsb1,temp:nasabah;
    pil,i,i2:integer;
    jumtrans:integer;
begin
repeat
    clrscr;
    writeln('1.buat rekening baru');
    writeln('2.debit');
    writeln('3.withdraw');
    writeln('4.transfer');
    writeln('5.view data rekening');
    writeln('6.exit');
    write('pilihan : ');readln(pil);
    case pil of
        1:begin
                assign(f,'data.dat');
                {$i-}
                reset(f);
                {$i+}
                if IOresult<>0 then
                begin
                    rewrite(f);
                end
                else
                begin
                    seek(f,filesize(f));
                end;
                write('nomor rekening : ');readln(temp.norek);
                write('nama : ');readln(temp.nama);
                write('saldo :');readln(temp.saldo);
                write(f,temp);
                write('sukses.......');
 close(f);
                readln;
            end;
        2:begin
 assign(f,'data.dat');
                {$i-}
                reset(f);
                {$i+}
                if IOresult<>0 then
                begin
                    writeln('belum ada data');
                end
                else
                begin
                    writeln('nomor rekening : ');readln(temp.norek);
                    writeln('jumlah : ');readln(temp.saldo);
  i:=0;
                    while not eof(f) do
                    begin
                        read(f,nsb);
                        if(nsb.norek=temp.norek) then break;
   inc(i);
                    end;
  seek(f,i);
                    nsb.saldo:=nsb.saldo+temp.saldo;
                    write(f,nsb);
                end;
 close(f);
 write('sukses.......');
 readln;
           end;
3:begin
assign(f,'data.dat');
                {$i-}
                reset(f);
                {$i+}
                if IOresult<>0 then
                begin
                    writeln('belum ada data');
                end
                else
                begin
                    writeln('nomor rekening : ');readln(temp.norek);
                    writeln('jumlah : ');readln(temp.saldo);
  i:=0;
                    while not eof(f) do
                    begin
                        read(f,nsb);
                        if(nsb.norek=temp.norek) then break;
   inc(i);
                    end;
  seek(f,i);
                    nsb.saldo:=nsb.saldo-temp.saldo;
                    write(f,nsb);
 end;
 close(f);
 write('sukses.......');
 readln;
end;
4:begin
 assign(f,'data.dat');
                {$i-}
                reset(f);
                {$i+}
                if IOresult<>0 then
                begin
                    writeln('belum ada data');
                end
                else
                begin
                    writeln('nomor rekening anda: ');readln(nsb.norek);
  writeln('nomor rekening tujuan: ');readln(nsb1.norek);
                    writeln('jumlah : ');readln(jumtrans);
  i:=0;
                    while not eof(f) do
                    begin
                        read(f,temp);
                        if(nsb.norek=temp.norek) then break;
   inc(i);
                    end;
  seek(f,i);
                    temp.saldo:=temp.saldo-jumtrans;
                    write(f,temp);
  reset(f);
  i2:=0;
  while not eof(f) do
                    begin
                        read(f,temp);
                        if(nsb1.norek=temp.norek) then break;
   inc(i2);
                    end;
  seek(f,i2);
                    temp.saldo:=temp.saldo+jumtrans;
                    write(f,temp);
 end;
 write('sukses.......');
 close(f);
 readln;
end;
5:begin
assign(f,'data.dat');
                {$i-}
                reset(f);
                {$i+}
                if IOresult<>0 then
                begin
                    writeln('belum ada data');
                end
                else
                begin
                    writeln('nomor rekening : ');readln(temp.norek);
  i:=0;
                    while not eof(f) do
                    begin
                        read(f,nsb);
                        if(nsb.norek=temp.norek) then
   begin
    writeln('nama : ',nsb.nama);
    writeln('nomor rekening : ',nsb.norek);
    writeln('saldo : Rp.',nsb.saldo:0:2);
    break;
   end;
   inc(i);
                    end;

                end;
 close(f);
 readln;
end;
end;
until(pil=6);
end.

Continue

Jumat, 11 November 2011

Program Fibonacci pada Pascal

Posted on 09.45 by Agung Mulyawan

Fibonacci adalah deretan angka yang dimulai dari angka 0 dan 1 , kemudian angka berikutnya didapat dengan cara menjumlahkan dua angka di belakangnya.

0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610...

Pada kesempatan kali ini saya akan memberikan contoh program fibonacci dengan menggunakan bahasa pemrograman pascal.

Ketentuan

User menginputkan jumlah deret fibonacci yang akan di tampilkan kelayar

Code :

program contoh;
uses crt;
var
x,y,z,n,i:integer;
begin
clrscr;
write('masukan nilai : ');readln(n);
x:=0;
y:=1;
z:=1;
i:=1;
while (i<= n) do
      begin
           write(z,' ');
           i:=i+1;
           z:=x+y;
           x:=y;
           y:=z;
      end;
readln;

end.

Hasil :

Continue

Minggu, 19 Juni 2011

Make Mobile Application Faster and Easier Using Mobile Framework

Posted on 08.24 by Agung Mulyawan

Mobile Framework dapat membantu developer untuk mengembangkan aplikasi mobile lebih cepat dan lebih mudah.Dan dengan pertumbuhan perangkat mobile seperti tablet PC dan Smartphone,membuat permintaan akan perangkat lunak dari perangkat mobile tersebut meningkat.Nah itu bisa dijadikan kesempatan bagi para developer untuk menciptakan kreasi - kreasi nya.

Guna membantu mempercepat dan mempermudah pengembangan aplikasi tersebut saya kali ini akan menunjukan beberapa Framework Mobile yang bisa anda gunakan secara gratis ( ada juga yang berbayar :D ).

1.Sencha Touch

Sencha Touch adalah sebuah Framework yang bekerja dengan HTML5, JavaScript yang memungkinkan para developer untuk membuat aplikasi berbasis web yang terlihat nampak asli seperti aplikasi mobile pada android dan sistem layar sentuh pada iPhone.

Continue

Excellent Website Template Design from devianArt #1

Posted on 07.28 by Agung Mulyawan

Pada postingan kali ini saya akan menunjukan beberapa web design yang sangat bagus dari devianArt.Semua contoh - contoh situs ini sangatlah berguna bagi para designer web untuk mendapatkan inspirasi yang segar dan baru.Tidaklah mudah untuk membuat sebuah web site terlihat nampak rapi , profesional dan bagus.Dibutuhkan daya imajinasi yang tinggi untuk mengatur tataletak dari website yang dibuat.

Langsung saja berikut ini ada beberapa design web dari deviantArt yang bisa digunakan oleh para designer untuk mendapatkan inspirasi yang fresh.

1. Portofolio II

2.Visto

3.I Need a Mobile

4.Please Tell Me a Name

5.Real Estate

6.Nike

7.Bubble

8.WebStudio

9.Hair Medical Site

10.Cheeky Monkey Media

Continue

Sabtu, 18 Juni 2011

Powerfull Ebook to Start Learning Android

Posted on 10.34 by Agung Mulyawan

Android merupakan Operasi Sistem untuk mobile telephone berbasis linuk.Android sangat terbuka bagi para developer untuk mengembangkan aplikasi mereka sendiri untuk digunakan oleh berbagai jenis mobile telephone berbasis android.Pada perkembengannya Android menunjukan grafik yang meningkat dari tahun ketahun nya.itu ditunjukan dari mulai banyaknya vendor mobile telephone yang mulai melirik android sebagai operasi sistem yang mereka gunakan.Banyak yang memprediksikan bahwa beberapa tahun kedepan android akan menggeser popularitas sistem operasi lain seperti windows mobile, iPhone,Symbian,Black Berry dll.
Nah,melihat itu semua terlihat bahwa prospek untuk menjadi seorang developer android sangatlah bagus.

Berikut ini ada beberapa ebook gratis yang bisa kalian download untuk memulai belajar menjadi developer android :

1.Ebook : Apress - Beginning Android

Ebook karangan Mark L. Murphy ini menjelaskan dasar - dasar untuk memulai belajar menjadi developer android. dimulai dari tahap persiapan , konsep android , dan pengenalan dasar mengenai android dibahas disini. Terdapat juga contoh source code dari aplikasi android.

DOWNLOAD DISINI

2.Ebook : Apress - Beginning Android 2

Ebook : Apress - Begining Android 2 merupakan lanjutan Ebook Mark L. Murphy sebelumnya.Disini dibahas lebih lanjut tentang dasar - dasar membuat aplikasi android,juga dilengkapi banyak praktis dan source code.

DOWNLOAD DISINI

3.Ebook : Apress - Pro Android (2009)

Apress - Pro Android merupakan ebook karangan Sayed Y. Yashimi dan Satya Komatineni yang membahas Android pada level berikutnya.Dibahas teknik yang lebih Advance untuk membuat sebuah aplikasi android.

DOWNLOAD DISINI

4.Ebook : Apress - Android Essentials

Ebook Apress - Android Essentials karya Crish Haseman ini membahas tentang bagaimana membuat aplikasi yang baik juga dijelaskan konsep lebih lanjut dari pemrogramannya.Cocok untuk para developer yang akan memperdalam ilmunya tentang Android

DOWNLOAD DISINI

---------------------------------Konten akan terus diupdate------------------------------

Continue

Agung Mulyawan

Berbagi Ilmu dan Informasi

Enter Slide 1 Link Here

Enter Slide 2 Link Here

Enter Slide 3 Link Here

Sabtu, 07 Januari 2012

Nostalgia dengan Digimon Adventure 2

Senin, 28 November 2011

Program ATM menggunakan Pascal

Jumat, 11 November 2011

Program Fibonacci pada Pascal

Minggu, 19 Juni 2011

Make Mobile Application Faster and Easier Using Mobile Framework

1.Sencha Touch

Excellent Website Template Design from devianArt #1

Sabtu, 18 Juni 2011

Powerfull Ebook to Start Learning Android

1.Ebook : Apress - Beginning Android

2.Ebook : Apress - Beginning Android 2

3.Ebook : Apress - Pro Android (2009)

4.Ebook : Apress - Android Essentials

Popular Posts

Blog Archive

Categories

Total Tayangan Halaman

Pages