Kali ini saya akan menshare Sintakan Coding tentang penjualan tiket bioskop dan Snack nya sekalian, CEKIDOT para gan gan gan.........

Tampilan nya Running nya seperti gambar dibawah ini gan,,

dan ini tampilan sebelum Di running gan,,,

Sintakan Coding nya nya Gan,,,

Public Class Form1

    Private Sub DTP_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTP.ValueChanged

        If DTP.Value.DayOfWeek = 0 Then

            Hari1.Text = "sunday"

        Else

            Hari1.Text = (DTP.Value.DayOfWeek.ToString)

        End If

        If Hari1.Text = "sunday" Then Hari.Text = "Minggu"

        If Hari1.Text = "monday" Then Hari.Text = "senin"

        If Hari1.Text = "tuesday" Then Hari.Text = "selasa"

        If Hari1.Text = "wednesday" Then Hari.Text = "Rabu"

        If Hari1.Text = "Thursday" Then Hari.Text = "Kamis"

        If Hari1.Text = "Friday" Then Hari.Text = "Jum'at"

        If Hari1.Text = "Saturday" Then Hari.Text = "Sabtu"

    End Sub

    Private Sub PopCorn_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PopCorn.CheckedChanged

        If PopCorn.Checked = True Then HargaPopCorn.Text = "15000"

    End Sub

    Private Sub SoftDrink_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SoftDrink.CheckedChanged

        If SoftDrink.Checked = True Then HargaSoftDrink.Text = "10000"

    End Sub

    Private Sub Dua_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dua.CheckedChanged

        If Dua.Checked = True Then Harga.Text = "30000"

    End Sub

    Private Sub Tiga_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tiga.CheckedChanged

        If Tiga.Checked = True Then Harga.Text = "35000"

    End Sub

    Private Sub Banyak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Banyak.TextChanged

        JumTiket.Text = Val(Banyak.Text) * Val(Harga.Text)

    End Sub

    Private Sub BykPopCorn_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BykPopCorn.TextChanged

        JumPopCorn.Text = Val(BykPopCorn.Text) * Val(HargaPopCorn.Text)

    End Sub

    Private Sub BykSoftDrink_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BykSoftDrink.TextChanged

        JumSoftDrink.Text = Val(BykSoftDrink.Text) * Val(HargaSoftDrink.Text)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Hari1.Hide()

    End Sub

    Private Sub Hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung.Click

        Total.Text = Val(JumTiket.Text) + Val(JumPopCorn.Text) + Val(JumSoftDrink.Text)

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        Hari.Text = ""

        Dua.Checked = False

        Tiga.Checked = False

        Harga.Text = "0"

        PopCorn.Checked = False

        SoftDrink.Checked = False

        HargaPopCorn.Text = "0"

        HargaSoftDrink.Text = "0"

        Banyak.Text = ""

        BykPopCorn.Text = ""

        BykSoftDrink.Text = ""

        JumTiket.Text = ""

        JumPopCorn.Text = ""

        JumSoftDrink.Text = ""

        Total.Text = ""

    End Sub

End Class

Tu sekian gan sintakannya, THANKS..........