Berikut tampilan Design dari Program Akademik
Dari Design diatas kita bisa menginput data Nilai Mahasiswa dan akan langsung bisa terkoneksi ke Ms.Word.
pada saat kita selesai menginput semua data Mahasiswa terus pada panel Matakuliah jika kita menginput jumlah SKS per matkul dan Meng input Nilai (A= Sangat Baik, B= Baik, C= Cukup, D= Buruk, E=Buruk Sekali) Maka Pada TextBox Mutu akan Muncul Nilai Mutu dari masing-masing Matkul dan Pada saat kita klik button Proses maka akan muncul nilai dari jumlah SKS dan Jumlah Nilai Mutu yang kemudian akan memunculkan Nilai Akhir yaitu Nilai Indeks Prestasi Kumulaif.
dibawah ini source code yang digunakan untuk mencari Nilai Mutu, kita bisa memasukan source code ini ke masing-masing textbox Nilai.
Private Sub Nrpl_TextChanged(sender As Object, e As EventArgs) Handles Nrpl.TextChanged
Dim N As String
Dim K As String
Dim point As Integer
N = rpl.Text
K = Nrpl.Text
If K = "A" Then
point = N * 4
Mrpl.Text = point
ElseIf K = "B" Then
point = N * 3
Mrpl.Text = point
ElseIf K = "C" Then
point = N * 2
Mrpl.Text = point
ElseIf K = "D" Then
point = N * 1
Mrpl.Text = point
ElseIf K = "E" Then
point = N * 0
Mrpl.Text = point
End If
End Sub
Private Sub Ndbms_TextChanged(sender As Object, e As EventArgs) Handles Ndbms.TextChanged
Dim N As Integer
Dim K As String
Dim point As Integer
N = dbms.Text
K = Ndbms.Text
If K = "A" Then
point = N * 4
Mdbms.Text = point
ElseIf K = "B" Then
point = N * 3
Mdbms.Text = point
ElseIf K = "C" Then
point = N * 2
Mdbms.Text = point
ElseIf K = "D" Then
point = N * 1
Mdbms.Text = point
ElseIf K = "E" Then
point = N * 0
Mdbms.Text = point
End If
End Sub
Private Sub Nvisual_TextChanged(sender As Object, e As EventArgs) Handles Nvisual.TextChanged
Dim N As Integer
Dim K As String
Dim point As Integer
N = visual.Text
K = Nvisual.Text
If K = "A" Then
point = N * 4
Mvisual.Text = point
ElseIf K = "B" Then
point = N * 3
Mvisual.Text = point
ElseIf K = "C" Then
point = N * 2
Mvisual.Text = point
ElseIf K = "D" Then
point = N * 1
Mvisual.Text = point
ElseIf K = "E" Then
point = N * 0
Mvisual.Text = point
End If
End Sub
Private Sub Nimk_TextChanged(sender As Object, e As EventArgs) Handles Nimk.TextChanged
Dim N As Integer
Dim K As String
Dim point As Integer
N = imk.Text
K = Nimk.Text
If K = "A" Then
point = N * 4
Mimk.Text = point
ElseIf K = "B" Then
point = N * 3
Mimk.Text = point
ElseIf K = "C" Then
point = N * 2
Mimk.Text = point
ElseIf K = "D" Then
point = N * 1
Mimk.Text = point
ElseIf K = "E" Then
point = N * 0
Mimk.Text = point
End If
End Sub
Private Sub Netika_TextChanged(sender As Object, e As EventArgs) Handles Netika.TextChanged
Dim N As Integer
Dim K As String
Dim point As Integer
N = etika.Text
K = Netika.Text
If K = "A" Then
point = N * 4
Metika.Text = point
ElseIf K = "B" Then
point = N * 3
Metika.Text = point
ElseIf K = "C" Then
point = N * 2
Metika.Text = point
ElseIf K = "D" Then
point = N * 1
Metika.Text = point
ElseIf K = "E" Then
point = N * 0
Metika.Text = point
End If
End Sub
Private Sub Nos_TextChanged(sender As Object, e As EventArgs) Handles Nos.TextChanged
Dim N As Integer
Dim K As String
Dim point As Integer
N = os.Text
K = Nos.Text
If K = "A" Then
point = N * 4
Mos.Text = point
ElseIf K = "B" Then
point = N * 3
Mos.Text = point
ElseIf K = "C" Then
point = N * 2
Mos.Text = point
ElseIf K = "D" Then
point = N * 1
Mos.Text = point
ElseIf K = "E" Then
point = N * 0
Mos.Text = point
End If
End Sub
Private Sub Njoomla_TextChanged(sender As Object, e As EventArgs) Handles Njoomla.TextChanged
Dim N As Integer
Dim K As String
Dim point As Integer
N = joomla.Text
K = Njoomla.Text
If K = "A" Then
point = N * 4
Mjoomla.Text = point
ElseIf K = "B" Then
point = N * 3
Mjoomla.Text = point
ElseIf K = "C" Then
point = N * 2
Mjoomla.Text = point
ElseIf K = "D" Then
point = N * 1
Mjoomla.Text = point
ElseIf K = "E" Then
point = N * 0
Mjoomla.Text = point
End If
End Sub
Kemudian dibawah ini adalah source code yang ada pada button "Proses".
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles proses.Click
Dim a, b, c, d, i, f, g As Integer
Dim A2, a3, a4, a5, a6, a7, a8 As Integer
Dim ip As Double
Dim jmlsks, jmlmutu As Integer
a = rpl.Text
b = dbms.Text
c = visual.Text
d = imk.Text
i = etika.Text
f = os.Text
g = joomla.Text
A2 = Mrpl.Text
a3 = Mdbms.Text
a4 = Mvisual.Text
a5 = Mimk.Text
a6 = Metika.Text
a7 = Mos.Text
a8 = Mjoomla.Text
jmlsks = a + b + c + d + i + f + g
sks.Text = jmlsks
jmlmutu = a2 + a3 + a4 + a5 + a6 + a7 + a8
mutu.Text = jmlmutu
ip = jmlmutu / jmlsks
ipk.Text = ip
End Sub
Dan pada saat kita klik Button "SAVE" maka secara Otomatis data yang dinput akan terkoneksi dengan Ms. Word. Cara supaya bisa terkoneksi dengan Ms. word.
- Pertama kita harus membuat Format data yang sama yang ada di Design pada Ms.word. setelah itu setiap data yang perlu dinput diberikan Bookmark.
- Kedua, karena kita akan terkoneksi dengan Ms.word maka kita harus menambahkan library Ms. word pada visual studio dengan cara Klik Projek pada menu bar > Add Reference > Type Reference> pilih Library Microsoft Word 14.0 object library, kemudian di perlukan Soure code yang membuat visual studio bisa terhubung dengan Ms. word nya dengan cara mengimport "Imports word = Microsoft.Office.Interop.Word "
setelah itu masukan source code dibawah ini.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dokumennya = Appnya.Documents.Open("D:\ZHAK\Semester V\Pemrograman Visual\UTS\DAFTAR NILAI KUMULATIF MAHASISWA.docx")
Dokumennya.Bookmarks("nim").Select()
Appnya.Selection.TypeText(nim.Text)
Dokumennya.Bookmarks("nama").Select()
Appnya.Selection.TypeText(nama.Text)
Dokumennya.Bookmarks("ttl").Select()
Appnya.Selection.TypeText(cmbhari.Text + cmbtgl.Text + cmbth.Text)
Dokumennya.Bookmarks("ps").Select()
Appnya.Selection.TypeText(ps.Text)
Dokumennya.Bookmarks("js").Select()
Appnya.Selection.TypeText(js.Text)
Dokumennya.Bookmarks("smt").Select()
Appnya.Selection.TypeText(smt.Text)
Dokumennya.Bookmarks("thak").Select()
Appnya.Selection.TypeText(thak.Text)
Dokumennya.Bookmarks("rpl").Select()
Appnya.Selection.TypeText(rpl.Text)
Dokumennya.Bookmarks("dbms").Select()
Appnya.Selection.TypeText(dbms.Text)
Dokumennya.Bookmarks("visual").Select()
Appnya.Selection.TypeText(visual.Text)
Dokumennya.Bookmarks("imk").Select()
Appnya.Selection.TypeText(imk.Text)
Dokumennya.Bookmarks("etika").Select()
Appnya.Selection.TypeText(etika.Text)
Dokumennya.Bookmarks("os").Select()
Appnya.Selection.TypeText(os.Text)
Dokumennya.Bookmarks("joomla").Select()
Appnya.Selection.TypeText(joomla.Text)
Dokumennya.Bookmarks("Nrpl").Select()
Appnya.Selection.TypeText(Nrpl.Text)
Dokumennya.Bookmarks("Ndbms").Select()
Appnya.Selection.TypeText(Ndbms.Text)
Dokumennya.Bookmarks("Nvisual").Select()
Appnya.Selection.TypeText(Nvisual.Text)
Dokumennya.Bookmarks("Nimk").Select()
Appnya.Selection.TypeText(Nimk.Text)
Dokumennya.Bookmarks("Netika").Select()
Appnya.Selection.TypeText(Netika.Text)
Dokumennya.Bookmarks("Nos").Select()
Appnya.Selection.TypeText(Nos.Text)
Dokumennya.Bookmarks("Njoomla").Select()
Appnya.Selection.TypeText(Njoomla.Text)
Dokumennya.Bookmarks("Mrpl").Select()
Appnya.Selection.TypeText(Mrpl.Text)
Dokumennya.Bookmarks("Mdbms").Select()
Appnya.Selection.TypeText(Mdbms.Text)
Dokumennya.Bookmarks("Mvisual").Select()
Appnya.Selection.TypeText(Mvisual.Text)
Dokumennya.Bookmarks("Mimk").Select()
Appnya.Selection.TypeText(Mimk.Text)
Dokumennya.Bookmarks("Metika").Select()
Appnya.Selection.TypeText(Metika.Text)
Dokumennya.Bookmarks("Mos").Select()
Appnya.Selection.TypeText(Mos.Text)
Dokumennya.Bookmarks("Mjoomla").Select()
Appnya.Selection.TypeText(Mjoomla.Text)
Dokumennya.Bookmarks("sks").Select()
Appnya.Selection.TypeText(sks.Text)
Dokumennya.Bookmarks("mutu").Select()
Appnya.Selection.TypeText(mutu.Text)
Dokumennya.Bookmarks("ipk").Select()
Appnya.Selection.TypeText(ipk.Text)
Dokumennya.SaveAs2("D:\ZHAK\Semester V\Pemrograman Visual\UTS\ NILAI IP.docx" + nim.Text + ".docx")
End Sub
Klik button "Add" untuk membuat data yang baru
ini source code nya:
Private Sub Button3_Click_2(sender As Object, e As EventArgs) Handles Button3.Click
nim.Text = ""
nama.Text = ""
cmbhari.Text = ""
cmbtgl.Text = ""
cmbth.Text = ""
ps.Text = ""
js.Text = ""
smt.Text = ""
thak.Text = ""
rpl.Text = ""
dbms.Text = ""
visual.Text = ""
imk.Text = ""
etika.Text = ""
os.Text = ""
joomla.Text = ""
Nrpl.Text = ""
Ndbms.Text = ""
Nvisual.Text = ""
Nimk.Text = ""
Netika.Text = ""
Nos.Text = ""
Njoomla.Text = ""
Mrpl.Text = ""
Mdbms.Text = ""
Mvisual.Text = ""
Mimk.Text = ""
Metika.Text = ""
Mos.Text = ""
Mjoomla.Text = ""
sks.Text = ""
mutu.Text = ""
ipk.Text = ""
End Sub
End Class
Dan button "Exit" untuk keluar jika sudah selesai menginput data
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim x = MsgBox("Yakin Selesai?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")
If x = vbYes Then
Me.Close()
'End
End If
End Sub
Gambar Hasil Running
Gambar Hasil koneksi ke Ms.word
Terima Kasih" ^-^
Tidak ada komentar:
Posting Komentar