Select pada VB

SELECT CASE

Bentuk decision yang kedua setelah if adalah case dipergunakan untuk menyeleksi kondisi dan mengujinya sama dengan fungsi IF, perbedaannya IF dapat menguji lebih dari satu variabel sedangkan Case di rekomendasikan untuk nilai dari satu variabel.

 Jika gol=3 dan status=tetap maka…..àContoh : IF
Jika untuk case bentuk diatas tidak dapat diselesaikan.

7 Langkah Kunci Kesuksesan

1. Memutuskan untuk Sukses
   

“Always bear in mind that your own resolution to succeed is more important than any other.” (“Selalu ingat bahwa tekad Anda untuk sukses adalah lebih penting dari yang lainnya.”)
-Abraham Lincoln

Tips Sukses Menghadapi Sidang

Jika anda mahasiswa/i tingkat akhir, mungkin tidak lama lagi akan menghadapi sidang skripsi/kerja praktek/yang lainnya. Dan biasanya hal ini yang paling ditakutkan. Sesaat si mahasiswa akan terkena sindrom sidangisme. Perut mules, pengen minum terus, keringat dingin keluar, gak enak duduk, panik, resah, gelisah dan masih banyak lagi yang lainnya…

TENTANG SAYA

     Nama saya Fricles Ariwisanto Sianturi, saya dilahirkan pada tgl, 26 - september 1991, saya anak ke 2 dari 5 bersaudara, belajar formal disekolah saya awali di SD 173276 hutasoit pardomuan 6thn kemudian lulus dan melanjutkan sekolah diSLTP Negri 2 Siborongborong, selepas lulus saya belajar di SMA PGRI 20 Siborongborong.

CIRI-CIRI ORANG YANG SUKA BEGADANGCIRI-CIRI ORANG YANG SUKA BEGADANG

1. Suka bangun kesiangan bahkan sampai sore
Ini dikarenakan kebiasaan tidak tidur semalaman sehingga siang dijadikan malam, malam dijadikan siang.
...
2. Lebih semangat bekerja saat malam tiba
Ya, disini orang yang sudah terbiasa begadang akan merasa sangat bergairah melakukan sesuatu di malam hari, entah itu untuk pekerjaan ataupun hal-hal lainnya.

3. Makan saat rasa lapar datang
Rata-rata orang yang hobi begadang terkadang lupa sama yang namanya makan, mereka cenderung asik dengan kegiatannya masing-masing. di saat perut mereka lapar baru mereka makan, jelas ini sangat tidak baik untuk kesehatan.

Konsep Sistem Client Server

Konsep Sistem Client Server

Pendahuluan

Diawal perkembangannya perangkat komputer adalah barang yang mahal dan mewah. Pengembangan dan pengoperasiannya rumit dan terpusat. Namun seiring dengan berjalannya waktu yang tadinya proses tersentralisasi dikembangakan menjadi proses terdistribusi sampai pada end user. Hal ini sangat dipengaruhi oleh adanya perkembangan teknologi LAN (Local Area Network) di pertengahan tahun 1980 an. Dengan LAN sebuah PC dapat melakukan komunikasi satu dengan lainnya dan dapat saling berbagi resource baik perangkat keras ataupun database. LAN mampu memberikan interkonektivitas yang tidak pernah ada sebelumnya. Untuk dapat melakukan hal tersebut dibutuhkan sebuah komputer pemproses yang memfasilitasi dan melayani proses sharing semua resource yang ada. Perangkat ini disebut dengan Server. Untuk melakukan Sharing File biasanya dibutuhkan sebuah File Server begitu juga untuk sharing Printer dibutuhkan sebuah Printer Server. Namun ternyata hal seperti ini belumlah cukup. Jumlah PC yang bertambah dengan sangat cepat seiring dengan berkembangnya sebuah organisasi. Jumlah end user dan client juga bertambah banyak. Kebutuhan akan perangkat menjadi bertambah pula, tidak hanya membutuhkan sebuah printer server, juga dibutuhkan server-server lainnya seperti server pengolahan gambar, server pengolahan suara, dan lainnya. Server-server ini dengan database dan applikasinya harus dapat diakses oleh beberapa PC, ataupun diakses oleh sebuah komputer mainframe melalui sebuah LAN. Sistem seperti ini disebut Sistem Client Server seperti digambarkan pada Gambar 1 dibawah ini.

