Skrip Program Menghitung Nilai Indek Prestasi ( IP ) pada Lazarus

PROGRAM MENGHITUNG NILAI IP

SKENARIONYA :

Pada Program diatas merupakan Program Menghitung Nilai Sks yang dijalankan di program Aplikasi Lazarus pada Linux. Pada saat Program di Run (dijalankan) User Diminya Untuk memasukkan atau mengetikan nama pada T Edit begitu juga dengan Npm , Fakultas , dan Universitas.Kemudian pada T CheckBoxnUser diminta untuk untuk memilih semester sesuai dengan semester Mahasiswa yang akan kita hitung nilai sks nya dengan cara mengclick / mencentang pada T CheckBox yang akan di pilih.Pada Saat User Mencentang / mengclick pada semester maka program akan secara otomatis akan mengisi Mata Kuliah dan Jumlah sks dari masing-masing semester yang tercentang.Kemudian User Diminta Untuk Memasukkan Nilai Huruf atau memilih Nilai Huruf yang di dapat Mahasiswa Pada masing-masing Mata Kuliah yang diambil.Pada saat User memasukan / memilih Nilai Huruf maka akan dengan sendirinya / secara Otomatis Nilai angka pada T Edit disebelahnya akan terisi secara otomatis berdasarkan bobot nilai huruf yang dimiliki oleh nilai huruf masing- masing.Misalnya Nilai Hurf A memiliki Nilai huruf 4,B memiliki nilai huruf 3,dan selanjutnya.Lalu Click atau Pilih tombol hitung untuk memulai menghitung Indeks Prestasi yang di dapat oleh Mahasiswa tersebut.Cara kerja dari Button Hitung yaitu : pada saat kita mengclick Tombol hitung maka Program pertama akan menjalankan atau mengisi TEdit pada Hasil akhir dari perhitungan yang didapatkan dari angka masing-masing sks dikalikan dengan nilai angka yang didapat Mahasiswa pada masing-masing Mata Kuliahnya.Lalu Program berjalan Mengisi Nilai Indeks Prestasi ( IP ) yang didapat dari jumlah Hasil Akhir dibagi dengan jumlah keseluruhan SKS.lalu Program akan mengisi Maximum SKS yang dapat diambil pada semester selanjutnya yang dihitung dari berdasarkan nilai Indeks Prestasi yang didapat.Bila Mahasiswa memiliki Nilai IP lebih besar atau sama dengan tiga maka maka jumlah SKS yang dapat diambil yaitu 24,Jika Nilai IP lebih besar atau sama dengan 2 maka SKS yang dapat diambil pada semester selanjutnya adalah 22,dan jika Nilai IP kuang dari 2 maka jumlah SKS yaitu 18.User juga bisa menyimpan data dari hasil yang baru dijalankan oleh program dengan cara mengclick tombol Button Tulis Sebagai Catatan.User juga bisa menghitung nilai indeks prestasi mahasiswa lain tanpa harus menutup program ini,user bias mengclik Button Hapus untuk menghapus ulang semua data yang di inputkan tadi.Lalu User mengisi kembali data dari Mahasiswa yang baru dengan cara yang sama dengan yang diatas.Pada Button Hapus Text Berisikan perintah untuk menghapus Text Memo yang berada dalam tabel.Dan Button Close untuk menutup Seluruh Program Menghitung Nilai IP mahasiswa ini.

KOMPONEN DAN PROPERTI :

