Contoh program sederhana - Visual Studio

Visual Basic merupakan bahasa pemrograman tingkat tinggi yang lebih mudah digunakan, lebih portable (mudah diadaptasikan) antar platform dan lebih abstrak. Hanya saja, program dalam bahasa tingkat tinggi tidak dapat langsung diterjemahkan oleh komputer sehingga perlu diterjemahkan oleh sebuah translator bahasa yang disebut compiler ke dalam bahasa mesin sebelum akhirnya dieksekusi oleh CPU.

Visual Basic merupakan metode Graphical User Interface (GUI) dalam pembuatan program aplikasi (project). Istilah visual mengacu pada metode pembuatan tampilan program (interface) atau objek pemrograman yang dapat dilihat langsung oleh programmer.

Visual Basic versi terakhir adalah Visual Basic 6.0, setelah itu Microsoft mengembangkan Microsoft Visual Studio. Dalam Visual Studio, pembuatan aplikasi harus dikerjakan dalam sebuah project.

Visual Studio.NET merupakan salah satu bahasa pemrograman yang bisa digunakan untuk membangun aplikasi-aplikasi .NET di platform Microsoft.NET. Microsoft.NET merupakan framework pengembangan yang menyediakan antar muka pemrograman baru untuk layanan Windows dan API (Application Programming Interface). Tidak seperti generasi sebelumnya, Visual Basic versi 6.0 ke kebawah yang lebih difokuskan untuk pengembangan aplikasi desktop, Visual Studio.NET memungkinkan para pengembang membangun bermacam-macam aplikasi, baik desktop, aplikasi web, maupun aplikasi berbasis android. Seiring dengan perkembangan aplikasi perangkat lunak yang semakin kompleks, saat ini Visual Studio.NET terbaru adalah Visual Studio 2019.

Beberapa Object control pada Visual Studio:

a.        Button.

b.        Check Box.

c.         Checked List Box.

d.        Combo box.

e.         Date Time Picker.

f.          Label.

g.        Link Label.

h.        List Box.

i.          List View.

j.          Masket Text Box.

k.         Month Calender.

l.          Notify icon.

m.      Numeric Up Down.

n.        Picture Box.

o.        Progress Bar.

p.        Radio Button.

q.        Rich Text Box.

r.         Text Box.

s.         Tool Tip.

t.          Tree View.

u.        Web Browser.

Dalam membuat program, di butuhkan konsentrasi yang tinggi agar tidak terjadi adanya eror dalam program tersebut, berikut contoh program sederhana menggunakan Visual Studio.

Yang pertama buatlah desain program brikut pada form pertama, untuk backgroundnya bebas.

Sesuaikan nama objek tersebut:

Text box 1 = t xtname

Textboxt2 = mtname

Button 1(Login) = btn1

Button 2 (Exit) = Button2

Jika sudah selesai, masukkan coding berikut (sesuaikan berdasarkan button):

Public Class Form1

Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click

         If txtname.Text = "retno sitompul" And mtname.Text = "12345" =   True Then

                        Me.Hide()

                         txtname.Clear()

                         mtname.Clear()

                         Form2.ShowDialog()

          End If

         If txtname.Text = "" And mtname.Text = "" Then

MsgBox("Tidak Ada User Name atau Password", MsgBoxStyle.Critical, "error")

          Else

           If txtname.Text = "" Then

            MsgBox("Tidak Ada Username", MsgBoxStyle.Critical, "error")

           Else

           If mtname.Text = "" Then

             MsgBox("Password Tidak Boleh Kosong", MsgBoxStyle.Critical,"error")

           Else

            MsgBox("Username atau Password Salah")

                      End If

                   End If

               End If

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

         Dim response As MsgBoxResult