Prorgam KALKULATOR SEDERHANA

cal 'sora'

Public Class Form1
Dim b1, b2, h As Double
Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
b1 = Val(TextBox1.Text) ‘untuk mengidentifikasikan angka yang dimasukkan pada textbox1
b2 = Val(TextBox2.Text) ‘untuk mengidentifikasikan angka yang dimasukkan pada textbox2
h = b1 + b2 ‘perhitungan antara variabel yang telah dideklarasikan
TextBox3.Text = Str(h) ‘hasil perhitungan yang akan ditampilkan pada textbox3
End Sub
Private Sub btnbagi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbagi.Click
b1 = Val(TextBox1.Text)
b2 = Val(TextBox2.Text)
h = b1 / b2
TextBox3.Text = Str(h)
End Sub
Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Me.TextBox1.Clear()
Me.TextBox2.Clear()
Me.TextBox3.Clear()
Me.TextBox1.Focus()
End Sub
Private Sub btnkali_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkali.Click
b1 = Val(TextBox1.Text)
b2 = Val(TextBox2.Text)
h = b1 * b2
TextBox3.Text = h
End Sub

.Belajar buat jam, hari, tanggal, message saat klik tombol, exit dengan vb.net

*Buka toolbox siapkan 3 label, 1 timer, dan 2 button

sora'dq

module	Keterangan
Label1	Pada Property ubah name : txtjam,, text :jam
Label2	Pada Property ubah name : txtjhari,, text : hari
Label3	Pada Property ubah name : txttanggal,, text : tanggal
Timer	Pada Property ubah Enabled : True, Interval : 1000
Button1	Pada Property ubah name : btnclik,, text : click me
Button2	Pada Property ubah name : btnexit, text :exit

 Klik 2 x pada timer dan ketikan script dibawah ini :

Ketikan script dibawah ini :

Dim harike As Integer

        harike = DateTime.Now.DayOfWeek

        If harike = 1 Then

            Me.txthari.Text = “Senin”

        ElseIf harike = 2 Then

            Me.txthari.Text = “Selasa”

        ElseIf harike = 3 Then

            Me.txthari.Text = “Rabu”

        ElseIf harike = 4 Then

            Me.txthari.Text = “Kamis”

        ElseIf harike = 5 Then

            Me.txthari.Text = “Jumat”

        ElseIf harike = 6 Then

            Me.txthari.Text = “Sabtu”

        ElseIf harike = 7 Then

            Me.txthari.Text = “Minggu”

        End If

        Me.txtjam.Text = DateTime.Now.ToLongTimeString

        Me.txttanggal.Text = DateTime.Now.ToLongDateString

Membuat Aplikasi Dengan Visual Basic .NET 2008

   Ok, sorry rada telat postingnya.. kemarin sempat ada proyek n juga beberapa hari kemarin lagi sakit.
Langsung aja, ditutorial ke-2kemarin kita telah sedikit mengenal tentang LINQ dan juga telah membuat suatu form barang. Kali ini kita akan mencoba menambahkan kode-kode yang akan diproses oleh tiap tombol dalam form barang tersebut. Untuk kali ini validasi dalam setiap proses akan diabaikan terlebih dahulu, nanti pasti menyusul... ;)
Sebagai tambahan, lebih tepatnya "update", pada tiap tabel dalam database semua yang bertype nchar di ubah ke nvarchar.. tanya kenapa??
Sebelum dilanjutkan, ada baiknya semua kode-kode dalam form barang di hapus dahulu, kecuali, kode-kode di bawah ini:
view plaincopy to clipboardprint?
1.    Public Class frmBarang 
2.     
3.     Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
4.     
5.     End Sub 
6.    End Class 


1. Dekarasi beberapa variabel umum


Masukkan kode berikut pada bagian atas setelah Public Class frmBarang :
view plaincopy to clipboardprint?
1.    Private db As New DataClasses1DataContext 
2.    Private edit As Boolean 


1.a. Sub Procedure buka
   Digunakan untuk mengunci dan membuka TextBox dan ComboBox dalam frmBarang:
