Script Tampilan Penjumlahan

Program yang satu ini adalah sebuah program yang dapat menampilkan penjumlahan 1 sampai dengan 10, namun bukan itu tujuan pertama dalam postingan ini. Tujuannya adalah untuk mempelajari, memahami dan mempraktekkan logika programming yang terdapat di dalam scriptnya .

Program Tambah_W;
Uses Crt;
Var
  I,H,J,K,L,M,N,O,P,Q    : integer;
Begin
    ClrScr;
    I := 1;
    While I < 11 Do
        Begin
           If I < 20 Then
              Begin
                 Gotoxy(4,I); Write(I,' + 1 =  ',I + 1);
              End
           Else
              Begin
                 Gotoxy(4,I); Write(I,' + 1 = ',I + 1);
              End;
           I := I + 1;
        End;

    I := 1;
    While I < 11 Do
       Begin
          H := I + 2;
          If I < 10 Then
          Begin
             If H < 20 Then
                Begin
                   Gotoxy(18,I); Write(I,' + 2 =  ',I + 2);
                End
             Else
                Begin
                   Gotoxy(18,I); Write(I,' + 2 =',I + 2);
                End;
             End
          Else
             Begin
                Gotoxy(17,I); Write(I,' + 2 =  ',I + 2);
             End;
           I := I + 1;
          End;

    I := 1;
    While I < 11 Do
       Begin
          H := I + 3;
          If I < 10 Then
          Begin
             If H < 20 Then
                Begin
                   Gotoxy(32,I); Write(I,' + 3 =  ',I + 3);
                End
             Else
                Begin
                   Gotoxy(32,I); Write(I,' + 3 =',I + 3);
                End;
             End
          Else
             Begin
                Gotoxy(31,I); Write(I,' + 3 =  ',I + 3);
             End;
           I := I + 1;
          End;

    I := 1;
    While I < 11 Do
       Begin
          H := I + 4;
          If I < 10 Then
          Begin
             If H < 20 Then
                Begin
                   Gotoxy(46,I); Write(I,' + 4 =  ',I + 4);
                End
             Else
                Begin
                   Gotoxy(46,I); Write(I,' + 4 =',I + 4);
                End;
             End
          Else
             Begin
                Gotoxy(45,I); Write(I,' + 4 =  ',I + 4);
             End;
           I := I + 1;
          End;

    I := 1;
    While I < 11 Do
       Begin
          H := I + 5;
          If I < 10 Then
          Begin
             If H < 20 Then
                Begin
                   Gotoxy(60,I); Write(I,' + 5 =  ',I + 5);
                End
             Else
                Begin
                   Gotoxy(60,I); Write(I,' + 5 =',I + 5);
                End;
             End
          Else
             Begin
                Gotoxy(59,I); Write(I,' + 5 =  ',I + 5);
             End;
           I := I + 1;
          End;

    I := 1;
    While I < 11 Do
       Begin
          H := I + 6;
          If I < 10 Then
          Begin
             If H < 20 Then
                Begin
                   Gotoxy(4,I + 12); Write(I,' + 6 =  ',I + 6);
                End
             Else
                Begin
                   Gotoxy(4,I + 12); Write(I,' + 6 =',I + 6);
                End;
             End
          Else
             Begin
                Gotoxy(3,I + 12); Write(I,' + 6 =  ',I + 6);
             End;
           I := I + 1;
          End;
              I := 1;
    While I < 11 Do
       Begin
          H := I + 7;
          If I < 10 Then
          Begin
             If H < 20 Then
                Begin
                   Gotoxy(18,I + 12); Write(I,' + 7 =  ',I + 7);
                End
             Else
                Begin
                   Gotoxy(18,I + 12); Write(I,' + 7 =',I + 7);
                End;
             End
          Else
             Begin
                Gotoxy(17,I + 12); Write(I,' + 7 =  ',I + 7);
             End;
           I := I + 1;
          End;

    I := 1;
    While I < 11 Do
       Begin
          H := I + 8;
          If I < 10 Then
          Begin
             If H < 20 Then
                Begin
                   Gotoxy(32,I + 12); Write(I,' + 8 =  ',I + 8);
                End
             Else
                Begin
                   Gotoxy(32,I + 12); Write(I,' + 8 =',I + 8);
                End;
             End
          Else
             Begin
                Gotoxy(31,I + 12); Write(I,' + 8 =  ',I + 8);
             End;
           I := I + 1;
          End;

    I := 1;
    While I < 11 Do
       Begin
          H := I + 9;
          If I < 10 Then
          Begin
             If H < 20 Then
                Begin
                   Gotoxy(46,I + 12); Write(I,' + 9 =  ',I + 9);
                End
             Else
                Begin
                   Gotoxy(46,I + 12); Write(I,' + 9 =',I + 9);
                End;
             End
          Else
             Begin
                Gotoxy(45,I + 12); Write(I,' + 9 =  ',I + 9);
             End;
           I := I + 1;
          End;

    I := 1;
    While I < 11 Do
       Begin
          H := I + 10;
          If I < 10 Then
          Begin
             If H < 20 Then
                Begin
                   Gotoxy(60,I + 12); Write(I,' + 10 =  ',I + 10);
                End
             Else
                Begin
                   Gotoxy(60,I + 12); Write(I,' + 10 =',I + 10);
                End;
             End
          Else
             Begin
                Gotoxy(59,I + 12); Write(I,' + 10 =  ',I + 10);
             End;
           I := I + 1;
          End;
    Readkey;
