Rumus Microsoft Excel

Jika Anda sering menggunakan aplikasi Microsoft Excel baik yang 2003, 2007 maupun yang versi terbaru, maka pasti Anda sudah tidak asing lagi menggunakan rumus-rumus Microsoft Excel yang ada dalam aplikasi tersebut. Nah sekarang pertanyaannya adalah bagaimana jika Saya seorang pemula?, bagaimana jika Saya masih belum pernah Belajar Komputer?, bagaimana jika Saya masih belum tau sama sekali membuka aplikasi pengolahan data Microsoft Excel seperti yang akan dijelaskan sekarang ini.? Tidak perlu khawatir kawan, sekarang Anda juga akan bisa mengaplikasikan rumus-rumus dalam Microsoft Excel karena panduan Belajar Microsoft Excel ini disertai dengan contoh dan gambar yang akan memudahkan Anda untuk mempraktekkannya. Baiklah tanpa harus panjang lebar, sekarang langsung Kita masuk ke materi pembahasan mengenai rumus Microsoft Excel, simak dengan baik ya kawan.

Microsoft Office Excel memang dikenal dengan penggunaan rumus-rumus atau formula dalam lembar kerjanya. Penggunaan rumus yang efektif akan memudahkan Anda dalam membuat laporan pekerjaan dengan menggunakan MS Excel. Formula atau rumus MS Excel adalah keunggulan tersendiri untuk aplikasi ini, dengan kemampuannya dalam mengolah data melalui perhitungan matematis yang sangat beragam fungsinya.

Setiap rumus di dalam MS Excel memilik fungsi tersendiri. Oleh karena itu Anda harus benar-benar memahami masing-masing fungsi dasarnya agar penggunaan rumus dalam MS Excel bisa lebih maksimal dan efisien. Jika telah paham fungsi dasarnya, Saya rasa Anda bisa berkreasi dalam meracik rumus yang sesuai dengan kebutuhan data Anda.

Cara Menulis Rumus Excel

Sebelum mengenal  rumus-rumus excel 2007, hal pertama yang perlu Anda ketahui adalah bagaimana menuliskan rumus excel agar bisa benar. 

Cara 1: Menulis rumus dengan mengetikkan angka langsung

1. Letakkan penunjuk sel pada sel tempat hasil rumus akan ditampilkan 
2. Pada formula bar, ketikkan = 5000000+3500000, lalu tekan tombol enter.

Note : Menulis rumus dengan cara ini cukup mudah kalau rumusnya sederhana dan pendek serta angkanya tetap.

Cara 2: Menulis rumus dengan menggunakan alamat sel

1. Letakkan penunjuk sel pada sel tempat hasil rumus ditampilkan 
2. Pada formula bar, ketikkan = C4+C5, lalu tekan tombol enter.

Note : Menulis rumus dengan cara ini sangat bermanfaat jika datanya sering berubah.

Cara 3: Menulis rumus dengan bantuan mouse

1. Letakkan penunjuk sel pada sel tempat hasil rumus akan ditampilkan
2. Ketikkan = , kemudian pilih dan klik sel C4
3. Ketik +, kemudian pilih dan klik sel C5
4. Tekan tombol enter

Note : Menulis rumus dengan cara ini sangat dianjurkan karena memperkecil kemungkinan salah ketik alamat sel.

Nah... bagaimana mudah bukan cara menuliskan rumus excel, jika Anda sudah mahir dalam menuliskannya sekarang mari Kita lanjutkan pembahasannya. 

Operator Matematika yang Sering Digunakan (Rumus Dasar)

Rumus merupakan bagian terpenting dari Program Excel ini, karena setiap tabel dan dokumen yang Kita ketik akan selalu berhubungan dengan rumus dan fungsi. MS Excel memang sangat diunggulkan dalam menampung data-data yang bersifat numerik. Maka dari itu, di dalam MS Excel pun terdapat Operator dasar Matematika dan ini biasanya disebut sebagai rumus standar. Operator matematika yang akan sering digunakan dalam Rumus Microsoft Excel adalah sebagai berikut:

No	Operator	Fungsi	Contoh Penggunaan
1	+ (ikon plus)	Penjumlahan	=A1+A2
2	- (ikon minus)	Pengurangan	=A3-A4
3	* (ikon bintang)	Perkalian	=A5*A6
4	/ (ikon garis miring)	Pembagian	=A7/A8
5	^ (ikon caret)	Pangkat	=A9^2 (angka berapapun yang berada di cell A9 akan dipangkat 2
6	% (ikon persen)	Prosentase	=A1*10% (gunakan sesuai dengan kebutuhan)

Tabel Operator Matematika (Rumus Dasar Excel)

Tidak usah bingung, sekarang perhatikan gambar tabel yang ada dibawah ini.

Penjelasan Gambar Tabel Diatas :

1. Mengisi Kolom Diskon
Untuk mengisi kolom diskon berikut adalah langkah-langkah yang harus dilakukan. 
• Klik pada kolom yang akan diisikan Diskon Rp. (pada contoh ini sel yang akan digunakan adalah G6, silahkan aktifkan kolom G6)
• Awali dengan menuliskan "=" (setiap rumus excel harus diawali menggunakan operator = tanpa tanda kutip agar dikenali sebagai fungsi)
• Kalikan kolom E6 dengan F6 untuk mengetahui hasil persennya, bentuk penulisannya adalah =E6*F6 
• Kemudian tekan enter untuk mengetahui hasilnya, maka akan didapat angka 30,000 pada kolom G6 tadi (30,000 adalah 20% dari 150,000)
• Untuk menghitung rumus Diskon Rp. selanjutnya, silahkan copy format dengan cara drag pada rumus yang sudah selesai dikerjakan kemudian tarik hingga kolom G15.

Tips : Anda bisa langsung klik kolom yang akan dikalikan tanpa harus susah payah mengetik kolom yang akan dihitung satu persatu.

2. Mengisi Total Bayar
Nah setelah selesai mengisi kolom Diskon Rp. sekarang lanjutkan dengan mengisi kolom Total Biaya.
• Klik pada kolom yang akan diisikan Total Bayar (pada contoh ini sel yang akan digunakan adalah H6, silahkan aktifkan kolom H6)
• Awali dengan menuliskan "=" (setiap rumus excel harus diawali menggunakan operator = tanpa tanda kutip agar dikenali sebagai fungsi)
• Pada kolom H6 Kurangkan kolom Biaya (E6) dengan kolom Diskon Rp. (G6)  untuk mengetahui hasil pengurangannya, bentuk penulisannya adalah =E6-G6 
• Kemudian tekan enter untuk mengetahui hasilnya, maka akan didapat hasil 120,000 pada kolom Total Bayar yang pertama.
• Untuk menghitung rumus Total Bayar selanjutnya, silahkan copy format dengan cara drag pada rumus yang sudah selesai dikerjakan kemudian tarik hingga kolom H15.

Tips : Untuk melanjutkan mengisi kolom jumlah di bawahnya (kolom H7 dst), kita cukup memblok cell yang telah berisi rumus operator perkalian, arahkan kursor ke pojok kanan bawah cell/kolom. Tunggu hingga kursor berubah menjadi ikon (+). Setelah itu, click dan tahan lalu drag/geser ke bawah. Dengan demikian, kita telah meng-copy rumus tadi dan telah disesuaikan perubahannya untuk kolom yang akan dikalikan lagi.

Mengenal Fungsi atau Rumus Microsoft Excel

Setelah mengenal Tipe Data Microsoft Excel, dan bisa memulai menggunakan aplikasi excel sekarang Kita coba bahas rumus excel yang sering digunakan dalam dunia kerja atau administrasi perkantoran.

1. Fungsi Average

Fungsi ini digunakan untuk mencari nilai rata-rata dari sekumpulan data (range). Bentuk umum penulisannya adalah ;

=AVERAGE(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data yang akan dicari nilai rata-ratanya. Misalnya untuk mengisi nilai rata-rata dari range data E8 sampai G8, maka rumusnya adalah =AVERAGE(E8:G8) kemudian tekan tombol Enter.

2. Fungsi Sum

Fungsi SUM digunakan untuk menjumlahkan sekumpulan data pada suatu range. Bentuk umum penulisan fungsi ini adalah =SUM(number1, number2,…). Dimana number1, number2 dan seterusnya adalah range data yang akan dijumlahkan. Misalnya untuk menjumlahkan range data E8 sampai G8, maka rumusnya adalah =SUM(E8:G8) kemudian tekan tombol Enter.

3. Fungsi Max

Fungsi ini digunakan untuk mencari nilai tertinggi dari sekumpulan data (range). Bentuk umum penulisannya adalah ;

=MAX(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data (numerik) yang akan dicari nilai tertingginya. Misalnya untuk mencari nilai maksimal dari range data E8 sampai G8, maka rumusnya adalah =MAX(E8:G8) kemudian tekan tombol Enter.

4. Fungsi Min

Fungsi Min adalah kebalikan dari fungsi Max, jika fungsi Max untuk mencari nilai tertinggi atau maksimal maka Min adalah untuk mencari nilai terkecil atau minimum dari sekumpulan data numerik. Bentuk umum penulisannya adalah ; 

=MIN(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data (numerik) yang akan dicari nilai tertingginya. Sebagai contoh untuk mencari nilai terendah dari range data E8 sampai G8, maka rumusnya adalah =MIN(E8:G8) kemudian tekan tombol Enter.

5. Fungsi Count

Fungsi Count digunakan untuk menghitung jumlah data dari suatu range yang kita pilih. Bentuk umum penulisannya adalah ; 

=COUNT(number1, number2,…), dimana number1, number2, dan seterusnya adalah range data (numerik) yang akan dihitung jumlah datanya. Sebagai contoh untuk menghitung jmlah data dari range data E8 sampai G8, maka rumusnya adalah =COUNT(E8:G8) kemudian tekan tombol Enter.

6. Fungsi Logika IF

Fungsi ini digunakan jika data yang dimasukkan mempunyai kondisi tertentu. Misalnya, jika nilai sel A1=1, maka hasilnya 2, jika tidak, maka akan bernilai 0. Biasanya fungsi ini dibantu oleh operator relasi (pembanding) seperti berikut:

Lambang Fungsi

= Sama dengan

< Lebih kecil dari

> Lebih besar dari

<= Lebih kecil atau sama dengan

>= Lebih besar atau sama dengan

<> Tidak sama dengan

Bentuk umum penulisan fungsi ini adalah ;

=IF(logical_test,value_if_true,value_if_false), artinya kalau ekspresi logika (logical_test) bernilai benar, maka perintah pada value_if_true akan dilaksanakan, jika salah, maka perintah pada value_if_false yang akan dilaksanakan. Perhatikan contoh berikut:

Contoh logika IF

Kolom keterangan diisi dengan ketentuan, jika kolom TANDA sama dengan K, maka keterangannya KAWIN, jika tidak, maka keterangan berisi TIDAK KAWIN. Ini dapat diselesaikan dengan rumus =IF(C3=”K”, “KAWIN”,”TIDAK KAWIN”). Pada rumus diatas Kita lihat bahwa jika datanya bertipe Teks/alpha numerik harus diapit oleh tanda kutip dua, lain halnya dengan tipe data numerik, tidak boleh menggunakan tanda kutip. Nah sekarang bagaimana jika ada beberapa kondisi/bertingkat (IF Bertingkat) seperti pada kasus nilai mahasiswa. Tidak perlu khawatir, langsung saja perhatikan gambar diatas pada tabel sebelah kanan. =IF(H3>=81,"A",IF(H3>=66,"B",IF(H3>=56,"C",IF(H3>40,"D","E")))), hal yang sama juga bisa dilakukan untuk mengisi kolom keterangan, dengan ketentuan, Jika nilai hurufnya sama dengan “A” maka keterangan “SANGAT MEMUASKAN, jika “B” maka “MEMUASKAN”, jika “C”, maka “CUKUP”, dan jika “D” maka bernilai “KURANG”, selain dari itu, maka bernilai “GAGAL”. Nah sekarang sudah paham kan bagaimana cara menggunakan fungsi IF, sekarang langsung dipraktekkan deh supaya tidak lupa. Semoga Tutorial Belajar Microsoft Excel kali ini bisa membantu rekan-rekan sekalian

Read More

‎CARA MENGETAHUI TAHUN PEMBUATAN LAPTOP/PC KITA

1. Start > run > ketik cmd > enter
2. ketik Debug > enter

3. ketik df000:fff5 > enter
4. perhatikan pada bagian ujung kode yang muncul,itulah format tanggal/bulan dan tahun pembuatan pc anda (mainboard)

Read More

Cara Mengecheck Kondisi Baterai Laptop

Cara Mengecek Kondisi Baterai Laptop

1. Buka command prompt (CMD), dapat dibuka melalui Run (Windows + R) ketik cmd.

2. Ketikan powercfg energy, tunggu proses selama 60 detik untuk mengecek kondisi baterai laptop.

Perhatikan tulisan : “See C:\Users\Administrator\energy-report.html. Ini merupakan hasil laporan terhadap pengecekan kondisi baterai laptop yang kita lakukan. Perlu diperhatikan, dimana folder file laporan itu tersimpan.

Maka buka laporan tersebut untuk mengetahui informasi secara details terhadap kondisi baterai. File tersebut dibuka melalui browser, sebab file tersebut memiliki format html.

Pada laman laporan, cek paling bawah. Maka akan terlihat informasi baterai, seperti berikut ini:

Battery:Battery Information

Battery ID	4752SIMPLOAS10D73
Manufacturer	SIMPLO
Serial Number	4752
Chemistry	LION
Long Term	1
Design Capacity	48840
Last Full Charge	31546

Pada table diatas dijelasakan bahwa baterai ID tersebut 4752SIMPLOAS10D73 dan juga disitu dijelaskan bahwa tipe baterai tersebut LION. Lakukan pembagian antara Last Full Charge dan Design Capacity. Maka hasilnya akan dikalikan 100. Dari hasil total baterai sekitar 64% (lakukan dalam bentuk persen). Ini menunjukan baterai masih layak digunakan. Dalam hal ini, semakin kecil persennya (%) maka semakin kecil kekuatan yang dimiliki baterai  tersebut. Jika hasil dari baterai dikisaran 20% kebawah maka bateari laptop sudah mengalami lemah dan sudah saatnya untuk diganti.

Read More

Konversi Bilangan Dengan VB.NET 2008

Program Konversi Bilangan  dengan mengunakan VB.Net 2008 !!!

Source Code :


Public Class Form1

    Dim Nilai As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Selamat Datang Di Program Konversi Bilangan", MsgBoxStyle.Information, "Welcome")
    End Sub

    Public Function DesToBin(ByVal NDesimal As Long) As String
        Dim C As Byte
        Dim D As Long
        On Error GoTo ErrorHandler
        D = (2 ^ 31) - 1
        While D > 0
            If NDesimal - D >= 0 Then
                NDesimal = NDesimal - D
                Nilai = Nilai & "1"
            Else
                If Val(Nilai) > 0 Then Nilai = Nilai & "0"
            End If
            D = D / 2
        End While
        DesToBin = Nilai
        Exit Function
ErrorHandler:
        DesToBin = 0
    End Function

    Public Function DesToOk(ByVal NDesimal As Long) As String
        DesToOk = Oct(NDesimal)
    End Function

    Public Function DesToHex(ByVal NDesimal As Long) As String
        DesToHex = Hex(NDesimal)
    End Function

    Public Function BinToDes(ByVal NBiner As String) As Long
        Dim A As Integer
        Dim B As Long
        Dim Nilai As Long
        On Error GoTo ErrorHandler
        B = 1
        For A = Len(NBiner) To 1 Step -1
            If Mid(NBiner, A, 1) = "1" Then Nilai = Nilai + B
            B = B * 2
        Next
        BinToDes = Nilai
        Exit Function
ErrorHandler:
        BinToDes = 0
    End Function

    Public Function BinToOk(ByVal bin As Long) As String
        BinToOk = DesToOk(BinToDes(bin))
    End Function

    Public Function BinToHex(ByVal NBiner As Long) As String
        BinToHex = DesToHex(BinToDes(NBiner))
    End Function

    Public Function OkToDes(ByVal NOktal As String) As Long
        Dim G As Integer
        Dim H As Long
        Dim Nilai As Long
        On Error GoTo ErrorHandler
        For G = Len(NOktal) To 1 Step -1
            Nilai = Nilai + (8 ^ H) * CInt(Mid(NOktal, G, 1))
            H = H + 1
        Next G
        OkToDes = Nilai
        Exit Function
ErrorHandler:
        OkToDes = 0
    End Function

    Public Function OkToBin(ByVal NOktal As Double) As String
        OkToBin = DesToBin(OkToDes(NOktal))
    End Function

    Public Function OkToHex(ByVal NOktal As Double) As String
        OkToHex = DesToHex(OkToDes(NOktal))
    End Function

    Public Function HexToDes(ByVal NHexa As String) As Long
        Dim E As Integer
        Dim Nilai As Long
        Dim F As Long
        Dim CharNilai As Byte
        On Error GoTo ErrorHandler
        For E = Len(NHexa) To 1 Step -1
            Select Case Mid(NHexa, E, 1)
                Case "0" To "9" : CharNilai = CInt(Mid(NHexa, E, 1))
                Case Else : CharNilai = Asc(Mid(NHexa, E, 1)) - 55
            End Select
            Nilai = Nilai + ((16 ^ F) * CharNilai)
            F = F + 1
        Next E
        HexToDes = Nilai
        Exit Function
ErrorHandler:
        HexToDes = 0
    End Function

    Public Function HexToBin(ByVal NHexa As String) As String
        HexToBin = DesToBin(HexToDes(NHexa))
    End Function

    Public Function HexToOk(ByVal NHexa As String) As Double
        HexToOk = DesToOk(HexToDes(NHexa))
    End Function

    Private Sub Konversi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Konversi.Click
        Output.Enabled = False
        If Input.Text = "" And Output.Text = "" Then
            MsgBox("Maaf !!! Anda Harus Memasukkan Nilai")
            Me.Focus()
        End If

        If mDesimal.Checked And kDesimal.Checked Then Output.Text = Input.Text
        If mDesimal.Checked And kBiner.Checked Then Output.Text = DesToBin(Input.Text)
        If mDesimal.Checked And kOktal.Checked Then Output.Text = DesToOk(Input.Text)
        If mDesimal.Checked And kHexadesimal.Checked Then Output.Text = DesToHex(Input.Text)
        If mBiner.Checked And kDesimal.Checked Then Output.Text = BinToDes(Input.Text)
        If mBiner.Checked And kBiner.Checked Then Output.Text = Input.Text
        If mBiner.Checked And kOktal.Checked Then Output.Text = BinToOk(Input.Text)
        If mBiner.Checked And kHexadesimal.Checked Then Output.Text = BinToHex(Input.Text)
        If mOktal.Checked And kDesimal.Checked Then Output.Text = OkToDes(Input.Text)
        If mOktal.Checked And kBiner.Checked Then Output.Text = OkToBin(Input.Text)
        If mOktal.Checked And kOktal.Checked Then Output.Text = Input.Text
        If mOktal.Checked And kHexadesimal.Checked Then Output.Text = OkToHex(Input.Text)
        If mHexadesimal.Checked And kDesimal.Checked Then Output.Text = HexToDes(Input.Text)
        If mHexadesimal.Checked And kBiner.Checked Then Output.Text = HexToBin(Input.Text)
        If mHexadesimal.Checked And kOktal.Checked Then Output.Text = HexToOk(Input.Text)
        If mHexadesimal.Checked And kHexadesimal.Checked Then Output.Text = Input.Text
        With Output
            .SelectionStart = 0
            .SelectionLength = Len(Output.Text)
        End With
    End Sub

    Private Sub Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clear.Click
        Input.Text = ""
        Output.Text = ""
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Dim x As String
        x = MsgBox("Apakah Anda Ingin Keluar?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Keluar")
        If x = vbCancel Then
            Me.Focus()
        ElseIf x = vbOK Then
            Me.Close()
        End If
    End Sub
End Class

Sekian artikel saya, semoga bermanfaat untuk kita semua !!!

Read More

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Tutorial Membuat Program Penjualan Barang menggunakan VB.Net

Source Codenya :

Public Class Form1

    Sub Buat_Table()
        LV.Columns.Add("No Pembeli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub Isi_Table()
        Dim lst As New ListViewItem
        lst.Text = No_Pembelian.Text
        lst.SubItems.Add(Kode_Barang.Text)
        lst.SubItems.Add(Nama_Barang.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jumlah_Beli.Text)
        lst.SubItems.Add(Total_Harga.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode_Barang.Items.Add("VG001")
        Kode_Barang.Items.Add("VG002")
        Kode_Barang.Items.Add("TS001")
        Kode_Barang.Items.Add("TS002")

        Call Buat_Table()
    End Sub

    Private Sub Kode_Barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Barang.SelectedIndexChanged
        Dim x As String
        x = Mid(Kode_Barang.Text, 1, 2)
        Select Case x
            Case "VG"
                Merk.Text = "V-GEN"
            Case "TS"
                Merk.Text = "Toshiba"
        End Select

        x = Mid(Kode_Barang.Text, 3, 3)
        Select Case x
            Case "001"
                Nama_Barang.Text = "Flashdisk 4GB"
            Case "002"
                Nama_Barang.Text = "Flashdisk 2GB"
        End Select

        If Kode_Barang.Text = "TS001" Then
            Harga.Text = 105000
        ElseIf Kode_Barang.Text = "TS002" Then
            Harga.Text = 75000
        ElseIf Kode_Barang.Text = "VG001" Then
            Harga.Text = 90000
        ElseIf Kode_Barang.Text = "VG002" Then
            Harga.Text = 60000
        End If
    End Sub

    Private Sub Jumlah_Beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah_Beli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Total_Harga.Text = Harga.Text * Jumlah_Beli.Text
        End If
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Call Isi_Table()
    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click
        No_Pembelian.Text = ""
        Kode_Barang.Text = ""
        Nama_Barang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah_Beli.Text = ""
        Total_Harga.Text = ""
    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnHapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusPilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub
End Class


Gambar Hasilnya :

Demikian Postingan saya, semoga bermanfaat untuk kita semua !!!

Read More