view plaincopy to clipboardprint?
1.    Private Sub buka(ByVal t As Boolean) 
2.            Dim daftarTextBox = From myControl In Me.Controls _ 
3.                                Where TypeOf myControl Is TextBox _ 
4.                                Select myControl 
5.     
6.            For Each myTeksBoks As TextBox In daftarTextBox 
7.                If t Then 
8.                    myTeksBoks.Enabled = True 
9.                    Me.cmbKodeKategori.Enabled = True 
10.                Else 
11.                    myTeksBoks.Enabled = False 
12.                    Me.cmbKodeKategori.Enabled = False 
13.                End If 
14.            Next 
15.        End Sub 


1.b. Sub Procedure isiCombo


Digunakan untuk mengisi daftar kategori untuk ComboBox pada frmBarang:
view plaincopy to clipboardprint?
1.    Private Sub isiCombo() 
2.        Me.cmbKodeKategori.ResetText() 
3.        Dim cmbKate = From kategori In db.kategoris _ 
4.                     Select kategori.NmKategori 
5.     
6.        For Each kate As String In cmbKate 
7.            Me.cmbKodeKategori.Items.Add(kate) 
8.        Next 
9.    End Sub 


1.c. Sub Procedure resData


Digunakan untuk me-refresh (mengisi) data dalam DataGridView1 dengan data yang baru (Kodenya sedikit berbeda dari tutorial 2 kemarin):
view plaincopy to clipboardprint?
1.    Private Sub resData() 
2.        Dim qBarang = From barang In db.barangs _ 
3.                      Join kategori In db.kategoris _ 
4.                      On kategori.KDKategori Equals barang.KDKategori _ 
5.                      Select Kode = barang.KDBarang, Nama = barang.NmBarang, _ 
6.                      Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual 
7.     
8.        Me.DataGridView1.DataSource = qBarang 
9.    End Sub 


1.d. Sub Procedure dgKlik
   Digunakan untuk mengisi tiap TextBox dan ComboBox berdasarkan data yang ada dalam DataGridView1 saat setiap kali data dalam DataGridView1 dipilih.
view plaincopy to clipboardprint?
1.    Private Sub dgKlik() 
2.        Try 
3.            Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value 
4.            Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value 
5.            Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value 
6.            Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value 
7.     
8.            Dim dkate = From kategori In db.kategoris _ 
9.                        Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _ 
10.                        Select kategori.NmKategori 
11.            Me.cmbKodeKategori.Text = dkate.Single 
12.     
13.        Catch ex As Exception 
14.            MessageBox.Show("Error: " & ex.Message) 
15.        End Try 
16.    End Sub 


1.e. Sub Procedure resTeks
   Digunakan untuk mengosongkan semua TextBox dan Combobox dalam frmBarang :
view plaincopy to clipboardprint?
1.    Private Sub resTeks() 
2.        isiCombo() 
3.        Dim daftarTextBox = From myControl In Me.Controls _ 
4.                            Where TypeOf myControl Is TextBox _ 
5.                            Select myControl 
6.        For Each myTeksBoks As TextBox In daftarTextBox 
7.            myTeksBoks.Text = "" 
8.        Next 
9.    End Sub 


1.f. Function katPerNama


Digunakan untuk mengambil kode Kategori barang berdasarkan nama kategorinya :
view plaincopy to clipboardprint?
1.    Private Function katPerNama(ByVal n As String) As Integer 
2.            Dim kat As Integer = 0 
3.            Dim kate = From kategori In db.kategoris _ 
4.                     Where kategori.NmKategori Is n _ 
5.                     Select kategori.KDKategori 
6.            kat = kate.Single 
7.            Return kat 
8.        End Function 


2. DataGridView1_Click


Pada designer view, double klik Control DataGridView1 > akan masuk ke dalam tampilan Code View.  Pada bagian Method Name, pilih Click. Lihat Gambar :





Ketikkan kode berikut pada bagian  DataGridView1_Click :
view plaincopy to clipboardprint?
1.    Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click 
2.        dgKlik() 
3.    End Sub 


3. Sub Procedure Saat Tombol Edit Diklik


