Aplikasi Android Sederhana Batu Akik

Aplikasi Android Sederhana Batu Akik - Batu Akik (Gemstone) sangat digemari oleh banyak kalangan, tentunya karena keunikan yang ditawarkan.

Berikut ini source code sampel aplikasi android sederhana Batu Akik (Gemstone), langsung saja pada pembahasan.

Menu utama Gemstone

Menu detail and price gemstone

Batu.java

package com.example.batuakik;

import com.example.batuakik.R;
import android.app.Activity;
import android.content.Intent;
import android.os.Bundle;
import android.view.View;
import android.widget.Button;

public class Batu extends Activity{
 public void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.batu);
        
        Button pindah=(Button) findViewById(R.id.button1);
        
        pindah.setOnClickListener(new View.OnClickListener() {
   
   public void onClick(View v) {
    // TODO Auto-generated method stub
    Intent loginxml=new Intent(Batu.this,MenuBatu.class);
    startActivity(loginxml);
   }
  });
        
 }
}

MenuBatu.java

package com.example.batuakik;

import com.example.batuakik.R;
import android.app.Activity;
import android.os.Bundle;
import android.view.View;
import android.widget.AdapterView;
import android.widget.ArrayAdapter;
import android.widget.Button;
import android.widget.EditText;
import android.widget.Spinner;
import android.widget.Toast;

public class MenuBatu extends Activity {
 private String[] isi_spinner;

    @Override
    public void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.menubatu);
        
        isi_spinner=this.getResources().getStringArray(R.array.isi_spinner);
        final Spinner spinner=(Spinner) findViewById(R.id.spinner1);
        final EditText des = (EditText) findViewById(R.id.editText1);
        final EditText hrg = (EditText) findViewById(R.id.editText2);
        final Button hapus = (Button) findViewById(R.id.button1);


        hapus.setOnClickListener(new View.OnClickListener() {
   
   public void onClick(View v) {
    // TODO Auto-generated method stub
    spinner.getSelectedItem().toString().equals("Silahkan Pilih Menu Gemstone");
    des.setText("");
    hrg.setText("");
   }
  });
        
        ArrayAdapter adapter = ArrayAdapter.createFromResource(this, R.array.isi_spinner, android.R.layout.simple_spinner_dropdown_item);
        spinner.setAdapter(adapter);
        spinner.setOnItemSelectedListener(new AdapterView.OnItemSelectedListener() {

         
   public void onItemSelected(AdapterView parent, View v,int position,long id) {
    // TODO Auto-generated method stub
    if(spinner.getSelectedItem().toString().equals("BACAN")){
     des.setText("Berdasarkan beberapa literatur yang membahas asal-usul dan bagaimana batu ini berkembang, ternyata secara historis penambangan batu Bacan lebih banyak dihasilkan di sebuah pulau yang bernama Pulau Kasiruta.");
     hrg.setText("Harga kisaran 1 juta - 2,5 juta");
    }else if(spinner.getSelectedItem().toString().equals("BLACK OVAL")){
     des.setText("BLACK OVAL merupakan salah satu yang paling banyak di cari para penggemar batu akik. Batu ini sangat terkenal dengan keunikannya, yaitu memilki beragaman warna yang sangat menakjubkan atau sering di sebut jarong.");
     hrg.setText("Harga kisaran 200 ribu – 20 juta");
    }else if(spinner.getSelectedItem().toString().equals("SUNGAI DAREH")){
     des.setText("SUNGAI DAREH Pada sekitar tahun 70-an batu sungai dareh ini dikenal masyarakat dengan nama ‘Giok Kandi’ karena batu itu pertama ditemukan di Sungai Kandi dan Bukit Puti Bungsu Solok Selatan Sumatera.");
     hrg.setText("Harga kisaran 300 – 1 juta");
    }else if(spinner.getSelectedItem().toString().equals("BELIMBING")){
     des.setText("Batu Belimbing merupakan salah satu jenis akik indocrase yang terkenal hingga skala nasional. Batu Belimbing ini asli berasal dari daerah Aceh.");
     hrg.setText("Harga kisaran 200 ribu - 1,5 juta");
    }else if(spinner.getSelectedItem().toString().equals("PANCAWARNA")){
     des.setText("PANCAWARNA Suatu hari pada tahun 70- an, Ohen, seorang petani asalDesa Cipeundeuy, Kecamatan Bungbulang (kini masukKecamatan Caringin), Kabupaten Garut, Jawa Barat,sedang mengolah sawahnya di pinggir kampung, Secara tidak sengaja,dan bermotif warna-warni dan akhirnya di beri nama PANCAWARNA.");
     hrg.setText("Harga kisaran 200 ribu – 10 juta");
    }else if(spinner.getSelectedItem().toString().equals("MERAH DELIMA")){
     des.setText("MERAH DELIMA batu permata berwarna merah yang dapat bervariasi antara merah muda hingga merah darah dan merupakan salah satu jenis dari mineral korundum (aluminium oksida). Warnanya terutama disebabkan oleh kromium. Namanya berasal dari buah delima yang isinya berwarna merah.");
     hrg.setText("Harga merah delima tidak ternilai harganya karena sulit dan langkanya batu tersebut");
    }else if(spinner.getSelectedItem().toString().equals("KALIMAYA")){
     des.setText("KALIMAYA itu sendiri di ambil dari nama KALI MAjA Kali Maja adalah nama sebuah sebuah sungai yang terdapat didaerah Rangkasbitung, tepatnya Kecamatan Maja Kabupaten Lebak Banten.");
     hrg.setText("Harga kisaran 200 Rribu – 2 juta");
    }else if(spinner.getSelectedItem().toString().equals("BLUE SAFIR")){
     des.setText("BLUE SAFIR merupakan batu safir yang terkenal selama ini lebih didominasi oleh batu asal Sri Lanka atau yang lebih dikenal dengan istilah Ceylon Sapphire yang mayoritas berwarna biru. Kalau pun ada warna lain seperti warna kuning, merah, Orange dan berbagai model warna lainnya,dan batu ini tergolong langka.");
     hrg.setText("Harga : 800 ribu – 5 juta");
    }else if(spinner.getSelectedItem().toString().equals("BATU GIOK ACEH")){
     des.setText("BATU GIOK ACEH Batu giok Aceh selain memiliki kecantikan, batu giok ini juga dipercaya membawa tuah. Batu giok ini dikenal sejak lima tahun silam, awal mulanya adalah dari seorang tua renta yang membawa batu dari Nagan Raya ke Banda Aceh.");
     hrg.setText("Harga kisaran 400 ribu - 3 juta");
    }else if(spinner.getSelectedItem().toString().equals("SISIK NAGA")){
     des.setText("SISIK NAGA batu sisik naga di indonesia ini pertama kali di temukan di kabupaten Enrekang,dan nama sisik naga itu sendiri di berikan oleh warga kab.Enrekang itu sendiri, karena tempat di temukannya batu tersebut berlokasi di sepanjang sungai sa'dang dan bentuk sungai sa'dang, saddang itu sendiri,memiliki bentuk yang panjang dan berkelok-kelok seperti naga.");
     hrg.setText("Harga kisaran 2 juta – 150 juta");
    
    }
    Toast.makeText(MenuBatu.this, isi_spinner[position], Toast.LENGTH_SHORT).show();
   }

   public void onNothingSelected(AdapterView arg0) {
    // TODO Auto-generated method stub
    
   }
         
  });
    }

}

