Aplikasi Konversi Panjang Sederhana dengan VB2008

Berawal dari ada salah satu temen kuliah  saya di Trunojoyo yang bertanya gimana sih cara membuat Aplikasi Konversi Panjang dengan menggunakan Array di VB 2008 yang sekaligus mau dipakai demo pas UAS nanti, oleh karena itu saya ingin sedikit berbagi kepada teman-teman di seluruh Indonesia. Berikut langkah-langkah membuat aplikasi konversi panjang sederhana :

  • Buatlah form seperti gambar di bawah ini
konversipanjang

konversipanjang

  • Ketikkan Kode berikut ini
Public Class Form1
    Dim satuan() As String = {"", "Inchi", "Fathom", "Foot", "Furlong", "Kilometer", "Meter", "Mile", "Rod", "Yard"}
    Dim feet() As Double = {0, 0.0833, 6, 1, 660, 3281.5, 3.28155, 5280, 16.5, 3}
    Dim hasil As Double

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 1 To 9
            ListBox1.Items.Add(i & ".   " & satuan(i))
        Next
    End Sub

    Private Sub cmdconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconvert.Click
        hasil = Val(nilai.Text * feet(txtfrom.Text))
        hasil = Val(hasil / feet(txtto.Text))
        txthasil.Text = FormatNumber(hasil, 2, TriState.True, TriState.False)
    End Sub
End Class

Berikut Penjelasan dari kode tersebut

 Dim satuan() As String = {"", "Inchi", "Fathom", "Foot", "Furlong", "Kilometer", "Meter", "Mile", "Rod", "Yard"}
    Dim feet() As Double = {0, 0.0833, 6, 1, 660, 3281.5, 3.28155, 5280, 16.5, 3}
    Dim hasil As Double

Kode diatas adalah pendeklarasian Array satuan dan Feet serta variable hasil

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 1 To 9
            ListBox1.Items.Add(i & ".   " & satuan(i))
        Next
    End Sub

Kode diatas di gunakan untuk menampilkan data pada Array Satuan pada Listbox1

Private Sub cmdconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconvert.Click
        hasil = Val(nilai.Text * feet(txtfrom.Text))
        hasil = Val(hasil / feet(txtto.Text))
        txthasil.Text = FormatNumber(hasil, 2, TriState.True, TriState.False)
    End Sub

Kode Diatas adalah Code untuk Konversi dari ke-9 satuan tersebut.

Program diatas dapat didownload di link berikut ini

Oiza… temen2 jangan lupa ngasih Saran dan kritik yang habis view… oke.. Trims

Contoh Jawaban Tugas 4 PV

setelah pulang dari kuliah Bahasa Inggris dan Fisika,,, enaknya ngapain ya,,, eh.. ngerjakan Tugas PV aja ah,,,

saya tidak begitu mahir dalam pemrograman komputer dan juga dalam penguasaan bahasa inggris, saya cuma seorang mahasiswa biasa,  jadi apabila ada yang salah dalam mengartikan atau memahami soal tolong diperbaiki lagi ya teman-teman,,,,

oiza untuk yang nomer 6 tidak wajib dikerjakan karena berupa program / aplikasi

Teman-teman berikut contoh tugas PV yang telah saya kerjakan silahkan di download dibawah ini  :

tugasPV4

NB : untuk  tulisan yang saya blok dengan warna kuning itu jawabannya,,, dan yang tidak berarti soalnya,,,,

untuk yang mata kuliah APLRO nya Bu Noorifada jangan lupa ya handout matakuliahnya untuk pertemuan ke 6 dan ke 7 didownload di blognya bu noorifada,,, Besok materinya tentang “LOOPING [Perulangan]” dipelajari dulu za….. biar pas kuliah enak,,,,  

Operasi Matematika pada VB

Operator Bilangan

Operator
Gunanya
Format
Contoh
^
Pangkat
x ^ y
3 ^ 2 =9
Negatif
– y
– 9
*
Perkalian
x * y
3 * 2 = 6
/
Pembagi real
x / y
5 /2 = 2.5
\
Pembagi Integer
x \ y
5 / 2 = 2
mod
Modulo (sisa pembagian)
x mod y
5 mod 2 = 1
+
Tambah
x +y
2 + 4 = 6
Kurang
x – y
4 -2 = 2