Double klik tombol edit dan masukkan kode berikut :
view plaincopy to clipboardprint?
1.    Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click 
2.        Me.cmdBaru.Text = "Batal" 
3.        Me.cmdEdit.Enabled = False 
4.        Me.cmdHapus.Enabled = False 
5.        Me.cmdSimpan.Enabled = True 
6.        edit = True 
7.        buka(True) 
8.        Me.txtKodeBarang.Enabled = False 
9.        Me.txtNamaBarang.Focus() 
10.    End Sub 


4. Sub Procedure Saat Tombol Baru Diklik


Double klik tombol baru dan masukkan kode berikut :
view plaincopy to clipboardprint?
1.    Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click 
2.        If Me.cmdBaru.Text = "Baru" Then 
3.            Me.cmdBaru.Text = "Batal" 
4.            Me.resTeks() 
5.            buka(True) 
6.            Me.DataGridView1.Enabled = False 
7.            Me.cmdSimpan.Enabled = True 
8.            Me.cmdEdit.Enabled = False 
9.            Me.cmdHapus.Enabled = False 
10.            Me.cmdKeluar.Enabled = False 
11.            Me.txtKodeBarang.Focus() 
12.        Else 
13.            Me.cmdBaru.Text = "Baru" 
14.            buka(False) 
15.            Me.DataGridView1.Enabled = True 
16.            edit = False 
17.            Me.cmdSimpan.Enabled = False 
18.            Me.cmdEdit.Enabled = True 
19.            Me.cmdHapus.Enabled = True 
20.            Me.cmdKeluar.Enabled = True 
21.            dgKlik() 
22.        End If 
23.    End Sub 


5. Sub Procedure Saat Tombol Simpan Diklik


Double klik tombol simpan dan masukkan kode berikut :
view plaincopy to clipboardprint?
1.    Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click 
2.        'Validasi data inputan, akan dijelaskan nanti... 
3.     
4.        If edit Then 
5.            Dim updatebrg = (From barang In db.barangs _ 
6.                    Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0) 
7.     
8.            With updatebrg 
9.                .NmBarang = Me.txtNamaBarang.Text 
10.                .KDKategori = katPerNama(Me.cmbKodeKategori.Text) 
11.                .Jumlah = Me.txtJumlah.Text 
12.                .HargaJual = Me.txtHarga.Text 
13.            End With 
14.     
15.        Else 
16.            Dim brg As New barang With { _ 
17.                    .KDBarang = Me.txtKodeBarang.Text, _ 
18.                    .NmBarang = Me.txtNamaBarang.Text, _ 
19.                    .KDKategori = katPerNama(Me.cmbKodeKategori.Text), _ 
20.                    .Jumlah = Me.txtJumlah.Text, _ 
21.                    .HargaJual = Me.txtHarga.Text} 
22.        End If 
23.     
24.        Try 
25.            db.SubmitChanges() 
26.     
27.        Catch ex As Exception 
28.            MessageBox.Show("Error :" & ex.Message) 
29.        End Try 
30.     
31.        resData() 
32.        dgKlik() 
33.        buka(False) 
34.        Me.cmdSimpan.Enabled = False 
35.        Me.cmdBaru.Text = "Baru" 
36.        Me.cmdEdit.Enabled = True 
37.        Me.cmdKeluar.Enabled = True 
38.        edit = False 
39.        Me.cmdHapus.Enabled = True 
40.        Me.DataGridView1.Enabled = True 
41.    End Sub 


6. Sub Procedure Saat Tombol Hapus Diklik


