Membuat From Login pada Vb.Net

      Kali ini Saya akan Berbagi sama teman teman sekalian, gimana sigh cara Membuat From Login pada Vb.Net. Nah pada penasaran kan,, sebenar nya desainnya ngak susah kog,, cuman tingal klik klik aja pada toolbox heheheh,,,,,,,,,  tapi kita sebelumya harus buka dulu Vb.Net ..

Emm ni dia tampilan From Login pada Vb.Net :

    Dan pastinya kalo ada tampilan pasti ada listingnya yakan sobat,,,,

Ini dia Listing Program Membuat From Login pada Vb.Net:

1. Public Class Form_Login
3.     Private Sub Form_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4.         password.PasswordChar = "*"
5.     End Sub
7.     Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
8.         If username.Text = "aku" And password.Text = "sayang" Then
9.             MsgBox("Selamat Datang", MsgBoxStyle.Information, "Login Succses")
10.             Me.Hide()
11.             'FormMenu.Show()
12.         ElseIf username.Text = "dia" And password.Text = "oke" Then
13.             MsgBox("Selamat Datang", MsgBoxStyle.Information, "Login Succses")
14.             Me.Hide()
15.             'FormMenu.Show
16.         Else
17.             MsgBox("Maaf !! Password anda  Salah !!", MsgBoxStyle.Information, "Login Filed")
18.             username.Text = ""
19.             password.Text = ""
20.             username.Focus()
21.         End If
22.     End Sub
24.     Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesGroupBox1.Enter
26.     End Sub
27. End Class

      Nah anda perhatikan pada listing program terdapat dua user dan dua password, itu berguna hanya dua user tersebut saja yang bisa masuk ke aplikasi selanjutnya.

Terdapat 'formmenu.show(), program ini berguna untuk memanggil formmenu atau form yang kedua bila ada.

      Demikianlah Artikel tentang Membuat From Login pada Vb.Net Semoga bermanfaat bagi sobat Semua,,,,

Membuat Aplikasi Program Menu, Toolbar, and Statusbar dengan Vb.Net

Membuat Aplikasi Program Menu, Toolbar, and Statusbar dengan Vb.Net. Pasti pada Panasaran gimana sih cara buat  Menu, Toolbar, Statusbar saat kita Membuat Aplikasi Program. Nah jangan khawatir kali saya berbagi sama teman2 bagaimana cara membuatnya,,,,,,,,,

Sebelumnya saya akan menampilkan tampilan Menu, Toolbar, dan Statusbar :

Dan berikut ini adalah tamoilan yang sudah dijalanakan

Dan berikut ini adalah Listing Programnya:

1. Public Kelas Daftar_Menu
2.  
3.     Private Sub QuiZPdAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles QuiZPdAMToolStripMenuItem.Click
4.         QuiZ_PdAM . MdiParent = Me
5.         QuiZ_PdAM . Tampilkan ( )
6.     End Sub
7.  
8.  
9.     Private Sub PDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesPDAMToolStripMenuItem.Click
10.         Gaji_Pegawai . MdiParent = Me
11.         Gaji_Pegawai . Tampilkan ( )
12.     End Sub
13.  
14.     Private Sub LatihanMenghitungNilaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NilaiMahasiswaToolStripMenuItem.Click
15.         Nilai_Mahasisiwa . MdiParent = Me
16.         Nilai_Mahasisiwa . Tampilkan ( )
17.     End Sub
18.  
19.     Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesKeluarToolStripMenuItem.Click
20.         Me . Tutup ( )
21.     End Sub
22.  
23.     Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesKeluarToolStripMenuItem1.Click
24.         Dim k As String
25.         k = MsgBox ( "Apakah Andari Yakin Ingin Keluar" , MsgBoxStyle . yesno )
26.         Jika k = vbYes Lalu
27.             Me . Tutup ( )
28.         End Jika
29.     End Sub
30.  
31. Akhir Kelas