Fungsi Matematik Internal
VB menyediakan fungsi matematika siap pakai untuk manipulasi variabel.

Fungsi Contoh Penjelasan
Abs(x) a = abs(-32) ‘a=32 nilai absolut x
Atn(x) Nilai arcus tangent x x dalam radian : degree = radian * 180/phi
Cos(x) Nilai cosinus x x dalam radian
Exp(x) Nilai exponensial x
Fix(x) fix(3.2) = 3

fix(-3.2) = -3

mencari integer bilangan pecah, untuk bilangan negatif; mencari bilangan pertama > x
Int(x) int(5.4) = 5

int(-5.4) =-6

Bilangan negatif; mencari bilangan pertama <=x
Log(x) nilai natural log x
Rnd(x) 0 <= hasil random <1

nilai x menentukan hasil random

sebelumnya gunakan perintah Randomize untuk memastikan bahwa hasil Rnd(x) selalu beda
Sgn(x) menghasilkan :

1 bila x > 0

0 bila x = 0

-1 bilaa x < 0

Sin(x) A = SQR(16) ‘A=4

A = SQR(-16) ‘error

nilai cosinus x dalam radian
Sqr(x) Akar bilangan x
Tan(x) Q = Tan(45*phi/180) ‘Q=1 nilai tangent x dalam radian

phi=3.141592653589732

Derifat Fungsi Matematika
Fungsi matematika yang tidak ada dapat diderifasi dari fungsi yang tersedia.

Fungsi Derifat Sepadan
Secant Sec(X) = 1 / Cox(X)
Cosecant Cosec(X) = 1 / Sin(X)
Cotangent Cotan(X) = 1 / Tan(X)
Inverse Sinus Arcsin(X) = Atn(X / Sqr(-X * X +1))
Inverse Cosinus Arcos(X) = Atn( -X / Sqr(-X * X +1)) + 2 * Atn(1)
Inverse Secant Arsec(X) = 2 * Atn(1) – Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cosecant Arccosec(X) = Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cotangen Arccotan(X) = 2 * Atn(1) – Atn(X)
Hyperbolic Sinus HSin(X) = (Exp(X) – Exp(-X)) / 2
Hyperbolic Cosinus HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent HTan(X) = (Exp(X) – Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant HCosec(X) = 2 / (Exp(X) – Exp(-X))
Hyperbolic Cotangent HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) – Exp(-X))
Inverse Hyperbolic Sinus HArcsin(X) = Log(X + Sqr(X * X + 1)
Inverse Hyperbolic Cosinus HArccos(X) = Log(X + Sqr(X * X – 1)
Inverse Hyperbolic Tangent HArctan(X) = Log(1 + X) / (1 – X)) / 2
Inverse Hyperbolic Secant HArcsec(X) = Log((Sqr(-X * X +1) + 1) / X)
Inverse Hyperbolic Cosecant HArccosec(X) = Log(Sgn(X) * Sqr(X * X +1) + 1) / X)
Inverse Hyperbolic Cotangent HArcotan(X) = Log((X + 1) / (X – 1)) / 2
Logaritgm ti base N LogN(X) = Log(X) / Log(N)

Fungsi Manipulasi Bilangan
VB mempunyai fungsi untuk memanipulasi data numerik sebagai berikut :
Round : membulatkan bilangan cacah dengan jumlah desimal tertentu
MyValue = Round(33.4549, 2) ‘hasil 33.45
MyValue = Round(33.455, 2) ‘hasil 33.46
MyValue = Round(33.456, 2) ‘hasil 33.46
Val : menghasilkan bilangan numerik dari suatu variabel string
MyValue = Val(“2457”) ‘hasil 2457
MyValue = Val(“2 4 5 7”) ‘hasil 2457
MyValue = Val(“24 and 57”) ‘hasil 24
Str : menghasilkan variabel string (Variant) dari ekspresi numerik
MyString = Str (459) ‘hasil “459”
MyString = Str (-459.65) ‘hasil “-459.65”
MyString = Str (459.001) ‘hasil “459.001”
Hex : menghasilkan nilai hexadesimal dari suatu bilangan
MyHex = Hex(5) ‘hasil 5
MyHex = Hex(10) ‘hasil A
MyHex = Hex(459) ‘hasil 1CB
Oct : menghasilkan nilai octal dari setiap bilangan
MyOct = Oct(4) ‘hasil 4
MyOct = Oct(8) ‘hasil 10
MyOct = Oct(459) ‘hasil 713

