Modifikasi Aplikasi Raport *Updated

PENGANTAR KOMPUTER DAN 

TEKNOLOGI INFORMASI 2B

Modifikasi Program Sederhana Aplikasi Raport
Sebagai Implentasi Message Box dan Input Box
 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 Modifikasi Program Aplikasi Raport

Pada Visual Basic 6.0

    Dialog Box atau Message Box merupakan sebuah kotak pesan yang berfungsi menampilkan sebuah pesan/informasi di dalam Aplikasi Visual Basic.

Sedangkan Input Box merupakan sebuah input ( masukkan ) yang hasilnya menampilkan dialog box atau message box di dalam Aplikasi Visual Basic.

Jadi, MsgBox merupakan hasil yang hanya menampilkan informasi berupa pesan kotak dialog, sedangkan InputBox, pengguna (user) harus memasukkan inputan terlebih dahulu menggunakan textbox lalu disimpan yang kemudian, baru hasilnya berupa kotak dialog(Msgbox).

Sesuai dengan parameter atau program yang ditentukan atau dibuat oleh user tsb.Berikut langkah -langkahnya :

     Pertama -tama, Disini Penulis akan memodifikasi program Aplikasi Raport Sebagai Implentasi Message Box dan Input Box Pada Visual Basic 6.0. Sebelumnya Penulis sudah membuat Aplikasi Raport di blog sebelumnya, pembaca bisa lihat tutorial pembuatannya dan perbedaannya disini.

      Langkah selanjutnya adalah menambahkan komponen tambahan yaitu, 2 command button

      Lalu Desain & Letakkan Komponen – Komponen tambahan tersebut seperti dibawah ini.

Setelah itu, Atur Modifikasi 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
Command4	Caption	Tambah Data Siswa
Command5	Caption	Tambah Data Nilai
Text1	Text Name Tab Stop	- TXTNAMA False
Text2	Text Name Tab Stop	- TXTNIS False
Text3	Text Name Tab Stop	- TXTBIND False
Text4	Text Name Tab Stop	- TXTMTK False
Text5	Text Name Tab Stop	- TXTIPA False
Text6	Text Name Tab Stop	- TXTBING False
Text7	Text Name Tab Stop	- TXTHASIL False
Text8	Text Name Tab Stop	- TXTGRADE False
Text9	Text Name Tab Stop	- TXTKET False

Disini Penulis, menambahkan 2 comman button dan menggunakan property Tab Stop pada setiap Text, Tab Stop adalah kedap kedip pada cursor di dalam text ketika dijalankan biasanya defaultnya berada paling pertama text1, disini penulis membuat tab stopnya menjadi FALSE. Lihat Perbedaanya disini

Setelah pengaturan properties dilakukan , Selanjutnya memodifikasi kode program.disini penulis akan memodifikasi program sebelumnya dengan menambahkan MsgBox dan InputBox pada program.

Private Sub Command3_Click()

Keluar = MsgBox("Yakin Anda Mau Keluar Aplikasi?", vbInformation , vbOKCancel, "Keluar Aplikasi")

If Keluar = vbOK Then Unload Me

If Keluar = 1 Then Unload Me

End Sub

Pada Bagian ini, penulis merubah program exit pada program sebelumnya, dengan menambahkan MsgBox, dengan cara kerja programnya ketika tombol Exit diklik, maka akan muncul kotak dialog Informasi Peringatan mengenai pengguna ingin keluar aplikasi atau tidak, Jika Pengguna Mengklik Ok maka akan keluar dari Aplikasi, Jika Pengguna Mengklik Cancel makan akan kembali Aplikasi tsb. 

Private Sub Command4_Click()

Nama = InputBox("Masukkan Nama Siswa :", "Input Nama Siswa")

TXTNAMA.Text = Nama

NIS = InputBox("Masukkan NIS :", "Input NIS")

TXTNIS.Text = NIS

End Sub

Pada Bagian ini, Penulis menambahkan command button ke 4 sebagai Input Data Siswa yang hasil akhirnya mengisi nilai di TextBox, dengan cara kerja programnya ketika Tombol Tambah Data Siswa di klik makan akan muncul kotak input pertama yaitu pengguna harus memasukkan nama siswa, lalu klik OK, pada saat itu juga hasilnya muncul di TextBox1 pada Label Nama, lalu akan muncul lagi kotak input kedua dimana Pengguna harus memasukkan Nomor Induk Siswa lalu klik OK pada saat itu juga hasilnya muncul di TextBox2 pada Label NIS.

Private Sub Command5_Click()

If TXTNAMA.Text = "" Then

MsgBox "Isi Terlebih Dahulu Data Siswa", vbCritical, "Peringatan"

Else

BahasaInd = InputBox("Masukkan Nilai Siswa:", "Input Nilai Bahasa Indonesia")

TXTBIND.Text = BahasaInd

MTK = InputBox("Masukkan Nilai Siswa:", "Input Nilai Matematika")

TXTMTK.Text = MTK

IPA = InputBox("Masukkan Nilai Siswa:", "Input Nilai Ilmu Pengetahuan Alam")

TXTIPA.Text = IPA

Bing = InputBox("Masukkan Nilai Siswa:", "Input Nilai Bahasa Inggris")

TXTBING.Text = Bing

End If

End Sub

Pada Bagian ini, Penulis menambahkan command button ke 5 sebagai Input Data Nilai Siswa yang hasil akhirnya mengisi nilai di TextBox, dengan cara kerja programnya Jika, Tombol Tambah Data Siswa di klik dan Data Nama pada Siswa Masih kosong makan akan muncul pesan dialog (MsgBox) Critical yang dimana pengguna harus memasukkan Data Siswa dahulu baru mengisi Data Nilai kemudian, Jika sudah diisi maka akan muncul kotak input pertama yaitu pengguna harus memasukkan nilai Bahasa Indonesia lalu klik OK, pada saat itu juga hasilnya muncul di TextBox1 pada Label Bahasa Indonesia, dan seterusnya hingga Data Nilai Terpenuhi.

Project sudah selesai, untuk menjalankan tekan F5. Cobalah untuk mengisi Modifikasi Aplikasi Raport Tersebut.

Uji Coba Aplikasi

Berikut ini Penulis akan meguji coba Modifikasi Program Aplikasi Raport dengan menambahkan MsgBox dan InputBox.

Disini Terlihat, Ketika di klik button Tambah Data Siswa,  maka akan muncul InputBox  yang dimana Pengguna harus memasukkan Nama dan Nis yang kemudian hasilnya akan muncul pada TextBox.

Selanjutnya, 

Bisa Terlihat, Ketika di klik button Tambah Data Niai ,  Jika Pada Data Siswa belum diisi/  terpenuhi maka akan muncul MsgBox Critical  yang  dimana pengguna harus  mengisi Data Siswa  Terlebih dahulu, Apabila Sudah makan tampilannya seperti dibawah ini, pengguna baru bisa memasukkan Data Nilai Siswa, yang hasilnya akan muncul pada TextBox di masing masing Label pelajaran. 

   

Sekian Modifikasi Program Pada Aplikasi Raport ini dengan Mengimplementasikam MsgBox dan DialogBox pada Visual Basic 6.0.

Dengan ini semoga Pembaca dapat paham dan mengerti, Pembaca dapat melihat perbedaanya di program Aplikasi Raport Pertama disini

Mohon Maaf Jika ada Salah kata atau kekurangan, Wassalamualaikum Wr,Wb