SISTEM INFORMASI AKADEMIK (SIA)

SISTEM INFORMASI AKADEMIK (SIA)

Analisis Kebutuhan Program pendidikan pada perguruan tinggi dewasa ini telah memulai pemanfaatan teknologi informasi dengan menyediakan sistem informasi akademis (SIA) yang ditujukan kepada dosen, mahasiswa, dan tata usaha program tersebut.
SIA tersebut, walau sudah banyak bermanfaat, masih dapat banyak dikembangkan lebih lanjut.
Modul yang sudah disediakan dalam Sistem Informasi Akademis secara umum dapat dilihat sekilas sebagai berikut:
a. Sistem Informasi Akademis Bagi Mahasiswa
Dalam sistem informasi akademis bagi mahasiswa ini mahasiswa dapat melakukan akses pada modul dan melakukan pengolahan data :
- Nilai Hasil Studi
- Pemeriksaan Jadwal Kuliah
- Pendaftaran Mata Kuliah
- Pengisian Data Pribadi (Curriculum Vitae)
- Penilaian Kinerja Dosen selama proses belajar mengajar
- Menyampaikan Kritik dan Saran Bagi Dosen/Pihak Jurusan

b. Sistem Informasi Akademis Bagi Dosen
Dalam sistem informasi akademis bagi dosen, terdapat beberapa proses yang dapat dilakukan antara lain :
- Memasukkan data nilai mahasiswa sesuai mata kuliah yang diajar
- Melihat Hasil Penilaian Mahasiswa terhadap Kinerja Dosen yang bersangkutan
- Pengisian data Pribadi
- Melihat Resume Hasil studi mahasiswa berdasar mata kuliah atau bidang studi yang diajarkan
- Memasukkan data hasil penelitian ataupun prestasi dosen secara khusus
- Memasukkan jadwal ketersediaan waktu untuk mengajar

c. Sistem Informasi Akademis Bagi Tata Usaha Dalam sistem informasi akademis bagi tata usaha, tata usaha dapat melakukan beberapa proses, yaitu :
- Memasukkan data nilai mahasiswa
- Mengubah data nilai mahasiswa dari semester yang sudah lewat
- Melihat Hasil Penilaian Mahasiswa terhadap Kinerja Dosen dan Kinerja Pegawai
- Membuat jadwal kuliah dan menentukan masa pendaftaran kuliah

d. Sistem Informasi Akademis Bagi Dekan/Rektorat Untuk dekan / retorat, dapat melihat semua data, antara lain :
- Melihat data perbandingan angkatan.
- Melihat detail nilai untuk semua mata kuliah.
- Melihat data presensi dosen dan mahasiswa.
- Melihat data quality assurance.
- Melihat data keuangan

Untuk selanjutnya sistem informasi akademis sendiri dapat dikembangkan lebih jauh meliputi : ?
menjamin Quality Assurance dari kinerja dosen maupun pegawai, ?
mengolah informasi keuangan, baik masukan dan keluaran, ?
membantu Administrasi, khususnya dalam menuju Paperless Document, ?
mengolah informasi sumber daya manusia maupun inventaris, ?
mengakses pustaka online (untuk diperjelas pada bagian terpisah), dan ?
membantu pembelajaran jarak jauh (untuk diperjelas pada bagian terpisah).

==========

Sistem Akademik Sekolah tentang perhitungan nilai siswa dengan report

Program komputer Akademik mampu memberikan kecepatan pelayanan akademik, pengolahan data yang akurat, pencarian informasi seketika dan dokumentasi semua data akademik dalam database. Juga mendukung multiuser (LAN) sehingga data bisa digunakan bersama.
- Pengelolaan Daftar Induk Siswa & Guru.
- Fasilitas filter yang memudahkan untuk seleksi data.
- Pengelolaan Program/Kelas dan Mata Pelajaran secara mudah
- Pencatatan Data Absensi dan Nilai Akademik Siswa.
- Pencatatan Pembayaran SPP dan Pembayaran Lain-lain.
- Mencetak daftar Siswa, Daftar Guru, Pengelompokan Kelas dan Siswa dengan Multi Seleksi.
- Mencetak Raport Siswa.

