Buat program nich

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:

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

Public Class frmBarang   Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   End Sub 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

    Private db As New DataClasses1DataContext     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

Private Sub buka(ByVal t As Boolean)         Dim daftarTextBox = From myControl In Me.Controls _                             Where TypeOf myControl Is TextBox _                             Select myControl          For Each myTeksBoks As TextBox In daftarTextBox             If t Then                 myTeksBoks.Enabled = True                 Me.cmbKodeKategori.Enabled = True             Else                 myTeksBoks.Enabled = False                 Me.cmbKodeKategori.Enabled = False             End If         Next     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

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

    Private Sub resData()         Dim qBarang = From barang In db.barangs _                       Join kategori In db.kategoris _                       On kategori.KDKategori Equals barang.KDKategori _                       Select Kode = barang.KDBarang, Nama = barang.NmBarang, _                       Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual          Me.DataGridView1.DataSource = qBarang     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

    Private Sub dgKlik()         Try             Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value             Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value             Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value             Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value              Dim dkate = From kategori In db.kategoris _                         Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _                         Select kategori.NmKategori             Me.cmbKodeKategori.Text = dkate.Single          Catch ex As Exception             MessageBox.Show("Error: " & ex.Message)         End Try     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

    Private Sub resTeks()         isiCombo()         Dim daftarTextBox = From myControl In Me.Controls _                             Where TypeOf myControl Is TextBox _                             Select myControl         For Each myTeksBoks As TextBox In daftarTextBox             myTeksBoks.Text = ""         Next     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

