Program Form Menggunakan Visual Studio 2017

Membuat Program Form Menggunakan Visual Studio 2017

  1.  Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program yang memiliki label (Nama, Jenis Kelamin, Fakultas), textbox, 2 buah combobox dan Button tampilkan .

      

  2. Coding setiap button dengan source code seperti di bawah ini

Public Class Form1

    Private Sub btnTampil_Click(sender As Object, e As EventArgs) Handles btnTampil.Click

        MessageBox.Show(txtnama.Text & vbCrLf & cbojeniskelamin.Text & vbCrLf & cbofakultas.Text,

                         "Hasil Pengisian", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

End Class

  3. Setelah Selesai Jalankan atau Running Program

Tampilan hasil running pada program Percobaan Form ketikan sudah selesai mingisi data dan mengklik tampilkan hasil.

Program Belanja Sederhana Menggunakan Visual Studio 2017

Membuat Program Belanja Sederhana Menggunakan Visual Studio 2017

  1. Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program yang memiliki label (Nama Barang, Harga Satuan, Jumlah Barang, Total Harga, Diskon, Total Bayar, Bonus), textbox dan 3 buah button (Hitung, Ulang, Keluar).

  2. Coding setiap button dengan source code seperti di bawah ini

    

Public Class Form1

    Private Sub btnulang_Click(sender As Object, e As EventArgs) Handles btnulang.Click

        'membersihkan ini text box

        txtNama.Text = ""

        txtHarga.Text = ""

        txtJumlah.Text = ""

        txtTotal.Text = ""

        txtDiskon.Text = ""

        txtBayar.Text = ""

        txtBonus.Text = ""

        txtNama.Focus()

    End Sub

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

        'Deklarasi

        Dim Harga, Jumlah As Integer

        Dim Total, Diskon, Bayar As Double

        Dim Bonus As String

        'Deklarasi input harga dan jumlah

        Harga = txtHarga.Text

        Jumlah = txtJumlah.Text

        'Perhitungan Total harga

        Total = Harga * Jumlah

        'Penentuan Diskon dan bonus

        If Total >= 500000 Then

            Diskon = 0.2 * Total

            Bonus = "Tas Pinggang"

        ElseIf Total >= 200000 Then

            Diskon = 0.15 * Total

            Bonus = "Payung"

        ElseIf Total >= 100000 Then

            Diskon = 0.1 * Total

            Bonus = "Kaos"

        ElseIf Total >= 50000 Then

            Diskon = 0.05 * Total

            Bonus = "Pulpen"

        Else

            Diskon = 0

            Bonus = "Tidak ada"

        End If

        'Perhitungan Total bayar

        Bayar = Total - Diskon

        'Deklarasi keluaran semua

        txtTotal.Text = Total

        txtDiskon.Text = Diskon

        txtBayar.Text = Bayar

        txtBonus.Text = Bonus

    End Sub

    Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

3. Hasil tampilan program form belanja sederhana.

a.       ini pada barang untuk mendapatkan Bonus Tas Pinggang.

b.   ini pada barang untuk mendapatkan Bonus Payun

c.       ini pada barang untuk mendapatkan Bonus Kaos

d.      ini pada barang untuk mendapatkan Bonus Pulpen

e.       ini pada barang apabila tidak mendapatkan bonus

Program Hitung Nilai Menggunakan Visual Studio 2017

Membuat Program Menghitung Nilai Dengan Menggunakan Visual Studio 2017

  1.  Mendesain Form terlebih dahulu

      Dibawah ini merupakan tampilan desain program yang memiliki label (Nama,Tugas,UTS,UAS,Nilai Akhir,Nilai Huruf), textbox, 2 buah combobox dan Button Hitung .

  2. Coding setiap button dengan source code seperti di bawah ini

Public Class Program

    Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click

        Dim Tugas, UTS, UAS, NA As Double

        Dim NH, Nama As String

        Nama = txtNama.Text

        NA = Val(txtNA.Text)

        Tugas = Val(txtTugas.Text)

        UTS = Val(txtUTS.Text)

        UAS = Val(txtUAS.Text)

        NA = (0.2 * Tugas + 0.3 * UTS + 0.5 * UAS)

        txtNH.Text = NH

        If NA <= 40 Then

            NH = "E"

        ElseIf NA <= 50 Then

            NH = "D"

        ElseIf NA <= 60 Then

            NH = "C"

        ElseIf NA <= 70 Then

            NH = "B"

        ElseIf NA >= 80 Then

            NH = "A"

        End If

        txtNA.Text = NA

        txtNH.Text = NH

    End Sub

End Class

  3. Setelah Selesai Jalankan atau Running Program

Hasil dari tampilan Dibawah ini merupakan Progam Hitung Nilai dari label yang berisi Nama, Tugas UTS, dam UAS. kemudian klik tombol bottom yang bertulis Hitung lalu muncul label yang berisi Nilai Akhir dan Nilai Huruf..

Program Perulangan ke - 2 Menggunakan Visual Studio 2017

Membuat Program Perulangan ke - 2 Menggunakan Visual Studio 2017

  1. Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program listbox dan 3 buah botton yang berisi For next, Do While, Do Until.

  2. Coding setiap button dan combobox dengan source code seperti di bawah ini

Public Class Form1

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

        ListBox1.Items.Clear()

        For i = 1 To 10

            ListBox1.Items.Add("For Next" & i)

        Next

    End Sub

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

        ListBox1.Items.Clear()

        Dim i As Integer = 0

        Do While i <= 10

            ListBox1.Items.Add("Do While" & i)

            i = i + 1

        Loop

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        ListBox1.Items.Clear()

        Dim i As Integer = 0

        Do Until i > 10

            ListBox1.Items.Add("Do Until" & i)

            i = i + 1

        Loop

    End Sub

End Class

  3. Setelah Selesai Jalankan atau Running Program

      a. Ketika Mengklik Button For next

      b. Ketika Mengklik Button Do While

      c. Ketika Mengklik button Do Until

Program Perulangan Teks Menggunakan Visual Studio 2017

Membuat Program Pengulangan Teks Menggunakan Visual Studio 2017

  1. Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program perulangan teks dengan memiliki label (Tuliskan Teks, Jumlah Pengulangan), textbox, Listbox dan button (Proses, Clear, Keluar).

  2.  Coding setiap button dengan source code seperti di bawah ini

Public Class Form1

    Private Sub btnKeluar_Click(sender As Object, e As EventArgs) Handles btnKeluar.Click

        End

    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

        txtTeks.Text = ""

        txtJumlah.Text = ""

        List1.Items.Clear()

    End Sub

    Private Sub btnProses_Click(sender As Object, e As EventArgs) Handles btnProses.Click

        Dim teks As String

        Dim jumlah As Integer

        teks = txtTeks.Text

        jumlah = txtJumlah.Text

        For i = 1 To jumlah

            List1.Items.Add(teks)

        Next

    End Sub

End Class

  3. Setelah Selesai Jalankan atau Running Program

Hasil tampilan pada program perulangan teks tuliskan teks kemudian ketikkan jumlah perulangan sesuai keinginan apabila kita klik proses maka akan muncul di listbox.klik clear untuk mengulang Program dan klik keluar untul keluar dari program.

Program Order Makanan Menggunakan Visual Studio 2017

Membuat Program Order Makanan Menggunakan Visual Studio 2017

  1. Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program yang memiliki label (Harga, Berapa Porsi makanan,Berapa porsi minnum,dan Rp.), textbox, checkbox, 2 buah combobox dan Button Hitung. Pada label Rp. Itu merupakan output harga.

  2. Coding setiap button dan combobox dengan source code seperti di bawah ini

Public Class Form1

    Public hrgmakanan, hrgminum As Integer

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        Select Case ComboBox1.Text

            Case "Nasi Uduk"

                Label2.Text = "Rp. 3500"

                hrgmakanan = 3500

            Case "Bakso"

                Label2.Text = "Rp. 5000"

                hrgmakanan = 5000

            Case "Mie Ayam"

                Label2.Text = "Rp. 7000"

                hrgmakanan = 7000

        End Select

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

        Select Case ComboBox2.Text

            Case "Es Jeruk"

                Label4.Text = "Rp. 3000"

                hrgminum = 3000

            Case "Jus Alpukat"

                Label4.Text = "Rp. 7000"

                hrgminum = 7000

            Case "Teh Manis"

                Label4.Text = "Rp. 4000"

                hrgminum = 4000

        End Select

    End Sub

    Public Sub New()

        InitializeComponent()

        ComboBox2.Visible = False

        Label3.Visible = False

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Enabled = False Then

            ComboBox2.Visible = False

        End If

        If CheckBox1.Enabled = True Then

            ComboBox2.Visible = True

            Label3.Visible = True

        End If

    End Sub

    Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click

        Dim porsimkn, porsimnm, jumlah As Integer

        porsimkn = TextBox1.Text

        porsimnm = TextBox2.Text

        jumlah = (hrgmakanan * porsimkn) + (hrgminum * porsimnm)

        Label8.Text = "Rp. " & jumlah.ToString

    End Sub

End Class

  3. Setelah Selesai Jalankan atau Running Program

Hasil dari tampilan Dibawah ini merupakan Progam Hitung Nilai dari label yang berisi Combobox pilihan. Kemudian apa bila kita mengklik checkbox maka akan muncul combobox pilihan minuman, kemdian menghitung harga sesuai porsi makanan dan minuman.