Langsung ke konten utama

PEMOGRAMAN DBASE IV

untuk temen-temen yang pengen program perhitungan barang dengan menggunakan Dbase IV, ini programnya, Dbase gampang kok asal kita ingin mempelajarinya saja. disini saya menggunakan case,while dan if. disini saya hanya menggunakan 5 contoh barang dan program ini disimpan dengan ektensi .PRG.
berikut contoh program saat dijalankan :


set talk off
set delete on
jawab='Y'
do while upper (jawab) ='Y'
clear
mnama=space(15)
mbarang1=space(10)
mbarang2=space(10)
mbarang3=space(10)
mbarang4=space(10)
mbarang5=space(10)
mharga1=7900
mharga2=3000
mharga3=1300
mharga4=3800
mharga5=1600
mrp1=space(7)
mrp2=space(7)
mrp3=space(7)
mrp4=space(7)
mrp5=space(7)
mjumlahtot=0
mjumlah1=0
mjumlah2=0
mjumlah3=0
mjumlah4=0
mjumlah5=0
mjenis1=0
mjenis2=0
mjenis3=0
mjenis4=0
mjenis5=0
mtotal=0
mtotalk=0
mtotal1=0
mtotal2=0
mtotal3=0
mtotal4=0
mtotal5=0
mbayar=0
mkembali=0
mdiskon=0
mpilih=0
@6,22 to 13,57 double
@1,21 say '           ALFAMART AKSES UI'
@2,21 say '    PT.SUMBER ALFARIA TRIJAYA,TBK'
@3,21 say '  JL.RAYA AKSES UI RT 03 RW 09 DEPOK'
@4,21 say '     NPWP : 01.336.238.9-054.000'
@5,1 to 21,74 double
@7,24 say   'Nama Barang          ||   Harga '
@8,24 say   '1.Oishi Pillow       ||  Rp 7900'
@9,24 say   '2.Twister MN Black   ||  Rp 3000'
@10,24 say   '3.Oreo Choco 29,4Gr  ||  Rp 1300'
@11,24 say  '4.Pop Mie Kari Ayam  ||  Rp 3800'
@12,24 say  '5.Cannon Ball CKLT   ||  Rp 1600'
@14,3 say 'Masukkan nama anda            : '
@14,34 get mnama
@15,3 say 'Jumlah jenis barang           : '
@15,34 get mpilih
read


do case
case mpilih=1
    @16,3 say 'pilih barang                  :           || banyak barang :'
    @16,34 get mjenis1
    @16,63 get mjumlah1
    read
   
        do case
        case mjenis1=1
            mtotal1=mjumlah1*mharga1
            mbarang1='Oishi Pillow'
            mrp1='Rp 7900'
        case mjenis1=2
            mtotal1=mjumlah1*mharga2
            mbarang1='Twister MN Black'
            mrp1='Rp 3000'
        case mjenis1=3
            mtotal1=mjumlah1*mharga3
            mbarang1='Oreo Choco 29,4Gr'
            mrp1='Rp 1300'
        case mjenis1=4
            mtotal1=mjumlah1*mharga4
            mbarang1='Pop Mie Kari Ayam'
            mrp1='Rp 3800'
        case mjenis1=5
            mtotal1=mjumlah1*mharga5
            mbarang1='Cannon Ball CKLT'
            mrp1='Rp 1600'
        endcase
       
        mtotalk=mtotal1
       
if mjumlahtot>10
mdiskon=mtotalk*20/100
endif
mtotal=mtotalk-mdiskon