Aplikasi menyediakan form-form isian untuk data-data siswa, guru, kelas, hingga mata pelajaran. Oleh karena itu, bagian ini merupakan bagian utama dalam program. Sementara Laporan menghasilkan output dari seluruh aktivitas siswa. Mulai dari rapor per semester, absensi siswa, daftar guru, dan siswa bisa ditampilkannya. Hasilnya juga bisa dicetak ke dalam printer. Sebelum menggunakan program ini, terlebih dahulu harus dipersiapkan data seluruh siswa dan pengajar yang ada dalam sekolah. Selain siswa dan pengajar, penunjukan wali kelas, kepala sekolah, hingga penyusunan mata pelajaran juga bisa di-input langsung ke dalam program ini. Kedelapan tab tersebut adalah, "Biaya lain-lain" untuk menentukan biaya-biaya yang harus dibebankan ke siswa,
"Program" untuk penentuan paket mata pelajaran yang harus diberikan ke siswa, "Kelas", "Materi pelajaran", "Biaya SPP", "Maintenance" untuk proses backup, "Nama sekolah", dan "File Pendukung".

DAFTAR PERTANYAAN PADA SISTEM INFORMASI PERPUSTAKAAN :

DAFTAR PERTANYAAN PADA SISTEM INFORMASI PERPUSTAKAAN :

1. Bagaimana cara agar seseorang dapat meminjam buku pada perpustakan ini ?
2. Syarat apa saja yang harus dipenuhi agar bisa mejadi anggota perpustakaan ?
3. Berapa lama proses yang dibutuhkan untuk membuat semacam kartu anggota ?
4. Dalam pembuatan tersebut menggunakan peralatan dan bahan apa saja ?
5. Dalam perpustakaan ini ada berapa total keseluruhan buku (judul) yang dimiliki ?
6. Untuk mengetahui berapa total koleksi buku yang ada dan juga daftar dari buku-buku yang ada, dapat diperoleh dari mana ?
7. Ada berapa tenaga (petugas) yang bertugas melayani para anggota atau pengunjung di perpustakaan ini ?
8. Apa tugas dari masing-masing petugas tesebut ?
9. Perpustakaan ini dalam pelayanannya kepada publik, menerapkan sistem pelayanan yang bagaimana, secara terbuka atau tertutup ?
10. Sesuai dengan sistem pelayanan yang digunakan, bagaimana prosedur peminjaman buku dan juga pengembalian buku tersebut ?
11. Bila seorang pengunjung masih mencari-cari buku yang dibutuhkan atau kesulitan dalam mencari buku yang dikehendaki, apakah ada semacam fasilitas atau bantuan yang dapat digunakan untuk mencari dan menemukan buku yang dicari sesuai dengan sistem yang dipakai dalam perpustakaan ini?
12. Apakah ada batasan-batasan khusus seperti maksimal jumlah buku yang boleh dipinjam, buku-buku yang boleh dipinjam dan buku-buku yang hanya boleh dibaca di tempat, serta berapa hari maksimal batas peminjaman suatu buku.
13. Darimana seorang petugas dapat mengetahui bahwa telah terjadi pelanggaran batas / ketentuan yang telah ditetapkan pada hal-hal tersebut di atas semisal seperti telah melebihi batas akhir peminjaman ?
14. Hal-hal tesebut di atas, apakah secara otomatis dapat diketahui atau hanya secara manual berdasarkan pengecekan ulang petugas ?
15. Hal apa atau tindakan apa yang digunakan untuk mencegah ataupun mengatasi bila telah terjadi seperti sesuatu di atas ?
16. Bagaimana atau berdasarkan apa pengelompokkan buku-buku yang ada dalam ruang perpustakaan ini ?
17. Kaitannya dengan standar kepustakaan, sistem klasifikasi apa yang di pakai perpustakaan ini dalam mengkelompokkan buku-buku yang ada, "Sistem Dewey Decimal" atau "Sistem Library of Congress" ?
18. Dalam pencatatan buku-buku yang ada atau koleksi yang dimiliki, apakah setiap buku ada catatannya semua ?
19. Apakah ada semacam daftar, indeks atau semacam daftar katalog atau bahkan semacam referensi dari masing-masing buku yang telah ada di perpustakaan ini ?
20. Kemudian daftar semuanya itu di buat dalam bentuk apa ?
21. Dan daftar yang telah ada itu apakah bersifat tertutup atau terbuka ?
22. Jadi apabila seorang pengunjung ingin mencari suatu buku, dapat langsung mencari sendiri atau harus melalui petugas yang ada ?
23. Di perpustakaan ini, selain menyediakan buku-buku, apakah ada bahan informasi, media informasi lain seperti jurnal, artikel-artikel atau literatur lainnya ?
24. Bagaimana bila terjadi penambahan buku baru (koleksi baru), apakah informasi tersebut dapat langsung diketahui oleh anggota atau pengunjung, dan juga dengan sistem yang ada akankah dapat langsung tertangani ?
25. Selama ini, dengan sistem pelayanan yang telah diterapkan dan berjalan dan dengan jumlah tenaga yang ada, apakah bisa melayani para anggota atau pengunjung secara optimal, terutama di saat banyak pengunjung di perpustakaan ini ?


