Tutorial Program Visual Basic

Pada kesempatan kali ini saya akan menjelaskan tutorial bagaimana membuat pengkodingan sebuah program pada Visual Basic.

Anda dapat memilih Create Project pada laman tersebut. Kemudian, setelah memilih create project  anda akan  memilih program apa yang ingin anda buat. Karena program yang akan kita buat adalah sebuah program visual basic maka pilih visual basic pada pilihan sebelah kiri dan pilih Windows Form Application pada pilihan sebelah  kanan.  Seperti yang dapat kita lihat dibawah kolom Project Types and Templates. Kita juga dapat memberi/mengganti nama file yang akan kita buat. Kemudian kita akan masuk kedalam halaman kerja form yang akan kita buat .

Jika Properties Window dan Toolbox tidak otomatis ada didalam laman. Kita dapat menambahkannya dengan mengklik View dan memilih Properties Window dan Toolbox. Dapat juga dilakukan dengan menekan F4 untuk Properties Window dan ctrl + alt + x untuk Toolbox.

Di bawah ini adalah tampilan form kalkulator

Di bawah ini koding dari form di atas


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        txtNilai.Text = ""
        txtGrade.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox8.Text = Val(TextBox4.Text * 30 / 100) + Val(TextBox5.Text * 10 / 100) + Val(TextBox6.Text * 30 / 100) + Val(TextBox7.Text * 30 / 100)
        If Val(TextBox8.Text) >= 65 Then
            txtNilai.Text = "Lulus"
        Else
            txtNilai.Text = " Tidak Lulus "
        End If
        Select Case Val(TextBox8.Text)
            Case Is >= 85
                txtGrade.Text = "A"
            Case Is >= 75
                txtGrade.Text = "B"
            Case Is >= 65
                txtGrade.Text = "C"
            Case Is >= 55
                txtGrade.Text = "D"
            Case Else
                txtGrade.Text = "E"
        End Select
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tanggal As Integer
        Dim bulan As Integer
        Dim tahun As Integer
        For tanggal = 1 To 31
            cmbtanggal.Items.Add(tanggal)
        Next
        For bulan = 1 To 12
            Cmbbulan.Items.Add(bulan)
        Next
        For tahun = 2000 To 1990 Step -1
            Cmbtahun.Items.Add(tahun)
        Next
    End Sub
End Class