clear
@5,1 to 16,53 double
@1,9 say '           ALFAMART AKSES UI'
@2,9 say '    PT.SUMBER ALFARIA TRIJAYA,TBK'
@3,9 say '  JL.RAYA AKSES UI RT 03 RW 09 DEPOK'
@4,9 say '     NPWP : 01.336.238.9-054.000'
@6,5 say  'Nama Barang'
@7,3 say '-------------------------------------------------'
@8,3 say mbarang1
@6,24 say  'Jumlah'
@8,18 say mjumlah1
@6,36 say 'Harga'
@8,35 say mrp1
@6,46 say  ' Total'
@8,42 say mtotal1
@9,3 say '-------------------------------------------------'
@10,3 say 'anda mendapatkan diskon        :Rp '
@10,42 say mdiskon
@11,3 say '-------------------------------------------------'
@12,3 say 'Total belanja anda adalah      :Rp '
@12,42 say mtotal

@13,3 say 'Bayar                          :Rp '
@13,42 get mbayar
read

mkembali=mbayar-mtotal
@14,3 say  '-------------------------------------------------'
@15,3 say  'kembalianya adalah             :Rp '
@15,42 say mkembali
@16,1 say ''   
   
case mpilih=2
    @16,3 say 'pilih barang                  :           || banyak barang :'
    @16,34 get mjenis1
    @16,63 get mjumlah1
    read
   
        do case
        case mjenis1=1
            mtotal1=mjumlah1*mharga1
            mbarang1='Oishi Pillow'
            mrp1='Rp 7900'
        case mjenis1=2
            mtotal1=mjumlah1*mharga2
            mbarang1='Twister MN Black'
            mrp1='Rp 3000'
        case mjenis1=3
            mtotal1=mjumlah1*mharga3
            mbarang1='Oreo Choco 29,4Gr'
            mrp1='Rp 1300'
        case mjenis1=4
            mtotal1=mjumlah1*mharga4
            mbarang1='Pop Mie Kari Ayam'
            mrp1='Rp 3800'
        case mjenis1=5
            mtotal1=mjumlah1*mharga5
            mbarang1='Cannon Ball CKLT'
            mrp1='Rp 1600'
        endcase
       
    @17,3 say 'pilih barang                  :           || banyak barang :'
    @17,34 get mjenis2
    @17,63 get mjumlah2
    read
   
        do case
        case mjenis2=1
            mtotal2=mjumlah2*mharga1
            mbarang2='Oishi Pillow'
            mrp2='Rp 7900'
        case mjenis2=2
            mtotal2=mjumlah2*mharga2
            mbarang2='Twister MN Black'
            mrp2='Rp 3000'
        case mjenis2=3
            mtotal2=mjumlah2*mharga3
            mbarang2='Oreo Choco 29,4Gr'
            mrp2='Rp 1300'
        case mjenis2=4
            mtotal2=mjumlah2*mharga4
            mbarang2='Pop Mie Kari Ayam'
            mrp2='Rp 3800'
        case mjenis2=5
            mtotal2=mjumlah2*mharga5
            mbarang2='Cannon Ball CKLT'
            mrp2='Rp 1600'
        endcase
       
        mjumlahtot=mjumlah1+mjumlah2
        mtotalk=mtotal1+mtotal2
       
if mjumlahtot>10
mdiskon=mtotalk*20/100
endif
mtotal=mtotalk-mdiskon

clear
@5,1 to 17,53 double
@1,9 say '           ALFAMART AKSES UI'
@2,9 say '    PT.SUMBER ALFARIA TRIJAYA,TBK'
@3,9 say '  JL.RAYA AKSES UI RT 03 RW 09 DEPOK'
@4,9 say '     NPWP : 01.336.238.9-054.000'
@6,5 say  'Nama Barang'
@7,3 say '-------------------------------------------------'
@8,3 say mbarang1
@9,3 say mbarang2
@6,24 say  'Jumlah'
@8,18 say mjumlah1
@9,18 say mjumlah2
@6,36 say 'Harga'
@8,35 say mrp1
@9,35 say mrp2
@6,46 say  ' Total'
@8,42 say mtotal1
@9,42 say mtotal2
@10,3 say '-------------------------------------------------'
@11,3 say 'anda mendapatkan diskon        :Rp '
@12,42 say mdiskon
@12,3 say '-------------------------------------------------'
@13,3 say 'Total belanja anda adalah      :Rp '
@13,42 say mtotal

