Aplikasi Raport

PENGANTAR KOMPUTER DAN 

TEKNOLOGI INFORMASI 2B

Program Sederhana Aplikasi Raport Sebagai

Implentasi If ... Else Pada Visual Basic 6.0

Disusun Oleh:

Muhammad Ardillah 24219030
Kelas       1EB01

Sebagai Pengumpulan Quiz melalui 

V-Class / Pembelajaran Jarak Jauh 

Dosen

Bu Wahyu Supriyatin

Fakultas Ekonomi

Jurusan Akuntansi

Universitas Gunadarma

Langkah – Langkah Membuat Aplikasi Raport

Pada Visual Basic 6.0

       1. Buka aplikasi Visual Basic 6.0 lalu pilih Standard EXE seperti gambar di bawah ini. Lalu Klik Open 

          2. Setelah terbuka seperti ini gambar di bawah ini. Berikut Merupakan                      Tampilan Awal Visual Basic.

          3. Selanjutnya, Dalam Membuat Aplikasi Tersebut kita membutuhkan                       komponen yang dibutuhkan, yaitu ; 10 Label, 3 Command Button, dan 9           Text Box, yang berada di  Sebelah kiri (ToolBox) dapat dilakukan dengan               click komponen tersebut, kemudian drag atau tarik pada posisi yang                      benar pada form.

      4. Lalu Desain & Letakkan Komponen – Komponen sesuai Kebutuhan                        seperti di bawah ini.

  5. Lalu Atur Desain Form Pada Tabel dibawah ini, Pengaturan dilakukan                    dalam jendela properties.

Object	Property	Value
Form 1	Caption	Aplikasi Rapot
Label 1	Aligment BorderStyle Caption Font ( Font Style, Size )	2 – Center 1 – Fixed Single Menghitung Nilai Mata Pelajaran Pokok Times New Roman, Bold, 16
Label 2	Caption Font ( Font Style, Size )	Nama Times New Roman, Bold, 12
Label 3	Caption Font ( Font Style, Size )	NIS Times New Roman, Bold, 12
Label 4	Aligment Caption Font ( Font Style, Size )	2 – Center Mata Pelajaran : Times New Roman, Bold, 14
Label 5	Caption Font ( Font Style, Size )	Bahasa Indonesia Times New Roman, 12
Label 6	Caption Font ( Font Style, Size )	MTK Times New Roman, 12
Label 7	Caption Font ( Font Style, Size )	IPA Times New Roman, 12
Label 8	Caption Font ( Font Style, Size )	Bahasa Inggris Times New Roman, 12
Label 9	Caption Font ( Font Style, Size )	Hasil Times New Roman, Bold, 12
Label 10	Caption Font ( Font Style, Size )	Grade Times New Roman, Bold, 12
Command1	Caption	Hitung
Command2	Caption	Hapus
Command3	Caption	Keluar
Text1	Text Name	- TXTNAMA
Text2	Text Name	- TXTNIS
Text3	Text Name	- TXTBIND
Text4	Text Name	- TXTMTK
Text5	Text Name	- TXTIPA
Text6	Text Name	- TXTBING
Text7	Text Name	- TXTHASIL
Text8	Text Name	- TXTGRADE
Text9	Text Name	- TXTKET

6. Setelah pengaturan properties dilakukan , Selanjutnya membuat kode                 program. Kode ini sangat penting karena program bisa berjalan atau tidak          ditentukan oleh kode ini. Pada pembuatan kode harus teliti dalam                          membuatnya.

• Klik tombol View Code pada Window Project) atau Klik pada command1 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command_click

          Ketik Program Sebagai Berikut :

          Private Sub Command1_Click()
          Dim Nama As String
          Dim NIS As String
          Dim BahasInd As Double
          Dim MTK As Double
          Dim IPA As Double
          Dim Bing As Double
          Dim Hasil As Double
          Dim Grade As String
          Dim Ket As String

          Nama = (TXTNAMA.Text)
          NIS = (TXTNIS.Text)
       
          BahasaInd = (TXTBIND.Text)
          MTK = (TXTMTK.Text)
          IPA = (TXTIPA.Text)
          Bing = (TXTBING.Text)
       
          Hasil = (BahasaInd + MTK + IPA + Bing) / 4
       
          TXTHASIL.Text = Hasil
       
         If Hasil <= 56 Then
             Grade = "E"
             Ket = " Tidak Lulus! "
             TXTKET.ForeColor = vbRed
          ElseIf Hasil <= 65 Then
            Grade = "D"
            Ket = " Tidak Lulus!"
            TXTKET.ForeColor = vbRed
         ElseIf Hasil <= 75 Then
           Grade = "C"
           Ket = "Tidak Lulus!"
           KET.ForeColor = vbRed
         ElseIf Hasil <= 85 Then
           Grade = "B"
           Ket = "Lulus!"
         ElseIf Hasil >= 85 Then
           Grade = "A"
           Ket = "Lulus!"
       End If
       TXTGRADE.Text = Grade
       TXTKET.Text = Ket
       End Sub