Private Function katPerNama(ByVal n As String) As Integer         Dim kat As Integer = 0         Dim kate = From kategori In db.kategoris _                  Where kategori.NmKategori Is n _                  Select kategori.KDKategori         kat = kate.Single         Return kat     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

    Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click         dgKlik()     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

    Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click         Me.cmdBaru.Text = "Batal"         Me.cmdEdit.Enabled = False         Me.cmdHapus.Enabled = False         Me.cmdSimpan.Enabled = True         edit = True         buka(True)         Me.txtKodeBarang.Enabled = False         Me.txtNamaBarang.Focus()     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

    Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click         If Me.cmdBaru.Text = "Baru" Then             Me.cmdBaru.Text = "Batal"             Me.resTeks()             buka(True)             Me.DataGridView1.Enabled = False             Me.cmdSimpan.Enabled = True             Me.cmdEdit.Enabled = False             Me.cmdHapus.Enabled = False             Me.cmdKeluar.Enabled = False             Me.txtKodeBarang.Focus()         Else             Me.cmdBaru.Text = "Baru"             buka(False)             Me.DataGridView1.Enabled = True             edit = False             Me.cmdSimpan.Enabled = False             Me.cmdEdit.Enabled = True             Me.cmdHapus.Enabled = True             Me.cmdKeluar.Enabled = True             dgKlik()         End If     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

    Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click         'Validasi data inputan, akan dijelaskan nanti...          If edit Then             Dim updatebrg = (From barang In db.barangs _                     Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)              With updatebrg                 .NmBarang = Me.txtNamaBarang.Text                 .KDKategori = katPerNama(Me.cmbKodeKategori.Text)                 .Jumlah = Me.txtJumlah.Text                 .HargaJual = Me.txtHarga.Text             End With          Else             Dim brg As New barang With { _                     .KDBarang = Me.txtKodeBarang.Text, _                     .NmBarang = Me.txtNamaBarang.Text, _                     .KDKategori = katPerNama(Me.cmbKodeKategori.Text), _                     .Jumlah = Me.txtJumlah.Text, _                     .HargaJual = Me.txtHarga.Text}         End If          Try             db.SubmitChanges()          Catch ex As Exception             MessageBox.Show("Error :" & ex.Message)         End Try          resData()         dgKlik()         buka(False)         Me.cmdSimpan.Enabled = False         Me.cmdBaru.Text = "Baru"         Me.cmdEdit.Enabled = True         Me.cmdKeluar.Enabled = True         edit = False         Me.cmdHapus.Enabled = True         Me.DataGridView1.Enabled = True     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

    Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click         If Me.txtKodeBarang.Text = "" Then Exit Sub         Dim rep As Integer = MessageBox.Show("Data tersebut akan dihapus?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)         If rep = MsgBoxResult.No Then Exit Sub          Dim deleteBrg = (From barang In db.barangs _                     Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)          db.barangs.DeleteOnSubmit(deleteBrg)          Try             db.SubmitChanges()         Catch ex As Exception             MessageBox.Show("Error :" & ex.Message)         End Try          resData()         dgKlik()      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

    Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click         Me.Close()     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

    Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         resData()         isiCombo()         buka(False)         Me.cmdSimpan.Enabled = False  edit = False     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

Public Class frmBarang     Private db As New DataClasses1DataContext     Private edit As Boolean 'penentuan apakah sedang dalam proses edit atau bukan      Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         resData() 'memanggil sub resData untuk mengisi data ke dalam DataGridView1         isiCombo() 'mengisi ComboBox kategori         buka(False) 'kunci semua textbox         Me.cmdSimpan.Enabled = False 'matikan tombol simpan         edit = False 'variabel edit di atur menjadi false     End Sub     Private Sub buka(ByVal t As Boolean) 'enable dan disable control TextBox dan ComboBox         'Pilih semua control yang merupakan TextBox         Dim daftarTextBox = From myControl In Me.Controls _                             Where TypeOf myControl Is TextBox _                             Select myControl         'Looping setiap control TextBox         For Each myTeksBoks As TextBox In daftarTextBox             If t Then                 myTeksBoks.Enabled = True 'textbox aktif                 Me.cmbKodeKategori.Enabled = True 'combobox aktif             Else                 myTeksBoks.Enabled = False                 Me.cmbKodeKategori.Enabled = False             End If         Next     End Sub     Private Sub isiCombo() 'Mengisi Combobox dengan daftar kategori dari tabel kategori         Me.cmbKodeKategori.ResetText() 'reset Combo kategori         'ambil semua nama kategori dari tabel kategori         Dim cmbKate = From kategori In db.kategoris _                      Select kategori.NmKategori         'looping setiap hasil dari cmbkate dan tambahkan ke dalam combo kategori         For Each kate As String In cmbKate             Me.cmbKodeKategori.Items.Add(kate)         Next     End Sub     Private Sub resData() 'mengisi ulang data ke dalam DataGridView1         Dim qBarang = From barang In db.barangs _                       Join kategori In db.kategoris _                       On kategori.KDKategori Equals barang.KDKategori _                       Select Kode = barang.KDBarang, Nama = barang.NmBarang, _                       Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual          Me.DataGridView1.DataSource = qBarang     End Sub     Private Sub resTeks() 'mengosongkan semua combobox dan textbox         isiCombo()         Dim daftarTextBox = From myControl In Me.Controls _                             Where TypeOf myControl Is TextBox _                             Select myControl          For Each myTeksBoks As TextBox In daftarTextBox             myTeksBoks.Text = ""         Next     End Sub     Private Sub dgKlik() 'sub procedure saat baris dalam DataGridView1 diklik         Try             Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value             Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value             Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value             Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value              'isi combo kategori berdasarkan kategori tiap barang dari DataGridView1             Dim dkate = From kategori In db.kategoris _                         Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _                         Select kategori.NmKategori             Me.cmbKodeKategori.Text = dkate.Single          Catch ex As Exception 'Jika terjadi error, ya know lah...             MessageBox.Show("Error: " & ex.Message)         End Try     End Sub      Private Function katPerNama(ByVal n As String) As Integer 'mengambil kode kategori berdasarkan nama kategori         Dim kat As Integer = 0         Dim kate = From kategori In db.kategoris _                  Where kategori.NmKategori Is n _                  Select kategori.KDKategori          kat = kate.Single         Return kat     End Function     Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click         dgKlik() 'memanggil sub procedure dgKlik saat DataGridView1 diklik.     End Sub      Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click         'saat tombol edit diklik         Me.cmdBaru.Text = "Batal"         Me.cmdEdit.Enabled = False         Me.cmdHapus.Enabled = False         Me.cmdSimpan.Enabled = True         edit = True 'sedang dalam proses edit         buka(True) 'buka semua control         Me.txtKodeBarang.Enabled = False 'kunci txtKodeBarang         Me.txtNamaBarang.Focus() 'Fokuskan cursor pada txtNamaBarang     End Sub      Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click         'Tombol baru diklik         'lakukan pengeceka apakah sekarang tombol baru atau tombol batal         If Me.cmdBaru.Text = "Baru" Then 'jika yang diklik tombol baru             Me.cmdBaru.Text = "Batal" 'ubah text tombol baru menjadi batal             Me.resTeks() 'memanggil sub procedure resTeks : mengosongkan semua teks             buka(True) 'buka semua control             Me.DataGridView1.Enabled = False 'non aktifkan DataGridView1 sehingga tidak bisa diklik             Me.cmdSimpan.Enabled = True             Me.cmdEdit.Enabled = False             Me.cmdHapus.Enabled = False             Me.cmdKeluar.Enabled = False             Me.txtKodeBarang.Focus() 'Fokuskan cursor pada txtKodeBarang         Else 'jika yang diklik adalah tombol baru dengan teks Batal             Me.cmdBaru.Text = "Baru" 'ubah teks tombol baru menjadi Baru             buka(False) 'Kunci semua kontrol             Me.DataGridView1.Enabled = True             edit = False 'pastikan bukan dalam proses edit             Me.cmdSimpan.Enabled = False             Me.cmdEdit.Enabled = True             Me.cmdHapus.Enabled = True             Me.cmdKeluar.Enabled = True             dgKlik()         End If     End Sub      Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click         'Validasi data inputan, belakangan akan dijelaskan...          If edit Then 'jika dalam proses edit / tombol edit diklik             Dim updatebrg = (From barang In db.barangs _                     Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)              With updatebrg                 .NmBarang = Me.txtNamaBarang.Text                 .KDKategori = katPerNama(Me.cmbKodeKategori.Text)                 .Jumlah = Me.txtJumlah.Text                 .HargaJual = Me.txtHarga.Text             End With          Else 'jika bukan proses edit / tombol baru diklik             Dim brg As New barang With { _                     .KDBarang = Me.txtKodeBarang.Text, _                     .NmBarang = Me.txtNamaBarang.Text, _                     .KDKategori = katPerNama(Me.cmbKodeKategori.Text), _                     .Jumlah = Me.txtJumlah.Text, _                     .HargaJual = Me.txtHarga.Text}         End If          Try             db.SubmitChanges() 'simpan semua perubahan, baik itu proses update maupun insert          Catch ex As Exception             MessageBox.Show("Error :" & ex.Message)         End Try          resData()         dgKlik()         buka(False)         Me.cmdSimpan.Enabled = False         Me.cmdBaru.Text = "Baru"         Me.cmdEdit.Enabled = True         Me.cmdKeluar.Enabled = True         edit = False         Me.cmdHapus.Enabled = True         Me.DataGridView1.Enabled = True     End Sub      Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click         'saat tombol hapus diklik         If Me.txtKodeBarang.Text = "" Then Exit Sub 'jika kodebarang kosong, keluar dari sub procedure         'mencoba memastikan apakah data akan benar2 dihapus?         Dim rep As Integer = MessageBox.Show("Data tersebut akan dihapus?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)         If rep = MsgBoxResult.No Then Exit Sub 'jika hasilnya NO, data tidak akan dihapus          Dim deleteBrg = (From barang In db.barangs _                     Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)          db.barangs.DeleteOnSubmit(deleteBrg)          Try             db.SubmitChanges() 'simpan semua perubahan ke dalam database         Catch ex As Exception             MessageBox.Show("Error :" & ex.Message)         End Try          resData()         dgKlik()      End Sub      Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click         Me.Close() 'tutup form         'bisa juga menggunakan : Application.Exit()     End Sub End Class

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

Klik disini untuk melanjutkan »»

Area untuk calon temanku, temanku, yang pernah jadi temanku bahkan bukan temanku di Wearnes Education Center SEMARANG. Tinggalkan sedikit komentar dan pesan tentang saya, tentang blog saya, tentang WEC SMG atau tentang apa saja.
Bagi yang komentarnya memenuhi kriteria tertentu, aneh, orisinil, lucu, lain dari yang lain, unik, medeni uwong, ekslusif, tak ada duanya, menyentuh hati dll akan saya beri bonus.

* Yang calon mahasiswa, saya doakan diterima di WEARNES SMG
* Yang mahasiswa, bagi-bagi dunk nilainya
* Yang masih ujian, saya doakan nilainya bagus
* Yang sudah bekerja, saya doakan makin sukses
* Yang berumah tangga saya doakan keluarganya sakinah mawaddah warohmah
* Yang masih nganggur saya doakan cepat dapat kerjaan
* Yang masih jomblo saya doakan cepet dapat jodoh
* Yang pernah punya salah ke saya akan saya ampuni
* Yang masih punya hutang ke saya, akan saya anggap lunas
* Yang apapun akan saya apakan.

Kamu2 lah yang membentuk saya menjadi saya seperti sekarang ini. Komentarmu adalah apresiasimu terhadapku, yang akan menyemangatiku.

Klik disini untuk melanjutkan »»

Ayooo.. Belajar DOS ....

1.menampilkan display monitor
C\>:cls
2.menampilkan semua file yang huruf pertamanya “M” dan ber-extension “exe”
C\>:dir m*.exe
3.menampilkan tanggal active computer
C\>:date
4.ubah tanggal active coputer menjadi 19 October 1990
C\>:date 09-19-1990
5.menampilkan semua ile yang atributnya system
C\>:dir /as
6.ubah tanggal komputer menjadi tanggal sekarang (hari ini)
C\>:date 09-03-2009
7.ubah jam aktif manjadi jam 11 malam lebih 1 menit
C\>:time 13:01
8.ubah jam aktif menjadi jam sekarang (saat ini)
C\>:time 15:21
9.tampilkan versi DOS saat ini
C\>:ver
10.tampilkan volume dari disk anda
C\>:vol
11.tampilkan semua file yang ada di C:
C\>:dir
12.tampilkan semua file di drive C yang ber-extension “sys”
C\>:dir *.sys
13. tampilkan semua file di drive C yang ber-extension “com”
C\>:dir *.com
14. tampilkan semua file di drive C yang ber-extension “exe”
C\>:dir *.exe
15. tampilkan semua file di drive C yang ber-extension “sys” yang atributnya Hidden
C\>:dir *sys /ah
16. tampilkan semua file di drive C yang tersembunyi dan tidak tersembunyi
C\>:dir/a
17. tampilkan semua file di drive C secara melebar di layar
C\>:dir/w
18. tampilkan semua file di drive C secara perhalaman di layar
C\>:dir/p
19. tampilkan semua file di drive C yang ber-extension “com” secara melebar
C\>:dir *.com /w
20. tampilkan semua file di drive C dengan maksimal 4 huruf ber-extension bebas
C\>:dir ????.*
21.Copy-kan semua file yang ber-exyension “com” ke drive D..
C:>\ copy *.com d:
22.Copy-kan semua yang huruf awalnya “D” ,huruf keduanya “E” ber-extension “exe” ke drive D..
C:>\ copy C:\de*.exe D:
23.Copy-kan semua file yang ber-extension “exe” ke drive D
C:>\ copy c:\*.exe d:
24.Copy-kan file “move.exe” dari D ke C dan diganti nama menjadi “pindah.exe”
C:>\ copy d:\move.exe c:\pindah.exe
25.Hapus semua file di drive D yang huruf depannya “D” dan ber-extension bebas
C:>\ del d:\d.*
26.Ubah nama file “format.com” yang ada di drive D menjadi “infokom.com”
C:>\ ren format।com infokom.com
27.buatlah tanda prompt bertingkat yang terdiri dari: Nama Anda, Jam Aktif Komputer, Tanggal Aktif Komputer dan Tanda Drive Aktif Komputer
C:>\ prompt gaara$t$d$n

Klik disini untuk melanjutkan »»

Assalamu'alaikum Wr. Wb.

Hai all, perkenalken namaku ARDAN dari The Death Zone band. Ini posting pertamaku di web-blog ini. Setelah cukup lama belajar teori, akhirnya praktek juga dan inilah hasilnya. Cukup sederhana sih maklum baru pertama kali, this is first time.Bagi yang sudah mahir, bagi-bagi donk ilmunya.

Bagi yang ingin kenalan, dipersilahkan. Caranya gampang koq cukup ketik :

SALAM spasi KENAL kirim ke : 0000

SMS yang kamu terima langsung dari orang gila.

Mungking aku memang seorang jomblo, tapi jomblo yang terhormat. Cuman wanitanya saja yang belum beruntung menemukan diriku. Beruntunglah bagi mereka yang kenal denganku. Terima kasih atas dukungan SMSnya.

Wassalamu'alaikum Wr. Wb.

Klik disini untuk melanjutkan »»

macam macam topologi jaringan komputer

Jaringan komputer adalah gabungan / kumpulan dari beberapa komputer yang saling berhubungan saling berhubungan satu sama lain.

Jaringan komputer adalah rangkaian komputer yang tersusun secara seri yang dapat melakukan pertukaran data maupun informasi.

Dalam jaringan dikenal yang namanya TOPOLOGI jaringan. Topologi jaringan merupakan rangkaian beberapa komputer yang saling berhubungan satu sama lain. Adapun jenis-jenis topologi jaringan adalah se bagai berikut :

1. Topologi Bus

Pada topologi ini komputer server dan workstation dihubungkan secara berantai melalui kabel tunggal. Topologi ini mudah dikembangkan dan sederhana, namun bila salah satu workstation mengalami permasalahan maka yang lain akan terpengaruh. Berikut gambar topoogi bus.











2. Topologi Ring (Cincin)

Topologi ini mirip dengan topologi bus, bedanya topologi ring ujungnya saling berhubungan seolah membentuk lingkaran cincin. Pada topologi ini data mengalir searah, artinya seluruh komputer dalam jaringan akan ikut ambil bagian dalam mengolah informasi yang lewat, sehingga bila salah satu rusak maka akan berpengaruh terhadap keselur

uhan jaringan. Berikut gambar topologi ring.



















3. Topologi Star (Bintang)

Dalam topologi ini, setiap komputer dihubungkan secara langsung melalui media perantara berupa hub/switch. Dalam praktiknya, pembangunan sebuah jaringan biasanya tidak menggunakan satu topologi saja, melainkan gabungan dari beberapa topologi yang ada. Berikut gambar topologi star (Bintang).



Sebenarnya topologi jaringan bukan hanya 3 contoh diatas, akan tetapi ada banyak topologi jaringan. Namun yang paling sering di jumpai dalam praktik adalah ketiga contoh topologi diatas.





















4. Topologi Mesh

hubungan antar perangkat dimana setiap perangkat terhubung secara langsung ke perangkat lainnya yang ada di dalam jaringan. Akibatnya, dalam topologi mesh setiap perangkat dapat berkomunikasi langsung dengan perangkat yang dituju (dedicated links). Dengan demikian maksimal banyaknya koneksi antar perangkat pada jaringan bertopologi mesh ini dapat dihitung yaitu sebanyak n(n-1)/2. Selain itu karena setiap perangkat dapat terhubung dengan perangkat lainnya yang ada di dalam jaringan maka setiap perangkat harus memiliki sebanyak n-1 Port Input/Output (I/O ports).

Berdasarkan pemahaman di atas, dapat dicontohkan bahwa apabila sebanyak 5 (lima) komputer akan dihubungkan dalam bentuk topologi mesh maka agar seluruh koneksi antar komputer dapat berfungsi optimal, diperlukan kabel koneksi sebanyak 5(5-1)/2 = 10 kabel koneksi, dan masing-masing komputer harus memiliki port I/O sebanyak 5-1 = 4 port (lihat gambar).

Dengan bentuk hubungan seperti itu, topologi mesh memiliki beberapa kelebihan, yaitu:

* Hubungan dedicated links menjamin data langsung dikirimkan ke komputer tujuan tanpa harus melalui komputer lainnya sehingga dapat lebih cepat karena satu link digunakan khusus untuk berkomunikasi dengan komputer yang dituju saja (tidak digunakan secara beramai-ramai/sharing).
* Memiliki sifat Robust, yaitu Apabila terjadi gangguan pada koneksi komputer A dengan komputer B karena rusaknya kabel koneksi (links) antara A dan B, maka gangguan tersebut tidak akan mempengaruhi koneksi komputer A dengan komputer lainnya.
* Privacy dan security pada topologi mesh lebih terjamin, karena komunikasi yang terjadi antara dua komputer tidak akan dapat diakses oleh komputer lainnya.
* Memudahkan proses identifikasi permasalahan pada saat terjadi kerusakan koneksi antar komputer.

Meskipun demikian, topologi mesh bukannya tanpa kekurangan. Beberapa kekurangan yang dapat dicatat yaitu:

* Membutuhkan banyak kabel dan Port I/O. semakin banyak komputer di dalam topologi mesh maka diperlukan semakin banyak kabel links dan port I/O (lihat rumus penghitungan kebutuhan kabel dan Port).
* Hal tersebut sekaligus juga mengindikasikan bahwa topologi jenis ini membutuhkan biaya yang relatif mahal.
* Karena setiap komputer harus terkoneksi secara langsung dengan komputer lainnya maka instalasi dan konfigurasi menjadi lebih sulit.
* Banyaknya kabel yang digunakan juga mengisyaratkan perlunya space yang memungkinkan di dalam ruangan tempat komputer-komputer tersebut berada.


Berdasarkan kelebihan dan kekurangannya, topologi mesh biasanya diimplementasikan pada komputer-komputer utama dimana masing-masing komputer utama tersebut membentuk jaringan tersendiri dengan topologi yang berbeda (hybrid network).



















5. Topologi Tree
Topologi Tree pada dasarnya merupakan bentuk yang lebih luas dari topologi star. Seperti halnya topologi star, perangkat (node, device) yang ada pada topologi tree juga terhubung kepada sebuah pusat pengendali (central HUB) yang berfungsi mengatur traffic di dalam jaringan. Meskipun demikian, tidak semua perangkat pada topologi tree terhubung secara langsung ke central HUB. Sebagian perangkat memang terhubung secara langsung ke central HUB, tetapi sebagian lainnya terhubung melalui secondary HUB (lihat gambar).
Pada topologi tree terdapat dua atau lebih HUB yang digunakan untuk menghubungkan setiap perangkat ke dalam jaringan. Keseluruhan HUB tersebut berdasarkan fungsinya terbagi menjadi dua bagian yaitu Active HUB dan Passive HUB
Active HUB berfungsi tidak hanya sekedar sebagai penerus sinyal data dari satu komputer ke komputer lainnya, tetapi juga memiliki fungsi sebagai Repeater. Sinyal data yang dikirimkan dari satu komputer ke komputer lainnya memiliki keterbatasan dalam hal jarak, setelah berjalan sekian meter maka sinyal tersebut akan melemah. Dengan adanya fungsi Repeater ini maka sinyal data tersebut akan di-generate kembali sebelum kemudian diteruskan ke komputer yang dituju, sehingga jarak tempuh sinyal data pun bisa menjadi lebih jauh dari yang biasanya. Sedangkan Passive HUB hanya berfungsi sebagai penerus sinyal data dari satu komputer ke komputer lainnya.
Pada topologi tree, seperti pada gambar, Central HUB adalah selalu sebagai Active HUB sedangkan Secondary HUB adalah Passive HUB. Tetapi pada pelaksanaannya, Secondary HUB bisa juga sebagai Active HUB apabila digunakan untuk menguatkan kembali sinyal data melalui secondary HUB lainnya yang terhubung.
Karena pada dasarnya topologi ini merupakan bentuk yang lebih luas dari topologi star, maka kelebihan dan kekurangannya pada topologi star juga dimiliki oleh topologi tree. Perbedaannya adalah HUB dan kabel yang digunakan menjadi lebih banyak sehingga diperlukan perencanaan yang matang dalam pengaturannya dengan mempertimbangkan segala hal yang terkait, termasuk di dalamnya adalah tata letak ruangan. Meskipun demikian, topologi ini memiliki keunggulan lebih mampu menjangkau jarak yang lebih jauh dengan mengaktifkan fungsi Repeater yang dimiliki oleh HUB.

Klik disini untuk melanjutkan »»

jaringan komputer di bandung

Jaringan computer pra-internet di Bandung dimulai dari salah satu lembaga pendidikan besar di Bandung, ITB. Ketika itu sejumlah mahasiswa yang memiliki hobby elektronika, khususnya di bidang computer dan radio amatir memiliki ide untuk menghubungkan computer local antar jurusan. Ide ini banyak juga dipengaruhi oleh sejumlah akademisi ITB yang kembali setelah menyelesaikan studinya di luar negeri, dan mereka sangat mengharapkan adanya sambungan internet, minimal di lingkungan kampus ITB. Ketika itu satu-satunya sambungan internet yang bisa dilakukan adalah melalui UI, dengan biaya yang mahal karena menggunakan sistem dial up / via line telepon dengan sambungan interlokal. Sementara jaringan/network sambungan antar computer di lingkungan ITB sendiri belum terbentuk. Satu-satunya jaringan / network yang ada adalah di PIKSI (Pusat Ilmu Komputer Seluruh Indonesia) ITB.

Akhirnya, pada tahun tahun baru 1993, seorang anggota Amateur Radio Club (ARC) ITB, Suryono Adisoemarta kembali dari Texas, Amerika Serikat, setelah menyelesaikan studi S2-nya. Bersama-sama dengan beberapa anggota ARC ITB, antara lain Basuki Suhardiman, Aulia K. Arief, Arman Hazairin dan didukung oleh Adi Indrayanto, mereka mencoba mengembangkan gateway packet radio di ITB, dan akhirnya mereka berhasil membuat jaringan sambungan internet dengan menggunakan Radio Paket ke IPTEKNET melalui LAPAN, dengan menggunakan modem Terminal Node Control (TNC) pinjaman dari Muhammad Ichsan, alumnus ITB yang bekerja di LAPAN. Pemilihan teknologi radio paket ini dengan pertimbangan bahwa menggunakan gelombang radio jauh lebih murah dibandingkan menggunakan dial up dengan sambungan interlokal; walaupun kecepatan / speed sambungannya lambat sekali.

Akhir tahun 1993, Onno W. Purbo kembali setelah menyelesaikan studi Ph.D.nya di Canada. Ia membawa banyak pengetahuan, antara lain tentang dasar-dasar pengembangan jaringan computer dan teknologi paket radio. Kemudian bersama sejumlah anggota ARC ITB, Ia mendirikan hobby group baru yang kegiatannya difokuskan pada riset dan pengembangan jaringan computer dan upaya untuk membuat sambungan ke jaringan internet global. Group ini kemudian dikenal dengan Computer Network Research Group (CNRG).

Dengan bantuan Onno W. Purbo, ide untuk membuat jaringan computer local ITB mulai diwujudkan. Dengan menggunakan paket radio, jaringan dimulai dengan menghubungkan computer antar Himpunan mahasiswa di ITB. Pengetahuan mengenai adanya jaringan computer / computer network ini cepat menyebar karena anggota-anggota CNRG terdiri dari akademisi yang berasal dari berbagai jurusan, sehingga semakin banyak Himpunan yang kemudian ikut bergabung dengan jaringan tersebut.

Kemudian pada pertengahan 1994, setelah melalui proposal serta sejumlah pembicaraan, CNRG memperoleh bantuan sambungan internet melalui Leased Line dari Telkom, melalui direktur RisTi Telkom, Suryatin Setiawan, yang juga merupakan alumnus Teknik Elektro ITB. (Lim, 2005). Speed / kecepatan sambungan leased line seharusnya 64Kbps, namun saat itu speed yang didapat hanya 28.8 Kbps; masih tetap lambat, namun sedikit lebih cepat dibandingkan dengan menggunakan radio. Sambungan dengan leased line ini sangat membantu perkembangan jaringan local ITB. Ketika jaringan semakin padat/crowded, mulai dipikirkan cara lain untuk membangun sambungan. Akhirnya dipilih sambungan dengan kabel, yang kemudian dikenal sebagai Yellow Cable Network, menyambungkan lebih banyak jurusan dan himpunan mahasiswa di ITB. Albarda, salah seorang staf pengajar Jurusan Teknik Elektro (Dept. of Electronics Engineering) memprakarsai penginstalasian jaringan ‘Kabel Kuning’ tersebut dengan ijin dan pendanaan dari Ketua Jurusan Teknik Elektro.

“…Karena udah mulai bisa pakai internet, pake web browsing. Oh udah, yang lain2 ikut! “Gimana caranya?”…Ya itu awalnya, gotong royong…Kamu punya apa, punya apa, ya sama2 ngejalanin. ... Jadi memang disitu akan terjadi perubahan budaya juga, karena kita apa ya, meminta, bukan meminta, ya, me...me-anukan orang, apa ya, mengajak orang, tapi juga “’Nih, punyamu ini! Ini punya kalian ini, barangnya barang kalian tapi barang kalian ini juga harus bisa dilewatin orang lain ini. Bolehlah orang lain ikut juga!” Jadi gotong royong, sambung-menyambung gitu. Nah, mulai dari situ berkembang…” (Basuki Suhardiman; Interview DR. Joshua Barker 4 Juli 2005)

Selain mengembangkan Local Area Network ini, CNRG juga banyak membantu para anggotanya dalam mengembangkan kemampuan teknis seputar aplikasi dan pengetahuan teknis komputer. Ketika jaringan lokal ITB berkembang ke Himpunan Mahasiswa, sejumlah user/pengguna jaringan secara tidak langsung mendapatkan masukan teknis dan aplikasi komputer; dan hal ini tidak terbatas pada user laki-laki (tanpa bermaksud berbicara gender disini). Pernah ada seorang mahasiswi yang menggunakan jaringan untuk chatting dengan rekannya melalui IRC, kemudian tiba-tiba sambungan putus karena urusan teknis: ada salah satu kabel (komponen?) yang putus. Ketika mahasiswi tersebut complaint (mengeluh) karena keasyikannya chatting terganggu, seseorang (yang kelihatannya anggota CNRG) kemudian menyuruhnya untuk memperbaiki sendiri kabel/komponen yang putus.

"Kau jangan protes-protes! Hayo sini, bawa. Kau lihat ini putus kan?! Kau bor ini, caranya gini, nah sekarang kamu nyolder!" Ketika si user mahasiswi terlihat keberatan melakukannya, "Ngga? Kamu mau chatting ngga?!" sehingga akhirnya mahasiswi tersebut terpaksa melakukannya juga. Dari sana ia sedikit banyak belajar mengenai teknis komputer, sehingga berikutnya ketika ada kesulitan semacam itu, ia bahkan turun tangan membereskannya, dan kecakapannya menjadi tidak kalah dengan mahasiswa/laki-laki.

Kemudian ketika itu anggota CNRG memang didominasi mahasiswa ataupun tenaga akademis dari jurusan Elektro, namun ketika kemudian sejumlah orang dari jurusan Informatika ikut bergabung, kadang terjadi friksi/pertentangan pemikiran dalam pengembangan jaringan ataupun programming. Namun para senior CNRG kemudian mempergunakan perbedaan tersebut dengan memfokuskan kerja seorang anggotanya untuk kasus/jenis pekerjaan tertentu. Misalnya seorang anggota memiliki kemampuan lebih dalam hal programming, maka orang tersebut akan lebih banyak diberi tugas yang berhubungan dengan programming, dengan tetap memberi kebebasan untuk mengeksplorasi kemampuan teknisnya dalam hal-hal yang lain.
Para senior CNRG kala itu memang tidak mengindahkan gender maupun dasar keahlian (dilihat dari jurusan mana orang yang bersangkutan berasal) dalam mengembangkan kecakapan teknis, karena keinginan para senior di CNRG untuk tidak membatasi transfer ilmu pada kalangan manapun yang ikut terlibat dalam pengembangan pengetahuan dan kecakapan komputer dan jaringan / network. Justru latar belakang yang berbeda tersebut yang sedikit banyak membantu dalam pengembangan Local Area Networking di kampus ITB.

Klik disini untuk melanjutkan »»

Asal Mula Petir Masih Misteri

Sebelumnya, petir dipahami sebagai lompatan bunga api raksasa antara dua massa dengan medan listrik berbeda. Tapi fisikawan AS menunjukkan medan listrik dalam teori petir yang ada sekarang tidak bisa membesar hingga cukup untuk menghasilkan halilintar.
Legenda Yunani kuno, menyebutkan konon bumi ini dikuasai sejumlah dewa, di antaranya adalah Zeus, Dewa Petir. Ia bisa menghukum siapa saja dengan petir yang bisa dilecut dari tangannya. Tiada ampun bagi korbannya. Begitulah legenda. Namun lepas dari semua itu, kasus orang tersambar petir ternyata masih terjadi pada masa sekarang ini, bahkan ada yang mengalaminya beberapa kali. Padahal sudah lebih dari empat abad Benjamin Franklin menaklukkan petir dengan layang-layang yang digantungi kunci.
Seperti diketahui, selama ini petir dipahami sebagai lompatan bunga api raksasa antara dua massa dengan medan listrik berbeda. Prinsip dasarnya kira-kira sama dengan lompatan api pada busi. Di alam sekitar kita, petir biasa terjadi pada awan yang tengah membesar menuju awan badai. Begitu besarnya sampai-sampai ketika petir itu melesat, tubuh awan akan terang dibuatnya. Dan, sebagai akibat udara yang terbelah, sambarannya yang rata-rata memiliki kecepatan 150.000 km/detik itu juga akan menimbulkan bunyi yang menggelegar bunyi yang biasa disebut: geluduk, guntur, atau halilintar. Dalam musim penghujan seperti saat inilah awan-awan jenis ini banyak terbentuk.
Saat akumulasi muatan listrik dalam awan tersebut telah membesar dan stabil, lompatan listrik (eletric discharge) yang terjadi pun akan merambah massa bermedan listrik lainnya, dalam hal ini adalah bumi. Penghubung yang 'digemari', merujuk Hukum Faraday, tak lain adalah bangunan, pohon, atau tiang-tiang metal berujung lancip.
Memang belum ada ilmuwan yang pernah mendalami betul bagaimana terjadinya fenomena alam ini. Namun, mereka menduga hingga lompatan bunga api listriknya sendiri terjadi, ada beberapa tahapan yang biasanya dilalui. Pertama, pemampatan muatan listrik pada awan bersangkutan. Umumnya, akan menumpuk di bagian paling atas awan adalah listrik muatan negatif; di bagian tengah adalah listrik bermuatan positif; di bagian dasar adalah muatan negatif yang berbaur dengan muatan positif. Pada bagian bawah inilah petir biasa berlontaran.
Besar medan listrik minimal yang memungkinkan terpicunya petir ini adalah sekitar 1.000.000 volt per meter. Bayangkan betapa mengerikannya jika lompatan bunga api ini mengenai tubuh makhluk hidup!
Akibat kondisi tertentu, bumi yang cenderung menjadi peredam listrik statis, bisa pula ikut berinteraksi. Hal ini dimungkinkan jika pada suatu luasan tertentu terjadi pengonsentrasian listrik bermuatan positif. Apakah itu di bawah bangunan atau pohon. Ketika beda muatan antara dasar awan dengan ujung bangunan/pohon sudah mencapai batas tertentu, akan menjadi suatu kejadian lumrah jika kemudian terjadi perpindahan listrik. Maka secara fisik kita akan melihatnya sebagai petir menyambar bangunan atau pohon. Muatan yang begitu besar selanjutnya akan segera menyebar ke seluruh bagian bangunan/pohon, untuk kemudian menjalar ke tanah dan ternetralisasi pada kedalaman yang mengandung air tanah.
Kondisi seperti itu sudah pasti amat berbahaya bagi orang-orang yang ada di sekitarnya. Jika sambarannya tak terlampau kuat, korbannya paling hanya mengalami cidera dan/atau shock. Namun jika serangannya kuat, korbannya akan tewas seketika karena selain terbakar ia akan menjadi 'penghantar' listrik yang besarnya mencapai ribuan volt.

Kemajuan teknologi sebenarnya telah memungkinkan cara-cara pengendalian arus listrik yang begitu besar dari langit itu. Yakni, dengan penangkal petir di mana arus listrik yang begitu besar ditangkap sebuah atau sejumlah pucuk tembaga runcing lalu dialirkan lewat 'jalan tol' berupa kawat tembaga yang terpasang di sisi bangunan dan langsung dibawa menuju air tanah.
Menurut penelitian, daerah serbuan petir sendiri tak selamanya merupakan daerah yang dinaungi awan-awan besar. Sejumlah kasus menunjukkan bahwa suatu daerah pernah mendapat sambaran petir hebat meski langit di atasnya bersih dari awan. Contoh paling ekstrem yang pernah dicatat terjadi di Hereford, Inggris. Suatu ketika sebuah petir kuat menyerbu sebuah gedung setelah petir ini menempuh perjalanan sekitar lima mil dari 'pusatnya'. Dari kejauhan sejumlah saksi melihatnya sebagai pemandangan yang begitu indah sekaligus mengerikan. (Handbook of Unusual Natural Phenomena, 1986).

Belum lama ini teori petir tersebut mendapat sangkalan. Menurut laporan website majalah Nature tanggal 17 November lalu, maket yang dibentuk oleh seorang fisikawan Amerika menunjukkan, bahwa medan listrik dalam teori petir yang ada sekarang tidak bisa membesar hingga cukup untuk menghasilkan halilintar, teori tradisional yang berhubungan dengan terjadinya petir dengan demikian dianggap teori yang keliru.
Hitungan yang dilakukan oleh Joseph Dwyer dari Institut Teknologi Florida, AS, menunjukkan bahwa jika hanya tergantung pada medan listrik dalam atmosfer, besarnya medan listrik tidak bisa mencukupi untuk menimbulkan petir. Ia mengatakan, "Ini berarti bahwa (teori terkait) harus dimulai dari awal."

Dwyer terutama bekerja dalam bidang penelitian partikel energi tinggi dalam ruang dimensi, namun setelah 2 tahun lalu ia pindah di Florida Tengah sebagai salah satu kawasan di dunia yang paling mudah menimbulkan petir, ia telah terbangkit minatnya atas laporan terhadap ledakan sinar-X dan sinar gamma raksasa, yang berhubungan dengan petir. Radiasi-radiasi energi tinggi ini biasanya hanya mudah dilihat di luar lapisan udara, lagi pula ketika melewati lapisan atmosfer kecepatannya menurun.

Sebagian besar ilmuwan percaya, bahwa saat setelah sebuah medan listrik terbentuk di atmosfer, maka petir akan terjadi. Meskipun tidak ada orang yang pernah melihat medan listrik ini, peneliti membayangkan itu hanya dikarenakan mereka tidak melihat petir yang cukup kuat.
Ketika Dwyer membuat maket tentang faktor yang menghasilkan radiasi energi tinggi dan melukiskan pembentukan medan listrik dalam cahaya kilat, ia sangat terkejut. Ia mendapati pelepasan sinar gamma dan sinar-X membuat medan listrik menyebar, mencegah medan listrik membesar hingga cukup menimbulkan petir. "Ini mungkin adalah sebuah terobosan teori yang penting," ujar Martin Uman dari Universitas Florida yang sedang menaruh perhatian meneliti petir. Ia telah memperlihatkan bahwa dalam volume kecil dapat membentuk seberapa besar takaran sinar-X dan sinar gamma.

Dalam ledakan petir, ketika arus udara naik dengan arus udara turun mendorong molekul air saling membentur menimbulkan menghasilkan elektron yang mengakibatkan medan listrik bertambah besar. Elektron-elektron ini pada akhirnya bisa mengatasi hambatan yang timbul pada waktu menembus udara, sekaligus dapat menambah kecepatan, dan beberapa elektron kecepatannya mendekati kecepatan cahaya. Menurut maket Dwyer, elektron-elektron berkecepatan tinggi ini saling berbenturan dengan partikel lainnya, saat sebelum terjadi ledakan sinar gamma atau sinar-X yang menyebabkan pelepasan energi dari medan listrik, dapat menembak jatuh lebih banyak elektron, sehingga dengan demikian menurunkan muatan listrik. Dwyer berpendapat, "Bahwa ini benar-benar adalah sebuah batas dasar yang berhubungan dengan tekanan listrik yang bisa bereksis seberapa besar dalam medan listrik." Dewasa ini, asal mula sesungguhnya tentang petir tetap merupakan sebuah misteri.

Klik disini untuk melanjutkan »»