@14,3 say 'Bayar                          :Rp '
@14,42 get mbayar
read

mkembali=mbayar-mtotal
@15,3 say  '-------------------------------------------------'
@16,3 say  'kembalianya adalah             :Rp '
@16,42 say mkembali
@17,1 say ''
       
case mpilih=3
    @16,3 say 'pilih barang                  :           || banyak barang :'
    @16,34 get mjenis1
    @16,63 get mjumlah1
    read
   
        do case
        case mjenis1=1
            mtotal1=mjumlah1*mharga1
            mbarang1='Oishi Pillow'
            mrp1='Rp 7900'
        case mjenis1=2
            mtotal1=mjumlah1*mharga2
            mbarang1='Twister MN Black'
            mrp1='Rp 3000'
        case mjenis1=3
            mtotal1=mjumlah1*mharga3
            mbarang1='Oreo Choco 29,4Gr'
            mrp1='Rp 1300'
        case mjenis1=4
            mtotal1=mjumlah1*mharga4
            mbarang1='Pop Mie Kari Ayam'
            mrp1='Rp 3800'
        case mjenis1=5
            mtotal1=mjumlah1*mharga5
            mbarang1='Cannon Ball CKLT'
            mrp1='Rp 1600'
        endcase
       
    @17,3 say 'pilih barang                  :           || banyak barang :'
    @17,34 get mjenis2
    @17,63 get mjumlah2
    read
   
        do case
        case mjenis2=1
            mtotal2=mjumlah2*mharga1
            mbarang2='Oishi Pillow'
            mrp2='Rp 7900'
        case mjenis2=2
            mtotal2=mjumlah2*mharga2
            mbarang2='Twister MN Black'
            mrp2='Rp 3000'
        case mjenis2=3
            mtotal2=mjumlah2*mharga3
            mbarang2='Oreo Choco 29,4Gr'
            mrp2='Rp 1300'
        case mjenis2=4
            mtotal2=mjumlah2*mharga4
            mbarang2='Pop Mie Kari Ayam'
            mrp2='Rp 3800'
        case mjenis2=5
            mtotal2=mjumlah2*mharga5
            mbarang2='Cannon Ball CKLT'
            mrp2='Rp 1600'
        endcase
       
    @18,3 say 'pilih barang                  :           || banyak barang :'
    @18,34 get mjenis3
    @18,63 get mjumlah3
    read
   
        do case
        case mjenis3=1
            mtotal3=mjumlah3*mharga1
            mbarang3='Oishi Pillow'
            mrp3='Rp 7900'
        case mjenis3=2
            mtotal3=mjumlah3*mharga2
            mbarang3='Twister MN Black'
            mrp3='Rp 3000'
        case mjenis3=3
            mtotal3=mjumlah3*mharga3
            mbarang3='Oreo Choco 29,4Gr'
            mrp3='Rp 1300'
        case mjenis3=4
            mtotal3=mjumlah3*mharga4
            mbarang3='Pop Mie Kari Ayam'
            mrp3='Rp 3800'
        case mjenis3=5
            mtotal3=mjumlah3*mharga5
            mbarang3='Cannon Ball CKLT'
            mrp3='Rp 1600'
        endcase
        mjumlahtot=mjumlah1+mjumlah2+mjumlah3
        mtotalk=mtotal1+mtotal2+mtotal3
       
if mjumlahtot>10
mdiskon=mtotalk*20/100
endif
mtotal=mtotalk-mdiskon

