Tugas Pemograman Visual 8

Macam-Macam Function bawaan VB 2010

Dalam Visual Basic, fungsi bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung. Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika, dll.

• Fungsi NumericCInt () ===> Pembuatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat
  Fix ()    ===> Pemotongan suatu nilai desimal menjadi integer
  Int ()    ===> Pembuatan ke bawah suatu nilai desimal
• Fungsi String
    Left          → mengambil karakter dari sebelah kiri

Right         → mengambil karakter dari sebelah kanan

Mid            → mengambil karakter dari tengah

LTrim         → membuang semua semua awal spasi yang ada disebelah kiri

RTrim         → membuang semua semua awal spasi yang ada disebelah kanan

Trim           → membuang semua spasi yang ada disebelah kiri dan kanan

Len             → memberikan nilai balik integer sebagai panjang string

LCase          → mengubah string menjadi huruf kecil semua

UCase          → mengubah string menjadi huruf besar semua

Str (int)      → mengubah bilangan menjadi string (konversi)

Chr (Asscii) → konversi dari nilai ascii menghasilkan karakter

• Fungsi Matematika
    Val (Str)                        → konversi string menjadi integer

Asc(Char)                       → konversi karakter menghasilkan nilai ascii

Abs(Number)                  → memberikan nilai mutlak dari suatu nilai negatif

Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal

Sqr(Number)                   → memberikan hasil akar kuadrat dari suatu nilai

Tan()                               → mengembalikan nilai tangen dari argument dalam radian

Cos()                              → mengembalikan nilai cosinus dari argument dalam radian

Atn()           → mengembalikan nilai arc tangen dari argument dalam bentuk radian

Long()                             → mengembalikan nilai logaritma dari argument

CInt()           → pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat

Fix()                                → pemotongan suatu nilai decimal menjadi integer

Int()                                → pembulatan ke bawah suatu nilai decimal

• Fungsi Tanggal dan Waktu
  Time : mencari tahu waktu saat ini atau menetapkan waktu, tergantung format
  pemakaiannya ( lihat contoh di bawah ini)
  A$ = Time ‘hasil 18:16:35 AM
  MyTime = #4:35:17 PM# ‘assign a time
  Time = MyTime ‘set system time to MyTimeNow : merekam tanggal dan waktu sekarang
  A$ = Now ‘hasil 10/8/02 18:16:35 AM

Timer : menghitung  jumlah  detik  sejak tengah malam
Start = Timer ‘hasilnya 29991

Date : menetapkan hari pada sistem komputer
Dim MyDate
MyDate = #February 12, 1985 # ‘Assign a date
Date = MyDate ‘Change system date

DateAdd : menghasilkan Varian(Date) yang berisi tanggal baru setelah suatu interval waktu yang ditetapkan dari tanggal lama.

DateDiff : mencari interval waktu antara dua tanggal
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) Dim TheDate As Date ‘declare variables
TheDate = InputBox(“Enter a date”) Msg = “Day from today : “ & DateDiff(“d”, Now, TheDate)
MsgBox Msg

DateSerial : menghasilkan tanggal dengan bulan/hari/tahun
MyDate = DateSerial(1969, 2, 12) ‘Hasil 2/12/69

DateValue : menghasilkan tanggal
MyDate = DateValue(“February 12, 1969”) ‘Hasil 2/12/69

