Membuat Aplikasi Input Data Mahasiswa

Penjelasan :
Aplikasi ini bertujuan untuk menyimpan data mengenai mahasiswa dalam satu universitas / perguruan tinggi.

Screen Shoot :

Source Code :
Script Form1.vb
Imports System.Data.OleDb
Public Class Form1
    Dim kon As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data_mahasiswa.accdb")
    Dim xReader As OleDbDataReader

Sub kosong()
        txtNim.Text = ""
        txtNama.Text = ""
        rbl.Checked = False
        rbp.Checked = False
        cbSmt.Text = ""
        txtTA.Text = ""
End Sub

Sub hidup()
        txtNim.Enabled = True
        txtNama.Enabled = True
        rbl.Checked = True
        rbp.Checked = True
        cbSmt.Enabled = True
        cbSmt.SelectedItem = 1
        txtTA.Enabled = True
        btnSimpan.Enabled = True
        btnEdit.Enabled = True
        btnHapus.Enabled = True
End Sub

Sub mati()
        txtNim.Enabled = False
        txtNama.Enabled = False
        rbl.Checked = False
        rbp.Checked = False
        cbSmt.Enabled = False
        txtTA.Enabled = False
        btnSimpan.Enabled = False
        btnEdit.Enabled = False
        btnHapus.Enabled = False
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Data_mahasiswaDataSet1.tabel_mahasiswa' table. You can move, or remove it, as needed.
        Me.Tabel_mahasiswaTableAdapter1.Fill(Me.Data_mahasiswaDataSet1.tabel_mahasiswa)
        kon.Close()
        kon.Open()
        cbSmt.Items.Add("Satu")
        cbSmt.Items.Add("Dua")
        cbSmt.Items.Add("Tiga")
        cbSmt.Items.Add("Empat")
        cbSmt.Items.Add("Lima")
        cbSmt.Items.Add("Enam")
        cbSmt.Items.Add("Tujuh")
        cbSmt.Items.Add("Delapan")
        mati()
        btnTambah.Focus()
End Sub

Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
        hidup()
        txtNim.Focus()
End Sub

Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        If txtNim.Text = "" And txtNama.Text = "" And txtTA.Text = "" Then
            MsgBox("Masih ada Data yang kosong", MsgBoxStyle.Information, "Informasi")
        Else
            Dim jk As String = ""
            If rbl.Checked Then
                jk = "Laki-Laki"
            Else
                jk = "Perempuan"
            End If

            kon.Close()
            kon.Open()
            Dim sql As String = "INSERT INTO tabel_mahasiswa (NIM, Nama, Jenis_Kelamin, Semester, Tahun_Angkatan) VALUES ('" & txtNim.Text & "', '" & txtNama.Text & "', '" & jk & "', '" & cbSmt.Text & "', '" & txtTA.Text & "')"
            Dim eks = New OleDbCommand(sql, kon)
            eks.ExecuteNonQuery()
            kon.Close()
            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "Informasi")
        End If
End Sub

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        Dim jk As String = ""
        If rbl.Checked Then
            jk = "Laki-Laki"
        Else
            jk = "Perempuan"
        End If

        kon.Close()
        kon.Open()
        Dim sql As String = "UPDATE tabel_mahasiswa SET Nama = '" & txtNama.Text & "', Jenis_Kelamin = '" & jk & "', Semester = '" & cbSmt.SelectedItem & "', Tahun_Angkatan = '" & txtTA.Text & "'"
        Dim eks = New OleDbCommand(sql, kon)
        eks.ExecuteNonQuery()
        kon.Close()
        MsgBox("Data Berhasil Diubah", MsgBoxStyle.Information, "Informasi")
End Sub

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        kon.Close()
        kon.Open()
        Dim sql As String = "DELETE FROM tabel_mahasiswa WHERE NIM='" & txtNim.Text & "'"
        Dim eks = New OleDbCommand(sql, kon)
        eks.ExecuteNonQuery()
        kon.Close()

        MsgBox("Data Berhasil Dihapus", MsgBoxStyle.Information, "Informasi")
        btnEdit.Enabled = False
        btnHapus.Enabled = False
End Sub
End Class

Membuat Aplikasi Booking Studio Musik Sederhana