clear
@5,1 to 18,53 double
@1,9 say '           ALFAMART AKSES UI'
@2,9 say '    PT.SUMBER ALFARIA TRIJAYA,TBK'
@3,9 say '  JL.RAYA AKSES UI RT 03 RW 09 DEPOK'
@4,9 say '     NPWP : 01.336.238.9-054.000'
@6,5 say  'Nama Barang'
@7,3 say '-------------------------------------------------'
@8,3 say mbarang1
@9,3 say mbarang2
@10,3 say mbarang3
@6,24 say  'Jumlah'
@8,18 say mjumlah1
@9,18 say mjumlah2
@10,18 say mjumlah3
@6,36 say 'Harga'
@8,35 say mrp1
@9,35 say mrp2
@10,35 say mrp3
@6,46 say  ' Total'
@8,42 say mtotal1
@9,42 say mtotal2
@10,42 say mtotal3
@11,3 say '-------------------------------------------------'
@12,3 say 'anda mendapatkan diskon        :Rp '
@12,42 say mdiskon
@13,3 say '-------------------------------------------------'
@14,3 say 'Total belanja anda adalah      :Rp '
@14,42 say mtotal

@15,3 say 'Bayar                          :Rp '
@15,42 get mbayar
read

mkembali=mbayar-mtotal
@16,3 say  '-------------------------------------------------'
@17,3 say  'kembalianya adalah             :Rp '
@17,42 say mkembali
@18,1 say ''
   
case mpilih=4
    @16,3 say 'pilih barang                  :           || banyak barang :'
    @16,34 get mjenis1
    @16,63 get mjumlah1
    read
   
        do case
        case mjenis1=1
            mtotal1=mjumlah1*mharga1
            mbarang1='Oishi Pillow'
            mrp1='Rp 7900'
        case mjenis1=2
            mtotal1=mjumlah1*mharga2
            mbarang1='Twister MN Black'
            mrp1='Rp 3000'
        case mjenis1=3
            mtotal1=mjumlah1*mharga3
            mbarang1='Oreo Choco 29,4Gr'
            mrp1='Rp 1300'
        case mjenis1=4
            mtotal1=mjumlah1*mharga4
            mbarang1='Pop Mie Kari Ayam'
            mrp1='Rp 3800'
        case mjenis1=5
            mtotal1=mjumlah1*mharga5
            mbarang1='Cannon Ball CKLT'
            mrp1='Rp 1600'
        endcase
       
    @17,3 say 'pilih barang                  :           || banyak barang :'
    @17,34 get mjenis2
    @17,63 get mjumlah2
    read
   
        do case
        case mjenis2=1
            mtotal2=mjumlah2*mharga1
            mbarang2='Oishi Pillow'
            mrp2='Rp 7900'
        case mjenis2=2
            mtotal2=mjumlah2*mharga2
            mbarang2='Twister MN Black'
            mrp2='Rp 3000'
        case mjenis2=3
            mtotal2=mjumlah2*mharga3
            mbarang2='Oreo Choco 29,4Gr'
            mrp2='Rp 1300'
        case mjenis2=4
            mtotal2=mjumlah2*mharga4
            mbarang2='Pop Mie Kari Ayam'
            mrp2='Rp 3800'
        case mjenis2=5
            mtotal2=mjumlah2*mharga5
            mbarang2='Cannon Ball CKLT'
            mrp2='Rp 1600'
        endcase
       
    @18,3 say 'pilih barang                  :           || banyak barang :'
    @18,34 get mjenis3
    @18,63 get mjumlah3
    read
   
        do case
        case mjenis3=1
            mtotal3=mjumlah3*mharga1
            mbarang3='Oishi Pillow'
            mrp3='Rp 7900'
        case mjenis3=2
            mtotal3=mjumlah3*mharga2
            mbarang3='Twister MN Black'
            mrp3='Rp 3000'
        case mjenis3=3
            mtotal3=mjumlah3*mharga3
            mbarang3='Oreo Choco 29,4Gr'
            mrp3='Rp 1300'
        case mjenis3=4
            mtotal3=mjumlah3*mharga4
            mbarang3='Pop Mie Kari Ayam'
            mrp3='Rp 3800'
        case mjenis3=5
            mtotal3=mjumlah3*mharga5
            mbarang3='Cannon Ball CKLT'
            mrp3='Rp 1600'
        endcase
       
    @19,3 say 'pilih barang                  :           || banyak barang :'
    @19,34 get mjenis4
    @19,63 get mjumlah4
    read
   
        do case
        case mjenis4=1
            mtotal4=mjumlah4*mharga1
            mbarang4='Oishi Pillow'
            mrp4='Rp 7900'
        case mjenis4=2
            mtotal4=mjumlah4*mharga2
            mbarang4='Twister MN Black'
            mrp4='Rp 3000'
        case mjenis4=3
            mtotal4=mjumlah4*mharga3
            mbarang4='Oreo Choco 29,4Gr'
            mrp4='Rp 1300'
        case mjenis4=4
            mtotal4=mjumlah4*mharga4
            mbarang4='Pop Mie Kari Ayam'
            mrp4='Rp 3800'
        case mjenis4=5
            mtotal4=mjumlah4*mharga5
            mbarang4='Cannon Ball CKLT'
            mrp4='Rp 1600'
        endcase
       
        mjumlahtot=mjumlah1+mjumlah2+mjumlah3+mjumlah4
        mtotalk=mtotal1+mtotal2+mtotal3+mtotal4
       
