MEMBUAT SOFTWARE PROGRAM PENGISIAN PULSA

MEMBUAT SOFTWARE COUNTER PULSA

TujuanPraktikum

Ø Memahami dan mengenal Form dan Objek Kontrol

Ø Dapat membuat apllikasi sederhana dengan menggunakan form dan objek kontrol

BAB II

2.1  Form

                                                  

2.2 Listing Program

Public Class Form_art

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

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

    End Sub

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

        Label18.Text = ComboBox1.Text

        Label19.Text = ListBox1.Text

        Label20.Text = TextBox1.Text

        Label21.Text = DateTimePicker1.Text

        Label22.Text = Lbl12jam.Text

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.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 &

"", Button2.Text, False)

    End Sub

End Class               

2.3    Running Program