Demikianlah artikel dari saya yang berjudul Membuat Aplikasi Program Menu, Toolbar, and Statusbar dengan Vb.Net. Semoga artikel diatas dapat bermanfaat bagi anda.

Membuat Program Aplikasi Barang Menggunkan Listview Pada VB.Net

Membuat Program Aplikasi Barang Menggunkan Listview Pada VB.Net

Sudah lama juga jari-jari saya tidak mencet-mencet tombol keyboard heheh...

Hai Guys kali ini saya aka memostingkan Membuat Program Aplikasi Barang Menggunkan Listview Pada VB.Net ... Nah kali ini jika karakter diinputkan maka akan bisa disimpan dilistview,.. Nah berikut ini adalah tampilan dari Program Aplikasi Barang Menggunkan Listview. 

Berikut ini adalah Listing Programnya..:

Public Class Barang

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = kd_barang.Text

        lst.SubItems.Add(nm_barang.Text)

        lst.SubItems.Add(satuan.Text)

        lst.SubItems.Add(harga.Text)

        LV.Items.Add(lst)

    End Sub

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

        kd_barang.Items.Add("KL001")

        kd_barang.Items.Add("TV002")

        kd_barang.Items.Add("SK003")

        kd_barang.Items.Add("KB004")

        satuan.Items.Add("Elektronik")

        satuan.Items.Add("Listrik")

        nm_barang.Enabled = False

        harga.Enabled = False

    End Sub

    Private Sub kd_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_barang.SelectedIndexChanged

        If kd_barang.Text = "KL001" Then

            nm_barang.Text = "Kulkas"

        ElseIf kd_barang.Text = "TV002" Then

            nm_barang.Text = "Televisi"

        ElseIf kd_barang.Text = "SK003" Then

            nm_barang.Text = "Sakelar"

        Else

            nm_barang.Text = "Kebel"

        End If

    End Sub

    Private Sub satuan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satuan.SelectedIndexChanged

        Select Case satuan.Text

            Case "Elektronik"

                Select Case kd_barang.Text

                    Case "KL001"

                        harga.Text = 2400000

                    Case "TV002"

                        harga.Text = 1200000

                End Select

            Case "Listrik"

                Select Case kd_barang.Text

                    Case "SK003"

                        harga.Text = 45000

                    Case "KB004"

                        harga.Text = 5000

                End Select

        End Select

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        isitabel()

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        kd_barang.Text = ""

        nm_barang.Text = ""

        satuan.Text = ""

        harga.Text = ""

        kd_barang.Focus()

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        kd_barang.Text = ""

        nm_barang.Text = ""

        satuan.Text = ""

        harga.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub btnhapuslv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslv.Click

        lv.Items.Remove(lv.Items(0))

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

    End Sub

End Class

Demikianlah artikeldari saya yang berjudul Membuat Program Aplikasi Barang Menggunkan Listview Pada VB.Net Semoga bermanfaat bagi taman taman semua..........

Membuat Aplikasi Program Kriptografi Caesar Chiper Pada VB.Net

Membuat Aplikasi Program Kriptografi Caesar Chiper Pada VB.Net

Kali ini saya akan berbagi program Membuat Aplikasi Program Kriftografi Caesar Chiper Pada VB.Net. Kali ini aplikasi yang dibuat adalah Caesar Chiper yaitu aplikasi yang digunakan untuk menyandikan kata sandi pada akun login. 

Dibawah ini merupakan tampilan Aplikasi Program Caesar Chiper :

Ket :

• Label1 = text : plain
• Label2 = text : chiper
• Botton1 = nama  : btnenkripsi
• Botton2= nama : btndeskripsi
• Textbox1 = nama : plain
• Textbox2 = nama : chiper

Listing Program :

