database vb.net

Login Form VB.net                 

MEMBUAT LOGIN VB.Net
Berikut adalah cara untuk membuat login pada VB.net
• Membuat login pada VB.net
• Klik kanan pada project yang dibuat
• Add -> New item-> login form

• Klik 2x pada tombol ok
• Masukan sintax
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "aji" And PasswordTextBox.Text = "ganteng" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub
* Lalu jalankan / running program tersebut
* Masukan username “robby” dan password “ganteng”

• Jika sudah bisa login dan muncul MDI Parent Form maka Login telah selesai.
• Selamat mencoba……

Diposkan oleh ROBBY di 02:58 0 komentar                            

Tampilan Menu ( MDI Parent Form)

MEMBUAT MDI PARENT FORM ( TAMPILAN MENU ) VB.NET
• Membuat tampilan menu pada vb.net
• Klik kanan projek->Add->New Item-> pilih “MDI Parent Form”
• Maka tampil seperti ini

• Kemudian ubah nama menu tersebut sesuai nama yang akan ditampilkan.

• Kemudian klik 2x, untuk mengganti sintaxnya
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
Form1.Show()
End Sub
• Kemudian running Mdi Parent Form tersebut

• Jika sudah tampil seperti diatas maka form MDI Parent Form telah selesai
• Selamat mencoba……

Diposkan oleh ROBBY di 02:51 0 komentar

Cristal Report VB.Net

LANGKAH DALAM MEMBUAT CRISTAL REPORT DALAM VB.NET
Langsung saja pada, inti dari tutorial yang Saya ( Robby ) buat. Simak baik-baik………
Untuk membuat report langkah yang harusa kita lakukan adalah
• Klik Kanan pada project yang dibuat -> Add-> New Item
• Kemudian pilih Reporting-> Cristal Report
• Maka akan muncul tampilan seperti berikut.

• Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)

• Maka muncul tampilan seperti ini
• Dan pilih “Microsoft Ole DB Provider for SQL Server” karena yang akan kita gunakan adalah database dengan menggunakan Microsoft SQL Server 2000.
• Klik next

• Dan muncul lagi yang demikian
• Untuk penggunaan server jika local isi dengan titik saja, ceklist pada integrated security dan pilih data base yang telah kita buat sebelumnya pada Microsoft SQL Server.
• Kemudian klik next-> finish

• Akan muncul kaya gini
• Sekarang database Jurusan telah muncul dan kita tinggal pilih tablenya seperti pada gambar
• Klik next

• Muncul seperti ini
• Klik pilihan “>>” untuk menentukan field mana yang akan dimunculkan pada report nanti.
• Klik next

• Kemudian next

• Klik next lagi

• Kemudian pilih tampilan report yang menarik dan sesuai dengan kebutuhannya.
• Lalu klik finish

• Maka akan muncul seperti ini, kemudian kita klik kanan “Preview Report”
•

• Maka hasil akan tampil seperti ini :

• Kemudian buat form baru yang akan digunakan untuk menampilkan report tersebut
• Klik kanan pada project-> add-> windows form….
• Pilih di toolbox berupa “Cristal Report Viewer”

• Kemudian klik kanan dan pilih “choose a cristal report”
• Pilih cristal report yang akan dilihat lalu klik Ok.
• Lalu running form tersebut, maka akan muncul yang kira-kira seperti ini :

• Sangat dibutuhkan ada kekurangan kritik atau saran yang membangun.
• Terima kasih…. Selamat Mencoba……………..

Diposkan oleh ROBBY di 02:38 0 komentar

Minggu, 15 Mei 2011

Materi VB

MATERI VB

Dalam membuat program kita biasa menggunakan database. Sebagai koneksi kita menggunakan module yang dibuat untuk mengkoneksikan dengan database Membuat modul koneksi dengan database adalah sebagai berikut :

Imports System.Data
Imports System.Data.Sql
Module koneksi
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String

Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=cobasql;data source=."
database.Open()
MessageBox.Show("Koneksi kedatabase berhasil")
Catch ex As Exception
MessageBox.Show("koneksi gagal")
End
End Try
End Sub
End Module

Kemudian membuat sintax seperti ini dalam form yang baru.
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader

If tampilkan.HasRows = True Then
While tampilkan.Read()
If IsDBNull(tampilkan("kdjur")) Then
TextBox2.text = tampilkan("nmjur")
Else
TextBox2.Text = tampilkan("nmjur")
End If
End While
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

kemudian membuat tampilan formnya sebagai berikut ;

Dan dilanjutkan dengan membuat sintax selanjutnya pada form baru selanjutnya ;