Year : menghasilkan tahun sekarang
MyYear = Year(#2/12/1969#) ‘Hasil 1969

Month : menghasilkan bilangan integer yang menunjukkan bulan
MyDate = #February 12, 1969# ‘Assign a date
MyMonth = Month(MyDate) ‘MyMonth = 2

MonthName : menghasilkan teks yang menunjukkan nama bulan
a$ = MonthName(1, True) ‘a$ = Jan
b$ = MonthName(1, False) ‘b$ = January
c$ = MonthName(1) ‘c$ = January

Day : menghasilkan integer yang menunjukkan tanggal dari data date
MyDate = #February 12, 1969# ‘Assign a date
MyDay = Day(MyDate) ‘MyDay berisi 12

Hour : menghasilkan integer yang menunjukkan jam dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MyHour = Hour(MyTime) ‘MyHour berisi 16

Minute : menghasilkan integer yang menunjukkan menit dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MyMinute = Minute(MyTime) ‘MyMinute berisi 35

Second : menghasilkan integer yang menunjukkan detik dari data timer
MyTime = #4:35:17 PM# ‘Assign a time
MySecond = Second(MyTime) ‘MySecond berisi 17

TimeSerial : menghasilkan waktu dengan jam/menit/detik
MyTime = TimeSerial(16, 35, 17) ‘Isinya 4:35:17 PM

TimeValue : mengubah string waktu dari pukul 0:00:00 (12:00:00 AM) sampai 23:59:59 (11:59:59 PM) menjadi data waktu
MyTime = TimeValue(“4:35:17 PM”) ‘Isinya 4:35:17 PM
MyTime = TimeValue(“0:00:00”) ‘Isinya 12:00:00 AM

WeekDay : menghasilkan bilangan petunjuk hari dari suatu tanggal
Hari = #February 12, 1969# ‘Hari Rabu
MyweekDay = Weekday(Hari) ‘MyweekDay isinya 4

FUNCTION DENGAN RETURN VALUE BERUPA ARRAY

 Public Class Form1

    Private Function bebas(ByVal ParamArray args() As Object) As Single()

        Dim hasil(3) As Single

        Dim a As Integer

        For a = 0 To UBound(args)

            hasil(0) = hasil(0) + args(a)

            If a = 0 Then

                hasil(1) = args(a)

                hasil(2) = args(a)

            End If

            If hasil(1) < args(a) Then hasil(1) = args(a)

            If hasil(2) > args(a) Then hasil(2) = args(a)

        Next a

        Return hasil

    End Function

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

    End Sub

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

        Dim statistik Tugas 8() = bebas(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

    End Sub

End Class

 

 

PENJELASAN DARI KODING PROGRAM DI ATAS

• Dim hasil(3) As Single
  Membuat variable dengan nama hasil dengan jumlah teratas atau Ubound 3 yang bertipe data single.
• Dim i As Integer
  Membuat variable dengan nama i yang bertipe data integer.
• For i = 0 To UBound(args)
  Merupakan perulangan untuk i=0 sampai batas teratas dari array.
• hasil(0) = hasil(0) + args(i)
  hasil(0) = 0 karena perulangan belum di mulai.
  args(i) = nilai dari indeks array ke i.
• If i = 0 Then
  jika i = 0 maka lakukan sebagai berikut.
• hasil(1) = args(i)
  hasil 1 = nilai dari indeks ke i.
• hasil(2) = args(i)
  hasil 2 =nilai dari indeks ke i.
• End If
  Selain i=0,atau jika i bukan sama dengan 0.
• If hasil(1) < args(i) Then hasil(1) = args(i)
  Jika hasil 1 lebih kecil dari nilai i maka hasil 1= nilai dai indeks ke i.
• If hasil(1) > args(i) Then hasil(1) = args(i)
  Next i
  Jika hasil 2 lebih kecil dari nilai i maka hasil 2= nilai dai indeks ke i.
• Return hasil
  Akan kembali ke hasil.

Read More

Tugas 7 (Pemograman Visual)

Tugas Pemograman Visual

Read More

TUGAS 4

Tugas 4

Buatlah Project baru dengan langkah-langkah sebagai berikut

1. Membuka Aplikasi Visual Basic 2010

2. Klik  Windows Form Application maka akan mucul tampilan seperti berikut

3.  Menampilkan Toolbox yang akan digunakan Untuk memunculkan toolbox, bisa   dimunculkan dari menu bar-view-other windows-tollbox

4. Bentuk Form seperti di bawah ini dengan menggunakan komponen toolbox di atas

Keterangan:

5. Double click pada design form lalu copy paste listing Program di bawah ini :

Public Class Form1

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

        ListBox1.SelectionMode = SelectionMode.MultiExtended 

        ListBox2.SelectionMode = SelectionMode.MultiExtended

    End Sub

    Private Sub btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisi.Click

        If TextBox1.Text = "" Then

            MsgBox("di isi disit textbox'e ", vbCritical, "Pesan")

            TextBox1.Focus()

        Else

            ListBox1.Items.Add(TextBox1.Text)

            TextBox1.Text = ""

            TextBox1.Focus()

        End If

    End Sub

    Private Sub btangka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btangka.Click

        Dim i As Integer

        i = 1

        Do

            ListBox1.Items.Add(i)

            i = i + 1

        Loop Until i > 10

    End Sub

    Private Sub btsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsatu.Click

        If ListBox1.SelectedItem = vbNullString Then

            MsgBox("Dipilih dulu lha....", vbCritical, "Pesan")

            ListBox1.Focus()

        Else

            ListBox2.Items.Add(ListBox1.SelectedItem)

            ListBox1.Items.Remove(ListBox1.SelectedItem)

        End If

    End Sub

    Private Sub btbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbeberapa.Click

        Dim pilih As Integer

        Dim x As Integer

        Dim y As Integer

        x = ListBox1.Items.Count

        y = ListBox1.SelectedIndices.Count

        If ListBox1.SelectedItem = vbNullString Then

            MsgBox("di isi disit textbox'e ", vbCritical, "Pesan")

            ListBox1.Focus()

        Else

            For pilih = 0 To y - 1

                ListBox2.Items.Add(ListBox1.SelectedItem)

                ListBox1.Items.Remove(ListBox1.SelectedItem)

            Next

        End If

    End Sub

    Private Sub btsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsemua.Click

        Dim x, y As Integer

        y = ListBox1.Items.Count

        For x = 0 To y - 1

            ListBox2.Items.Add(ListBox1.Items(x))

        Next

        ListBox1.Items.Clear()

    End Sub

    Private Sub bthpssatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthpssatu.Click

        If ListBox2.SelectedItem = vbNullString Then

            MsgBox("Dipilih dulu lha....", vbCritical, "Pesan")

            ListBox2.Focus()

        Else

            ListBox2.Items.Remove(ListBox2.SelectedItem)

        End If

    End Sub

    Private Sub bthpsbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthpsbeberapa.Click

        Dim x, y As Integer

        y = ListBox2.SelectedIndices.Count

        If ListBox2.SelectedItem = vbNullString Then

            MsgBox("silahkan pilih beberapa yang akan di hapus ", vbCritical, "pesan")

            ListBox2.Focus()

        Else

            For x = 0 To y - 1

                ListBox2.Items.Remove(ListBox2.SelectedItem)

            Next

        End If

    End Sub

    Private Sub bthpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthpssemua.Click

        ListBox2.Items.Clear()

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Close()

    End Sub

End Class

Catatan : 

• ListBox1.SelectionMode = SelectionMode.MultiExtended berfungsi atar item yang kita pilih bisa beberapa ataupun semua.
• ListBox1.Items.Add(ListBox1.SelectedItem) berfungsi untuk menambahkan item atau pilihan sesuai pilihan yang telah kita select pada LisBox1.
• ListBox1.Items.Remove(ListBox1.SelectedItem) berfungsi untuk menghapus pilihan sesuai pilihan yang telah kita select pada ListBox1
• ListBox1.Items.Clear() berfungsi untuk menghapus semua pilihan pada ListBox1.
• ListBox1.SelectedIndices.Count berfungsi untuk mengkoleksi pilihan yang sedang dipilih (Beberapa Pilihan).

Read More

Tugas 3

TUGAS 3 PEMOGRAMAN VISUAL

Soal 1 

Memodifikasi Program pada tugas 2 dengan menambahkan Button4 (Isi Data)  dengan ketentuan sebagai berikut :
1. Saat Form dijalankan : Semua isian tidak aktif, tombol isi data dan tutup aktif, tombol clear tidak aktif

Edit  program pada tugas 2, double klik pada form dan masukan listing program sebagai berikut : 

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

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            Control.Enabled = False

            Button1.Enabled = False

            Button2.Enabled = True

            Button3.Enabled = False

            Button4.Enabled = True

        Next

        ComboBox1.Items.Add("SPT")

        ComboBox1.Items.Add("SND")

        ComboBox1.Items.Add("TST")

        ComboBox1.Items.Add("TOP")

        ComboBox1.Items.Add("TAS")

    End Sub

2. Saat ditekan tombol isi data : Semua isian aktif kecuali tombol isi data.

Double klik pada button4 (Isi Data) lalu masukan listing program sebagai berikut: 

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

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            Control.Enabled = True

            Button4.Enabled = False

        Next

    End Sub

3. Saat tombol clear di tekan (klik) sama dengan saat form dijalankan. 

Double klik pada button1 (Clear) lalu edit listing program sebelumnya menjadi : 

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

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            Control.Enabled = False

            Button1.Enabled = False

            Button2.Enabled = True

            Button3.Enabled = False

            Button4.Enabled = True

        Next

        ComboBox1.Text = ""

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

        Me.RadioButton1.Checked = False

        Me.RadioButton2.Checked = False

        ComboBox1.Text = ""

        Me.PictureBox1.Visible = False

        Me.PictureBox2.Visible = False

        Me.PictureBox3.Visible = False

        Me.PictureBox4.Visible = False

        Me.PictureBox5.Visible = False

    End Sub

Soal 2

 Membuat permainan puzzle sederhana dengaan rancangan seperti gambar di bawah ini :

1. Saat form dijalankan, posisi angka acak

    Langkah pertama, buatlah project baru dengan desain sebagai berikut:

    masukan 11 button lalu edit text pada button1  dengan angka 1 terus ubah name design dengan satu, dan  seterusnya. Ubah name design sesuai dengan texs pada button , akan tetapi pada button9 kosongkan text tanpa di isi angka. 

lalu masukkan timer dengan cara klik menu toolbox --> Components --> Timer kemudian setting propertisnya seperti gambar berikut 

lalu double klik pada form kemudian masukan listing program di bawah ini : 

Public Class puzzle

    Dim x As Integer

    Dim jalan As Boolean = False

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

        Timer1.Enabled = False

    End Sub

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

        Dim acak As Integer

        Do

            acak = Rnd() * 10

            satu.Text = acak

            '  If satu.Text = 10 Or satu.Text = 0 Or satu.Text = 9 Then

            'satu.Text = ""

            'End If

        Loop While acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            dua.Text = acak

            'If dua.Text = 10 Or dua.Text = 0 Or dua.Text = 9 Then

            'dua.Text = ""

            ' End If

        Loop While dua.Text = satu.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            tiga.Text = acak

            'If tiga.Text = 10 Or tiga.Text = 0 Or tiga.Text = 9 Then

            'tiga.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            empat.Text = acak

            ' If empat.Text = 10 Or empat.Text = 0 Or empat.Text = 9 Then

            'b4.Text = ""

            ' End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            lima.Text = acak

            'If lima.Text = 10 Or lima.Text = 0 Or lima.Text = 9 Then

            'lima.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = empat.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            enam.Text = acak

            'If enam.Text = 10 Or enam.Text = 0 Or enam.Text = 9 Then

            'enam.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = empat.Text Or acak = lima.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            tujuh.Text = acak

            'If tujuh.Text = 10 Or tujuh.Text = 0 Or tujuh.Text = 9 Then

            'tujuh.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = empat.Text Or acak = lima.Text Or acak = enam.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            delapan.Text = acak

            'If delapan.Text = 10 Or delapan.Text = 0 Or delapan.Text = 9 Then

            'delapan.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = empat.Text Or acak = lima.Text Or acak = enam.Text Or acak = tujuh.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            sembilan.Text = acak

            ' If sembilan.Text = 10 Or sembilan.Text = 0 Or sembilan.Text = 9 Then

            'sembilan.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = empat.Text Or acak = lima.Text Or acak = enam.Text Or acak = tujuh.Text Or acak = delapan.Text Or acak = 10 Or acak = 9

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.Text = "0" Then

                control.Text = ""

            End If

        Next

    End Sub

    Private Sub satu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satu.Click

        x = satu.Text

        If (dua.Text = "") Then

            satu.Text = ""

            dua.Text = x

        ElseIf (empat.Text = "") Then

            satu.Text = ""

            empat.Text = x

        End If

        cek()

    End Sub

    Private Sub dua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dua.Click

        x = dua.Text

        If (satu.Text = "") Then

            dua.Text = ""

            satu.Text = x

        ElseIf (tiga.Text = "") Then

            dua.Text = ""

            tiga.Text = x

        ElseIf (lima.Text = "") Then

            dua.Text = ""

            lima.Text = x

        End If

        cek()

    End Sub

    Private Sub tiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tiga.Click

        x = tiga.Text

        If (dua.Text = "") Then

            tiga.Text = ""

            dua.Text = x

        ElseIf (enam.Text = "") Then

            tiga.Text = ""

            enam.Text = x

        End If

        cek()

    End Sub

    Private Sub empat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles empat.Click

        x = empat.Text

        If (satu.Text = "") Then

            empat.Text = ""

            satu.Text = x

        ElseIf (lima.Text = "") Then

            empat.Text = ""

            lima.Text = x

        ElseIf (tujuh.Text = "") Then

            empat.Text = ""

            tujuh.Text = x

        End If

        cek()

    End Sub

    Private Sub lima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lima.Click

        x = lima.Text

        If (dua.Text = "") Then

            lima.Text = ""

            dua.Text = x

        ElseIf (empat.Text = "") Then

            lima.Text = ""

            empat.Text = x

        ElseIf (enam.Text = "") Then

            lima.Text = ""

            enam.Text = x

        ElseIf (delapan.Text = "") Then

            lima.Text = ""

            delapan.Text = x

        End If

        cek()

    End Sub

    Private Sub enam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enam.Click

        x = enam.Text

        If (tiga.Text = "") Then

            enam.Text = ""

            tiga.Text = x

        ElseIf (lima.Text = "") Then

            enam.Text = ""

            lima.Text = x

        ElseIf (sembilan.Text = "") Then

            enam.Text = ""

            sembilan.Text = x

        End If

        cek()

    End Sub

    Private Sub tujuh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tujuh.Click

        x = tujuh.Text

        If (empat.Text = "") Then

            tujuh.Text = ""

            empat.Text = x

        ElseIf (delapan.Text = "") Then

            tujuh.Text = ""

            delapan.Text = x

        End If

        cek()

    End Sub

    Private Sub delapan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delapan.Click

        x = delapan.Text

        If (tujuh.Text = "") Then

            delapan.Text = ""

            tujuh.Text = x

        ElseIf (lima.Text = "") Then

            delapan.Text = ""

            lima.Text = x

        ElseIf (sembilan.Text = "") Then

            delapan.Text = ""

            sembilan.Text = x

        End If

        cek()

    End Sub

    Private Sub sembilan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sembilan.Click

        x = sembilan.Text

        If (enam.Text = "") Then

            sembilan.Text = ""

            enam.Text = x

        ElseIf (delapan.Text = "") Then

            sembilan.Text = ""

            delapan.Text = x

        End If

        cek()

    End Sub

    Private Sub cek()

        If (satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And sembilan.Text = "") Then

            MsgBox("Selamat Anda Menang")

        End If

    End Sub

    Private Sub acak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles acak.Click

        jalan = Not jalan

        Timer1.Enabled = jalan

        If Timer1.Enabled = True Then

            acak.Text = "STOP"

        Else

            acak.Text = "ACAK"

        End If

    End Sub

    Private Sub tutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup.Click

        If MsgBox("Anda yakin akan keluar ? ", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") Then

            Me.Close()

        End If

    End Sub

End Class

Read More