1. Public Class Form1
3.     Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click
4.         Dim x As String = ""
5.         Dim xkalimat As String = ""
7.         For i = 1 To Len(plain.Text)
8.             x = Mid(plain.Text, i, i)
9.             x = Chr(Asc(x) + 3)
10.             xkalimat = xkalimat + x
11.         Next
12.         chiper.Text = xkalimat
14.     End Sub
16.     Private Sub Dekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dekripsi.Click
17.         Dim X As String = ""
18.         Dim XKALIMAT As String = ""
20.         For i = 1 To Len(chiper.Text)
21.             X = Mid(chiper.Text, i, i)
22.             X = Chr(Asc(X) - 3)
23.             XKALIMAT = XKALIMAT + X
24.         Next
25.         plain.Text = XKALIMAT
26.     End Sub
28. End Class

Demikianlah artikel saya tentang Membuat Aplikasi Program Kriftografi Caesar Chiper Pada VB.Net semoga artikel diatas dapat bermanfaat bagi sobat sekalian........

Membuat Program Aplikasi Tagihan Air PDAM dengan VB.Net

Membuat Program Aplikasi Tagihan Air PDAM dengan VB.Net

Dalam kesempatan ini saya ingin berbagi Progam dengan menggunakan VB.Net. Adapun pun judul artikel yang akan saya bagikan kepada anda adalah Membuat Program Aplikasi Tagihan Air PDAM dengan VB.Net. Berikut ini adalah gambar Program Aplikasi Tagihan Air PDAM.

Dan berikut ini adalah gambar Program Aplikasi Tagihan  yang dijalan kan...

Kalo ada aplikasi pasti ada Listing Program, berikut ini adalah Listing Program Aplikasi Tagihan Air PDAM nya......... :)