No	Jenis Komponen	Properti	Value
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. 66. 67. 68. 69. 70. 71. 72. 73. 74. 75. 76. 77. 78. 79. 80. 81. 82. 83. 84. 85. 86. 87. 88. 89. 90. 91. 92. 93. 94. 95. 96.	TLabel1 TLabel2 TLabel3 TLabel4 TLabel5 TLabel6 TLabel7 TLabel8 TLabel9 TLabel10 TLabel11 TLabel12 TLabel13 TLabel14 TLabel15 TLabel16 TLabel17 TLabel18 TLabel19 TLabel20 TLabel21 TLabel22 TLabel23 TLabel24 TLabel25 TLabel26 TLabel27 TLabel28 TLabel29 TLabel30 TEdit1 TEdit2 TEdit3 TEdit4 TEdit5 TEdit6 TEdit7 TEdit8 TEdit9 TEdit10 TEdit11 TEdit12 TEdit13 TEdit14 TEdit15 TEdit16 TEdit17 TEdit18 TEdit19 TEdit20 TEdit21 TEdit22 TEdit23 TEdit24 TEdit25 TEdit26 TEdit27 TEdit28 TEdit29 TEdit30 TEdit31 TEdit32 TEdit33 TEdit34 TEdit35 TEdit36 TEdit37 TEdit38 TEdit39 TEdit40 TEdit41 TEdit42 TComboBox1 TComboBox2 TComboBox3 TComboBox4 TComboBox5 TComboBox6 TComboBox7 TComboBox8 TComboBox9 TCheckBox1 TCheckBox2 TCheckBox3 TCheckBox4 TCheckBox5 TCheckBox6 TButton1 TButton2 TButton3 TButton4 TButton5 TMemo1 TMemo2 TMemo3 TMemo4	Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption Caption Caption Caption Caption Lines Lines Lines Lines	Nama NPM Fakultas Universitas No. Mata Kuliah SKS Nilai Angka Hasil Akhir 1 2 3 4 5 6 7 8 9 Maximal SKS yang Dapat Diambil Nilai IP Nama Mahasiswa NPM MSKS Nilai IP Nama Kelompok 1 : 1.Taufik Mahyudin,Npm : 100401322 2.Yatie Ayuningtias, Npm : 100401340 3.Yusmaita, Npm :100401347 4.Zaenab Afni , Npm : 100401349 5.Mulyani , Npm : 1004013 Nama [ ……] Kosongkan Text NPM [ ……] Kosongkan Text Fak [ ……] Kosongkan Text Un [ ……] Kosongkan Text MK1 [ ……] Kosongkan Text MK2 [ ……] Kosongkan Text MK3 [ ……] Kosongkan Text MK4 [ ……] Kosongkan Text MK5 [ ……] Kosongkan Text MK6 [ ……] Kosongkan Text MK7 [ ……] Kosongkan Text MK8 [ ……] Kosongkan Text MK9 [ ……] Kosongkan Text SKS1 [ ……] Kosongkan Text SKS2 [ ……] Kosongkan Text SKS3 [ ……] Kosongkan Text SKS4 [ ……] Kosongkan Text SKS5 [ ……] Kosongkan Text SKS6 [ ……] Kosongkan Text SKS7 [ ……] Kosongkan Text SKS8 [ ……] Kosongkan Text SKS9 [ ……] Kosongkan Text NA1 [ ……] Kosongkan Text NA2 [ ……] Kosongkan Text NA3 [ ……] Kosongkan Text NA4 [ ……] Kosongkan Text NA5 [ ……] Kosongkan Text NA6 [ ……] Kosongkan Text NA7 [ ……] Kosongkan Text NA8 [ ……] Kosongkan Text NA9 [ ……] Kosongkan Text HA1 [ ……] Kosongkan Text HA2 [ ……] Kosongkan Text HA3 [ ……] Kosongkan Text HA4 [ ……] Kosongkan Text HA5 [ ……] Kosongkan Text HA6 [ ……] Kosongkan Text HA7 [ ……] Kosongkan Text HA8 [ ……] Kosongkan Text HA9 [ ……] Kosongkan Text MSKS [ ……] Kosongkan Text IP [ ……] Kosongkan Text NH1 [ ……] Kosongkan Text NH2 [ ……] Kosongkan Text NH3 [ ……] Kosongkan Text NH4 [ ……] Kosongkan Text NH5 [ ……] Kosongkan Text NH6 [ ……] Kosongkan Text NH7 [ ……] Kosongkan Text NH8 [ ……] Kosongkan Text NH9 [ ……] Kosongkan Text Semester 1 S1 Semester 2 S2 Semester 3 S3 Semester 4 S4 Semester 5 S5 Semester 6 S6 Hitung Hapus Close Tulis Sebagai Catatan Hapus Text [ ……] Kosongkan Text , tekan OK [ ……] Kosongkan Text , tekan OK [ ……] Kosongkan Text , tekan OK [ ……] Kosongkan Text , tekan OK