Penjelasan :
Aplikasi booking ini bertujuan untuk mempermudah para pemilik studio musik untuk menghitung total biaya yang harus dibayar oleh para penyewa.

Fitur yang terdapat pada aplikasi ini adalah :
1. Harga per jam
2. Jika penyewa memesan studio >= 3 jam, maka akan mendapat diskon 20%
3. Tombol Proses, untuk menghitung total biaya yang harus dibayar oleh para penyewa
4. Tombol Batal, untuk membatalkan pemesanan
5. Tombol Keluar, untuk keluar dari aplikasi ini

Screen Shoot :

Source Code :
Script Form1.vb
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For a As Integer = 1 To 4
            cmbSM.Items.Add("Studio Musik " & a)
        Next

        Dim jm As Integer = 9
        Do While jm < 23
            cmbJM.Items.Add(jm & ":00")
            jm = jm + 1
        Loop

        Dim js As Integer = 9
        Do While js < 23
            cmbJS.Items.Add(js & ":00")
            js = js + 1
        Loop

        txtHargaJam.Enabled = False
        txtTotalJam.Enabled = False
        txtTotalBayar.Enabled = False
        txtPersenDiskon.Enabled = False
        txtNominalDiskon.Enabled = False
        txtHargaDiskon.Enabled = False
    End Sub

    Private Sub proses()
        Dim hitung As KelasNya = New KelasNya
        txtTotalJam.Text = hitung.pengurangan(Val(cmbJS.Text), Val(cmbJM.Text))
        If txtTotalJam.Text <= 0 Then
            MsgBox("Jam Mulai tidak boleh lebih atau sama dengan Jam Selesai", MsgBoxStyle.Information, "Peringatan!")
            cmbJM.SelectedIndex = 0
            txtHargaJam.Text = 0
            txtTotalJam.Text = 0
            txtTotalBayar.Text = 0
            txtPersenDiskon.Text = 0
            txtNominalDiskon.Text = 0
            txtHargaDiskon.Text = 0
        Else
            Select Case cmbSM.Text
                Case Is = "Studio Musik 1"
                    txtHargaJam.Text = "80000"
                    txtHargaJam.Text = FormatNumber(txtHargaJam.Text)
                Case Is = "Studio Musik 2"
                    txtHargaJam.Text = "70000"
                    txtHargaJam.Text = FormatNumber(txtHargaJam.Text)
                Case Is = "Studio Musik 3"
                    txtHargaJam.Text = "60000"
                    txtHargaJam.Text = FormatNumber(txtHargaJam.Text)
                Case Is = "Studio Musik 4"
                    txtHargaJam.Text = "50000"
                    txtHargaJam.Text = FormatNumber(txtHargaJam.Text)
            End Select

            If txtTotalJam.Text >= 3 Then
                txtPersenDiskon.Text = "20"
                txtTotalBayar.Text = FormatNumber(hitung.totalbayar(txtHargaJam.Text, txtTotalJam.Text))
                txtNominalDiskon.Text = FormatNumber(hitung.nominaldiskon(txtHargaJam.Text, txtTotalJam.Text, txtPersenDiskon.Text))
                txtHargaDiskon.Text = FormatNumber(hitung.hargadiskon(txtTotalBayar.Text, txtNominalDiskon.Text))
            Else
                txtPersenDiskon.Text = "0"
                txtTotalBayar.Text = FormatNumber(hitung.totalbayar(txtHargaJam.Text, txtTotalJam.Text))
                txtNominalDiskon.Text = FormatNumber(hitung.nominaldiskon2(txtHargaJam.Text, txtTotalJam.Text))
                txtHargaDiskon.Text = FormatNumber(hitung.nominaldiskon2(txtHargaJam.Text, txtTotalJam.Text))
            End If
        End If
    End Sub

    Private Sub batal()
        cmbSM.SelectedIndex = 0
        txtHargaJam.Text = 0
        cmbJM.SelectedIndex = 0
        cmbJS.SelectedIndex = 0
        txtTotalJam.Text = 0
        txtTotalBayar.Text = 0
        txtPersenDiskon.Text = 0
        txtNominalDiskon.Text = 0
        txtHargaDiskon.Text = 0
    End Sub

    Private Sub keluar()
        Dim message As String
        message = MsgBox("Apakah anda yakin akan keluar dari aplikasi ini?", MsgBoxStyle.YesNo, "Konfirmasi!")
        If message = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        proses()
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        batal()
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        keluar()
    End Sub