Validasi Inputan Angka pada VB

Untuk menghindari inputan berupa huruf dari user maka kita perlu melakukan validasi terhadap inputan tersebut. Di sini saya akan menerangkan bagaimana metode validasi bekerja.

Pertama buatlah Project Baru. Kemudian buatlah textbox pada sebuah form dan beri nama textbox itu text1.

Selanjutnya click dua kali textbox tersebut, maka akan muncul tampilan view code. Kemudian isilah script sebagai berikut :

Private Sub Text1_Change()
Dim betul As Boolean
betul = True
If Text1.Text <> “” Then
jumlah = Len(Text1.Text)
For i = 1 To jumlah
If Asc(Right(Text1.Text, i)) < 48 Or Asc(Right(Text1.Text, i)) > 57 Then
betul = False
End If
Next i
If betul = False Then
MsgBox “harus angka”
Text1.Text = “”
Text1.SetFocus
End If
End If
End Sub

Penjelasan :
Pengecekan angka terjadi pada baris ke-7, yaitu pengecekan code ASCII dari inputan, jika kurang dari 48 dan lebih dari 57 maka inputan bukan angka.

Membuat Aplikasi dengan Visual Basic.Net 2008 – 3

Ok, sorry rada telat postingnya.. kemarin sempat ada proyek n juga beberapa hari kemarin lagi sakit.

Langsung aja, di tutorial ke-2 kemarin 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:

  1. Public Class frmBarang
  2. Private Sub frmBarang_Load(ByVal sender As System.ObjectByValAs System.EventArgs) Handles MyBase.Load
  3. End Sub
  4. End Class

1. Dekarasi beberapa variabel umum
Masukkan kode berikut pada bagian atas setelah Public Class frmBarang :

  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:

  1. Private Sub buka(ByValAs Boolean)
  2. Dim daftarTextBox = From myControl In Me.Controls _
  3. Where TypeOf myControl Is TextBox _
  4. Select myControl
  5. For Each myTeksBoks As TextBox In daftarTextBox
  6. IfThen
  7. myTeksBoks.Enabled = True
  8. Me.cmbKodeKategori.Enabled = True
  9. Else
  10. myTeksBoks.Enabled = False
  11. Me.cmbKodeKategori.Enabled = False
  12. End If
  13. Next
  14. End Sub

1.b. Sub Procedure isiCombo
Digunakan untuk mengisi daftar kategori untuk ComboBox pada frmBarang:

  1. Private Sub isiCombo()
  2. Me.cmbKodeKategori.ResetText()
  3. Dim cmbKate = From kategori In db.kategoris _
  4. Select kategori.NmKategori
  5. For Each kate As String In cmbKate
  6. Me.cmbKodeKategori.Items.Add(kate)
  7. Next
  8. 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):

  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. Me.DataGridView1.DataSource = qBarang
  8. 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.

  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. Dim dkate = From kategori In db.kategoris _
  8. Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _
  9. Select kategori.NmKategori
  10. Me.cmbKodeKategori.Text = dkate.Single
  11. Catch ex As Exception
  12. MessageBox.Show(“Error: “ & ex.Message)
  13. End Try
  14. End Sub