if mjumlahtot>10
mdiskon=mtotalk*20/100
endif
mtotal=mtotalk-mdiskon

clear
@5,1 to 19,53 double
@1,9 say '           ALFAMART AKSES UI'
@2,9 say '    PT.SUMBER ALFARIA TRIJAYA,TBK'
@3,9 say '  JL.RAYA AKSES UI RT 03 RW 09 DEPOK'
@4,9 say '     NPWP : 01.336.238.9-054.000'
@6,5 say  'Nama Barang'
@7,3 say '-------------------------------------------------'
@8,3 say mbarang1
@9,3 say mbarang2
@10,3 say mbarang3
@11,3 say mbarang4
@6,24 say  'Jumlah'
@8,18 say mjumlah1
@9,18 say mjumlah2
@10,18 say mjumlah3
@11,18 say mjumlah4
@6,36 say 'Harga'
@8,35 say mrp1
@9,35 say mrp2
@10,35 say mrp3
@11,35 say mrp4
@6,46 say  ' Total'
@8,42 say mtotal1
@9,42 say mtotal2
@10,42 say mtotal3
@11,42 say mtotal4
@12,3 say '-------------------------------------------------'
@13,3 say 'anda mendapatkan diskon        :Rp '
@13,42 say mdiskon
@14,3 say '-------------------------------------------------'
@15,3 say 'Total belanja anda adalah      :Rp '
@15,42 say mtotal

@16,3 say 'Bayar                          :Rp '
@16,42 get mbayar
read

mkembali=mbayar-mtotal
@17,3 say  '-------------------------------------------------'
@18,3 say  'kembalianya adalah             :Rp '
@18,42 say mkembali
@19,1 say ''
       