Public Class Tagihan_PDAM

    Private Sub Tagihan_PDAM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kd_pelanggan.Items.Add("PAB-MED-100")
        kd_pelanggan.Items.Add("RUM-MED-101")
        kd_pelanggan.Items.Add("TOK-BEL-102")
        kd_pelanggan.Items.Add("SWA-MED-103")
    End Sub

    Private Sub kd_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_pelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kd_pelanggan.Text, 3)
        Select Case x
            Case "100" : nama.Text = "UCOK"
            Case "101" : nama.Text = "JHAN F"
            Case "102" : nama.Text = "ERIN"
            Case "103" : nama.Text = "ERIN"
        End Select
        x = Microsoft.VisualBasic.Left(kd_pelanggan.Text, 3)
        Select Case x
            Case "TOK"
                harga.Text = 250
                biaya_beban.Text = 15000
                tipe.Text = "TOKO"
            Case "RUM"
                harga.Text = 150
                biaya_beban.Text = 10000
                tipe.Text = "RUMAN"
            Case "PAB"
                harga.Text = 25000
                biaya_beban.Text = 25000
                tipe.Text = "PABRIK"
            Case "SWA"
                harga.Text = 20000
                biaya_beban.Text = 60000
                tipe.Text = "SWALAYAN"
        End Select
        x = Microsoft.VisualBasic.Mid(kd_pelanggan.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "Medan"
            Case "BEL" : daerah.Text = "Belawan"
            Case Else : daerah.Text = "-"
        End Select
    End Sub

    Private Sub jml_pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jml_pemakaian.KeyPress
        If jml_pemakaian.Text = "" Then
            jml_pemakaian.Focus()
        ElseIf Asc(e.KeyChar) = 13 Then
            total_tagihan.Text = Val(biaya_beban.Text) + (harga.Text * jml_pemakaian.Text)
            pajak.Text = 0.01 * total_tagihan.Text
            pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
        End If
    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        kd_pelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        harga.Text = ""
        jml_pemakaian.Text = ""
        total_tagihan.Text = ""
        pembayaran.Text = ""
        daerah.Text = ""
        biaya_beban.Text = ""
        pajak.Text = ""
    End Sub
End Class

Saya juga akan berbagi membuat komen "Yes / no" saat kita klik button Keluar:

ini listing Program nya letakan saja diatas end class:

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
        Dim k As String
        k = MsgBox("Apakah Anda yakin Ingin Keluar", MsgBoxStyle.YesNo)
        If k = vbYes Then
            Me.Close()
        End If
    End Sub

Demikianlah Artikel "Membuat Program Aplikasi Tagihan Air PDAM dengan VB.Net" semoga Artikel diatas dapat bermanfaat bagi anda,,,

Membuat Program Aplikasi Kalkulator dengan Vb.Net

Membuat Program Aplikasi Kalkulator dengan Vb.Net adalah pelajaran sederhana dalam pemogroman, karena disini lah awal dari kesempurnaan progam. Kami berharap Semoga Membuat Program Aplikasi Kalkulator dengan Vb.Net ini dapat bermanfaat bagi para programer dasar.

Berikut ini adalah listing Program Membuat Program Aplikasi kalkulator dengan Vb.Net

Public Class KALKULATOR

    Dim operand1 As Double

    Dim [operator] As String

    Dim baru As Boolean = True

    Dim temp As Double

    Dim operand2 As Double

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click, btn1.Click, btn2.Click, btn3.Click,btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, bnt9.Click

        TextBox1.Text = TextBox1.Text & sender.Text

    End Sub

    Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click

        If baru = True Then

            operand1 = Val(TextBox1.Text)

            TextBox1.Text = ""

            TextBox1.Focus()

            [operator] = "+"

        ElseIf baru = False Then

            If [operator] = "+" Then

                temp = operand1 + Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = "-" Then

                temp = operand1 - Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = "x" Then

                temp = operand1 * Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = ":" Then

                temp = operand1 / Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            End If

        End If

        baru = False

    End Sub

    Private Sub btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurang.Click

        If baru = True Then

            operand1 = Val(TextBox1.Text)

            TextBox1.Text = ""

            TextBox1.Focus()

            [operator] = "-"

        ElseIf baru = False Then

            If [operator] = "+" Then

                temp = operand1 + Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = "-" Then

                temp = operand1 - Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = "x" Then

                temp = operand1 * Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = ":" Then

                temp = operand1 / Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            End If

        End If

        baru = False

    End Sub

    Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click

        If baru = True Then

            operand1 = Val(TextBox1.Text)

            TextBox1.Text = ""

            TextBox1.Focus()

            [operator] = "x"

        ElseIf baru = False Then

            If [operator] = "+" Then

                temp = operand1 + Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = "-" Then

                temp = operand1 - Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = "x" Then

                temp = operand1 * Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = ":" Then

                temp = operand1 / Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            End If

        End If

        baru = False

    End Sub

    Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click

        If baru = True Then

            operand1 = Val(TextBox1.Text)

            TextBox1.Text = ""

            TextBox1.Focus()

            [operator] = ":"

        ElseIf baru = False Then

            If [operator] = "+" Then

                temp = operand1 + Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = "-" Then

                temp = operand1 - Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = "x" Then

                temp = operand1 * Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = ":" Then

                temp = operand1 / Val(TextBox1.Text)

                operand1 = temp

                TextBox1.Text = ""

                [operator] = "+"

            End If

        End If

        baru = False

    End Sub

    Private Sub btnsamadengan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsamadengan.Click

        Dim hasil As Double

        operand2 = Val(TextBox1.Text)

        Select Case [operator]

            Case "+"

                hasil = operand1 + operand2

                TextBox1.Text = hasil.ToString

                baru = True

            Case "-"

                hasil = operand1 - operand2

                TextBox1.Text = hasil.ToString

            Case ":"

                hasil = operand1 / operand2

                TextBox1.Text = hasil.ToString

            Case "x"

                hasil = operand1 * operand2

                TextBox1.Text = hasil.ToString

                baru = True

        End Select

    End Sub

    

    Private Sub btntitik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntitik.Click

        If InStr(TextBox1.Text, ".") > 0 Then

            Exit Sub

        Else

            TextBox1.Text = TextBox1.Text & "."

        End If

    End Sub

    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click

        TextBox1.Text = ""

        operand1 = 0

        temp = 0

        baru = True

    End Sub

End Class

Semoga program Membuat Program Aplikasi Kalkulator dengan Vb.Net diatas dapat bermanfaat bagi para Programer Pemula.