1.e. Sub Procedure resTeks
Digunakan untuk mengosongkan semua TextBox dan Combobox dalam frmBarang :

  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 :

  1. Private Function katPerNama(ByValAs StringAs 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 :
DataGridView1_Method
Ketikkan kode berikut pada bagian  DataGridView1_Click :

  1. Private Sub DataGridView1_Click(ByVal sender As ObjectByValAs 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 :

  1. Private Sub cmdEdit_Click(ByVal sender As System.ObjectByValAs 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 :

  1. Private Sub cmdBaru_Click(ByVal sender As System.ObjectByValAs 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 :

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

6. Sub Procedure Saat Tombol Hapus Diklik
Double klik tombol hapus dan masukkan kode berikut :

  1. Private Sub cmdHapus_Click(ByVal sender As System.ObjectByValAs 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. Dim deleteBrg = (From barang In db.barangs _
  6. Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)
  7. db.barangs.DeleteOnSubmit(deleteBrg)
  8. Try
  9. db.SubmitChanges()
  10. Catch ex As Exception
  11. MessageBox.Show(“Error :” & ex.Message)
  12. End Try
  13. resData()
  14. dgKlik()
  15. End Sub

7. Sub Procedure Saat Tombol Keluar Diklik
Double klik tombol keluar dan masukkan kode berikut :

  1. Private Sub cmdKeluar_Click(ByVal sender As System.ObjectByValAs System.EventArgs) Handles cmdKeluar.Click
  2. Me.Close()
  3. End Sub

Terakhir, tambahkan kode berikut pada bagian frmBarang_Load :

  1. Private Sub frmBarang_Load(ByVal sender As System.ObjectByValAs 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 :

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

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

Membuat Aplikasi dengan Visual Basic.Net 2008 – 2

Melanjutkan artikel kemarin, sebelum kita lanjutkan pembuatan aplikasi ini, ada baiknya kita berkenalan sedikit dengan LINQ.

Apa itu LINQ?

LINQ (Language Integrated Query), merupakan suatu bahasa yang digunakan untuk melakukan query terhadap suatu sumber data (-sederhananya-). LINQ terdiri dari beberapa pernyataan (statement) yang bisa diterapkan ke dalam program kita untuk memilih item dari beberapa koleksi (collection) berdasarkan kriteria yang berbeda.

Contoh struktur LINQ dan aturannya dalam aplikasi. Coba kita lihat daftar array di bawah ini:

Dim data() As Int16 = {3, 2, 5, 4, 6, 4, 12, 43, 45, 42, 65}

Untuk menentukan elemen dari array tersebut, kita akan menggunakan looping For..Next, mengeksekusi tiap elemen array, dan nantinya bisa menyimpannya ke dalam array baru atau menghapusnya. Untuk memilih elemen dengan nilai yang lebih kecil dari 10, kita gunakan kode di bawah ini:

Dim nilaiKecil(data.Length-1) As Integer 
Dim itm As Integer = 0 
For i As Integer = 0 To data.Length 
	If data(i) < 10 Then 
		nilaiKecil(itm) = data(i) 
		itm += 1 
	End If 
Next 
ReDim nilaiKecil(itm)

Akan lebih mudah menyimpan elemen-elemen yang telah terpilih ke dalam suatu ArrayList menggunakan looping seperti di bawah ini:

Dim nilaiKecil As New ArrayList 
Dim itm As Integer 
For Each itm In data 
	If itm < 10 Then 
		nilaiKecil.Add(itm) 
	End If 
Next

Bila kita menggunakan LINQ,

Dim nilaiKecil = From n In data _ 
	Where n < 10 _ 
	Select n

Penggunaan bahasa dalam LINQ hampir sama dengan bahasa yang digunakan dalam SQL. Jika kita telah terbiasa dengan bahasa yang digunakan dalam SQL, kita akan menemukan beberapa kemiripan.

Contoh pernyataan SQL:

SELECT *

FROM data

WHERE data.n < 10

(Contoh di atas mengasumsikan dalam database kita terdapat tabel data yang memiliki kolom bernama n). Bila menggunakan LINQ, kode kita menjadi:

Dim = From n In data

Where n < 10

Ok, cukup teorinya… kita langsung saja ke praktek pembuatan program 😉

Pada tutorial kemarin kita telah membuat database barang dan kategori menggunakan SQL Express 2005, nah sekarang kita akan membuat tiap-tiap form untuk form barang dan untuk form kategori. Ikuti langkah-langkah berikut:

1. Menambah Form Barang

Tambahkan satu form dan beri nama frmBarang, dengan cara memilih menu Project > Add Windows Form atau dengan mengklik kanan nama proyek kita di solution explorer dan memilih Add > Windows Form. Akan muncul window Add New Item, masukkan nama frmBarang dan klik add.

Akan muncul form baru dengan nama frmBarang. Atur besar form sesuai keinginan.

2. Property Form Barang

(Skip jika ingin melewati bagian ini.)

Buka jendela property dari form barang (frmBarang) atau dengan cara menekan tombol F4. Atur property frmBarang sebagai berikut:

  • Text : Data barang
  • FormBorderStyle : FixedToolWindow

Ini hanya sekedar contoh dari property suatu form yang sering saya buat, silahkan di ubah sesuai keinginan.

3. Menambah DataGridView

Tampilkan jendela Toolbox (default: bagian kiri) dengan memilih menu View > Toolbox atau dengan menekan kombinasi tombol CTRL+ALT+X.

Geser control DataGridView ke dalam frmBarang:

Nama DataGridView1 akan secara otomatis diberikan untuk control DataGridView tadi.

4. Menampilkan data ke dalam DataGridView

Sekarang kita akan mencoba menampilkan data ke dalam control DataGridView1, data yang akan ditampilkan diambil dari tabel ‘barang’ dan tabel ‘kategori.

Double klik tampilan frmBarang, maka kita akan masuk ke dalam tampilan Code View.

Ketikkan perintah berikut di bagian Private Sub frmBarang_Load

Dim db As New DataClasses1DataContext 
        Dim qBarang = From barang In db.barangs _ 
                      Join kategori In db.kategoris _ 
                      On kategori.KDKategori Equals barang.KDKategori _ 
                      Select barang 

        Me.DataGridView1.DataSource = qBarang

Pada kode di atas (Hampir sama dengan pernyataan SQL) kita memulai dengan mendeklarasikan db sebagai object dari Class DataClasses1DataContext, kemudian membuat suatu variable baru dengan nama qBarang dan menuliskan query LINQ yang berfungsi untuk mengambil data dari 2 tabel (barang dan kategori, yang memiliki relasi pada kolom KDKategori) dari database. Hasil dari query LINQ tersebut akan ditampilkan dalam control DataGridView1 dengan menggunakan object DataSource dari property DataGridView1.

Kode lengkapnya seperti ini:

Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Dim db As New DataClasses1DataContext 
        Dim qBarang = From barang In db.barangs _ 
                      Join kategori In db.kategoris _ 
                      On kategori.KDKategori Equals barang.KDKategori _ 
                      Select barang 

        Me.DataGridView1.DataSource = qBarang 

    End Sub

Sebelum kita mencoba menjalankan program ini, pastikan frmBarang merupakan Startup Form dengan cara memilih menu Project  > CTHAplikasi1 Properties. Pada tab Application bagian Startup form, pilih frmBarang sebagai form yang akan di load saat pertama kali aplikasi dijalankan. Jalankan aplikasi dengan menekan tombol F5.

Tampilan form setelah dijalankan (masih kosong karena belum ada data yang dimasukkan.. ) :

5. Menambah kontrol tombol, teks dan label.

Aplikasi kita sudah bisa dijalankan, tetapi kita masih perlu menambahkan tombol dan teks serta label ke dalam frmBarang agar memudahkan dalam interaksi dari user terhadap aplikasi.

Kembali ke Designer View (Klik kanan di area kosong di bagian kode dan pilih View Designer atau dengan menekan kombinasi tombol Shift+F7) dan tambahkan 1 label, dengan cara menggeser control Label dari Toolbox ke dalam frmBarang. Pada bagian property untuk Label1, untuk text masukkan ‘Kode Barang:’ dan untuk name masukkan ‘lblKode’.

Tambahkan Control TextBox ke dalam frmBarang, dengan property, name: txtKodeBarang dan pada bagian text dikosongkan.

Lakukan hal yang sama untuk 4 Label, 1 ComboBox dan 3 TextBox selanjutnya dengan property sebagai berikut:

Control ComboBox: name = cmbKategori

Control TextBox: name = txtNamaBarang, text = dikosongkan

Control TextBox: name = txtJumlah, text = ‘0’

Control TextBox: name = txtHargaJual, text = ‘0’

Control Label: name = lblKategori, text = ‘Kategori’

Control Label: name = lblNamaBarang, text = Nama Barang’

Control Label: name = lblJumlah, text = ‘Jumlah’

Control Label: name = lblHargaJual, text = ‘Harga Jual’

Sehingga hasilnya menjadi :

Setelah penambahan TextBox, Label serta ComboBox di atas selesai, kita lanjutkan dengan menambahkan Tombol-tombol (Button).

Klik dan geser 5 buah Control Button dari Toolbox ke dalam frmBarang dengan nilai property masing-masing:

Tombol 1: name = cmdEdit, Text = ‘Edit’

Tombol 2: name = cmdBaru, Text = ‘Baru’

Tombol 3: name = cmdSimpan, Text = ‘Simpan’

Tombol 4: name = cmdHapus, Text = ‘Hapus’

Tombol 5: name = cmdKeluar, Text = ‘Keluar’

Sehingga tampilan akhir dari frmBarang akan menjadi :

6. Bersambung….

Yups, sekian dulu untuk tutorial bagian ke-2 ini. Nantinya kita akan mencoba menuliskan kode ke dalam frmBarang untuk mengeksekusi perintah saat ke lima tombol di atas diklik.

Tambahan (Upgrade dari VB 2005 ke VB 2008)

Mungkin masih banyak yang belum mengetahui bagaimana mengaktifkan LINQ dalam suatu project yang telah di upgrade dari VB 2005 ke VB 2008. (LINQ cuman ada di VB 2008).

Sekedar tambahan bagi yang menggunakan VB 2005 yang ingin bermigrasi ke VB 2008 dan ingin bereksperimen dengan LINQ:

  1. Konversi project ke VB 2008, setelah proses konversi berakhir,
  2. Buka Project Property
  3. Masuk ke tab Compile
  4. Pada Option Infer, pilih On.
  5. Masuk ke tab Reference
  6. Tambahkan reference System.Linq
  7. Tutup dan buka kembali project-nya..

Membuat Aplikasi dengan Visual Basic.Net 2008 – 1

Visual basic merupakan bahasa yang paling mudah untuk dipahami, dikarenakan bahasanya yang sederhana dan hampir mendekati bahasa yang digunakan manusia sehari-hari. Aplikasi yang akan dibuat adalah contoh aplikasi penjualan barang sederhana… (sangat sederhana).

Dalam pembahasan kali ini, saya akan mencoba menjelaskan langkah-langkah dalam proses pembuatan suatu aplikasi menggunakan Visual Basic .NET 2008 dengan asumsi bahwa Anda telah sedikit memahami dan mengerti tentang apa itu Visual Basic beserta IDE yang akan digunakan (Visual Studio) termasuk syntax-syntax sederhana dalam pembuatan aplikasi menggunakan VB.

Semuanya akan dibuat dengan cepat dan ringkas…. hmmm…

Anda mungkin tidak percaya, pembuatan aplikasi penjualan ini hanya dikerjakan dalam waktu kurang dari satu hari…yups, 1 hari.. Tetapi itu belum dihitung dengan trial and error testnya.. hehe..

Untuk membuat suatu program yang profesional, waktu setahun atau dua tahun belum mencukupi. 😉

Bahan-bahan:

  1. Visual Studio Professional 2008 / Visual Basic.net Express Edition
  2. MS SQL Server 2005 Express Edition

1. Membuat proyek baru

Buka Visual Studio 2008 dan buat sebuah proyek baru dengan menggunakan menu File > New Project..

Pilih “Windows Forms Application” dengan target Framework 3.5 dan berikan nama “CTHAplikasi1” kemudian klik OK.

2. Menambah Database

Langkah berikutnya adalah kita akan menambahkan database dan coba menentukan tabel-tabel apa saja yang terdapat dalam database untuk aplikasi ini. Untuk tutorial pertama ini kita akan memulai dengan membuat 2 tabel yang terdiri dari : “Barang” dan “Kategori“.

Pastikan SQL Express telah dijalankan. Masih di IDE VS (Visual Studio) klik menu Project > Add New Item..

Dalam tampilan dialog Add New Item, pilih “Service Based Database” dan masukkan nama “Database1.mdf“. Kemudian klik tombol “Add”. Lihat gambar:

Akan muncul kotak dialog “Datasource Configuration Wizard“. Klik Finish. Jika semuanya telah dilakukan dengan benar, maka tampilan dalam Solution Explorer akan tampak seperti ini :

3. Menambah Tabel ke dalam Database

Klik menu View > Server Explorer untuk menampilkan Server Explorer.

Database yang baru dibuat tadi akan tampil dalam Server Explorer, dalam tutorial ini “Database1.mdf“, jika terdapat tanda silang merah di database kita, klik kanan dan pilih refresh untuk membuka koneksi ke database. Lihat gambar:

Klik tanda plus (+) kemudian klik kanan di bagian “Tables” dan pilih “Add New table”.

Akan muncul tampilan isian tabel. Isikan seperti gambar di bawah ini.

Jadikan “KDKategori” sebagai primary key dengan mengklik kanan baris “KDKategori” dan memilih “Set Primary Key”.

Simpan tabel tersebut dengan nama “kategori” (tanpa tanda kutip).

Masih dalam tabel kategori, di tab Column Properties, pada bagian Identity Specification > nilai (Is Identity) di ubah menjadi “Yes” dengan Identity Increment sebanyak 1.

Hal di atas dilakukan untuk memberikan Increment Value terhadap KDKategori dengan nilai Increment=1.  Atau dengan kata lain, memberikan “Auto Number” terhadap KDKategori. 😀

Pembuatan tabel kategori selesai…. 😉

Lakukan hal yang sama dengan tabel barang, dengan isian seperti gambar di bawah:

Jika kedua tabel telah selesai dibuat, maka tampilan dalam Server Explorer akan menjadi seperti gambar di bawah:

4. Membuat Diagram Relasi

Selanjutnya kita akan membuat relasi antar tabel. Klik kanan Database Diagrams dalam Server Explorer dan pilih Add New Diagram. Akan muncul kotak dialog konfirmasi, pilih Yes.

Setelah tombol Yes diklik, akan muncul kotak dialog “Add table“. Tentukan tabel-tabel apa saja yang ingin dimasukkan ke dalam relasi. Dalam hal ini, masukkan tabel kategori dan tabel barang kemudian klik Close.

Tampilan tab diagram akan menjadi seperti gambar di bawah ini :

Klik dan tahan kolom KDKategori dari tabel kategori dan geser ke kolom KDKategori dalam tabel barang untuk membuat keduanya berelasi.

Akan muncul kotak konfirmasi, untuk memastikan kolom yang dimaksudkan sesuai dengan yang kita inginkan. Klik OK, maka akan tampil kotak dialog Foreign Key Relationship.

Pada bagian INSERT And UPDATE Specification, ubah nilai Delete Rule dan Update Rule menjadi Cascade :

Maksud dari Cascade dalam Delete Rule di atas adalah, setiap baris yang terdapat dalam relasi dengan pengaturan Cascade akan ikut terhapus bila tabel yang memiliki primary key dari relasi tersebut dihapus. Demikian juga dengan aturan Update Rule = Cascade.

Setelah tombol OK diklik, maka tampilan diagram relasinya menjadi :

Simpan diagram di atas dengan nama Diagram1.

5. Menambahkan LINQ to SQL Classes (Apa itu LINQ? = belum dibahas).

Berikutnya kita akan menambahkan LINQ to SQL Classes (LINQ = Language-Integrated Query). Klik Project > Add New Item.. kemudian pilih LINQ to SQL Classes dan beri nama DataClasses1.dbml kemudian klik Add.

Tab Object Relational Designer dari DataClasses1.dbml akan langsung terbuka. Masih dalam tab Object Relational Designer, buka Server Explorer dan geser kedua tabel yang barusan kita buat tadi ke dalam area Object Relational Designer, sehingga menjadi seperti gambar di bawah ini:

Klik Save untuk menyimpannya.

Simpan proyek kita dan tutup Visual Studio.

Sekian dulu untuk tutorial kali ini, pada kesempatan berikutnya akan saya lanjutkan dengan proses pembuatan form barang dan kategori, serta bagaimana melakukan query ke dalam database menggunakan LINQ. Stay tuned… Ciao!….