End.

Selamat Mencoba, Semoga Bermanfaat :)
Fastabiqul Khairaats

Continue >>>

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 >>>

Script Program untuk Menghitung Luas Segitiga

Program ini dapat digunakan untuk menghitung luas segitiga dengan cara memasukkan alas dan tinggi segitiga. Setelah diproses maka akan muncul luas segitiga yang kita inginkan. Script ini merupakan script sederhana yang bertujuan untuk melatih kemampuan kita dalam menganalogikan sesuatu.

Program PasMath;
Uses Crt;
Const Phi = 3.14;
Var
  pjg,lbr,jari,alas,tinggi : real;
  luas,kel : real;
  pilih : integer;
Begin

             ClrScr; alas := 0; tinggi := 0;
             Gotoxy(13,3); Write('MENGHITUNG LUAS SEGITIGA');
             Gotoxy(13,4); Write('========================');
             Gotoxy(13,6); Write('Alas segitiga    = '); Readln(alas);
             Gotoxy(13,7); Write('Tinggi segitiga  = '); Readln(tinggi);
             luas := 0.5 * alas * tinggi;
             Gotoxy(13,9); Write('Luas segitiga    = ', luas:9:2);
             Readkey;
End.

Selamat Mencoba, Semoga Bermanfaat :)

Continue >>>

Catatan Mata Kuliah Analisa Proses Bisnis

1. 1.       Pengenalan proses bisnis

a.       Segala sesuatu yang menjadi masukan awal kedalam sebuah proses dapat berupa barang, jasa, atau informasi disebut….. ? ( Input )

b.      Pihak terkait sebelum proses yang menjadi obyek observasi disebut…. ? ( Supplier )

c.       Tujuan adanya proses bisnis adalah untuk…? ( mencapai sebuah tujuan / GOAL )

d.      Next process is our customer berarti…..?( Proses selanjutnya adalah pelanggan kita )

1. 2.       Jelaskan dengan singkat fungsi komponen pendukung proses bisnis dibawah ini :

a.       Dalam perusahaan biasa harus diatur spesifikasi pekerjaan yang harus dilakukan dengan cara2 mengaitkan satu pekerjaan dengan yang lainnya agar jelas tanggung jawabnya. Hal demikian biasa disusun dalam bentuk …..perusahaan.

b.      Aturan main yang diterapkan dalam sebuah organisasi disebut…. ? ( Kebijakan )

c.       Salah satu karateristik proses bisnis adalah memiliki batasan, masukan serta keluaran yang jelas. Hal ini menunjukan bahwa proses bisnis harus memiliki karateristik….?( Definitif )

d.      Yang terkait dengan pengubahan status dari sebuah entitas adalah…?  ( Aktivitas )

1. 3.       Jenis-jenis proses bisnis :