Double klik tombol hapus dan masukkan kode berikut :
view plaincopy to clipboardprint?
1.    Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click 
2.        If Me.txtKodeBarang.Text = "" Then Exit Sub 
3.        Dim rep As Integer = MessageBox.Show("Data tersebut akan dihapus?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 
4.        If rep = MsgBoxResult.No Then Exit Sub 
5.     
6.        Dim deleteBrg = (From barang In db.barangs _ 
7.                    Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0) 
8.     
9.        db.barangs.DeleteOnSubmit(deleteBrg) 
10.     
11.        Try 
12.            db.SubmitChanges() 
13.        Catch ex As Exception 
14.            MessageBox.Show("Error :" & ex.Message) 
15.        End Try 
16.     
17.        resData() 
18.        dgKlik() 
19.     
20.    End Sub 


7. Sub Procedure Saat Tombol Keluar Diklik


Double klik tombol keluar dan masukkan kode berikut :
view plaincopy to clipboardprint?
1.    Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click 
2.        Me.Close() 
3.    End Sub 


Terakhir, tambahkan kode berikut pada bagian frmBarang_Load :
view plaincopy to clipboardprint?
1.    Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
2.        resData() 
3.        isiCombo() 
4.        buka(False) 
5.        Me.cmdSimpan.Enabled = False 
6.    t = False 
7.    End Sub 


Yups, dengan semua tombol telah memiliki kode masing-masing, coba jalankan program dengan mengklik tanda play  atau menekan tombol F5 pada keyboard.


Pada bagian selanjutnya kita akan langsung mencoba membuat form untuk menampilkan data laporan dari data barang yang barusan dibuat..


Selamat bereksperimen semoga sukses... ;)