1. Event OnClick Pada Tombol Semester 1 ( CheckBox1 )

procedure TForm1.S1Change(Sender: TObject);

begin

if S1.Checked=TRUE then

MK1.Text:='Bahasa Inggris 1';

SKS1.Text:='2';

MK2.Text:='Pengantar Teknologi Informatika';

SKS2.Text:='3';

MK3.Text:='Pemograman Dasar';

SKS3.Text:='3';

MK4.Text:='Logika Dan Alogaritrma';

SKS4.Text:='3';

MK5.Text:='Prog Aplik Modern';

SKS5.Text:='3';

MK6.Text:='Pendidikan Agama 1';

SKS6.Text:='2';

MK7.Text:='Kalkulus 1';

SKS7.Text:='3';

MK8.Text:='Fisika Teknik';

SKS8.Text:='3';

MK9.Text:=' ........... ';

SKS9.Text:='0';

end;

2. Event OnClick Pada Tombol Semester 2 ( CheckBox2 )

procedure TForm1.S2Change(Sender: TObject);

begin

if S2.Checked=TRUE then

MK1.Text:='Pendidikan Agama 2';

SKS1.Text:='2';

MK2.Text:='Pendidikan Pancasila';

SKS2.Text:='2';

MK3.Text:='Bahasa Inggris 2';

SKS3.Text:='2';

MK4.Text:='Sistem Operasi 1';

SKS4.Text:='2';

MK5.Text:='Matematika Diskrit';

SKS5.Text:='3';

MK6.Text:='Teknik Digital';

SKS6.Text:='2';

MK7.Text:='Kalkulus 2';

SKS7.Text:='3';

MK8.Text:='Pemograman OOP';

SKS8.Text:='3';

MK9.Text:='Teknik Multimedia';

SKS9.Text:='3';

end;

3. Event OnClick Pada Tombol Semester 3 ( CheckBox3 )

procedure TForm1.S3Change(Sender: TObject);

begin

if S3.Checked=TRUE then

MK1.Text:='Sisitem Operasi Lanjutan';

SKS1.Text:='3';

MK2.Text:='Arsitektur Komputer';

SKS2.Text:='3';

MK3.Text:='Konsep Basis Data';

SKS3.Text:='3';

MK4.Text:='Pemograman Berbasis WEB';

SKS4.Text:='3';

MK5.Text:='Bahasa Inggris 3';

SKS5.Text:='2';

MK6.Text:='Pendidikan Agama 3';

SKS6.Text:='2';

MK7.Text:='Etika Profesi';

SKS7.Text:='2';

MK8.Text:='Statistik Prob & Desk';

SKS8.Text:='3';

MK9.Text:=' ........... ';

SKS9.Text:='0';

end;

4. Event OnClick Pada Tombol Semester 4 ( CheckBox4 )

procedure TForm1.S4Change(Sender: TObject);

begin

if S4.Checked=TRUE then

MK1.Text:='Teori Komputasi';

SKS1.Text:='3';

MK2.Text:='Struktur Data';

SKS2.Text:='3';

MK3.Text:='Pemograman Visual 1';

SKS3.Text:='3';

MK4.Text:='Pendidikan Kewarganegaraan';

SKS4.Text:='2';

MK5.Text:='Kecerdasan Buatan';

SKS5.Text:='3';

MK6.Text:='Pengolahan Citra';

SKS6.Text:='3';

MK7.Text:='Tatatulis Karya Ilmiah';

SKS7.Text:='2';

MK8.Text:='Ilmu Ekonomi Teknik';

SKS8.Text:='2';

MK9.Text:=' ........... ';

SKS9.Text:='0';

end;

5. Event OnClick Pada Tombol Semester 5 ( CheckBox5 )

procedure TForm1.S5Change(Sender: TObject);

begin

if S5.Checked=TRUE then

MK1.Text:='Jaringan Komputer';

SKS1.Text:='2';

MK2.Text:='Desain Animasi & Multimedia';

SKS2.Text:='3';

MK3.Text:='Pemograman Visual 2';

SKS3.Text:='3';

MK4.Text:='GIS';

SKS4.Text:='3';

MK5.Text:='Metode Penelitian';

SKS5.Text:='2';