End Class








Script Class1.vb
Public Class KelasNya
    Public Function pengurangan(ByVal nilai1 As Double, ByVal nilai2 As Double)
        Dim hasil As Double
        hasil = nilai1 - nilai2
        Return hasil
    End Function

    Public Function totalbayar(ByVal nilai1 As Double, ByVal nilai2 As Double)
        Dim hasil As Double
        hasil = nilai1 * nilai2
        Return hasil
    End Function

    Public Function nominaldiskon(ByVal nilai1 As Double, ByVal nilai2 As Double, ByVal nilai3 As Double)
        Dim hasil As Double
        hasil = nilai1 * nilai2 * nilai3 / 100
        Return hasil
    End Function

    Public Function nominaldiskon2(ByVal nilai1 As Double, ByVal nilai2 As Double)
        Dim hasil As Double
        hasil = nilai1 * nilai2
        Return hasil
    End Function

    Public Function hargadiskon(ByVal nilai1 As Double, ByVal nilai2 As Double)
        Dim hasil As Double
        hasil = nilai1 - nilai2
        Return hasil
    End Function
End Class

OOP (Object Oriented Programming)

Pemrograman berorientasi objek (OOP) merupakan metode yang populer dalam dunia rekayasa perangkat lunak saat ini. OOP membuat proses pengembangan perangkat lunak dapat dilakukan secara modular yang berarti sistem dapat dikembangkan tahap demi tahap tanpa mengubah banyak fondasi perangkat lunak yang sudah ada.


OOP (Object Oriented Programming) itu sendiri adalah suatu metode pemrograman yang berorientasi kepada objek. Tujuan dari OOP diciptakan adalah untuk mempermudah pengembangan program dengan cara mengikuti model yang telah ada di kehidupan sehari-hari. Jadi setiap bagian dari suatu permasalahan adalah objek, nah objek itu sendiri merupakan gabungan dari beberapa objek yang lebih kecil lagi.

Saya ambil contoh pesawat, pesawat adalah sebuah objek. Pesawat itu sendiri terbentuk dari beberapa objek yang lebih kecil lagi seperti mesin, roda, baling-baling, kursi, dll. Pesawat sebagai objek yang terbentuk dari objek-objek yang lebih kecil saling berhubungan, berinteraksi, berkomunikasi dan saling mengirim pesan kepada objek-objek yang lainnya. Begitu juga dengan program, sebuah objek yang besar dibentuk dari beberapa objek yang lebih kecil, objek-objek itu saling berkomunikasi, dan saling berkirim pesan kepada objek yang lain.

Suatu program disebut dengan pemrograman berbasis obyek (OOP) karena terdapat :

• Inheritance
• Encapsulation
• Polymorphism

Untuk kali ini saya akan membahas tentang Polymorphism
Polymorphism, yaitu suatu object bisa bertindak lain terhadap message/method yang sama.
Misalkan kita punya satu class hewan dan diturunkan menjadi dua class hewan berkaki dua dan hewan berkaki empat. Ketika hewan berkaki dua melakukan method makan maka yang dilakukan adalah makan dengan paruhnya, dan ketika hewan berkaki empat juga makan maka dia akan menggunakan mulutnya. Keduanya melakukan aksi yang sama yaitu makan akan tetapi perlakuannya lain.

Contoh :
class Binatang
{
public void info()
{
System.out.println(” Info tentang Hewan : “);
}
}

class Herbivora extends Binatang
{
public void info()
{
System.out.println (“Info pada herbivora: Memakan makanan berupa tumbuh – tumbuhan”);
}
}
class Kelinci extends Herbivora
{
public void info()
{
System.out.println(“Info pada Kelinci: Memakan makanan berupa wortel”);
}
}
public class Polimorfisme
{
public static void main(String[] args)
{
Herbivora herbivora;
Kelinci kelinciku;
Binatang hewan;
herbivora=new Herbivora();
kelinciku=new Kelinci();
hewan=herbivora;
hewan.info();
hewan=kelinciku;
hewan.info();
}
}