Public Class Form2
Sub kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Button1.Text = "Tambah"
Button2.Text = "Ubah"
Button3.Text = "Hapus"
Button4.Text = "Keluar"
Button1.Enabled = True 'enable=funsi aktif/tdaknya sebuah objek
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
End Sub
Sub celrecord()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader
If tampilkan.HasRows = True Then ''ada atau tidak recod yg dimaksukkan
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call simpankelompok()
End Sub
Sub simpankelompok()
If Button1.Text = "Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Call celrecord()
Try
If hasilcek = "False" Then
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Insert into Jurusan (kdjur,nmjur)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
tampil2.ExecuteNonQuery()
Call kosong()
Else
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call kosong()
Call netral()
End If
End Sub
Sub ubahkelompok()
If Button2.Text = "Ubah" Then
TextBox1.Text = ""
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update Jurusan set nmjur='" & TextBox2.Text & "'where kdjur='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call ubahkelompok()
End Sub
Sub hapuskelompok()
If Button3.Text = "Hapus" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from Jurusan where kdjur='" & Trim(TextBox1.Text)&"'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapuskelompok()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Button1.Text = "Simpan" Then
Call celrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode Sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Informasi")
tampilkan = tampil2.ExecuteReader
End If
Else
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " select* from Jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()

If tampilkan.HasRows = True Then
While tampilkan.Read()
If (IsDBNull(tampilkan("kdjur"))) Then
TextBox1.Focus()
Else
TextBox2.Text = tampilkan("nmjur")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub

End Class

kemudian membuat tampilan formnya lagi sebagai berikut :

maka program selesai dan jangan lupa dibuat database terlebih dahulu dengan menggunakan SQL Server 2000. Untuk keterangan selanjutnya akan dibahas pada posting / update yang akan datang berikutnya…… tunggu tanggal mainnya…..

progaram vb.net for UAS

Membuat program data base tanpa koneksi database (hanya tampilan)

1. langkah yang pertama buat Design seperti berikut :

2.buat scribnya seperti berikut :

Public Class Form1

    Dim listitem As ListViewItem
    Dim listtxt(4) As String
    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Call bersih()
    End Sub
    Sub bersih()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        listtxt(0) = Trim(TextBox1.Text)
        listtxt(1) = Trim(TextBox2.Text)
        listtxt(2) = Trim(TextBox3.Text)
        listtxt(3) = Trim(TextBox4.Text)
        'untuk memasukkan ke listview dari variable
        listitem = New ListViewItem(listtxt)
        ListView1.Items.Add(listitem)

    End Sub
    Sub setlistview()
        ListView1.View = View.Details
        'untuk menentukan kolom
        ListView1.Columns.Add("Kode barang", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Describtion", 130, HorizontalAlignment.Left)
        ListView1.Columns.Add("Spesifikasi", 150, HorizontalAlignment.Left)
        ListView1.Columns.Add("nomer mould", 100, HorizontalAlignment.Left)
    End Sub


    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Button5.Text = "close" Then
            Me.Close() 'me untuk menutup form diri sendiri
        Else
            Call bersih()
            Call normal()
        End If
    End Sub
    Sub normal()
        Button1.Text = "save"
        Button1.Enabled = True
        Button2.Text = "edit"
        Button2.Enabled = True
        Button3.Text = "delete"
        Button3.Enabled = True
        Button4.Text = "cancel"
        Button4.Enabled = True
        Button5.Text = "close"
        Button5.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "edit" Then
            Button2.Text = "ubah"
            Button1.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Text = "keluar"
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.Text = "delete" Then
            Button3.Text = "hapus"
            Button1.Enabled = False
            Button2.Enabled = False
            Button4.Enabled = False
            Button5.Text = "keluar"
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "cancel" Then
            Button4.Text = "tunda"
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button5.Text = "keluar"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Call setlistview()
    End Sub
End Class
 

3.maka setelah dijalankan hasilnya akan seperti berikut :

Cara membuat program vb.net semi data base

Cara membuat program vb.net semi data base

1.buat design nya seperti gambar berikut

2. buat scribnya sebagai berikut :
Public Class Form1

'membuat variable array

Dim listtxt(3) As String
Dim listitem As ListViewItem


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

'memasukan nilai ke variable array

listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)

'untuk memasukkan ke listview dari variable

listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)
End Sub

'setting colom listview

Sub setlistview()
ListView1.View = View.Details
'untuk menentukan kolom/nama kolom pada listbox
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("alamat", 100, HorizontalAlignment.Left)
End Sub

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

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

'ganti properti kiri listview1 kanan itemselectionchanged

'mangambil nilai dari listview

TextBox4.Text = e.Item.Text
End Sub
End Class

Hasilnya sebagai berikut :

Cara membuat program dengan vb.net dengan model

Langkah pertama

Buat desaainnya sebagai berikut:

Buat scribnya sebagai berikut :