Batu.xml

<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"
    android:id="@+id/RelativeLayout1"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    android:background="@drawable/gem"
    android:orientation="vertical" >

    <ImageButton
        android:id="@+id/imageButton1"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_below="@+id/textView2"
        android:layout_centerHorizontal="true"
        android:layout_marginTop="48dp"
        android:src="@drawable/gemsbutton" />

    <TextView
        android:id="@+id/textView2"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignParentTop="true"
        android:layout_centerHorizontal="true"
        android:layout_marginTop="27dp"
        android:gravity="center"
        android:text="Gemstone"
        android:textColor="@color/Black"
        android:textSize="50dp"
        android:typeface="normal" />

    <Button
        android:id="@+id/button1"
        android:layout_width="match_parent"
        android:layout_height="wrap_content"
        android:layout_alignParentLeft="true"
        android:layout_below="@+id/imageButton1"
        android:layout_marginTop="37dp"
        android:text="Check Price Gemstone"
        android:textColorHint="@color/White"
        android:textColorLink="@color/White" />

    <TextView
        android:id="@+id/TextView01"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignParentBottom="true"
        android:layout_centerHorizontal="true"
        android:layout_marginBottom="22dp"
        android:gravity="center"
        android:text="Tianchan Studio - 2015"
        android:textColor="@color/Black"
        android:textSize="30dp"
        android:textStyle="bold|italic"
        android:typeface="normal" />

</RelativeLayout>

MenuBatu.xml

<?xml version="1.0" encoding="utf-8"?>
<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"
    android:id="@+id/RelativeLayout1"
    android:layout_width="match_parent"
    android:layout_height="match_parent"
    android:orientation="vertical"
     android:background="@drawable/topaz" >

    <TextView
        android:id="@+id/textView1"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignParentLeft="true"
        android:layout_alignParentRight="true"
        android:layout_alignParentTop="true"
         android:textColor="@color/Black"
        android:gravity="center"
        android:text="JENIS BATU"
        android:textSize="25dp" />

    <Spinner
        android:id="@+id/spinner1"
        android:layout_width="match_parent"
        android:layout_height="wrap_content"
        android:layout_alignParentLeft="true"
        android:layout_below="@+id/textView1" />

    <EditText
        android:id="@+id/editText1"
        android:layout_width="match_parent"
        android:layout_height="wrap_content"
        android:layout_alignParentLeft="true"
        android:layout_below="@+id/spinner1"
        android:editable="FALSE"
        android:ems="10"
        android:inputType="textMultiLine"
        android:textColor="@color/Black" >

        <requestFocus />
    </EditText>

    <TextView
        android:id="@+id/textView4"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignParentLeft="true"
        android:layout_alignParentRight="true"
        android:layout_below="@+id/editText1"
        android:gravity="center"
        android:text="KISARAN HARGA"
        android:textColor="@color/Black"
        android:textSize="25dp" />

    <EditText
        android:id="@+id/editText2"
        android:layout_width="match_parent"
        android:layout_height="wrap_content"
        android:layout_alignParentLeft="true"
        android:layout_below="@+id/textView4"
         android:textColor="@color/Black"
        android:ems="10"
        android:enabled="FALSE"
        android:inputType="number" />

    <Button
        android:id="@+id/button1"
        android:layout_width="match_parent"
        android:layout_height="wrap_content"
        android:layout_alignParentLeft="true"
        android:layout_below="@+id/editText2"
        android:text="Reset" />
    
        <TextView
        android:id="@+id/TextView01"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignParentBottom="true"
        android:layout_centerHorizontal="true"
        android:layout_marginBottom="22dp"
        android:gravity="center"
        android:text="Tianchan Studio - 2015"
        android:textColor="@color/Black"
        android:textSize="30dp"
        android:textStyle="bold|italic"
        android:typeface="normal" />

    <TextView
        android:id="@+id/textView3"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_alignParentLeft="true"
        android:layout_below="@+id/button1"
        android:text=" " />

</RelativeLayout>

Catatan : Perlu di ingat untuk selalu menambahkan Activity di dalam Androidmanifest.xml pada setiap Activity di dalam Java dan setiap layout saling berkaitan dengan Activity.

Silahkan Download Source Code Android Sederhana Batu Akik.

Sekian artikel tentang Aplikasi Android Sederhana Batu Akik, semoga bermanfaat.

Source Code Stok Barang dalam Pascal

Source Code Stok Barang dalam Pascal - Software house kali ini membahas tentang Aplikasi Stok Barang DVD dan Game PC yang sudah ada CRUD.

Penyimpanan data dalam file "brg.dat" dan menerapkan konsep Procedure dalam membagi path tiap program.

Berikut ini source code stok barang menggunakan compiler dev-pascal :

Program PersediaanBarang;
uses crt;
type
 brg = record
  nama_games: string[12];
  kode_games: string[5];
  satuan: string[6];
  byk_brg: byte;
  tam_brg: integer;
  kur_brg: integer;
  h_beli: real;
  h_jual: real;
  tot_beli: real;
  tot_jual: real;
 end;

var
 fb: file of brg;
 rb: brg;
 lagi,ya: char;
 pilih,i: byte;
 nourut,jml: integer;
 kodecari: string[3];
 ketemu: boolean;


