Form Pembayaran dan Alarm Sewa Lapangan Futsal

FORM PEMBAYARAN

Coding Program 

Public Class Form5

    Private Sub PembayaranBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.PembayaranBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.SewafutsalDataSet)

    End Sub

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'SewafutsalDataSet.Booking' table. You can move, or remove it, as needed.
        Me.BookingTableAdapter.Fill(Me.SewafutsalDataSet.Booking)
        'TODO: This line of code loads data into the 'SewafutsalDataSet.Pembayaran' table. You can move, or remove it, as needed.
        Me.PembayaranTableAdapter.Fill(Me.SewafutsalDataSet.Pembayaran)

    End Sub

    Private Sub Jam_masukLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Jam_masukTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

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

        If StatusComboBox.SelectedItem = "MEMBER" Then
            HargaTextBox.Text = "Rp 80.000"
        ElseIf StatusComboBox.SelectedItem = "NO MEMBER" Then
            HargaTextBox.Text = "Rp 100.000 "
        End If

        If Total_jamTextBox.Text = "1" And StatusComboBox.SelectedItem = "MEMBER" Then
            Total_pembayaranTextBox.Text = 80000
        ElseIf Total_jamTextBox.Text = "2" And StatusComboBox.SelectedItem = "MEMBER" Then
            Total_pembayaranTextBox.Text = 160000
        ElseIf Total_jamTextBox.Text = "1" And StatusComboBox.SelectedItem = "NO MEMBER" Then
            Total_pembayaranTextBox.Text = 100000
        ElseIf Total_jamTextBox.Text = "1" And StatusComboBox.SelectedItem = "NO MEMBER" Then
            Total_pembayaranTextBox.Text = 200000
        End If
    End Sub
End Class

FORM ALARM

Coding Program 

Public Class Form7
    'Deklarasi tipe data
    Public Shared jam_alarm As String
    Dim MyX As Integer
    Dim MyY As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Format(Now, "h:mm:ss tt")

        If Label1.Text = Label2.Text Then
            Timer1.Enabled = False
            Button1.Enabled = True
            My.Computer.Audio.Play("C:\alarm.wav")
            System.Windows.Forms.MessageBox.Show("Banguuuuunnn oy!!!")
        End If
    End Sub

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DTTanggal.Format = DateTimePickerFormat.Custom
        DTTanggal.CustomFormat = "dddd, dd/MM/yyyy"
        DTTanggal.Value = Format(Now)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'logika jika waktu alarm tidak diset akan muncul peringatan
        Label2.Text = DateTimePicker1.Text
        Button1.Enabled = False
        If Label2.Text = "" Then
            MsgBox("Please set alarm", MsgBoxStyle.Exclamation)
            PictureBox1.Enabled = True
            DateTimePicker1.Enabled = False
        End If
        DateTimePicker1.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        MyX = Me.Location.X
        MyY = Me.Location.Y
        Label2.Text = DateTime.Now.ToLongTimeString
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        End
    End Sub
End Class