Public Class Form2

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

        h = TextBox1.Text

        b = TextBox2.Text

        Call hitung()

        TextBox3.Text = hasil

    End Sub

End Class

Dengan model :

Module Module1

    'variabel public

    Public nama As String, hasil, h, b As Integer

    Sub tampilnama()

        nama = "joko waredoyo"

    End Sub

    Sub hitung()

        hasil = Val(h) * Val(b)

    End Sub

End Module

Cara membuat model

1.aktifkan aplikasi/judul program

Contoh : windows applikasion1

2.klik kanan pilih Add

3.pilih modul

4.mulai membuat class dengan modul

Selamat mencoba!!!!

Setting DNS server dengan yast

Nama domain : ijong.com

IP Address Server : 192.168.0.1

IP Address diatas akan digunakan untuk seluruh records yang digunakan. Jika menginginkan IP address yang berbeda untuk records tertentu silakan ubah sesuai keperluan.

Saya menggunakan SLES 11 sebagai contoh namun tutorialnya bisa digunakan untuk openSUSE 10.x dan 11.x.

Mari kita mulai :

Buka YAST | Software | Software Management. Cari package bind kemudian beri tanda centang dan kemudian klik Accept untuk melakukan instalasi. YAST akan secara otomatis mendeteksi dependency file yang dibutuhkan dan melakukan instalasi package tersebut. Kita bisa juga menggunakan Pattern dhcp dns server jika menginginkan instalasi menggunakan pola yang sudah didefinisikan. (Instalasi melalui pattern ini jauh lebih mudah jika instalasi yang dilakukan memerlukan package yang banyak. Pattern Web & Lamp Server misalnya, secara otomatis akan melakukan instalasi Apache Web Server, Database MySQL dan engine PHP tanpa harus memilihnya satu persatu. Pattern bisa diibaratkan sebagai kumpulan package yang memiliki fungsi tertentu)

`
Gambar 1 : YAST Software Management
Tutup YAST agar YAST melakukan refresh package yang diinstall
Buka Yast | Network Service | DNS Server
`

Gambar 2 : Network Services pada YAST
Pada wizard pertama, YAST menampilkan forwarder setting, yaitu DNS server forwarder yang akan digunakan untuk melakukan look up address jika suatu alamat tidak ditemukan di DNS server lokal. YAST biasanya mengambil data isian dari konfigurasi DNS yang sudah disetting. Untuk wizard ini kita bisa menggunakan setting default. Klik Next.
`

Gambar 3 : Forwarder Setting

Tambahkan Zone baru. Ketik nama domain (ijong.com) pada Zone name, Pilih master pada Zone type dan kemudian klik Add

Gambar 4 : DNS Zone

Klik Edit untuk mengisi records pada Zone domain yang baru saja kita buat
`

Gambar 5 : DNS Records
Biarkan tab pertama (Basics) demikian adanya. Kita akan menggunakan setting default, yaitu menggunakan seluruh Zone Transport. Klik pada tab kedua, NS Records
Ketik ns1 pada Name Server to Add dan kemudian klik Add. YAST akan cukup cerdas untuk menggunakan fasililitas auto complete dan menuliskan records secara lengkap, berikut tanda titik dibagian akhir (dalam contoh : ns1.ijong.com.). Pada konfigurasi DNS, tanda titik ini berarti dibelakang records tersebut tidak perlu ditambahkan nama domain. Untuk nama name server, ns adalah nama standar, singkatan dari name server. ns1 berarti name server 1, kita menyiapkan kemungkinan jika nantinya ada 2 server atau lebih bisa kita beri nama ns2, ns3 dan seterusnya. Name server berarti server yang berfungsi sebagai pemberi nama bagi komputer klien yang menanyakannya. Misalnya ada komputer klien yang bertanya, “Kalau si mail.vavai.com itu alamatnya dimana ya ?”, maka itu akan menjadi tugas dari Name Server.
`

Gambar 6 : NS Records
Pindah ke tab ketiga, MX Records. Ketik nama host, misalnya mail pada isian Address. Jangan lupa berikan prioritas untuk mail server tersebut (default 0, biasanya kelipatan 10, semakin kecil berarti semakin tinggi prioritasnya). Nama host pada MX records ini akan menjadi rujukan bagi name server bahwa transport email untuk nama domain ijong.com akan ditangani oleh mail.ijong.com
`