case mpilih=5
    @16,3 say 'pilih barang                  :           || banyak barang :'
    @16,34 get mjenis1
    @16,63 get mjumlah1
    read
   
        do case
        case mjenis1=1
            mtotal1=mjumlah1*mharga1
            mbarang1='Oishi Pillow'
            mrp1='Rp 7900'
        case mjenis1=2
            mtotal1=mjumlah1*mharga2
            mbarang1='Twister MN Black'
            mrp1='Rp 3000'
        case mjenis1=3
            mtotal1=mjumlah1*mharga3
            mbarang1='Oreo Choco 29,4Gr'
            mrp1='Rp 1300'
        case mjenis1=4
            mtotal1=mjumlah1*mharga4
            mbarang1='Pop Mie Kari Ayam'
            mrp1='Rp 3800'
        case mjenis1=5
            mtotal1=mjumlah1*mharga5
            mbarang1='Cannon Ball CKLT'
            mrp1='Rp 1600'
        endcase
       
    @17,3 say 'pilih barang                  :           || banyak barang :'
    @17,34 get mjenis2
    @17,63 get mjumlah2
    read
   
        do case
        case mjenis2=1
            mtotal2=mjumlah2*mharga1
            mbarang2='Oishi Pillow'
            mrp2='Rp 7900'
        case mjenis2=2
            mtotal2=mjumlah2*mharga2
            mbarang2='Twister MN Black'
            mrp2='Rp 3000'
        case mjenis2=3
            mtotal2=mjumlah2*mharga3
            mbarang2='Oreo Choco 29,4Gr'
            mrp2='Rp 1300'
        case mjenis2=4
            mtotal2=mjumlah2*mharga4
            mbarang2='Pop Mie Kari Ayam'
            mrp2='Rp 3800'
        case mjenis2=5
            mtotal2=mjumlah2*mharga5
            mbarang2='Cannon Ball CKLT'
            mrp2='Rp 1600'
        endcase
       
    @18,3 say 'pilih barang                  :           || banyak barang :'
    @18,34 get mjenis3
    @18,63 get mjumlah3
    read
   
        do case
        case mjenis3=1
            mtotal3=mjumlah3*mharga1
            mbarang3='Oishi Pillow'
            mrp3='Rp 7900'
        case mjenis3=2
            mtotal3=mjumlah3*mharga2
            mbarang3='Twister MN Black'
            mrp3='Rp 3000'
        case mjenis3=3
            mtotal3=mjumlah3*mharga3
            mbarang3='Oreo Choco 29,4Gr'
            mrp3='Rp 1300'
        case mjenis3=4
            mtotal3=mjumlah3*mharga4
            mbarang3='Pop Mie Kari Ayam'
            mrp3='Rp 3800'
        case mjenis3=5
            mtotal3=mjumlah3*mharga5
            mbarang3='Cannon Ball CKLT'
            mrp3='Rp 1600'
        endcase
       
    @19,3 say 'pilih barang                  :           || banyak barang :'
    @19,34 get mjenis4
    @19,63 get mjumlah4
    read
   
        do case
        case mjenis4=1
            mtotal4=mjumlah4*mharga1
            mbarang4='Oishi Pillow'
            mrp4='Rp 7900'
        case mjenis4=2
            mtotal4=mjumlah4*mharga2
            mbarang4='Twister MN Black'
            mrp4='Rp 3000'
        case mjenis4=3
            mtotal4=mjumlah4*mharga3
            mbarang4='Oreo Choco 29,4Gr'
            mrp4='Rp 1300'
        case mjenis4=4
            mtotal4=mjumlah4*mharga4
            mbarang4='Pop Mie Kari Ayam'
            mrp4='Rp 3800'
        case mjenis4=5
            mtotal4=mjumlah4*mharga5
            mbarang4='Cannon Ball CKLT'
            mrp4='Rp 1600'
        endcase
       
    @20,3 say 'pilih barang                  :           || banyak barang :'
    @20,34 get mjenis5
    @20,63 get mjumlah5
    read
   
        do case
        case mjenis5=1
            mtotal5=mjumlah5*mharga1
            mbarang5='Oishi Pillow'
            mrp5='Rp 7900'
        case mjenis5=2
            mtotal5=mjumlah5*mharga2
            mbarang5='Twister MN Black'
            mrp5='Rp 3000'
        case mjenis5=3
            mtotal5=mjumlah5*mharga3
            mbarang5='Oreo Choco 29,4Gr'
            mrp5='Rp 1300'
        case mjenis5=4
            mtotal5=mjumlah5*mharga4
            mbarang5='Pop Mie Kari Ayam'
            mrp5='Rp 3800'
        case mjenis5=5
            mtotal5=mjumlah5*mharga5
            mbarang5='Cannon Ball CKLT'
            mrp5='Rp 1600'
        endcase
       
        mjumlahtot=mjumlah1+mjumlah2+mjumlah3+mjumlah4+mjumlah5
        mtotalk=mtotal1+mtotal2+mtotal3+mtotal4+mtotal5
       