• Click pada command2 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command_click

          Private Sub Command2_Click()
          TXTNAMA.Text = ""
          TXTNIS.Text = ""
          TXTBIND.Text = ""
          TXTMTK.Text = ""
          TXTIPA.Text = ""
          TXTBING.Text = ""
          TXTHASIL.Text = ""
          TXTGRADE.Text = ""
          TXTKET.Text = ""
          End Sub

• Click pada command3 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command_click

          Private Sub Command3_Click()
          End
          End Sub

Project sudah selesai, untuk menjalankan tekan F5. Cobalah untuk mengisi Aplikasi Raport Tersebut, Bila hasilnya benar maka project aplikasi dikatakan benar. Untuk menyimpan project pilih menu [File] >> [Save Project]   Pilih Folder mana untuk menyimpan file, sebaiknya simpan  di default  folder visual basic. Isikan nama file dengan AplikasiRapot.frm untuk form lalu tekan [Save]. Setelah itu muncul jendela yang sama untuk project, isikan nama project dengan AplikasiRapot.vbp dan tekan [Save].

Cara Kerja Program & Uji Coba Aplikasi

Aplikasi ini merupakan sebuah jenis perangkat lunak yang digunakan untuk mengisi raport secara digital. Aplikasi ini digunakan untuk membantu warga di lingkunga sekolah seperti Guru,Wali Kelas dan lainnya yang memiliki kesulitan dalam pengolahan raport sehingga mempermudah pekerjaan  untuk membuat laporan hasil belajar siswa dengan lebih cepat dan efisien. Aplikasi ini juga dirancang untuk membantu pekerjaan sekolah dalam mendata dan menjadi sistem informasi sekolah sehingga data yang ditampilkan merupakan data dan informasi yang akurat.Pada era modern saat ini hampir seluruh data yang dihasilkan sudah menggunakan aplikasi yang terkomputerisasi sehingga cara manual sudah banyak berkurang, hanya saja tetap digunakan, salah satunya pengolahan data nilai siswa dalam bentuk buku raport. 

Disini Penulis akan menjelaskan Cara Kerja Program Aplikasi Penghitungan Nilai Mata Pelajaran Sebagai Berikut :

   

   Bisa kita lihat di bagian pembuatan program , Pertama tama  Deklarasikan Semua Data yang dibutuhkan Seperti Data Angka ataupun Teks, sesuai dengan Tipe Datanya. Disini Penulis menggunakan Tipe Data Double untuk menyimpan Nilai Data Angkanya.

   Kemudian, Buat Rumus untuk menghitung Semua/Jumlah Nilai hasil nya kemudian dibagi sesuai jumlah Mata Pelajaran yang dibutuhkan

   Selanjutnya, Pada Bagian Percabangan kita membuat Statement / Logika Apabila ;

1. Jika Hasil/Jumlah Nilai yang dihasilkan kurang dari atau dibawah dari 56 maka Grade yang akan di Dapat adalah E, dengan Pesan "Tidak Lulus" Berwana Merah,
2. Jika Hasil/Jumlah Nilai yang dihasilkan kurang dari atau dibawah dari  65 maka Grade yang akan di Dapat adalah D, dengan Pesan "Tidak Lulus" Berwana Merah,
3. Jika Hasil/Jumlah Nilai yang dihasilkan kurang dari atau dibawah dari  76 maka Grade yang akan di Dapat adalah C, dengan Pesan "Tidak Lulus" Berwana Merah,
4. Jika Hasil/Jumlah Nilai yang dihasilkan kurang dari atau dibawah dari  85 maka Grade yang akan di Dapat adalah B, dengan Pesan "Lulus" Berwana Hitam,
5. Jika Hasil/Jumlah Nilai yang dihasilkan lebih dari atau diatas dari  85 maka Grade yang akan di Dapat adalah A, dengan Pesan "Lulus" Berwana Hitam.

Jika User ingin memasukkan Data yang lain, user cukup pilih hapus, maka tampilan akan seperti semula dan Jika User telah selesai menggunakan Aplikasi, User bisa mengklik Keluar untuk keluar dari Aplikasi.