Gambar 7 : MX Records
Biarkan tab ke empat (SOA) seperti adanya, kita akan menggunakan setting default. Tab SOA berisi setting mengenai kapan suatu alamat records direfresh. SOA mendefinisikan waktu propagasi suatu DNS Server.
`

Gambar 8 : SOA Records
Pindah ke tab terakhir, yaitu tab records. Disini kita akan mendefinisikan alamat IP untuk masing-masing nama records. Ketik ns1 pada isian Record key, Pilih A (Address Records) sebagai tipe records dan kemudian isi IP Address pada bagian records value. Karena saya menggunakan komputer yang sama sebagai name server dan mail, saya mengisi IP address Zimbra pada bagian records value. Kemudian klik Add. Lakukan hal yang sama untuk identifikasi IP Address mx records. Ketik mail (atau nama yang ada pada bagian MX records), pilih A (Address Records) sebagai tipe records dan masukkan IP Zimbra pada records value kemudian klik Add
`

Gambar 9 : Definisi Records
Lakukan hal yang sama untuk records lain yang diinginkan, misalnya saya membuat records smtp.ijong.com dan pop.ijong.com yang merupakan canonical name (nama alias atau nama lain) dari mail.vavai.com. CName atau Canonical Name bisa digunakan untuk menyederhanakan pola penulisan records. Jika satu waktu ada perubahan IP Address dari mail.ijong.com, alamat IP pop.ijong.com dan smtp.ijong.com akan secara otomatis mengikuti perubahan tersebut.
`

Gambar 10 : Contoh penambahan Canonical Name
Klik OK
Klik Next
Pilih On : Start up now and When Booting agar DNS Server langsung dijalankan saat ini dan setiap waktu booting
Klik Finish
`

Gambar 11 : Wizard terakhir, service DNS Server dijalankan saat booting
Testing DNS Server menggunakan perintah nslookup, contoh : nslookup ns1.domain.tld dan nslookup mail.domain.tld. Contoh pada tutorial ini : nslookup ns1.vavai.com dan nslookup mail.vavai.com. DNS Server akan meresponnya dengan menampilkan IP Address. respon yang benar akan menghasilkan IP Address dari records-records yang sudah didefinisikan. Jika ada pesan kesalahan, investigasi ulang pesan kesalahannya. Untuk testing bisa juga menggunakan perintah dig.
Contoh tampilan hasil check :
nslookup ns1.IJONG.com
server:                         127.0.0.1
Address                       127.0.0.1#53
Name:                           ns1.IJONG.com
Address:                     192.168.0.1

yuk latihan VB.NET (membuat desain semi database)

## latihan VB.net desain form database berserta scrib ringan ##

@ langkah pertama dalam pelatihan ini silahkan anda membuat desain seperti pada gambar berikut :

  

@ langkah yang kedua adalah silahkan anda membuat scrib seperti berikut !!!

   Public Class Form1

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Call isiCombo()
        Call bersih()
    End Sub
    Sub isiCombo()
        ComboBox1.Items.Add("06 tehnik informatika")
        ComboBox1.Items.Add("07 sistem informasi")
        ComboBox1.Items.Add("26 manajemen informasi")
        ComboBox1.Items.Add("67 komputer akuntansi")
        ComboBox1.Items.Add("05 tehnik komputer")

    End Sub
    Sub bersih()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        ComboBox1.Text = "06 tehnik informatika"



    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "tambah" Then
            Button1.Text = "Simpan"
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Text = "batal"
            TextBox1.Focus()

        Else
            ListBox1.Items.Add = Trim(ComboBox1.Text) + "" + Trim(TextBox1.Text) + "" + Trim(TextBox2.Text) + Trim(TextBox3.Text) + "" + Trim(TextBox4.Text)




        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "keluar" Then
            Me.Close() 

        Else
            Call bersih()
            Call normal()
        End If
    End Sub
    Sub normal()
        Button1.Text = "tambah"
        Button1.Enabled = True
        Button2.Text = "ubah"
        Button2.Enabled = True
        Button3.Text = "hapus"
        Button3.Enabled = True
        Button4.Text = "keluar"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "ubah" Then
            Button1.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = True
            TextBox1.Text = Focus()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.Text = "hapus" Then
            Button1.Enabled = False
            Button2.Enabled = False
            Button4.Enabled = True
            TextBox1.Text = Focus()

        End If
    End Sub
End Class

 ***catatan bos (penting )

   1.perintah call adalah untuk menjalankan program dalam sub

      contoh : call bersih() untuk menjalankan scrib yang ada dalam program sub bersih()

   2.perhatikan dalam pembuatan scrib yang pertama dalam call isicombo() dan call bersih() tipe desain adalah      form1 Events dengan declaration Activated >>>>>>> penting!!!!

   3.fungsi Me.Close() adalah untuk menjalankan diri sendiri.

@ maka hasilnya adalah sebagai berikut :

  

  ** maaf untuk hasil ini hanya 1 button saja yang dijalankan untuk lebih jelasnya silahkan coba yah itung-itung sebagai latihan lah gan biar  terbiasa ok demikian pelatihan dari saya semoga bermanfaat selamat mencoba cuy !!!