if mjumlahtot>10
mdiskon=mtotalk*20/100
endif
mtotal=mtotalk-mdiskon

clear
@5,1 to 20,53 double
@1,9 say '           ALFAMART AKSES UI'
@2,9 say '    PT.SUMBER ALFARIA TRIJAYA,TBK'
@3,9 say '  JL.RAYA AKSES UI RT 03 RW 09 DEPOK'
@4,9 say '     NPWP : 01.336.238.9-054.000'
@6,5 say  'Nama Barang'
@7,3 say '-------------------------------------------------'
@8,3 say mbarang1
@9,3 say mbarang2
@10,3 say mbarang3
@11,3 say mbarang4
@12,3 say mbarang5
@6,24 say  'Jumlah'
@8,18 say mjumlah1
@9,18 say mjumlah2
@10,18 say mjumlah3
@11,18 say mjumlah4
@12,18 say mjumlah5
@6,36 say 'Harga'
@8,35 say mrp1
@9,35 say mrp2
@10,35 say mrp3
@11,35 say mrp4
@12,35 say mrp5
@6,46 say  ' Total'
@8,42 say mtotal1
@9,42 say mtotal2
@10,42 say mtotal3
@11,42 say mtotal4
@12,42 say mtotal5
@13,3 say '-------------------------------------------------'
@14,3 say 'anda mendapatkan diskon        :Rp '
@14,42 say mdiskon
@15,3 say '-------------------------------------------------'
@16,3 say 'Total belanja anda adalah      :Rp '
@16,42 say mtotal

@17,3 say 'Bayar                          :Rp '
@17,42 get mbayar
read

mkembali=mbayar-mtotal
@18,3 say  '-------------------------------------------------'
@19,3 say  'kembalianya adalah             :Rp '
@19,42 say mkembali
@20,1 say ''
endcase

wait '  ulang belanja pelanggan [Y/T]' to jawab
if upper (jawab) ='T'
jawab='T'
endif
enddo

oce itu adalah kodinganya, mohon komentarnya ea? :D, thanks

Komentar

Posting Komentar

Postingan populer dari blog ini

TUTORIAL MACRO EXCEL DAN CONDITIONAL FORMATTING PADA MICROSOFT EXCEL 2013

Macro adalah sederetan fungsi dan perintah program yang disimpan dalam menu Visual Basic dan juga Macro excel disebut sebagai sebuah tool yang kita gunakan untuk membuat suatu masalah menjadi lebih gampang dikerjakan dan biasanya digunakan untuk analisa permasalahan di dalam database-database besar.
SCREENSHOT PROGRAM

JSON VS XML

JSON VS XML
1.Pengertian JSON
JSON (JavaScript Object Notation) adalah format pertukaran data yang ringan, mudah dibaca dan ditulis oleh manusia, serta mudah diterjemahkan dan dibuat (generate) oleh komputer. Format ini dibuat berdasarkan bagian dari Bahasa Pemprograman JavaScript, Standar ECMA-262 Edisi ke-3 - Desember 1999 (http://www.json.org).
JSON adalah salah satu bahasa markup yang dapat melakukan pertukaran data dimana JSON ini dibuat berdasarkan javascript dan pastinya sintaknya lebih ke javascript. Dengan membuat sebuah JSON sama halnya dengan kita membuat sebuah object pada javascript itu sendiri. Di dalam membuat JSON pasti kita bakal berkenalan dengan yang namanya array pada javascript sehingga memudahkan bagi para deveploper/programmer.
1.1.Mengapa kita menggunakan JSON ?
JSON sama halnya dengan XML yaitu yang berfungsi sebagai pembawa data atau sebagai pertukaran data antar client server. JSON dapat digunakan di berbagai bahasa pemograman, dapat digunakan dalam bahasa pemo…