Disusun Oleh :
No. Nama NIM
1. Sri Mulyo Agustina 12067780
2. Ardian Widia 18082841
3. Indarti 18082842
4. NurHayati 18082843
5. Hero Aryanto 18082845
6. Uranian Surya 18082846
7. Leo Agung 18082847
8. Laurentius Heri 18082848
9. Angga Susilo 18082849
10. Suparman 18082850
11. Harni 18082852
12. Nugroho 18082854
13. Nunik Nur 18082855

Gedung Baru BSI Yogyakarta

Tahun 2010 ini, Akademi BSI Yogyakarta akan menempati lokasi baru yaitu di Ambarketawang, Gamping, Sleman.Kurang lebih 300m dari pertigaan antara Ring Road dan Jalan Wates.Sampai saat ini tahap pembangunan gedung baru tersebut sudah dapat dikatakan mencapai tahap akhir. Berikut ini adalah foto-foto dari gedung baru tersebut.

Di ambil dari koleksi fotonya dosen kita yang belum lama menempuh kehidupan baru ... 

(Bu Anik, Selamat ya ..+ minta ijin untuk co-pas ...!)

CATATAN:

BTW, Gedung Baru ini kok gak sama ya ama maket yang di pajang selama ini...

Tanya Kenapa...?

Maket Gedung Baru

Gedung Baru Sesungguhnya

Berikut ini foto-foto dari gedung baru tersebut.

Gedung Baru Tampak Depan

Pak Pri di depan Gedung Baru



Gedung Baru Tampak dari Samping



