Cara mebuat perhitungan SKS tanpa database Visual Basic 2005

Di dalam hal ini admint ingin berbagi tentang Microsoft Visual Basic 2005 Express  Edition di dalam pembahasan ini kita membuat pengenalan tentang penggunaan Microsoft Visual Basic 2005 (VB). Cara mebuat perhitungan sks tanpadatabase dengan menggunakan serta source kode yang digunakan VB , beberapa tahapan – tahapan sebagai berikut :

No.	Tahapan – Tahapan	Keteranagan
1.	Sediakan PC / Laptop	Sudah terinstall Sistem Operasi yang anda sukai seperti Windows 7, Windows 8 dll.
2.	Sediakan Softwere	Installkan  Microsoft Visual Basic 2005
3.	Operasikan Microsoft Visual Basic 2005	Seperti Langkah yang akan di jelaskan
4.	Runing Source code yang di buat	Pastikan telah benar semua
www.sulis04.blogspot.com

 Penjelasn :

Langsung saja buka program Microsoft Visual Basic 2005 Express  Edition yang telah dijelaskan pada artikel sebelumnya ( Cara Mengganti backgroud  ) ,kita akan membuat sebuat tampilan seperti dibawah ini :

 

sebelum di run...

setelah di Run...

setelah di run.....

Komponen yang diguanakan adalah label, textbox, ComboBox dan button seperti yang telah dijelaskan pada artikel sebelumnya ( Cara Mengganti backgroud danTulisan )  hanya ditambah ComboBox sebagai alat untuk memilih dan buat sama seperti gambar di atas agar lebih muda.

Source code yang digunakan program diatas silakan samakan namanya pada gambar di atas :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Cmbkodejurusan.Text = "--Pilih Kode Jurusan--"

        Me.Cmbkodejurusan.Items.Add("MIF-K31-2014")

        Me.Cmbkodejurusan.Items.Add("TIK-K24-2010")

        Me.Cmbkodejurusan.Items.Add("SIK-M12-2012")

        Me.Cmbkodejurusan.Items.Add("SKA-M12-2011")

        Me.Cmbkodejurusan.Items.Add("MRS-K12-2012")

        Me.Cmbkodematkuliah.Text = "--Pilih Kode Mata Kuliah--"

        Me.Cmbkodematkuliah.Items.Add("SIMK-14-04-01")

        Me.Cmbkodematkuliah.Items.Add("PPW-12-02-03")

        Me.Cmbkodematkuliah.Items.Add("MCC-13-04-02")

        Me.Cmbkodematkuliah.Items.Add("VBN-12-04-06")

        Me.Cmbkodematkuliah.Items.Add("LOG-14-02-05")

    End Sub

    Private Sub Cmbkodejurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbkodejurusan.SelectedIndexChanged

        If Me.Cmbkodejurusan.SelectedIndex = 0 Then

            TextBox3.Text = "Manajemen Informatika"

            TextBox4.Text = "2014"

        ElseIf Me.Cmbkodejurusan.SelectedIndex = 1 Then

            TextBox3.Text = "Teknik Informatika"

            TextBox4.Text = "2010"

        ElseIf Me.Cmbkodejurusan.SelectedIndex = 2 Then

            TextBox3.Text = "Sistem Informasi Komputer"

            TextBox4.Text = "2012"

        ElseIf Me.Cmbkodejurusan.SelectedIndex = 3 Then

            TextBox3.Text = "Sistem Komputer Akutansi"

            TextBox4.Text = "2011"

        ElseIf Me.Cmbkodejurusan.SelectedIndex = 4 Then

            TextBox3.Text = "Manajemen Rumah Sakit"

            TextBox4.Text = "2012"

        End If

        kosongkan()

    End Sub

    Private Sub Cmbkodematkuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmbkodematkuliah.SelectedIndexChanged

        If Me.Cmbkodematkuliah.SelectedIndex = 0 Then

            TextBox5.Text = "Sistem Informasi Manajemen Komputer"

            TextBox6.Text = "01"

            TextBox7.Text = "Senin"

        ElseIf Me.Cmbkodematkuliah.SelectedIndex = 1 Then

            TextBox5.Text = "Praktikum Pemograman Website"

            TextBox6.Text = "02"

            TextBox7.Text = "Selasa"

        ElseIf Me.Cmbkodematkuliah.SelectedIndex = 2 Then

            TextBox5.Text = "Microsoft Acces Programing"

            TextBox6.Text = "03"

            TextBox7.Text = "Rabu"

        ElseIf Me.Cmbkodematkuliah.SelectedIndex = 3 Then

            TextBox5.Text = "Visual Basic Net 2008"

            TextBox6.Text = "04"

            TextBox7.Text = "Kamis"

        ElseIf Me.Cmbkodematkuliah.SelectedIndex = 4 Then

            TextBox5.Text = "Logika dan Algoritma (C++)"

            TextBox6.Text = "05"

            TextBox7.Text = "Jum'at"

        ElseIf Me.Cmbkodematkuliah.SelectedIndex = 5 Then

            TextBox5.Text = "Manajemen Rumah Sakit"

            TextBox6.Text = "06"

            TextBox7.Text = "Sabtu"

        End If

    End Sub

    Private Sub tbtotalsks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbtotalsks.TextChanged

        Dim edi As New Integer

        Dim sulis As New Integer

        Dim hasil As New Integer

        edi = Val(tbtotalsks.Text)

        sulis = Val(tbbiayapendaftaran.Text)

        hasil = edi * sulis

        tbtotalbiaya.Text = hasil

    End Sub

    Public Sub kosongkan()

        tbbiayapendaftaran.Text = ""

        tbtotalsks.Text = ""

        tbtotalbiaya.Text = ""

    End Sub

    Private Sub tbnim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbnim.TextChanged

        If Me.tbnim.Text = "13.453.018" Then

            tbnamalengkap.Text = "SULIS"

        ElseIf Me.tbnim.Text = "13.453.019" Then

            tbnamalengkap.Text = "Muhammad Junaidi"

        End If

    End Sub

End Class

 setelah itu di run.... semoga bermanfaat...

Untuk mengetahui gimana cara kerja dari pemograman java dan lainnya caranya klik cara kerja pemograman java, cara menghitung luas persegi panjang vibi.net, Cara Mengganti backgroud vibi.net , cara mengecek java di CMD, CARA MEMBUAT Getinputfromkeyword,sekian dari admint semoga bermanfaat. dan klik ilmu pengetahuan yang admint miliki terima kasih.