Menjadi Bintang dengan cara Meneledani 7 Nabi

Di Antara 25 Nabi yang wajib kita ketahui terdapat 7 Nabi yang memiliki keunggulan khusus. Kita diperintahkan mengikuti kesuksesan para nabi tersebut sebagai petunjuk “bintang terang” agar menyinari hidup kita demi meraih kesusesan yang sempurna dunia dan akhirat. Di antara keteladanan yang bisa kita contoh dari para Nabi tersebut adalah:

Ò      Jadilah Seorang Pekerja Keras yang Kreatif Seperti Nabi Idris AS.

Nabi Idris mencari nafkah dengan cara bekerja dan menggunakan tangannya sendiri ( kreatif ) . “Sebaik-baiknya pekerjaan seorang laki-laki adalah bekerja dari hasil keringatnya sendiri,” begitulah pesan Nabi Muhammad SAW.

Ò      Jadilah Miliarder Seperti Nabi Sulaiman AS.

Nabi Sulaiman saja berdo’a kepada Allah SWT, agar dikaruniakan kekayaan tanpa batas. Do’a yang beliau panjatkan diabadikan dalam Al-Qur’an “… anugrahkan kepadaku kerajaan yang tidak dimiliki oleh seseorang juapun sesudahku, sesungguhnya Engkau Yang Maha Pemberi.” (QS. Shad: 35).

Continue >>>

Script Program Pembayaran Barang di Toko

Program Pembayaran ini berfungsi untuk menghitung total belanja pelanggan di sebuah toko, sehingga mempermudah dan mempercepat proses pembayaran di kasir. Program dibuat menggunakan bahasa pemrograman Pascal.

Program BARANG;
Uses Crt;
Var
   nKode, nHrg, nTotal, Total,Kembali, nJmlh, nbyr, nkembali : real;
   Nama,pilih,Thank : Char;
   I : integer;
Begin
   For I:= 1 To 11 Do
   Begin
       Sound(262); Delay(300);
       Sound(294); Delay(300);
       Sound(330); Delay(300);
       Sound(350); Delay(300);
       Sound(392); Delay(300);
       Sound(440); Delay(300);
       Sound(494); Delay(300);
       Sound(526); Delay(500);
       NoSound; Delay(10);
       Sound(526); Delay(300);
       Sound(494); Delay(300);
       Sound(440); Delay(300);
       Sound(392); Delay(300);
       Sound(350); Delay(300);
       Sound(330); Delay(300);
       Sound(294); Delay(300);
       Sound(262); Delay(300);
    End;
    NoSound;

   pilih := 'y';
   while pilih = 'y' Do
   begin
      clrscr;
      gotoxy(32,2); write ('TOKO SUCCESS FOREVER');
      gotoxy(32,3); write ('====================');


      gotoxy(4,5); write ('Kode Barang     = ');readln(nKode);
      gotoxy(4,6); write ('Nama Barang     = ');readln(Nama);
      gotoxy(4,7); write ('Harga           = ');readln(nHrg);
      gotoxy(4,8); write ('Jumlah Beli     = ');readln(nJmlh);
      Total := nHrg * nJmlh;
      gotoxy(4,11); write ('Total           = ',Total:9:2);
      gotoxy(4,12); write ('Uang Bayar      =    ');readln(nbyr);
      Kembali := nbyr - total;
      gotoxy(4,13); write ('Yang Kembali    = ',Kembali:9:2);
      gotoxy (45,16); write('Mau Proses Lagi ? [Y/T] ');read(pilih);
      clrscr;
      gotoxy (32,12); write('----THANK YOU---- ');read(Thank);

      readln;
   end;
end.

Continue >>>