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

From Data Team dan Booking

FORM DATA TEAM

 

Diskripsi :

- Label 

- Textbox 

- Datasource

FORM DATA BOOKING

Coding Program 

Public Class Form4

    Private Sub BookingBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BookingBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.BookingBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.SewafutsalDataSet)

    End Sub

    Private Sub Form4_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)

    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawString(Label1.Text, Label1.Font, Brushes.Black, 100, 100)

        e.Graphics.PageUnit = GraphicsUnit.Inch

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDialog1.Document = PrintDocument1 'PrintDialog associate with PrintDocument.

        If PrintDialog1.ShowDialog() = DialogResult.OK Then

            PrintDocument1.Print()

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PrintPreviewDialog1.Document = PrintDocument1 'PrintPreviewDialog associate with PrintDocument.
        PrintPreviewDialog1.ShowDialog() 'open the print preview

    End Sub

    Private Sub BookingDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles BookingDataGridView.CellContentClick

    End Sub

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If StatusComboBox.SelectedItem = "MEMBER" Then
            Harga_SewaTextBox.Text = "Rp 80.000"
        ElseIf StatusComboBox.SelectedItem = "NO MEMBER" Then
            Harga_SewaTextBox.Text = "Rp 100.000 "
        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class