a.       Sebuah proses berdampak secara langsung dan signifikan terhadap kepuasan pelanggan dan kinerja keuangan perusahaan, maka proses tersebut masuk klasifikasi proses….?

 ( Informasi )

b.      Department accounting dilihat dari rangkaian aktivitas(event) adalah salah satu contoh proses bisnis….? ( Pendukung )

c.       Proses bisnis dimana aktivitasnya menyangkut manajemen dan orang lain membuat keputusan tentang perencanaan, pengawasan dan evaluasi  adalah ciri proses bisnis…?

d.      Berikan contoh dua departemen yang termasuk dalam proses bisnis pendukung.

( Personalia ) ( Accounting )

1. 4.       Requirement Gathering :

a.       Mengumpulkan beberapa fungsi depatemen dan lintas level jabatan untuk bisa bertukar pikiran biasa disebut… ( Brainstorming )

b.      ( Questionnair ) ….. biasa digunakan untuk mengumpulkan informasi lebih dari 100 orang yang tersebar dibeberapa lokasi (remote area).

c.       Teknik requirement gathering yang dilakukan dengan mengikuti aktivitas entitas (orang,benda,jasa,informasi) disebut… ? ( Observation )

d.      Focus on group atau group interviews biasa dilakukan pada fungsi yang mempunyai level dan aturan main (role) yang sama agar bisa menyaring informasi dan menjaga ……valid

 ( Keabsahan )/ Kebenaran informasi.

1. 5.       Pemetaan / Kodifikasi proses bisnis :

a.       Gambarkan hubungan proses bisnis dengan input dan output nya dalam sebuah diagram CFFD.       

               

b.      Notasi umum untuk mengambil keputusan (decision) biasa dilambangkan dengan symbol …?

c.       Penggunaan IT dalam CFFD biasa menggunakan arsiran berwarna….? ( Abu-abu )

d.      Buatlah diagram CFFD untuk pemakaina if then else.

1. Analisa proses pembelian.

Pada Sebuah Organisasi (Perusahaan A), semua permintaan pembelian harus ditujukan dengan spesifikasi kebutuhan yang jelas pada Surat Permintaan Pembelian Barang (SPPB) dan dengan persetujuan Ka. Departemen Produksi selaku atasan Pemohon atau User. Setelah disetujui oleh atasannya pemohon menyerahkan SPPB tersebut kepada Ka.Seksi Gudang Material untuk mengecek validasi spesifiksi kebutuhan yang diminta dan di input ke Sistem Monitoring Stock (SMS). Bila barang yang diminta jelas dan tidak ada dalam stock gudang, maka Ka. Seksi Gudang Material akan membuat Order Pembelian (OP) dan menyerahkan bersama-sama dokumen SPPB  kepada Ka. Seksi Pembelian  . Selanjutnya Ka. Seksi Pembelian akan menginput data OP & SPPB ke Sistem Monitoring Pembelian (SMP) . dari system ini akan diketahui disimpan spesifikasi kebutuhan termasuk waktunya dan data supplier yang bisa mensuplai barang. Selanjutnya Ka. Seksi Pembelian akan meminta penawaran kepada beberapa supplier dengan telepon. Pertimbangan diambil berdasarkan kecepatan pengiriman / ketersediaan stock suppier dan harganya. Ka Seksi Pembelian akan memilih supplier dan selanjutnya akan membuka Purchasing Order (PO) kepada supplier terpilih dengan perstujuan Ka. Departemen Logistik . Selanjutnya penerimaan barang dan pembayarannya mengacu kepada SOP Penerimaan Barang dari Supplier.

Bacalah dengan jelas contoh kasus proses diatas : Apa ?

• Kebijakan yang kira-kira terkait dengan prose pembelian diatas.
• Aktor2 yang terlibat atau bentuk organisasinya.

Ka. Departemen Produksi, Ka.Seksi Gudang Material, Ka. Seksi Pembelian,

Ka. Departemen Logistik.

1. Sumber daya yang tersedia. Man, Machine, Material
2. Ringkasan urutan aktivitas terkait.
3. Resiko kesalah yang bisa terjadi. Waktu Tertunda, Kesalahan Surat.

Continue >>>