Scribd
Upload
49 views3 pages

Source Code Form Utama: Formutama Eventargs

This code defines two classes - FormUtama and UTS. FormUtama contains the main form and loads the UTS form when a menu item is clicked. The UTS class handles a form for inputting student course data. It contains methods to add/remove rows from a data grid, calculate total credits, and populate drop downs based on selected major. When a course is selected, it sets the associated credit hours text box.

Uploaded by

Sifa Fauziah
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
49 views3 pages

Source Code Form Utama: Formutama Eventargs

This code defines two classes - FormUtama and UTS. FormUtama contains the main form and loads the UTS form when a menu item is clicked. The UTS class handles a form for inputting student course data. It contains methods to add/remove rows from a data grid, calculate total credits, and populate drop downs based on selected major. When a course is selected, it sets the associated credit hours text box.

Uploaded by

Sifa Fauziah
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

SOURCE CODE FORM UTAMA

Public Class FormUtama

Private Sub FormUtama_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub KRSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles


KRSToolStripMenuItem.Click
UTS.MdiParent = Me
UTS.Show()

End Sub

End Class

______________________________________________________________________________________

SOURCE CODE UTS


Public Class UTS
Dim jurusan As Char

Private Sub tampil()


dgv.Rows.Add(1)
dgv.Rows(dgv.RowCount - 2).Cells(0).Value = cmb_jurusan.Text
dgv.Rows(dgv.RowCount - 2).Cells(1).Value = cmb_matkul.Text
dgv.Rows(dgv.RowCount - 2).Cells(2).Value = txt_sks.Text

End Sub

Private Sub btn_simpan_Click(sender As Object, e As EventArgs) Handles


btn_simpan.Click
If txt_nama.Text = "" Or txt_alamat.Text = "" Or txt_tempat.Text = "" Or
txt_date.Text = "" Or
txt_hp.Text = "" Or txt_email.Text = "" Or txt_sks.Text = "" Then
MsgBox("Silahkan Lengkapi Data!!!", MsgBoxStyle.Information, "Informasi")
Else
Me.tampil()
End If

Dim tot As Double


tot = 0

For i = 0 To dgv.RowCount - 1
tot = tot + dgv.Rows(i).Cells(2).Value
jumlah_sks.Text = tot
Next i

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


btn_hapus.Click
Dim i As Integer
i = dgv.CurrentRow.Index
dgv.Rows.RemoveAt(i)

Dim hapus As Double


hapus = 0

For i = 0 To dgv.RowCount - 1
hapus = hapus + dgv.Rows(i).Cells(2).Value
jumlah_sks.Text = hapus
Next i
End Sub

Private Sub cmb_matkul_SelectedIndexChanged(sender As Object, e As EventArgs)


Handles cmb_matkul.SelectedIndexChanged
Select Case cmb_matkul.Text
Case "METODOLOGI PENELITIAN"
txt_sks.Text = 2
Case "ETIKA PROFESI"
txt_sks.Text = 2
Case "KEWIRAUSAHAAN (TK)"
txt_sks.Text = 2
Case "PEMROGRAMAN DESKTOP( TK)"
txt_sks.Text = 3
Case "OTOMASI INDUSTRI (TK)"
txt_sks.Text = 3
Case "KEAMANAN KOMPUTER (TK)"
txt_sks.Text = 3
Case "STATISTIKA DAN PROBABILITAS (TK)"
txt_sks.Text = 3
Case "TECHNOPRENEURSHIP (TI)"
txt_sks.Text = 3
Case "LEAN MANUFAKTUR (TI)"
txt_sks.Text = 3
Case "ENTERPRISE RESOURCE PLANNING (TI)"
txt_sks.Text = 3
Case "MANAJEMEN SUPPLY CHAIN (TI)"
txt_sks.Text = 2
Case "EKONOMI TEKNIK (TI)"
txt_sks.Text = 2
Case "MANAJEMEN PERAWATAN DAN PERBAIKAN (TI)"
txt_sks.Text = 2
Case "KEWIRAUSAHAAN DAN PEMASARAN FARMASI (F)"
txt_sks.Text = 2
Case "FARMAKOLOGI EKSPERIMENTAL (F)"
txt_sks.Text = 3
Case "KOMPONDING & DISPENSING (F)"
txt_sks.Text = 3
Case "FARMASI RUMAH SAKIT (F)"
txt_sks.Text = 2
Case "TEKNOLOGI PENGEMASAN (F)"
txt_sks.Text = 3
Case "PROSES PRODUKSI INDUSTRI FARMASI (F)"
txt_sks.Text = 3
End Select

End Sub

Private Sub cmb_jurusan_SelectedIndexChanged(sender As Object, e As EventArgs)


Handles cmb_jurusan.SelectedIndexChanged
cmb_matkul.Items.Clear()

If cmb_jurusan.SelectedItem = "TEKNIK KOMPUTER" Then


cmb_matkul.Items.Add("METODOLOGI PENELITIAN")
cmb_matkul.Items.Add("ETIKA PROFESI")
cmb_matkul.Items.Add("KEWIRAUSAHAAN (TK)")
cmb_matkul.Items.Add("PEMROGRAMAN DESKTOP( TK)")
cmb_matkul.Items.Add("OTOMASI INDUSTRI (TK)")
cmb_matkul.Items.Add("KEAMANAN KOMPUTER (TK)")
cmb_matkul.Items.Add("STATISTIKA DAN PROBABILITAS (TK)")
ElseIf cmb_jurusan.SelectedItem = "FARMASI" Then
cmb_matkul.Items.Add("METODOLOGI PENELITIAN")
cmb_matkul.Items.Add("ETIKA PROFESI")
cmb_matkul.Items.Add("KEWIRAUSAHAAN DAN PEMASARAN FARMASI (F)")
cmb_matkul.Items.Add("FARMAKOLOGI EKSPERIMENTAL (F)")
cmb_matkul.Items.Add("KOMPONDING & DISPENSING (F)")
cmb_matkul.Items.Add("FARMASI RUMAH SAKIT (F)")
cmb_matkul.Items.Add("TEKNOLOGI PENGEMASAN (F)")
cmb_matkul.Items.Add("PROSES PRODUKSI INDUSTRI FARMASI (F)")
ElseIf cmb_jurusan.SelectedItem = "TEKNIK INDUSTRI" Then
cmb_matkul.Items.Add("METODOLOGI PENELITIAN")
cmb_matkul.Items.Add("ETIKA PROFESI")
cmb_matkul.Items.Add("TECHNOPRENEURSHIP (TI)")
cmb_matkul.Items.Add("LEAN MANUFAKTUR (TI)")
cmb_matkul.Items.Add("ENTERPRISE RESOURCE PLANNING (TI)")
cmb_matkul.Items.Add("MANAJEMEN SUPPLY CHAIN (TI)")
cmb_matkul.Items.Add("EKONOMI TEKNIK (TI)")
cmb_matkul.Items.Add("MANAJEMEN PERAWATAN DAN PERBAIKAN (TI)")
Else
MsgBox("Pilih jurusan dulu", MsgBoxStyle.Information)
End If
End Sub

End Class

You might also like