Kode Selengkapnya :
view plaincopy to clipboardprint?
1.    Public Class frmBarang 
2.        Private db As New DataClasses1DataContext 
3.        Private edit As Boolean 'penentuan apakah sedang dalam proses edit atau bukan 
4.     
5.        Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
6.            resData() 'memanggil sub resData untuk mengisi data ke dalam DataGridView1 
7.            isiCombo() 'mengisi ComboBox kategori 
8.            buka(False) 'kunci semua textbox 
9.            Me.cmdSimpan.Enabled = False 'matikan tombol simpan 
10.            edit = False 'variabel edit di atur menjadi false 
11.        End Sub 
12.        Private Sub buka(ByVal t As Boolean) 'enable dan disable control TextBox dan ComboBox 
13.            'Pilih semua control yang merupakan TextBox 
14.            Dim daftarTextBox = From myControl In Me.Controls _ 
15.                                Where TypeOf myControl Is TextBox _ 
16.                                Select myControl 
17.            'Looping setiap control TextBox 
18.            For Each myTeksBoks As TextBox In daftarTextBox 
19.                If t Then 
20.                    myTeksBoks.Enabled = True 'textbox aktif 
21.                    Me.cmbKodeKategori.Enabled = True 'combobox aktif 
22.                Else 
23.                    myTeksBoks.Enabled = False 
24.                    Me.cmbKodeKategori.Enabled = False 
25.                End If 
26.            Next 
27.        End Sub 
28.        Private Sub isiCombo() 'Mengisi Combobox dengan daftar kategori dari tabel kategori 
29.            Me.cmbKodeKategori.ResetText() 'reset Combo kategori 
30.            'ambil semua nama kategori dari tabel kategori 
31.            Dim cmbKate = From kategori In db.kategoris _ 
32.                         Select kategori.NmKategori 
33.            'looping setiap hasil dari cmbkate dan tambahkan ke dalam combo kategori 
34.            For Each kate As String In cmbKate 
35.                Me.cmbKodeKategori.Items.Add(kate) 
36.            Next 
37.        End Sub 
38.        Private Sub resData() 'mengisi ulang data ke dalam DataGridView1 
39.            Dim qBarang = From barang In db.barangs _ 
40.                          Join kategori In db.kategoris _ 
41.                          On kategori.KDKategori Equals barang.KDKategori _ 
42.                          Select Kode = barang.KDBarang, Nama = barang.NmBarang, _ 
43.                          Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual 
44.     
45.            Me.DataGridView1.DataSource = qBarang 
46.        End Sub 
47.        Private Sub resTeks() 'mengosongkan semua combobox dan textbox 
48.            isiCombo() 
49.            Dim daftarTextBox = From myControl In Me.Controls _ 
50.                                Where TypeOf myControl Is TextBox _ 
51.                                Select myControl 
52.     
53.            For Each myTeksBoks As TextBox In daftarTextBox 
54.                myTeksBoks.Text = "" 
55.            Next 
56.        End Sub 
57.        Private Sub dgKlik() 'sub procedure saat baris dalam DataGridView1 diklik 
58.            Try 
59.                Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value 
60.                Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value 
61.                Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value 
62.                Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value 
63.     
64.                'isi combo kategori berdasarkan kategori tiap barang dari DataGridView1 
65.                Dim dkate = From kategori In db.kategoris _ 
66.                            Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _ 
67.                            Select kategori.NmKategori 
68.                Me.cmbKodeKategori.Text = dkate.Single 
69.     
70.            Catch ex As Exception 'Jika terjadi error, ya know lah... 
71.                MessageBox.Show("Error: " & ex.Message) 
72.            End Try 
73.        End Sub 
74.     
75.        Private Function katPerNama(ByVal n As String) As Integer 'mengambil kode kategori berdasarkan nama kategori 
76.            Dim kat As Integer = 0 
77.            Dim kate = From kategori In db.kategoris _ 
78.                     Where kategori.NmKategori Is n _ 
79.                     Select kategori.KDKategori 
80.     
81.            kat = kate.Single 
82.            Return kat 
83.        End Function 
84.        Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click 
85.            dgKlik() 'memanggil sub procedure dgKlik saat DataGridView1 diklik. 
86.        End Sub 
87.     
88.        Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click 
89.            'saat tombol edit diklik 
90.            Me.cmdBaru.Text = "Batal" 
91.            Me.cmdEdit.Enabled = False 
92.            Me.cmdHapus.Enabled = False 
93.            Me.cmdSimpan.Enabled = True 
94.            edit = True 'sedang dalam proses edit 
95.            buka(True) 'buka semua control 
96.            Me.txtKodeBarang.Enabled = False 'kunci txtKodeBarang 
97.            Me.txtNamaBarang.Focus() 'Fokuskan cursor pada txtNamaBarang 
98.        End Sub 
99.     
100.        Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click 
101.            'Tombol baru diklik 
102.            'lakukan pengeceka apakah sekarang tombol baru atau tombol batal 
103.            If Me.cmdBaru.Text = "Baru" Then 'jika yang diklik tombol baru 
104.                Me.cmdBaru.Text = "Batal" 'ubah text tombol baru menjadi batal 
105.                Me.resTeks() 'memanggil sub procedure resTeks : mengosongkan semua teks 
106.                buka(True) 'buka semua control 
107.                Me.DataGridView1.Enabled = False 'non aktifkan DataGridView1 sehingga tidak bisa diklik  
108.                Me.cmdSimpan.Enabled = True 
109.                Me.cmdEdit.Enabled = False 
110.                Me.cmdHapus.Enabled = False 
111.                Me.cmdKeluar.Enabled = False 
112.                Me.txtKodeBarang.Focus() 'Fokuskan cursor pada txtKodeBarang 
113.            Else 'jika yang diklik adalah tombol baru dengan teks Batal 
114.                Me.cmdBaru.Text = "Baru" 'ubah teks tombol baru menjadi Baru 
115.                buka(False) 'Kunci semua kontrol 
116.                Me.DataGridView1.Enabled = True 
117.                edit = False 'pastikan bukan dalam proses edit 
118.                Me.cmdSimpan.Enabled = False 
119.                Me.cmdEdit.Enabled = True 
120.                Me.cmdHapus.Enabled = True 
121.                Me.cmdKeluar.Enabled = True 
122.                dgKlik() 
123.            End If 
124.        End Sub 
125.     
126.        Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click 
127.            'Validasi data inputan, belakangan akan dijelaskan... 
128.     
129.            If edit Then 'jika dalam proses edit / tombol edit diklik 
130.                Dim updatebrg = (From barang In db.barangs _ 
131.                        Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0) 
132.     
133.                With updatebrg 
134.                    .NmBarang = Me.txtNamaBarang.Text 
135.                    .KDKategori = katPerNama(Me.cmbKodeKategori.Text) 
136.                    .Jumlah = Me.txtJumlah.Text 
137.                    .HargaJual = Me.txtHarga.Text 
138.                End With 
139.     
140.            Else 'jika bukan proses edit / tombol baru diklik 
141.                Dim brg As New barang With { _ 
142.                        .KDBarang = Me.txtKodeBarang.Text, _ 
143.                        .NmBarang = Me.txtNamaBarang.Text, _ 
144.                        .KDKategori = katPerNama(Me.cmbKodeKategori.Text), _ 
145.                        .Jumlah = Me.txtJumlah.Text, _ 
146.                        .HargaJual = Me.txtHarga.Text} 
147.            End If 
148.     
149.            Try 
150.                db.SubmitChanges() 'simpan semua perubahan, baik itu proses update maupun insert 
151.     
152.            Catch ex As Exception 
153.                MessageBox.Show("Error :" & ex.Message) 
154.            End Try 
155.     
156.            resData() 
157.            dgKlik() 
158.            buka(False) 
159.            Me.cmdSimpan.Enabled = False 
160.            Me.cmdBaru.Text = "Baru" 
161.            Me.cmdEdit.Enabled = True 
162.            Me.cmdKeluar.Enabled = True 
163.            edit = False 
164.            Me.cmdHapus.Enabled = True 
165.            Me.DataGridView1.Enabled = True 
166.        End Sub 
167.     
168.        Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click 
169.            'saat tombol hapus diklik 
170.            If Me.txtKodeBarang.Text = "" Then Exit Sub 'jika kodebarang kosong, keluar dari sub procedure 
171.            'mencoba memastikan apakah data akan benar2 dihapus? 
172.            Dim rep As Integer = MessageBox.Show("Data tersebut akan dihapus?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 
173.            If rep = MsgBoxResult.No Then Exit Sub 'jika hasilnya NO, data tidak akan dihapus 
174.     
175.            Dim deleteBrg = (From barang In db.barangs _ 
176.                        Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0) 
177.     
178.            db.barangs.DeleteOnSubmit(deleteBrg) 
179.     
180.            Try 
181.                db.SubmitChanges() 'simpan semua perubahan ke dalam database 
182.            Catch ex As Exception 
183.                MessageBox.Show("Error :" & ex.Message) 
184.            End Try 
185.     
186.            resData() 
187.            dgKlik() 
188.     
189.        End Sub 
190.     
191.        Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click 
192.            Me.Close() 'tutup form 
193.            'bisa juga menggunakan : Application.Exit() 
194.        End Sub 
195.    End Class 


Sorry kalau masih ada yang keliru atau kesalahan dalam proses penulisan di atas..mohon koreksinya juga.. heheh..e

MENU, TOOLBAR DAN STATUSBAR

                                            MENU, TOOLBAR DAN STATUSBAR











           
                Gbr. 1a
Sebelum kita memulai pembuatan Menu, Toolbar dan Statusbar,pertama – tama anda buat dilayar pertama  form1  dan desainlah seperti  Gbr.1a. Setelah anda sudah siap mendesainnya kemudian anda klik 2x  pada tombol OK, dan anda masukkan rumus yang dibawah ini.
Public Class Form1

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        If USERNAME.Text = "FRICLES" And PASWORD.Text = "000" Then
            FormMenu.Show()
            Me.Hide()
        Else
            MsgBox("MAAF! PASSWORD SALAH!")
            USERNAME.Text = ""
            PASWORD.Text = ""
        End If
    End Sub
    Setelah itu anda masukkan juga program untuk tombol KELUAR
  Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End
    End Sub
End Class
Langkah berikutnya yaitu anda tambahkan 2 form lagi dengan nama yang berbeda, pada form2 anda buat namanya formmenu, dan form3 anda buat namanya karyawan, seperti gambar dibawah ini :


                 Gbr.1b
    Setelah anda sudah siap desaign seperti gambar diatas anda buka layar formMenu, kemudian anda pilih pada toolboox yang namanya MENUSTRIP.
    Ikutilah desaign gambar disamping.






                                        Gbr.1c
        Langkah berikutnya klik 2x pada DATA PEGAWAI  dan anda masukka perintah berikut:
Private Sub DATAPENGGAJIANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPENGGAJIANToolStripMenuItem.Click
        karyawan.Show()
    End Sub
Begitu juga dengan tombol KELUAR
    Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click
        End
    End Sub
End Class
 Coba anda jalankan ( F5 ).

  
  Setelah anda jalankan pasti hasilnya seperti diatas..
 Langkah yang berikutnya kita akan bekerja pada layar karyawan, pada layar ini kita akan desaign seperti gambar dibawah ini :


   Gambar diatas sudah di desaign dengan sempurna, sekarang kita masukkan program untuk data tersebut, anda perhatikan dibagian mana perintahnya diletakkan ea,,
Jangan sampai salah.
Public Class karyawan

    Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
        If NIP.Text = "0001" Then
            NAMAKARYAWAN.Text = "PARJOLI"
        ElseIf NIP.Text = "0002" Then
            NAMAKARYAWAN.Text = "RUTHMEYDA"
        ElseIf NIP.Text = "0003" Then
            NAMAKARYAWAN.Text = "FRICLES"
        End If
    End Sub

    Private Sub GOL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOL.SelectedIndexChanged
        If GOL.Text = "IIIA" Then
            GAJI.Text = 2500000
        ElseIf GOL.Text = "IIIB" Then
            GAJI.Text = 2750000
        ElseIf GOL.Text = "IIIC" Then
            GAJI.Text = 3000000
        End If
    End Sub

    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged
        If STATUS.Text = "Menikah" Then
            TUNJANGANANAK.Text = GAJI.Text * 0.016
        Else
            TUNJANGANANAK.Text = 0
        End If
        If STATUS.Text = "LAJANG" Then
            TUNJANGANANAK.Enabled = False
            TUNJANGANANAK.Enabled = False
        End If

    End Sub

    Private Sub JUMLAHANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAHANAK.SelectedIndexChanged
        If JUMLAHANAK.Text = "1" Then
            TUNJANGAN.Text = GAJI.Text * 0.1
        ElseIf JUMLAHANAK.Text = "2" Then
            TUNJANGAN.Text = GAJI.Text * 0.19

        End If
    End Sub

    Private Sub PAJAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAJAK.TextChanged
        TOTAL.Text = Val(GAJI.Text) + Val(TUNJANGANANAK.Text) + Val(TUNJANGAN.Text) - Val(PAJAK.Text)
    End Sub

    Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BUATTABEL()
        ISITABEL()
    End Sub
    Sub BUATTABEL()
        LV.Columns.Add("NIP", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA KARYAWAN", 180, HorizontalAlignment.Left)
        LV.Columns.Add("GOL", 80, HorizontalAlignment.Left)
        LV.Columns.Add("GAJI", 80, HorizontalAlignment.Left)
        LV.Columns.Add("STATUS", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TUNJANGAN", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TUNJANGANANAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        For i = 1 To 3
            NIP.Items.Add("000" & i)
        Next
        GOL.Items.Add("IIIA")
        GOL.Items.Add("IIIB")
        GOL.Items.Add("IIIC")

        STATUS.Items.Add("MENIKAH")
        STATUS.Items.Add("BELUM MENIKAH")

        JUMLAHANAK.Items.Add(1)
        JUMLAHANAK.Items.Add(2)

    End Sub

    Private Sub TUNJANGAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUNJANGAN.TextChanged
        TUNJANGANANAK.Text = GAJI.Text * 0.16
    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
        Dim sublv As New ListViewItem
        sublv.Text = NIP.Text
        sublv.SubItems.Add(NAMAKARYAWAN.Text)
        sublv.SubItems.Add(GOL.Text)
        sublv.SubItems.Add("RP. " & GAJI.Text)
        sublv.SubItems.Add(STATUS.Text)
        sublv.SubItems.Add("RP. " & TUNJANGANANAK.Text)
        sublv.SubItems.Add(" RP. " & TUNJANGAN.Text)
        sublv.SubItems.Add(JUMLAHANAK.Text)
        sublv.SubItems.Add("RP. " & PAJAK.Text)
        sublv.SubItems.Add("RP. " & TOTAL.Text)
        LV.Items.Add(sublv)
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        PAJAK.Text = ""
        NAMAKARYAWAN.Text = ""
        GOL.Text = ""
        GAJI.Text = ""
        STATUS.Text = ""
        TUNJANGAN.Text = ""
        TUNJANGANANAK.Text = ""
        JUMLAHANAK.Text = ""

        TOTAL.Text = ""
        PAJAK.Focus()
    End Sub

    Private Sub GAJI_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJI.TextChanged
        PAJAK.Text = GAJI.Text * 0.3
    End Sub
End Class
Sekarang setelah siap anda masukkan program diatas kita akan lihat bagaimana hasilnya,,
Tekan tombol F5. Inilah hasilnya:

Siap dech...

Semoga anda dapat mempelajarinya Trima kasih.....