Program Visual Basic Sederhana

Ada yang lagi belajar Visual Basic ?

Gimana ? Mumet nggak haha :v *lumayandeh

Kalo saya sendiri mumet yaaa .... meskipun gitu harus tetep belajar eaa :v

oke lanjut.

Apa itu Visual Basic ? Visual BASIC adalah (Beginners All-Purpose Symbolic Instruction Code) merupakan sebuah bahasa pemrograman yang dapat digunakan untuk membuat suatu aplikasi dalam Microsoft Windows. Visual BASIC menggunakan metode Graphical User Interface (GUI) dalam pembuatan program aplikasi (project). Istilah visual mengacu pada metode pembuatan tampilan program (Interface) atau objek pemrograman yang biasa dilakukan secara langsung terlihat oleh programmer. Dalam Visual

BASIC, pembuatan program aplikasi harus dikerjakan dalam sebuah project. Sebuah Project dapat terdiri dari File Project (.vbp), File Form (.frm), File data binary (.frx), Modul Class (.cls), Modul Standar (.bas), dan file resource tunggal (.res). Bahasa yang digunakan adalah bahasa BASIC yang sangat populer pada era sistem operasi DOS.

Contoh Program VB Sederhana :

1. Simpan dengan nama Form_Nilai_Siswa.

2. Kemudian buatlah sebuah form dengan desain seperti berikut. lalu klik dua kali pada form.
 

3. Setelah itu tulis koding berikut.

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("101001")
        npm.Items.Add("201002")
        npm.Items.Add("301003")
        npm.Items.Add("401004")
        npm.Items.Add("501005")

        kode_dosen.Items.Add("A78001")
        kode_dosen.Items.Add("B79002")
        kode_dosen.Items.Add("C80003")
        kode_dosen.Items.Add("D81004")
        kode_dosen.Items.Add("E82005")

        kode_matakuliah.Items.Add("A20")
        kode_matakuliah.Items.Add("B31")
        kode_matakuliah.Items.Add("C42")
        kode_matakuliah.Items.Add("D51")
        kode_matakuliah.Items.Add("E60")

        nilai_kehadiran.Items.Add("5")
        nilai_kehadiran.Items.Add("6")
        nilai_kehadiran.Items.Add("7")
        nilai_kehadiran.Items.Add("8")
        nilai_kehadiran.Items.Add("9")
        nilai_kehadiran.Items.Add("10")

        nilai_tugas.Items.Add("4")
        nilai_tugas.Items.Add("5")
        nilai_tugas.Items.Add("6")
        nilai_tugas.Items.Add("7")
        nilai_tugas.Items.Add("8")
        nilai_tugas.Items.Add("9")

        nilai_uts.Items.Add("3")
        nilai_uts.Items.Add("4")
        nilai_uts.Items.Add("5")
        nilai_uts.Items.Add("6")
        nilai_uts.Items.Add("7")
        nilai_uts.Items.Add("8")
        nilai_uts.Items.Add("9")

        nilai_uas.Items.Add("3")
        nilai_uas.Items.Add("4")
        nilai_uas.Items.Add("5")
        nilai_uas.Items.Add("6")
        nilai_uas.Items.Add("7")
        nilai_uas.Items.Add("8")
        nilai_uas.Items.Add("9")

        nilai_akhir.Enabled = False
        nilai_huruf.Enabled = False
        keterangan.Enabled = False
    End Sub
    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "101001"
                nama.Text = "Nur Sri Indah Setiani"
            Case "201002"
                nama.Text = "Putri Dwi Lestari"
            Case "301003"
                nama.Text = "Abid Aqila Pranaja"
            Case "401004"
                nama.Text = "Dessy Anggraeni"
            Case "501005"
                nama.Text = "Arie Kurniawan Harjanto"
        End Select
        Dim x As String
        x = Microsoft.VisualBasic.Left(npm.Text, 2)
        If x = "10" Then
            jenjang.Text = "D3"
            jurusan.Text = "Teknologi Informasi Dan Komunikasi"
        ElseIf x = "20" Then
            jenjang.Text = "D3"
            jurusan.Text = "Teknologi Informasi Dan Komunikasi"
        ElseIf x = "30" Then
            jenjang.Text = "SMK"
            jurusan.Text = "Teknologi Informasi Dan Komunikasi"
        ElseIf x = "40" Then
            jenjang.Text = "D3"
            jurusan.Text = "Teknologi Informasi Dan Komunikasi"
        ElseIf x = "50" Then
            jenjang.Text = "D3"
            jurusan.Text = "Teknologi Informasi Dan Komunikasi"
        End If
    End Sub
    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select Case kode_dosen.Text
            Case "A78001"
                nama_dosen.Text = "Ida Fitriani"
            Case "B79002"
                nama_dosen.Text = "Nailil Muna"
            Case "C80003"
                nama_dosen.Text = "Suwondo"
            Case "D81004"
                nama_dosen.Text = "Andik Fajariyanto"
            Case "E82005"
                nama_dosen.Text = "Budi Catur Wardana"
        End Select
    End Sub

    Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        Select Case kode_matakuliah.Text
            Case "A20"
                mata_kuliah.Text = "Pemrograman Dekstop"
            Case "B31"
                mata_kuliah.Text = "Basis Data"
            Case "C42"
                mata_kuliah.Text = "Pemrograman Web Dinamis"
            Case "D51"
                mata_kuliah.Text = "Sistem Komputer"
            Case "E60"
                mata_kuliah.Text = "Pemrograman Java"
        End Select
    End Sub
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nilai_akhir.Text = 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text + 0.1 * nilai_kehadiran.Text + 0.15 * nilai_tugas.Text
        If nilai_akhir.Text >= 8 Then
            nilai_huruf.Text = "A"
            keterangan.Text = "LULUS"
            MsgBox("Sangat Sangat Memuaskan!")
        ElseIf nilai_akhir.Text >= 7 Then
            nilai_huruf.Text = "B"
            keterangan.Text = "LULUS"
            MsgBox("Memuaskan!")
        ElseIf nilai_akhir.Text >= 6 Then
            nilai_huruf.Text = "C"
            keterangan.Text = "LULUS"
            MsgBox("Cukup Memuaskan!")
        ElseIf nilai_akhir.Text >= 5 Then
            nilai_huruf.Text = "D"
            keterangan.Text = "GAGAL"
            MsgBox("GAGAL!")
        ElseIf nilai_akhir.Text >= 4 Then
            nilai_huruf.Text = "E"
            keterangan.Text = "GAGAL"
            MsgBox("GAGAL!")
        End If
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matakuliah.Text = ""
        mata_kuliah.Text = ""
        nilai_kehadiran.Text = ""
        nilai_tugas.Text = ""
        nilai_uts.Text = ""
        nilai_uas.Text = ""
        nilai_akhir.Text = ""
        nilai_huruf.Text = ""
        keterangan.Text = ""
    End Sub
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda ingin Keluar?", MsgBoxStyle.YesNo)
        If tanya = vbCancel Then
            Me.Close()
        ElseIf tanya = vbNo Then
            Me.Focus()
        ElseIf tanya = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

4. Save dan klik Start Debbuging (Panah Hijau).

Gimana berhasil kah ?
Lumayan panjang ya script nya haha...
Selamat Mencoba :))