Procedure Tampil;
begin
for i:= 1 to 23 do
 begin
  delay(120);
  gotoxy(29,i); write ('    ASSALAMMUALAIKUM');
  gotoxy(29,i-1); write ('                     ');
 end;
 begin
 for i:= 23 downto 2 do
 begin
  delay(120);
  gotoxy(33,i); write ('    MATERI IT');
  gotoxy(22,i+1); write ('                           ');
 end;
 gotoxy(24,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(24,6); write('PROGRAM APLIKASI PERSEDIAAN BARANG');
 gotoxy(35,10); write('DVD GAMES PC');
 gotoxy(28,14); write('PRINCE GAMES DAN COMPUTER');
 gotoxy(39,18); write('****');
 writeln;
 readln;
 end;
end;


Procedure InputDataAwal;
begin
 assign(fb,'brg.dat');
 rewrite(fb);
 lagi:='y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  with rb do
  begin
   gotoxy(28,2); write('o_o PROGRAM INPUT DATA o_o');
   gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
   gotoxy(23,6); write('Kode Games            : ');
   gotoxy(23,8); write('Nama Games            : ');
   gotoxy(23,10); write('Banyak Barang         : ');
   gotoxy(23,12); write('Satuan Barang         : ');
   gotoxy(23,14); write('Harga Beli / Satuan   : ');
   gotoxy(23,16); write('Harga Jual / Satuan   : ');
   gotoxy(23,18); write('Total Harga Beli      : ');
   gotoxy(23,20); write('Total Harga Jual      : ');
   gotoxy(49,6); readln(kode_games);
   gotoxy(49,8); readln(nama_games);
   gotoxy(49,10); readln(byk_brg);
   gotoxy(49,12); readln(satuan);
   gotoxy(49,14); readln(h_beli);
   gotoxy(49,16); readln(h_jual);
   tot_beli:= h_beli*byk_brg;
   tot_jual:= h_jual*byk_brg;
   gotoxy(49,18); writeln(tot_beli:2:0);
   gotoxy(49,20); writeln(tot_jual:2:0);
  end;
 write(fb,rb);
 gotoxy(23,23); write('Masukan data lagi [Y/T] ? ');
 readln(lagi);
 end;
 close(fb);
end;


Procedure TambahData;
begin
 assign(fb,'brg.dat');
 {$I-}
 reset(fb);
 {$I+};
 if ioresult<>0 then rewrite(fb);
    seek(fb,filesize(fb));
 lagi:='y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  with rb do
  begin
   gotoxy(26,2); write('o_o PROGRAM TAMBAH DATA o_o');
   gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
   gotoxy(23,6); write('Kode Games            : ');
   gotoxy(23,8); write('Nama Games            : ');
   gotoxy(23,10); write('Banyak Barang         : ');
   gotoxy(23,12); write('Satuan Barang         : ');
   gotoxy(23,14); write('Harga Beli / Satuan   : ');
   gotoxy(23,16); write('Harga Jual / Satuan   : ');
   gotoxy(23,18); write('Total Harga Beli      : ');
   gotoxy(23,20); write('Total Harga Jual      : ');
   gotoxy(49,6); readln(kode_games);
   gotoxy(49,8); readln(nama_games);
   gotoxy(49,10); readln(byk_brg);
   gotoxy(49,12); readln(satuan);
   gotoxy(49,14); readln(h_beli);
   gotoxy(49,16); readln(h_jual);
   tot_beli:= h_beli*byk_brg;
   tot_jual:= h_jual*byk_brg;
   gotoxy(49,18); writeln(tot_beli:2:0);
   gotoxy(49,20); writeln(tot_jual:2:0);
  end;
 write(fb,rb);
 gotoxy(23,23) ;write('Masukan data lagi [Y/T] ? ');
 readln(lagi);
 end;
 close(fb);
end;


Procedure LihatSemuaData;
begin
 assign(fb,'brg.dat');
 reset(fb);
 clrscr;
 gotoxy(28,2); write('o_o PROGRAM LIHAT DATA o_o');
 gotoxy(21,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 writeln;
 writeln('ÚÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿');
 writeln('ÚÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿');
 writeln('³Kode ³    Nama     ³Banyak³Satuan³ H.Beli/ ³ H.Jual/ ³   Total   ³   Total   ³');
 writeln('³Games³    Games    ³Barang³Barang³ Satuan  ³ Satuan  ³   H.Beli  ³   H.Jual  ³');
 writeln('ÃÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄ´');
 while not eof (fb) do
 begin
  read(fb,rb);
  with rb do
  writeln('³',kode_games:5,'³':1,nama_games:12,'³':2,byk_brg:4,'³':3,satuan:5,
          '³':2,'Rp.':1,h_beli:6:0,'³':1,'Rp.':1,h_jual:6:0,
          '³':1,'Rp.':1,tot_beli:8:0,'³':1,'Rp.':1,tot_jual:8:0,'³':1);
 end;
 writeln('ÀÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ');
 writeln('ÀÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ');
 writeln;
 writeln('Keterangan :');
 writeln;
 writeln('A : Adventure');
 writeln('C : Colection');
 writeln('S : Sport');
 close(fb);
 readln;
end;


Procedure LihatDataTertentu;
begin
 assign(fb,'brg.dat');
 reset(fb);
 jml:= filesize(fb);
 lagi:='y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  gotoxy(30,2); write('o_o PROGRAM CARI DATA o_o');
  gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  ketemu:= false;
  gotoxy(23,6); write('Masukan kode games yang akan dicari : ');
  readln(kodecari);
  writeln;
  for i:= 1 to jml do
  begin
   seek(fb,i-1);
   read(fb,rb);
    if rb.kode_games = kodecari then
       begin
        ketemu:= true;
        clrscr;
        gotoxy(30,2); write('@_@ DATA DITEMUKAN @_@');
        gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
        gotoxy(23,6); write('Kode Games            : ',rb.kode_games);
        gotoxy(23,8); write('Nama Games            : ',rb.nama_games);
        gotoxy(23,10); write('Banyak Barang         : ',rb.byk_brg);
        gotoxy(23,12); write('Satuan Barang         : ',rb.satuan);
        gotoxy(23,14); write('Harga Beli / Satuan   : ',rb.h_beli:2:0);
        gotoxy(23,16); write('Harga Jual / Satuan   : ',rb.h_jual:2:0);
        gotoxy(23,18); write('Total Harga Beli      : ',rb.tot_beli:2:0);
        gotoxy(23,20); write('Total Harga Jual      : ',rb.tot_jual:2:0);
        gotoxy(23,23); write('Cari data lagi [Y/T] ? ');
        readln(lagi);
       end;
  end;
    if not ketemu then
       begin
        gotoxy(23,8); writeln('Games tersebut tidak ada!!!');
        gotoxy(23,10); write('Cari data lagi [Y/T] ? ');
        readln(lagi);
       end;
 end;
 close(fb);
end;


Procedure PenambahanBarang;
begin
 assign(fb,'brg.dat');
 reset(fb);
 jml:= filesize(fb);
 lagi:= 'y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  gotoxy(24,2); write('o_o PROGRAM EDIT PENAMBAHAN BARANG o_o');
  gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  ketemu:= false;
  gotoxy(23,6); write('Masukan kode games yang akan di edit : ');
  readln(kodecari);
  writeln;
  for i:= 1 to jml do
  begin
   seek(fb,i-1);
   read(fb,rb);
   if rb.kode_games = kodecari then
       with rb do
       begin
       clrscr;
        ketemu:= true;
        clrscr;
        gotoxy(28,2); write('@_@ DATA DITEMUKAN @_@');
        gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
        gotoxy(23,6); write('Kode Games            :   ',rb.kode_games);
        gotoxy(23,8); write('Nama Games            :   ',rb.nama_games);
        gotoxy(23,10); write('Banyak Barang Awal    :   ',rb.byk_brg);
        gotoxy(23,14); write('Satuan Barang         :   ',rb.satuan);
        gotoxy(23,16); write('Harga Beli / Satuan   :   ',rb.h_beli:2:0);
        gotoxy(23,18); write('Harga Jual / Satuan   :   ',rb.h_jual:2:0);
        gotoxy(23,20); write('Total Harga Beli      :   ',rb.tot_beli:2:0);
        gotoxy(23,22); write('Total Harga Jual      :   ',rb.tot_jual:2:0);
        gotoxy(23,12); write('Penambahan Barang     :   '); readln(rb.tam_brg);
        byk_brg:= byk_brg+tam_brg;
        tot_beli:= h_beli*byk_brg;
        tot_jual:= h_jual*byk_brg;
        gotoxy(49,20); writeln(tot_beli:2:0);
        gotoxy(49,22); writeln(tot_jual:2:0);
        gotoxy(23,25); write('Edit data yang lain [Y/T] ? ');
        readln(lagi);
       end;
   seek(fb,i-1);
   write(fb,rb);
  end;
   if not ketemu then
      begin
       gotoxy(23,8); writeln('Games tersebut tidak ada!!!');
       writeln;
       gotoxy(23,10); write('Edit data lagi [Y/T] ? ');
       readln(lagi);
      end;
 end;
 close(fb);
end;


Procedure PenguranganBarang;
begin
 assign(fb,'brg.dat');
 reset(fb);
 jml:= filesize(fb);
 lagi:= 'y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  gotoxy(24,2); write('o_o PROGRAM EDIT PENGURANGAN BARANG o_o');
  gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  ketemu:= false;
  gotoxy(23,6); write('Masukan kode games yang akan di edit : ');
  readln(kodecari);
  writeln;
  for i:= 1 to jml do
  begin
   seek(fb,i-1);
   read(fb,rb);
   if rb.kode_games = kodecari then
       with rb do
       begin
       clrscr;
        ketemu:= true;
        clrscr;
        gotoxy(28,2); write('@_@ DATA DITEMUKAN @_@');
        gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
        gotoxy(23,6); write('Kode Games            :   ',rb.kode_games);
        gotoxy(23,8); write('Nama Games            :   ',rb.nama_games);
        gotoxy(23,10); write('Banyak Barang Awal    :   ',rb.byk_brg);
        gotoxy(23,14); write('Satuan Barang         :   ',rb.satuan);
        gotoxy(23,16); write('Harga Beli / Satuan   :   ',rb.h_beli:2:0);
        gotoxy(23,18); write('Harga Jual / Satuan   :   ',rb.h_jual:2:0);
        gotoxy(23,20); write('Total Harga Beli      :   ',rb.tot_beli:2:0);
        gotoxy(23,22); write('Total Harga Jual      :   ',rb.tot_jual:2:0);
        gotoxy(23,12); write('Pengurangan Barang    :   '); readln(rb.kur_brg);
        byk_brg:= byk_brg-kur_brg;
        tot_beli:= h_beli*byk_brg;
        tot_jual:= h_jual*byk_brg;
        gotoxy(49,20); writeln(tot_beli:2:0);
        gotoxy(49,22); writeln(tot_jual:2:0);
        gotoxy(23,25); write('Edit data yang lain [Y/T] ? ');
        readln(lagi);
       end;
   seek(fb,i-1);
   write(fb,rb);
  end;
   if not ketemu then
      begin
       gotoxy(23,8); writeln('Games tersebut tidak ada!!!');
       writeln;
       gotoxy(23,10); write('Edit data lagi [Y/T] ? ');
       readln(lagi);
      end;
 end;
 close(fb);
end;


Procedure EditDataBarang;
begin
 assign(fb,'brg.dat');
 reset(fb);
 jml:= filesize(fb);
 lagi:= 'y';
 while upcase(lagi)='Y' do
 begin
  clrscr;
  gotoxy(26,2); write('o_o PROGRAM EDIT DATA BARANG o_o');
  gotoxy(20,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  ketemu:= false;
  gotoxy(20,6); write('Masukan kode barang yang akan di edit : ');
  readln(kodecari);
  writeln;
  for i:= 1 to jml do
  begin
   seek(fb,i-1);
   read(fb,rb);
   if rb.kode_games = kodecari then
       with rb do
       begin
       clrscr;
        ketemu:= true;
        clrscr;
        gotoxy(30,2); write('@_@ DATA DITEMUKAN @_@');
        gotoxy(11,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
        gotoxy(11,6); write('Kode Games            :   ',rb.kode_games);
        gotoxy(11,8); write('Nama Games            :   ',rb.nama_games);
        gotoxy(11,10); write('Banyak Barang         :   ',rb.byk_brg);
        gotoxy(11,12); write('Satuan Barang         :   ',rb.satuan);
        gotoxy(11,14); write('Harga Beli / Satuan   :   ',rb.h_beli:2:0);
        gotoxy(11,16); write('Harga Jual / Satuan   :   ',rb.h_jual:2:0);
        gotoxy(11,18); write('Total Harga Beli      :   ',rb.tot_beli:2:0);
        gotoxy(11,20); write('Total Harga Jual      :   ',rb.tot_jual:2:0);
        gotoxy(54,6); write('==> Edit : '); readln(kode_games);
        gotoxy(54,8); write('==> Edit : '); readln(nama_games);
        gotoxy(54,10); write('==> Edit : '); readln(byk_brg);
        gotoxy(54,12); write('==> Edit : '); readln(satuan);
        gotoxy(54,14); write('==> Edit : '); readln(h_beli);
        gotoxy(54,16); write('==> Edit : '); readln(h_jual);
        tot_beli:= h_beli*byk_brg;
        tot_jual:= h_jual*byk_brg;
        gotoxy(54,18); write('==> Edit : '); writeln(tot_beli:2:0);
        gotoxy(54,20); write('==> Edit : '); writeln(tot_jual:2:0);
        gotoxy(11,23); write('Edit data yang lain [Y/T] ? ');
        readln(lagi);
       end;
   seek(fb,i-1);
   write(fb,rb);
  end;
   if not ketemu then
     begin
       gotoxy(20,8); writeln('Games tersebut tidak ada!!!');
       writeln;
       gotoxy(20,10); write('Edit data yang lain [Y/T] ? ');
       readln(lagi);
     end;
 end;
 close(fb);
end;


Procedure HapusData;
begin
 assign(fb,'brg.dat');
 reset(fb);
 lagi:= 'y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  gotoxy(24,2); write('o_o PROGRAM HAPUS DATA BARANG o_o');
  gotoxy(20,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  jml:= filesize(fb);
  gotoxy(20,6); write('Nomor record yang dihapus (1  -',jml:3,') ? ');
  readln(nourut);
  writeln;
  if (nourut < 1) or (nourut > jml) then
     begin
      gotoxy(20,8); writeln('No. Record ini tidak ada dalam daftar!!!');
      gotoxy(20,10); write('Ada lagi yang akan dicari [Y/T] ? ');
      readln(lagi);
     end
  else
     begin
      for i:= nourut to jml do
      begin
       seek(fb,i-1);
       read(fb,rb);
       with rb do
       begin
       clrscr;
        gotoxy(29,2); write('@_@ DATA DITEMUKAN @_@');
        gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
        gotoxy(23,6); write('Kode Games            : ',rb.kode_games);
        gotoxy(23,8); write('Nama Games            : ',rb.nama_games);
        gotoxy(23,10); write('Banyak Barang         : ',rb.byk_brg);
        gotoxy(23,12); write('Satuan Barang         : ',rb.satuan);
        gotoxy(23,14); write('Harga Beli / Satuan   : ',rb.h_beli:2:0);
        gotoxy(23,16); write('Harga Jual / Satuan   : ',rb.h_jual:2:0);
        gotoxy(23,18); write('Total Harga Beli      : ',rb.tot_beli:2:0);
        gotoxy(23,20); write('Total Harga Jual      : ',rb.tot_jual:2:0);
       end;
      end;
        gotoxy(23,23); write('Yakin data ini akan dihapus [Y/T] ? ');
        readln(ya);
       if upcase(ya) = 'Y' then
          begin
           seek(fb,nourut-1);
           truncate(fb);
          end;
       gotoxy(23,25); write('Ada lagi yang akan dicari [Y/T] ? ');
       readln(lagi);
     end;
  end;
  close(fb);
end;


Procedure PetunjukInputData;
begin
clrscr;
 gotoxy(33,2); write('o_o INPUT DATA o_o');
 gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('1. Input Data Awal digunakan untuk  memasukan sejumlah data barang dimana data');
 gotoxy(5,8); write('yang telah  tersimpan dalam file akan  dihapus dan diganti dengan data yang');
 gotoxy(5,10); write('baru.');
 gotoxy(2,12); write('2. Tambah Data Baru digunakan untuk memasukan sejumlah data barang tetapi data');
 gotoxy(5,14); write('baru yang  dimasukan  tidak  akan menghapus data yang telah tersimpan dalam');
 gotoxy(5,16); write('file.');
 readln;
end;


Procedure PetunjukOutputData;
begin
clrscr;
 gotoxy(32,2); write('o_o OUTPUT DATA o_o');
 gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('1. Lihat  Semua  Data  digunakan  untuk  menampilkan  semua  data  barang yang');
 gotoxy(5,8); write('tersimpan dalam file.');
 gotoxy(2,10); write('2. Lihat  Data  Tertentu  digunakan  untuk  menampilkan salah  satu  data yang');
 gotoxy(5,12); write('tersimpan dalam file.');
 readln;
end;


Procedure PetunjukEditData;
begin
clrscr;
 gotoxy(33,2); write('o_o _''EDIT DATA o_o');
 gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('1. Edit Data Jumlah Barang  digunakan  untuk  mengedit salah  satu  data  yang');
 gotoxy(5,8); write('tersimpan dalam file baik data penambahan barang  maupun  data  pengurangan');
 gotoxy(5,10); write('barang.');
 gotoxy(2,12); write('2. Edit Data Barang digunakan untuk mengedit semua  data barang yang tersimpan');
 gotoxy(5,14); write('dalam file.');
 readln;
end;


Procedure PetunjukHapusData;
begin
clrscr;
 gotoxy(33,2); write('o_o HAPUS DATA o_o');
 gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('1. Hapus Data  digunakan  untuk menghapus  salah satu, sejumlah  maupun  semua');
 gotoxy(5,8); write('data barang yang tersimpan dalam file.');
 readln;
end;


Procedure TujuanPembuatan;
begin
clrscr;
 gotoxy(21,2); write('o_o TUJUAN PEMBUATAN PROGRAM APLIKASI o_o');
 gotoxy(21,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('Tujuan Pembuatan Program  aplikasi  ini adalah untuk memenuhi salah satu tugas');
 gotoxy(2,8); write('akhir Semester II Mata Kuliah Bahasa Pemrograman Lanjutan Satu(PASCAL).');
 gotoxy(2,10); write('Meskipun  dalam  pembuatan  Program Aplikasi  ini banyak  memiliki  kekurangan ');
 gotoxy(2,12); write('tetapi  kami  tetap  berharap  mudah-mudahan  semua  ini  dapat bermanfaat dan');
 gotoxy(2,14); write('menjadi ibadat yang diridhoi oleh Allah SWT.');
 readln;
end;


Procedure PembuatProgramAplikasi;
begin
clrscr;
 gotoxy(25,2); write('o_o PROGRAM INI DIBUAT OLEH o_o');
 gotoxy(20,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(20,6); write('Kelompok     : II (Dua)');
 gotoxy(20,8); write('Ketua        : ');
 gotoxy(35,8); write('Topan Setiawan');
 gotoxy(20,10); write('Anggota      : ');
 gotoxy(35,10); write('- Helda Oktavia');
 gotoxy(35,12); write('- Susi Sulawati');
 gotoxy(35,14); write('- Yudi Nugraha');
 gotoxy(35,16); write('- Yuliana Dwi Eftiana');
 gotoxy(20,18); write('Kelas        : Manajemen Informatika/A');
 gotoxy(20,20); write('Semester     : II (Dua)');
 gotoxy(21,23); write('Akademi Manajemen Informatika dan Komputer');
 readln;
end;



Procedure Pesan;
begin
clrscr;
 gotoxy(35,2); write('o_o PESAN o_o');
 gotoxy(28,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
 gotoxy(2,6); write('Yakinlah  bahwa  dibalik  kesulitan  itu  terdapat  kemudahan  dan  jadikanlah');
 gotoxy(2,8); write('kesulitan itu  sebagai  ladang  amal  dan ujian, agar  kita selalu mendekatkan');
 gotoxy(2,10); write('diri, meminta  pertolongan  dan  perlindungan  kepada  Allah  SWT.');
 readln;
end;


begin
TextBackground(LightCyan);
TextColor(Yellow);
clrscr;
 Tampil;
 while true do
 begin
 TextBackground(LightMagenta);
 TextColor(LightCyan);
 clrscr;
  gotoxy(34,2); write('^_^ MENU UTAMA ^_^');
  gotoxy(26,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  gotoxy(5,6);  write('1. Input Data');
  gotoxy(5,8);  write('2. Output Data');
  gotoxy(5,10); write('3. Edit Data');
  gotoxy(5,12); write('4. Hapus Data');
  gotoxy(5,14); write('5. Help');
  gotoxy(5,16); write('6. Exit');
  pilih := 0;
  while (pilih < 1) or (pilih > 6 ) do
  begin
   gotoxy(5,18); write('Masukan pilihan : ');
   readln(pilih);
   if (pilih < 1) or (pilih > 6) then
      write(^G);
      gotoxy(5,20); write('Pilihan salah silahkan ulangi!!!!');
   if pilih = 1 then
      begin
      TextBackground(LightRed);
      TextColor(White);
      clrscr;
       gotoxy(28,2); write('^_^ SUBMENU INPUT DATA ^_^');
       gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
       gotoxy(5,6); write('1. Input Data Awal');
       gotoxy(5,8); write('2. Tambah Data');
       gotoxy(5,10); write('3. Keluar');
       pilih:= 0;
       while (pilih < 1) or (pilih > 3) do
       begin
        gotoxy(5,12); write('Masukan Pilihan : ');
        readln(pilih);
        if (pilih < 1) or (pilih > 3) then
           write (^G);
           gotoxy(5,14); write('Pilihan Salah Silahkan ulangi!!!!');
        if pilih = 1 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            InputDataAwal;
           end
        else
        if pilih = 2 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            TambahData;
           end
        else
        if pilih = 3 then
           exit;
       end;
      end
   else
   if pilih = 2 then
      begin
      TextBackground(LightRed);
      TextColor(White);
      clrscr;
       gotoxy(30,2); write('^_^ SUBMENU OUTPUT DATA ^_^');
       gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
       gotoxy(5,6); write('1. Lihat Semua Data');
       gotoxy(5,8); write('2. Lihat Data Tertentu');
       gotoxy(5,10); write('3. Keluar');
       pilih:= 0;
       while (pilih < 1) or (pilih > 3) do
       begin
        gotoxy(5,12); write('Masukan Pilihan : ');
        readln(pilih);
        if (pilih < 1) or (pilih > 3) then
           write (^G);
           gotoxy(5,14); write('Pilihan salah silahkan ulangi!!!!');
        if pilih = 1 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            LihatSemuaData;
           end
        else
        if pilih = 2 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            LihatDataTertentu;
           end
        else
        if pilih = 3 then
           exit;
       end;
      end
   else
   if pilih = 3 then
      begin
      TextBackground(LightRed);
      TextColor(White);
      clrscr;
       gotoxy(31,2); write('^_^ SUBMENU EDIT DATA ^_^');
       gotoxy(23,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
       gotoxy(5,6); write('1. Edit Data Jumlah Barang');
       gotoxy(5,8); write('2. Edit Data Barang');
       gotoxy(5,10); write('3. Keluar');
       pilih:= 0;
       while (pilih < 1) or (pilih > 3) do
       begin
        gotoxy(5,12); write('Masukan Pilihan : ');
        readln(pilih);
        if (pilih < 1) or (pilih > 3) then
           write (^G);
           gotoxy(5,14); write('Pilihan Salah Silahkan ulangi!!!!');
        if pilih = 1 then
           begin
           TextBackground(LightBlue);
           TextColor(Yellow);
           clrscr;
            gotoxy(24,2); write('^_^ SUBMENU EDIT JUMLAH BARANG ^_^');
            gotoxy(24,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
            gotoxy(5,6); write('1. Penambahan Barang');
            gotoxy(5,8); write('2. Pengurangan Barang');
            gotoxy(5,10); write('3. Keluar');
            pilih:= 0;
            while (pilih < 1) or (pilih > 3) do
            begin
             gotoxy(5,12); write('Masukan Pilihan : ');
             readln(pilih);
             if (pilih < 1) or (pilih > 3) then
             write (^G);
             gotoxy(5,14); write('Pilihan Salah Silahkan ulangi!!!!');
             if pilih = 1 then
                begin
                 TextBackground(LightMagenta);
                 TextColor(LightCyan);
                 PenambahanBarang;
                end
             else
             if pilih = 2 then
                begin
                 TextBackground(LightMagenta);
                 TextColor(LightCyan);
                 PenguranganBarang;
                end
             else
             if pilih = 3 then
                exit;
            end;
           end
        else
        if pilih = 2 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            EditDataBarang;
           end
        else
        if pilih = 3 then
           exit;
       end;
      end
   else
   if pilih = 4 then
      begin
       TextBackground(LightBlue);
       TextColor(Yellow);
       HapusData;
      end
   else
   if pilih = 5 then
      begin
      TextBackground(LightRed);
      TextColor(White);
      clrscr;
       gotoxy(32,2); write('^_^ SUBMENU HELP ^_^');
       gotoxy(25,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
       gotoxy(5,6); write('1. Petunjuk Penggunaan');
       gotoxy(5,8); write('2. Tujuan Pembuatan Program Aplikasi');
       gotoxy(5,10); write('3. Pembuat Program Aplikasi');
       gotoxy(5,12); write('4. Pesan');
       gotoxy(5,14); write('5. Keluar');
       pilih:= 0;
       while (pilih < 1) or (pilih > 5) do
       begin
        gotoxy(5,16); write('Masukan Pilihan : ');
        readln(pilih);
        if (pilih < 1) or (pilih > 5) then

           gotoxy(5,18); write('Pilihan Salah Silahkan ulangi!!!!');
        if pilih = 1 then
           begin
           TextBackground(LightBlue);
           TextColor(Yellow);
           clrscr;
            gotoxy(24,2); write('^_^ SUBMENU PETUNJUK PENGGUNAAN ^_^');
            gotoxy(24,4); write('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
            gotoxy(5,6); write('1. Input Data');
            gotoxy(5,8); write('2. OutPut Data');
            gotoxy(5,10); write('3. Edit Data');
            gotoxy(5,12); write('4. Hapus Data');
            gotoxy(5,14); write('5. Keluar');
            pilih:= 0;
            while (pilih < 1) or (pilih > 5) do
            begin
             gotoxy(5,16); write('Masukan Pilihan : ');
             readln(pilih);
             if (pilih < 1) or (pilih > 5) then
                write (^G);
                gotoxy(5,18); write('Pilihan Salah Silahkan ulangi!!!!');
             if pilih = 1 then
                begin
                 TextBackground(LightGreen);
                 TextColor(White);
                 PetunjukInputData;
                end
             else
             if pilih = 2 then
                begin
                 TextBackground(LightGreen);
                 TextColor(White);
                 PetunjukOutputData;
                end
             else
             if pilih = 3 then
                begin
                 TextBackground(LightGreen);
                 TextColor(White);
                 PetunjukEditData;
                end
             else
             if pilih = 4 then
                begin
                 TextBackground(LightGreen);
                 TextColor(White);
                 PetunjukHapusData;
                end
             else
             if pilih = 5 then
                exit;
            end;
           end
        else
        if pilih = 2 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            TujuanPembuatan;
           end
        else
        if pilih = 3 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            PembuatProgramAplikasi;
           end
        else
        if pilih = 4 then
           begin
            TextBackground(LightBlue);
            TextColor(Yellow);
            Pesan;
           end
        else
        if pilih = 5 then
           exit;
       end;
      end
   else
   if pilih = 6 then
      exit;
  end;
 end;
end. 

Sekian atikel tentang Source Code Stok Barang dalam Pascal, semoga bermanfaat.

Source Code CRUD dalam Pascal

Source Code CRUD dalam Pascal - Setelah membahas CRUD dalam pascal tentang Data Mahasiswa, maka jadilah suatu Sistem Informasi Data Mahasiswa dari source code yang terpisah.

Menyatukan kode program dalam pascal menggunakan perintah Procedure, berikut program lengkap Data Mahasiswa dalam Software House kali ini.

Berikut ini source code CRUD, program berikut menggunakan compiler dev-pascal :

uses crt;
var
   pilih: byte;

procedure Input_data;
type
 mhs=record
  npm: string[7];
  nama: string[25];
  nilai: real;
 end;

var
 fmhs: file of mhs;
 rmhs: mhs;
 lagi: char;

begin
 assign(fmhs,'mhs.dat');
 rewrite(fmhs);
 lagi:='y';
 while upcase(lagi)='Y' do
 begin
 clrscr;
  with rmhs do
  begin
   gotoxy(5,6)  ;write('Nomor Pokok Mahasiswa : ');
   gotoxy(5,8)  ;write('Nama Mahasiswa        : ');
   gotoxy(5,10) ;write('Nilai Mahasiswa       : ');
   gotoxy(30,6) ;readln(npm);
   gotoxy(30,8) ;readln(nama);
   gotoxy(30,10);readln(nilai);
  end;
   write(fmhs,rmhs);
   gotoxy(5,15) ;write('Masukan data lagi [Y/T] ? ');
   readln(lagi);
 end;
   close(fmhs);
end;



procedure Tambah_data;
type
 mhs=record
  npm: string[7];
  nama: string[25];
  nilai: real;
 end;

var
 fmhs: file of mhs;
 rmhs: mhs;
 lagi: char;

begin
 assign(fmhs,'mhs.dat');
 {$I-}
 reset(fmhs);
 {$I+};
 if ioresult<>0 then rewrite(fmhs);
    seek(fmhs,filesize(fmhs));
    lagi:='y';
    while upcase(lagi)='Y' do
    begin
    clrscr;
     with rmhs do
     begin
      gotoxy(5,6)  ;write('Nomor Pokok Mahasiswa : ');
      gotoxy(5,8)  ;write('Nama Mahasiswa        : ');
      gotoxy(5,10) ;write('Nilai Mahasiswa       : ');
      gotoxy(30,6) ;readln(npm);
      gotoxy(30,8) ;readln(nama);
      gotoxy(30,10);readln(nilai);
     end;
    write(fmhs,rmhs);
    gotoxy(5,15) ;write('Masukan data lagi [Y/T] ? ');
    readln(lagi);
    end;
    close(fmhs);
end;



procedure Lihat_data;
type
 mhs=record
  npm: string[7];
  nama: string[25];
  nilai: real;
 end;

var
 fmhs: file of mhs;
 rmhs: mhs;

begin
 assign(fmhs,'mhs.dat');
 reset(fmhs);
 clrscr;
 writeln('-------------------------------------------------------------');
 writeln('NPM                    nama mahasiswa                   nilai');
 writeln('-------------------------------------------------------------');
  while not eof (fmhs) do
  begin
   read(fmhs,rmhs);
   with rmhs do
      writeln(npm:7,nama:25,nilai:29:0);
  end;
   writeln('-------------------------------------------------------------');
   close(fmhs);
   readln;
end;



procedure Cari_data;
type
 mhs=record
  npm: string[7];
  nama: string[25];
  nilai: real;
end;

var
 fmhs: file of mhs;
 rmhs: mhs;
 i,jml: integer;
 nocari: string[7];
 lagi: char;
 ketemu: boolean;

begin
 assign(fmhs,'mhs.dat');
 reset(fmhs);
 jml:= filesize(fmhs);
 lagi:='y';
  while upcase(lagi)='Y' do
 begin
 clrscr;
  ketemu:= false;
  write('Masukan npm yang dicari : ');
  readln(nocari);
  writeln;
   for i:= 1 to jml do
   begin
    seek(fmhs,i-1);
    read(fmhs,rmhs);
    if rmhs.npm=nocari then
       begin
        ketemu:= true;
        writeln('Nama Mahasiswa  : ',rmhs.nama);
        writeln('Nilai Mahasiswa : ',rmhs.nilai:2:0);
       end;
   end;
    if not ketemu then
       writeln('Tidak nomor tersebut!!!');
       writeln;
       write('cari data lagi [Y/T] ? ');
       readln(lagi);
 end;
  close(fmhs);
end;



procedure Koreksi_data;
type
 mhs=record
  npm: string[7];
  nama: string[25];
  nilai: real;
end;

var
 fmhs: file of mhs;
 rmhs: mhs;
 i,jml: integer;
 nocari: string[7];
 ketemu: boolean;
 lagi: char;

begin
 assign(fmhs,'mhs.dat');
 reset(fmhs);
 jml:= filesize(fmhs);
 lagi:='Y';
  while upcase(lagi)='Y' do
 begin
  ketemu:= false;
  clrscr;
   write('Nomor pokok mahasiswa yang dicari : '); readln(nocari);
   writeln;
    for i:= 1 to jml do
    begin
     seek(fmhs,i-1);
     read(fmhs,rmhs);
     if rmhs.npm=nocari then
        begin
         with rmhs do
         begin
          ketemu:= true;
          writeln('Nomor Pokok Mahasiswa  : ',npm:7);
          write('Koreksinya                 : '); readln(npm);
          writeln('Nama Mahasiswa         : ',nama);
          write('Koreksinya                 : '); readln(nama);
          writeln('Nilai Mahasiswa        : ',nilai:2:0);
          write('Koreksinya                 : '); readln(nilai);
         end;
        end;
         seek(fmhs,i-1);
         write(fmhs,rmhs);
    end;
    if not ketemu then
       writeln('Tidak nomor tersebut!!!');
       writeln;
       write('ada lagi yang akan dikoreksi [Y/T] ? ');
       readln(lagi);
 end;
  close(fmhs);
end;



procedure Hapus_data;
type
 mhs = record
  npm: string[7];
  nama: string[25];
  nilai: real;
end;

var
 fmhs: file of mhs;
 rmhs: mhs;
 nourut,i,jml: integer;
 nocari: string[7];
 ketemu: boolean;
 lagi,ya: char;

begin
 assign(fmhs,'mhs.dat');
 reset(fmhs);
 lagi:= 'Y';
  while upcase(lagi)='Y' do
 begin
 clrscr;
  jml:= filesize(fmhs);
  write('Nomor record yang dihapus (1  -',jml:3,') ? ');
  readln(nourut);
  writeln;
  if (nourut < 1) or (nourut > jml) then
     writeln('Tidak ada no record ini !!!')
  else
     begin
      for i:= nourut to jml do
      begin
       seek(fmhs,i-1);
       read(fmhs,rmhs);
       with rmhs do
       begin
        writeln('Nama Mahasiswa   : ',rmhs.nama);
        writeln('Nilai Mahasiswa  : ',rmhs.nilai:6:2);
       end;
      end;
       writeln;
       write('Yakin data ini akan dihapus [Y/T] ? '); readln(ya);
       if upcase(ya) = 'Y' then
          begin
           seek(fmhs,nourut-1);
           truncate(fmhs);
          end;
     end;
      writeln;
      write('ada lagi yang akan dicari [Y/T] ? '); readln(lagi);
 end;
  close(fmhs);
end;




begin
 while true do
 begin
 clrscr;
  gotoxy(20,2); write('**MENU UTAMA**');
  gotoxy(5,5); write('1. Input data awal');
  gotoxy(5,7); write('2. Tambah data');
  gotoxy(5,9); write('3. Lihat semua data');
  gotoxy(5,11); write('4. Lihat data tertentu');
  gotoxy(5,13); write('5. Edit data');
  gotoxy(5,15); write('6. Hapus data');
  gotoxy(5,17); write('7. Selesai');
  pilih := 0;
   while (pilih < 1) or (pilih > 7 ) do
  begin
   gotoxy(5,20); write('Masukan pilihan : ');
   readln(pilih);
   if (pilih < 1) or (pilih > 7) then
      write (^G);
   case pilih of
    1: Input_data;
    2: Tambah_data;
    3: begin
        lihat_data;
        writeln;
        write('Tekan enter untuk kembali ke MENU');
         readln;
       end;
    4: Cari_data;
    5: Koreksi_data;
    6: Hapus_data;
    7: Exit;
  end;
 end;
end;
end. 

Sekian artikel tentang Source Code CRUD dalam Pascal, semoga bermanfaat.

Program Point Of Sale AhadPOS

Program Point Of Sale AhadPOS - AhadPOS merupakan Point Of Sale kasir atau UKM berbasis Web yang berlisensi Open Source.

AhadPOS ini program POS yang sangat simple dan efesien namun dari segi interface butuh banyak pengembangan dan meningkatkan  UX (user experience) dalam tampilan dan manajemen agar cukup mudah digunakan.

Silahkan Download Ahad POS Versi Terbaru via Github

AhadPOS ini di buat oleh Sufehmi AhadPOS via Wordpress sebagai pengelola personal blog aplikasi AhadPOS, silahkan kunjungi untuk melihat dokumentasi lengkap penggunaan software.

Sekian artikel tentang Program Point Of Sale AhadPOS, semoga bermanfaat.

Program Point Of Sale Restoran Gratis

Program Point Of Sale Restoran Gratis - Aplikasi POS untuk bisnis restoran dibagikan secara gratis yaitu menggunakan Floreant OS.

Floreant POS menyediakan aplikasi berbasis java yang bisa digunakan touch sreen platform yang menawarkan tampilan user interface simple dan ditujukan untuk kafe minuman modern dan restoran kecil yang ingin menggunakan sistem.

Floreant POS memiliki dokumentasi yang sangat lengkap untuk disesuaikan dengan bisnis yang kita kelola, untuk konfigurasi custom Floreant POS silahkan hubungi Admin Materi-IT.

Aplikasi POS ini memiliki beberapa fitur yaitu sebagai berikut :

1. Food server Touch screen activities
2. Manager Facilities
3. Kitchen Print
4. Backoffice
5. Cash Terminals
6. MIS Reports
7. Robust Technology

Untuk login secara default inputkan Secret Key "1111".

Silahkan kunjungi link berikut Download Floreant POS New Version

Sekian artikel tentang Program Point Of Sale Restoran Gratis, semoga bermanfaat.

Program Point Of Sale Berbasis Web Gratis

Program Point Of Sale Berbasis Web Gratis - Program Point Of Sale (POS) biasa digunakan untuk bisnis retail, pertokoan, toko baju, kasir, manajemen stok barang, dll.

Untuk memulai usaha baru, apa salahnya mencoba dengan yang gratis (open source), dengan sedikit custom menyesuaikan bisnis yang kita jalani, untuk maintenance dan custom menyesuaikan bisnis bisa hubungi Admin Materi-IT.

Program POS kali ini bernama PHP Point Of Sale, yang dibuat oleh PHP Kode.

Silahkan download pada link berikut ini PHP POS Berbasis Web dengan Framework Codeigniter

Setelah selesai di download, buat database di PhpMyAdmin dengan nama database pos, lalu lakukan import database pada folder database yang berformat .SQL.

Bila ingin lebih rinci silahkan kunjungi link berikut Cara Import Database MySQL PhpMyAdmin.

Setelah itu akses http://localhost/POS/ dan lakukan login seperti gambar di bawah ini :

Sekian artikel tentang Program Point Of Sale Berbasis Web Gratis, semoga bermanfaat.

Aplikasi Sistem Pendukung Keputusan AHP

Aplikasi Sistem Pendukung Keputusan AHP - Referensi Aplikasi SPK Sistem Pendukung Keputusan dengan menggunakan metode AHP.

Aplikasi Sampel Sistem Pendukung Keputusan berbasis Web dengan menggunakan metode AHP, seperti yang kita tahu AHP merupakan salah satu metode untuk SPK, berikut penjelasannya.

Sistem Pendukung Keputusan (SPK) merupakan sistem informasi berbasis yang memberikan analisa dan dapat membantu manajer untuk tetap fokus di masa datang untuk pengambilan keputusan.

SPK bertujuan untuk sebagai alternatif dari informasi yang kita akan kaji digunakan untuk bahan pertimbangan seorang manajer untuk memutuskan suatu kebijakan dan keptusuan yang terbaik.

Analitycal Hierarchy Process (AHP) dikembangkan oleh Dr. Thomas L. Saaty, seorang ahli matematika dari Universitas Pittsburg, Amerika Serikat pada awal tahun 1970-an.

AHP adalah  model pengambilan keputusan yang dapat membantu kerangka berpikir manusia seperti apa, metode AHP akan membentuk skor secara numerik untuk menyusun rangking dari setiap alternatif keputusan dengan kriteria pembuat keputusan.

Jadi, bisa di ambil kesimpulan Metode AHP pada intinya mempunyai kemampuan untuk memecahkan suatu masalah dengan multi objektif dan multi kriteria yang didasarkan pada perbandingan preferensi dari setiap elemen dalam suatu kumpulan hierarki, sehingga menjadi model dari sistem pendukung pengambil keputusan yang mau menerima informasi dengan baik (komprehensif).

Berikut sekilas tampilan Demo Aplikasi Pendukung Keputusan AHP.

Data Kriteria

Data Alternatif

Nilai Perbandingan Alternatif

Hasil Keputusan

Sekian artikel tentang Aplikasi Sistem Pendukung Keputusan AHP, semoga bermanfaat.

Aplikasi Kamus Jawa Indonesia

Aplikasi Kamus Jawa Indonesia - Program Kamus Bahasa Jawa yang dibagikan secara gratis Freeware di buat menggunakan Bahasa Pemrograman Visual Basic dengan Database MS.Access.

Kamus Jawa Indonesia ini sangat simple, ringan, cepat dan ukurannya pun sangat kecil, bisa dimasukan ke dalam Flashdisk tanpa membebani memori.

Kamus ini buatan dari Feriawan Agung Nugroho, yang dibagikan sebagai pembelajaran bahasa jawa untuk indonesia, bertujuan untuk mengenalkan bahasa jawa kepada seluruh masyarakat indonesia.

Program Kamus Jawa ini dilengkapi fitur :

• Kamus Data Jawa
• Database MS. Access
• Pencarian Kata
• Menambahkan Kamus Data Jawa
• Mengedit Kamus Data Jawa
• Menghapus Kamus Data Jawa
• Menambahkan Arti dari Kamus Data Jawa
• Menu Help

Minimum System Requirement : 

1. Windows 9x/ME/NT/Xp/2003 dan Vista
2. Pentium II dengan 32 MB RAM

Sekian artikel tentang Aplikasi Kamus Jawa Indonesia, semoga bermanfaat.

Program Sistem Pakar Diagnosa Penyakit THT Java Netbeans

Program Sistem Pakar Diagnosa Penyakit THT Java Netbeans - Software House kali ini membahas tentang Program Diagnosa Penyakit THT yang menggunakan Tools Java Netbeans dengan merancang suatu Sistem Pakar (Expert System).

Sistem Pakar bertujuan untuk menggantikan seorang Pakar dengan suatu sistem agar Pengetahuan yang dimiliki seorang Pakar setidaknya mirip dengan Sistem Pakar.

Sedikit punya cerita program ini di buat ketika ada project mata kuliah Pengantar Intelegensi Buatan (PIB), seperti biasa ane sekelompok sama si doi.

Berikut Spesifikasi Program Sistem Pakar Diagnosa Penyakit THT Java Netbeans.

Kelebihan :

1. Basis Pengetahuan (Knowledge Base) 20 Penyakit THT
2. Memiliki Detail Informasi Penyakit THT yang Lengkap
3. Terdapat Definisi, Gejala, Penyebab, Cara Pengobatan dan Perawatan
4. Daftar Pasien yang Terkoneksi Database
5. Rekam Medis Penyakit THT
6. History Medis untuk Melihat Penyakit apa saja yang Terdeteksi Pasien
7. Adanya Tutorial Menu yang Simpel
8. GUI yang menarik

Kekurangan :

1. Hasil Diagnosa banyak Penyakit yang Tidak Terdeteksi dan Kurang Spesifik
2. Informasi Penyakit didapatkan dari Sumber Internet bukan dari Dokter Pakar THT (Langsung)
3. Tidak Terdapatnya Kontrol Admin Sehingga Menyulitkan untuk Penambahan (Knowledge Base)
4. Harus Merubah Source Code bila ada Penyakit THT yang Baru

Berikut ini Program Sistem Pakar Diagnosa Penyakit THT Java Netbeans.

Menu Login

Menu Sistem Pakar THT

Menu Detail Penyakit

Menu Informasi Penyakit

Menu Daftar Pasien

Menu Rekam Medis

Menu History Medis

Menu Tutorial

Notes : Menu Login, Username : admin-mey, Password : THT.

Untuk koneksi database, Username : root, Password : root.

Library yang digunakan :

Dalam merancang program ini ane mengerjakan dalam sekitar 2 minggu, pada awalnya tampilannya sangat sederhana lalu dosen PIB menyarankan untuk merevisi Program Sistem Pakar ini, pada akhirnya ane tambahkan saja menu yang lebih enak di lihat, tampilan GUI yang segar, yang terakhir menambahkan database dan informasi penyakit yang lengkap.

Berikut Link Download Sistem Pakar Diagnosa Penyakit THT Java Netbeans :

Via TusFile

Database Sistem Pakar Diagnosa Penyakit THT

Program Sistem Pakar Diagnosa Penyakit THT

Via 4Shared

Database Sistem Pakar Diagnosa Penyakit THT

Program Sistem Pakar Diagnosa Penyakit THT

Library JCalendar
Download Library JCalendar (Google Drive)

Sekian Software House tentang Program Sistem Pakar Diagnosa Penyakit THT Java Netbeans, semoga bermanfaat sebagai program referensi untuk melanjutkan Program Sistem Pakar Penyakit THT.