BELAJAR LOGIKA PEMEROGRAMAN

MEMBUAT SOFTWARE TIKET BIOSKOP

2.1 Tujuan Praktikum

·         Memahami dan mengenal Form dan Objek Kontrol

·         Dapat membuat apllikasi sederhana dengan menggunakan form dan objek kontrol

2.2 Form

2.3 Listing Program

    LISTING PROGRAM

Public Class Form1

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

    End Sub

    Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Label18.Text = Format(Now, "h:mm:ss tt")

    End Sub

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

        Label12.Text = ComboBox1.Text

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        Label13.Text = RadioButton1.Text

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        Label13.Text = RadioButton2.Text

    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged

        Label13.Text = RadioButton3.Text

    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged

        Label13.Text = RadioButton4.Text

    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged

        Label13.Text = RadioButton5.Text

    End Sub

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

        Label14.Text = ListBox1.Text

    End Sub

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

        Label15.Text = DateTimePicker1.Text

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Label16.Text = ComboBox2.Text

        Label19.Text = ComboBox3.Text

    End Sub

    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged

        DateTimePicker1.Format = DateTimePickerFormat.Custom

        DateTimePicker1.CustomFormat = "dddd, dd/mm/yyyy"

        DateTimePicker1.Value = Format(Now)

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Dim kotak_dialog As SaveFileDialog = New SaveFileDialog

        kotak_dialog.Filter = "File Text (*.txt) | *.txt"

        kotak_dialog.ShowDialog()

        My.Computer.FileSystem.WriteAllText("" & kotak_dialog.FileName & "", Button6.Text, False)

    End Sub

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

    End Sub

End Class

2.4 Running program