response=MsgBox("Anda yakin Ingin keluar??",        MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm")

         If response = MsgBoxResult.Yes Then

             Me.Dispose()

        ElseIf response = MsgBoxResult.No Then

        End If

    End Sub

End Class

Jika sudah selesai, maka buatlah form baru (form 2) dan desain form tersebut.

Jika sudah selesai di desaian, maka sesuaikan nama objecknya.

Textbox 1 = txtnama

Textbox2 = jumlah

Combobox = cbjenis ( isi dengan pakaian, sprei, boneka, dan karpet)

Textbox3=txtharga

Textbox4=txttotal

Textbox5=txtuang

Textbox6=txtkembalian

Button1 = btnProses

Button2=btnhitung

Button3=btnriset

Button4=btnsimpan

Radiobutton1=rdstandart

Radiobutton2=rdkilat

Jika sudah selesai, masukkan coding berikut (sesuaikan terhadap button)

Private Sub cbjenis_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbjenis.SelectedIndexChanged

       If cbjenis.Text = "Pakaian" Then

           txtharga.Text = "6000"

       ElseIf cbjenis.Text = "Sprei" Then

           txtharga.Text = "8000"

        ElseIf cbjenis.Text = "Boneka" Then

           txtharga.Text = "6000"

        ElseIf cbjenis.Text = "Karpet" Then

           txtharga.Text = "8500"

        End If                

End Sub

 

Private Sub btnproses_Click(sender As Object, e As EventArgs) Handles btnproses.Click

        Dim a As Integer

        Dim b As Integer

        Dim C = "3000"

        Dim total As Integer

        a = txtjumlah.Text

        b = txtharga.Text

        C = "3000"

        total = a * b

        txttotal.Text = total

        If rd2.Checked Then

            txttotal.Text = total + C

        End If

    End Sub

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnhitung.Click

        Dim p As Integer

        Dim q As Integer

        Dim kembalian As Integer

        p = txtuang.Text

        q = txttotal.Text

        kembalian = p - q

        txtkembalian.Text = kembalian

End Sub

 

Private Sub btnreset_Click(sender As Object, e As EventArgs) Handles btnreset.Click

        txtnama.Text = ""

        txtjumlah.Text = ""

        txtharga.Text = ""

        txttotal.Text = ""

        txtuang.Text = ""

        txtkembalian.Text = ""

    End Sub

 

    Private Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click

        Form3.DataGridView1.Rows.Add(1)

        Form3.DataGridView1.Rows(Form3.DataGridView1.RowCount - 2).Cells(0).Value = txtnama.Text

        Form3.DataGridView1.Rows(Form3.DataGridView1.RowCount - 2).Cells(1).Value = txtjumlah.Text

        Form3.DataGridView1.Rows(Form3.DataGridView1.RowCount - 2).Cells(2).Value = cbjenis.Text

        Form3.DataGridView1.Rows(Form3.DataGridView1.RowCount - 2).Cells(3).Value = txttotal.Text

        Form3.DataGridView1.Rows(Form3.DataGridView1.RowCount - 2).Cells(4).Value = dtpengambilan.value

        MsgBox("Disimpan", MsgBoxStyle.Information)

        Form3.Show()

        Me.Hide()

    End Sub

End Class

Jika sudah selesai, maka buatlah form baru (form 3) desain form tersebut seperdi desain berikut.

Sesuaikan nama objectnya.

Datagridview1= Datagridview1

Button1 (Keluar) =button1

Button2 (Input data baru)=button2

Jika sudah selesai, maka masukkan coding berikut, Sesuaikan terhadap button.

Public Class Form3      

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

        Dim response As MsgBoxResult

        response = MsgBox("Anda yakin Ingin keluar??", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm")

        If response = MsgBoxResult.Yes Then

            Me.Dispose()

        ElseIf response = MsgBoxResult.No Then

        End If

        Form1.Show()

        Me.Hide()         

    End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       Form2.Show()

       Me.Hide()

    End Sub

End Class

 

Program tersebut sudah selesai, silahkan anda coba running.

berikut gambar running dari program tersebut.

untuk lebih jelas anda bisa mendownload secara lengkap tutorial tersebut, berikut link downloadnya. 

https://drive.google.com/file/d/1n0MuQd63f3fcQXoOiQRYHvCZ9Dgtqwak/view?usp=sharing  

Terima kasih, semoga bisa membantu.

salam unity.

Bagikan Artikel ini