Basemen(kira-kira buat apa ya...?



Naik Tangga buat ke lantai atas (katanya ada 4 lantai ya?)


Ini Front Office-nya...


Ini buat Ruang Kelas ... (Laboratnya mana ???)


Ini Tempat Wudhu, Musholla-nya mana ya ...


Kamar Mandi dan Toilet ...

Program Searching Data dengan Pascal

Program mencari suatu data (SEARCH) dengan menggunkan bahasa pemrograman Turbo Pascal.

Berikut contoh program, dalam kasus pencarian data pegawai  yang telah diinput :

program searching;
uses crt;

const
nmax = 50;

type
rdata = record
nip : integer;
nama : string[30];
bagian : string[20];
gaji : longint;
end;
adata = array [1..nmax] of rdata;

var
data : adata;
plh, ch : char;
n : integer;

{ini buat ngurutkan data terlebih dulu...}
procedure insertsort(var a :adata; n : integer);
var
pass, i : integer;
temp, temp4 : integer;
temp1, temp2 : string;
begin
for pass := 2 to n do
begin

temp := a[pass].nip;
temp1 := a[pass].nama;
temp2 := a[pass].bagian;
temp4 := a[pass].gaji;
i := pass-1;

while ((temp1)) do

begin
a[i+1].nip := a[i].nip;
a[i+1].nama := a[i].nama;
a[i+1].bagian := a[i].bagian;
a[i+1].gaji := a[i].gaji;
i := i-1;
end;

if (temp < a[i].nip) then
begin
a[i+1].nip := a[i].nip;
a[i+1].nama := a[i].nama;
a[i+1].bagian := a[i].bagian;
a[i+1].gaji := a[i].gaji;
i := i-1;
end;


a[i+1].nip := temp;
a[i+1].nama := temp1;
a[i+1].bagian := temp2;
a[i+1].gaji := temp4;


end;
end;


{prosedur untuk meminta input data}
procedure inputData(var A:adata; var ndata : integer);
var
i : integer;
begin
clrscr;
writeln('--- Input Data ---');
repeat
writeln;
write('Berapa banyak data? ');
readln(ndata);
if ndata>0 then
begin
writeln;
for i:=1 to ndata do
begin
writeln('Pegawai Ke-',i);
write('NIP : '); readln(A[i].nip);
write('Nama : '); readln(A[i].nama);
write('Bagian : '); readln(A[i].bagian);
write('Gaji : '); readln(A[i].gaji);
writeln;
end;
end
else
writeln('Input salah !!!')
until(n>0);
end;

function menu : char;
var
c : char;
begin
clrscr;
writeln('--- Menu Searching ---');
writeln;
writeln('1. Sequential Searching');
writeln('2. Binary Searching');
writeln('3. Keluar Program');
repeat
writeln;
write('Pilih >> ');
c := readkey;
writeln(c);
if not (c in ['1','2','3']) then
writeln('Input Salah !!!');
until(c in ['1','2','3']);
menu := c;
end;

procedure sequential(A : adata; ndata : integer);
var
i : integer;
nonip :integer;
begin
clrscr;
writeln('--- Sequential Searching ---');
writeln;
write('Masukkan NIP pegawai yang ingin dicari : ');
readln(nonip);
insertsort(a,n);
writeln;

{rutin kode utama}
i:=1;
while ((A[i].nip<=ndata)) do
i := i+1;
if (A[i].nip=nonip) then
begin
writeln('Data ditemukan !!!');
writeln('NIP : ',A[i].nip);
writeln('Nama : ',A[i].nama);
writeln('Bagian : ',A[i].bagian);
writeln('Gaji : ',A[i].gaji);
end
else
writeln('Data tidak ditemukan !!!');
end;

procedure binary(A : adata; ndata : integer);
var
bawah, tengah, atas : integer;
nonip : integer;
found : boolean;
begin
clrscr;
writeln('--- Binary Searching ---');
writeln;
write('Masukkan NIP pegawai yang ingin dicari : ');
readln(nonip);
insertsort(a,n);
writeln;

{rutin kode utama}
bawah := 1;
atas := ndata;
found := false;
while ((not found) and (atas>=bawah)) do
begin
tengah := (bawah+atas) div 2;
if (A[tengah].nip=nonip) then
found := true
else
if (A[tengah].nip>nonip) then
atas := tengah-1
else
bawah := tengah+1
end;

if (found) then
begin
writeln('Data ditemukan !!!');
writeln('NIP : ',A[tengah].nip);
writeln('Nama : ',A[tengah].nama);
writeln('Bagian : ',A[tengah].bagian);
writeln('Gaji : ',A[tengah].gaji);
end
else
writeln('Data tidak ditemukan !!!');
end;

{program utama}
begin
inputData(data,n);
ch := '2';
repeat
if (ch='2') then
plh := menu;

case plh of
'1' : sequential(data,n);
'2' : binary(data,n);
'3' : exit;
end;
writeln;
repeat
writeln;
writeln('Tekan >> 1: Cari lagi!, 2: Kembali ke Menu, 3: Keluar Program');
write(' >> ');
ch := readkey;
if not (ch in ['1','2','3']) then
writeln('Input Salah !!!');
until(ch in['1','2','3']);
until(ch='3');
end.

Program Sorting Data dengan Turbo Pascal for Windows.

Program mengurutkan data (sorting) dengan mengunakan bahasa pemrograman Turbo Pascal for Windows.

Berikut contoh programnya :

Program Sorting;
uses wincrt;
var  pilih:char;
     a,i,j,n:integer;
     data:array[1..50] of integer;
     y:integer;
     jwb:char;

Type
W=array[1..50]of integer;
var
Z:W;

{Sub Program Merge Sort}
procedure merge(var A,B:W;L,mid,R:integer);
var I,J,K,T:integer;
  begin
       I:=L;K:=L;J:=mid+1;
       repeat
       if A[I]
       begin
            B[k]:=A[I];
            inc(I)
       end
       else
       begin
            B[K]:=A[J];
            inc(J);
       end;
       inc(k)
       until (I>mid)or (J>R);
       if I>mid then
          for T:=J to R do B[K+T-J]:=A[T]
       else
           for T:=I to mid do B[K+T-I]:=A[T]
  end;

Procedure order(var A,B:W;N,C:integer);
var I,T:integer;
  begin
       I:=1;
       while I<=(N-2*C+1)do
       begin
            Merge(A,B,I,I+C-1,I+2*C-1);
            I:=I+2*C;
       end;
       if(I+C-1)
                     Merge(A,B,I,I+C-1,N)
       else
           for T:=I to N do B[T]:=A[T]
  end;


Procedure mergesort(Var A:W;N:integer);
var C:integer;
B:W;
begin
     C:=1;
     while C
     begin
          Order(A,B,N,C);
          C:=2*C;
          Order(B,A,N,C);
          C:=2*C
     end;
end;

{Sub Program Quick Sort}
procedure change(var a,b:integer);
var c:integer;
begin
     c:=a;
     a:=b;
     b:=c;
end;

procedure quick_sort(L,R:integer);
var
mid,i,j:integer;
begin
     i:=L; j:=R; mid:=data[(L+R)div 2];
     repeat
           while data[i]
           while data[j]>mid do dec(j);
           if i<=j then
           begin
                change(data[i],data[j]);
                inc(i);dec(j);
           end;
     until i>j;
     if L
     if i
end;

label ulang;
begin
     writeln('Selamat datang di program Sorting');
     write('Ini adalah program yang akan ');
     writeln('membantu anda mengurutkan data');
     ulang:
     writeln;
     writeln('Silakan pilih salah satu menu di bawah ini :');
     writeln('  1. Selection Sort');
     writeln('  2. Buble Sort');
     writeln('  3. Insertion Sort');
     writeln('  4. Quick Sort');
     writeln('  5. Merge Sort');
     write('Masukkan nomor menu pilihan anda: ');readln(pilih);
     case pilih of
     '1':
       begin
          clrscr;
          writeln('Selamat Datang di Program Selection Sort');
          writeln;
          write('Banyaknya data: ');readln(n);
          write('Masukkan datanya ');
          writeln('(tekan enter setiap memasukkan satu data): ');
          for i:=1 to n do readln(data[i]);
          for j:=1 to (n-1) do
          begin
               for i:=j+1 to n do
               begin
                    y:=data[j];
                    if data[i]
                    begin
                         data[j]:=data[i];
                         data[i]:=y;
                    end;
               end;
          end;
          writeln;
          writeln('Data setelah diurutkan: ');
          for i:=1 to n do write(data[i]:5);
       end;
     '2':
       begin
          clrscr;
          writeln('Selamat Datang di Program Bubble Sort');
          writeln;
          write('Banyaknya data: ');readln(n);
          write('Silakan masukkan datanya ');
          writeln('(tekan enter setiap memasukkan satu data): ');
          for i:=1 to n do readln(data[i]);
          for i:=2 to n do
          for j:=n downto i do
          begin
               y:=data[j];
               if data[j]
               begin
                    data[j]:=data[j-1];
                    data[j-1]:=y;
               end;
          end;
          writeln;
          writeln('Data setelah diurutkan: ');
          for i:=1 to n do write(data[i]:5);               
       end;
     '3':
       begin
          clrscr;
          writeln('Selamat Datang di Program Insertion Sort');
          writeln;
          write('Berapa banyaknya data? ');readln(n);
          write('Masukkan datanya ');
          writeln('(tekan enter setiap memasukkan satu data) :');
          for i:=1 to n do readln(data[i]);
          for i:=2 to n do
          begin
               y:=data[i];
               j:=i-1;
               while (y1) do
               begin
                    data[j+1]:=data[j];
                    j:=j-1;
               end;
               if y>=data[j] then data[j+1]:=y
               else
               begin
                    data[j+1]:=data[j];
                    data[j]:=y;
               end;
          end;
          writeln;
          writeln('Data setelah diurutkan:');
          for i:=1 to n do write(data[i]:5);
       end;
     '4':
       begin
          clrscr;
          writeln('Selamat Datang di Program Quick Sort');
          writeln;
          write('Banyaknya data ');readln(n);
          write('Silakan masukkan datanya ');
          writeln('(tekan ENTER setiap memasukkan satu data):');
          for a:=1 to n do
          readln(data[a]);
          for a:=1 to n do quick_sort(1,n);
          writeln('Data terurutnya adalah : ');
          for a:=1 to n do writeln(data[a]:10);
       end;
     '5':
       begin
          clrscr;
          writeln('Selamat Datang di Program Merge Sort');
          writeln;
          write('Banyaknya data : ');readln(n);
          writeln('Masukkan datanya ');
          writeln('(tekan ENTER setiap memasukkan satu data): ');
          for a:=1 to n do readln(Z[a]);
          for a:=1 to n do mergesort(Z,n);
          writeln('Data terurutnya adalah : ');
          for a:=1 to n do writeln(Z[a]:10);
       end;
     end;
     writeln;
     write('TEKAN ENTER jika anda sudah selesai memahami data terurut');
     readln;
     clrscr;
     write('Apakah anda mau mengulang lagi? (jawab y atau t): ');
     readln(jwb);
     if jwb='y' then goto ulang;
     writeln;
     write('Anda memilih untuk meninggalkan program sorting ini.');
     writeln(' Terima kasih...');
     writeln;
     writeln('Tekan ENTER untuk menutup jendela ini');
     readln;
     donewincrt;
end.