Minggu, 04 Oktober 2009

Buat program nich

di utek utek kaleh Unknown wonten jam 6:58:00 AM . Minggu, 04 Oktober 2009
0 omelan

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

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

  5. End Sub
  6. End Class

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

view plaincopy to clipboardprint?
  1. Private db As New DataClasses1DataContext
  2. Private edit As Boolean

1.a. Sub Procedure buka
Digunakan untuk mengunci dan membuka TextBox dan ComboBox dalam frmBarang:

view plaincopy to clipboardprint?
  1. Private Sub buka(ByVal t As Boolean)
  2. Dim daftarTextBox = From myControl In Me.Controls _
  3. Where TypeOf myControl Is TextBox _
  4. Select myControl

  6. For Each myTeksBoks As TextBox In daftarTextBox
  7. If t Then
  8. myTeksBoks.Enabled = True
  9. Me.cmbKodeKategori.Enabled = True
  10. Else
  11. myTeksBoks.Enabled = False
  12. Me.cmbKodeKategori.Enabled = False
  13. End If
  14. Next
  15. End Sub

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

view plaincopy to clipboardprint?
  1. Private Sub isiCombo()
  2. Me.cmbKodeKategori.ResetText()
  3. Dim cmbKate = From kategori In db.kategoris _
  4. Select kategori.NmKategori

  6. For Each kate As String In cmbKate
  7. Me.cmbKodeKategori.Items.Add(kate)
  8. Next
  9. End Sub

1.c. Sub Procedure resData
Digunakan untuk me-refresh (mengisi) data dalam DataGridView1 dengan data yang baru (Kodenya sedikit berbeda dari tutorial 2 kemarin):

view plaincopy to clipboardprint?
  1. Private Sub resData()
  2. Dim qBarang = From barang In db.barangs _
  3. Join kategori In db.kategoris _
  4. On kategori.KDKategori Equals barang.KDKategori _
  5. Select Kode = barang.KDBarang, Nama = barang.NmBarang, _
  6. Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual

  8. Me.DataGridView1.DataSource = qBarang
  9. End Sub

1.d. Sub Procedure dgKlik
Digunakan untuk mengisi tiap TextBox dan ComboBox berdasarkan data yang ada dalam DataGridView1 saat setiap kali data dalam DataGridView1 dipilih.

view plaincopy to clipboardprint?
  1. Private Sub dgKlik()
  2. Try
  3. Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value
  4. Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value
  5. Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value
  6. Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value

  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

  13. Catch ex As Exception
  14. MessageBox.Show(“Error: ” & ex.Message)
  15. End Try
  16. End Sub

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

view plaincopy to clipboardprint?
  1. Private Sub resTeks()
  2. isiCombo()
  3. Dim daftarTextBox = From myControl In Me.Controls _
  4. Where TypeOf myControl Is TextBox _
  5. Select myControl
  6. For Each myTeksBoks As TextBox In daftarTextBox
  7. myTeksBoks.Text = “”
  8. Next
  9. End Sub

1.f. Function katPerNama
Digunakan untuk mengambil kode Kategori barang berdasarkan nama kategorinya :

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

2. DataGridView1_Click
Pada designer view, double klik Control DataGridView1 > akan masuk ke dalam tampilan Code View. Pada bagian Method Name, pilih Click. Lihat Gambar :
DataGridView1_Method
Ketikkan kode berikut pada bagian DataGridView1_Click :

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

3. Sub Procedure Saat Tombol Edit Diklik
Double klik tombol edit dan masukkan kode berikut :

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

4. Sub Procedure Saat Tombol Baru Diklik
Double klik tombol baru dan masukkan kode berikut :

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

5. Sub Procedure Saat Tombol Simpan Diklik
Double klik tombol simpan dan masukkan kode berikut :

view plaincopy to clipboardprint?
  1. Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click
  2. ‘Validasi data inputan, akan dijelaskan nanti…

  4. If edit Then
  5. Dim updatebrg = (From barang In db.barangs _
  6. Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)

  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

  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

  24. Try
  25. db.SubmitChanges()

  27. Catch ex As Exception
  28. MessageBox.Show(“Error :” & ex.Message)
  29. End Try

  31. resData()
  32. dgKlik()
  33. buka(False)
  34. Me.cmdSimpan.Enabled = False
  35. Me.cmdBaru.Text = “Baru”
  36. Me.cmdEdit.Enabled = True
  37. Me.cmdKeluar.Enabled = True
  38. edit = False
  39. Me.cmdHapus.Enabled = True
  40. Me.DataGridView1.Enabled = True
  41. End Sub

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

view plaincopy to clipboardprint?
  1. Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click
  2. If Me.txtKodeBarang.Text = “” Then Exit Sub
  3. Dim rep As Integer = MessageBox.Show(“Data tersebut akan dihapus?”, “Konfirmasi”, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
  4. If rep = MsgBoxResult.No Then Exit Sub

  6. Dim deleteBrg = (From barang In db.barangs _
  7. Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)

  9. db.barangs.DeleteOnSubmit(deleteBrg)

  11. Try
  12. db.SubmitChanges()
  13. Catch ex As Exception
  14. MessageBox.Show(“Error :” & ex.Message)
  15. End Try

  17. resData()
  18. dgKlik()

  20. End Sub

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

view plaincopy to clipboardprint?
  1. Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
  2. Me.Close()
  3. End Sub

Terakhir, tambahkan kode berikut pada bagian frmBarang_Load :

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

Yups, dengan semua tombol telah memiliki kode masing-masing, coba jalankan program dengan mengklik tanda play atau menekan tombol F5 pada keyboard.
Pada bagian selanjutnya kita akan langsung mencoba membuat form untuk menampilkan data laporan dari data barang yang barusan dibuat..
Selamat bereksperimen semoga sukses… ;)
Kode Selengkapnya :

view plaincopy to clipboardprint?
  1. Public Class frmBarang
  2. Private db As New DataClasses1DataContext
  3. Private edit As Boolean ‘penentuan apakah sedang dalam proses edit atau bukan

  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

  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

  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

  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

  70. Catch ex As Exception ‘Jika terjadi error, ya know lah…
  71. MessageBox.Show(“Error: ” & ex.Message)
  72. End Try
  73. End Sub

  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

  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

  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

  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

  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…

  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)

  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

  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

  149. Try
  150. db.SubmitChanges() ’simpan semua perubahan, baik itu proses update maupun insert

  152. Catch ex As Exception
  153. MessageBox.Show(“Error :” & ex.Message)
  154. End Try

  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

  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

  175. Dim deleteBrg = (From barang In db.barangs _
  176. Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)

  178. db.barangs.DeleteOnSubmit(deleteBrg)

  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

  186. resData()
  187. dgKlik()

  189. End Sub

  191. Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
  192. Me.Close() ‘tutup form
  193. ‘bisa juga menggunakan : Application.Exit()
  194. End Sub
  195. End Class

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




Klik disini untuk melanjutkan »»
di utek utek kaleh Unknown wonten jam 3:17:00 AM .
0 omelan

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 »»

Jumat, 04 September 2009

Ayooo.. Belajar DOS ....

di utek utek kaleh Unknown wonten jam 11:53:00 PM . Jumat, 04 September 2009
0 omelan

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 »»

Kamis, 26 Februari 2009

di utek utek kaleh Unknown wonten jam 12:26:00 AM . Kamis, 26 Februari 2009
0 omelan



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 »»

Selasa, 03 Februari 2009

macam macam topologi jaringan komputer

di utek utek kaleh Unknown wonten jam 12:47:00 AM . Selasa, 03 Februari 2009
2 omelan


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

di utek utek kaleh Unknown wonten jam 12:40:00 AM .
0 omelan

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 »»

Minggu, 01 Februari 2009

di utek utek kaleh Unknown wonten jam 11:08:00 PM . Minggu, 01 Februari 2009
0 omelan

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 »»
di utek utek kaleh Unknown wonten jam 11:06:00 PM .
0 omelan

Robot, Siap Menjadi Sepopuler Telepon Genggam

Sejak beberapa tahun lalu kita sudah merasakan kemudahan komunikasi dan kecepatan teknologi, seperti populernya telepon genggam, mobil, computer dan lain-lain. Keberadaan alat-alat tersebut sudah tidak bisa dipisahkan dari kehidupan manusia, dan sudah menjadi bagian dari hidup sehari-hari. Bagaimana dengan robot? Apakah di masa depan keberadaan robot juga akan menjadi hal yang 'biasa' ditengah kehidupan manusia?
Perusahaan Honda semenjak beberapa tahun yang lalu sudah mengembangkan Asimo, robot 'humanoid' atau robot yang didesain mirip dengan tubuh manusia. Asimo diperkenalkan sebagai robot yang berfungsi untuk menolong manusia dalam kehidupan sehari-hari, seperti menyiapkan minuman untuk tamu, mengambilkan kunci mobil yang tertinggal, atau bahkan sebagai asisten atau teman bermain keluarga. Asimo diklaim mampu menaiki tangga, menendang sepak bola, serta melakukan robot dance dengan gerakan telah diprogram sebelumnya.
Jika 'Asimo' diciptakan dengan bentuk manusia, ada pula robot-robot lain yang diciptakan dengan ukuran mini dan lebih bersifat entertainment atau menghibur. Robot-robot ini mampu melakukan gerakan yang lucu, menarik dan menggemaskan, sehingga populer dikalangan anak-anak.
Salah satu pencipta robot, Tomotaka Takahashi, berbagi cerita mengenai pengalamannya dalam mendesain robot. Takahashi adalah perakit robot profesional yang telah mempunyai segudang prestasi, salah satunya adalah dengan menciptakan karakter robot 'Evolta'. Evolta sebetulnya adalah nama merek baterai keluaran perusahaan Panasonic, yang telah meraih Guinness Book of Record sebagai baterai yang paling tahan lama. Takahashi bekerjasama dengan Panasonic, menciptakan karakter 'Evolta', robot mini yang mampu memanjat tali sepanjang 530 meter hanya dengan kekuatan 2 baterai AA Evolta. Uniknya, tali sepanjang 530 meter ini direntang di area Grand Canyon di Amerika, salah satu keunikan dalam rangka memecahkan rekor dunia. Evolta berhasil memanjat tali tersebut dalam total waktu 6 jam 39 menit, dan video rekaman ini telah menjadi iklan baterai Evolta, dan disiarkan di televisi sehingga wajah si mungil 'Evolta' semakin terkenal.
Tak berhenti sampai disini, Takahashi juga menciptakan robot perempuan, yang keberadaannya masih amat jarang. Robot perempuan mini ini dipamerkan dalam pameran 'Robo Japan 2008' dan mendapatkan sambutan positif dari para penonton karena gerakannya yang gemulai dan feminin.
"Saya pikir, sekarang ini tidak begitu banyak tipe robot perempuan, karena adanya masalah teknik. Pertama, sulit untuk memasukkan mesin dan baterai kedalam robot wanita. Saya harus menggunakan mesin yang lebih kecil sehingga hal tersebut mempersulit dalam hal mendesain. Kemudian, kebanyakan peneliti dan pencipta robot adalah lelaki, jadi kami tidak tahu bagaimana caranya menciptakan robot perempuan. [Mendesain] tidaklah sama dengan hanya sekedar memakaikan baju, atau memberikan rambut yang panjang, melainkan harus dari bentuknya, misalnya bentuk siku, dll. Kesulitan yang ketiga adalah robot perempuan tidak bisa stabil, karena mereka harus dibuat kurus. Jadi, seluruhnya ada 3 masalah, dan saya telah memecahkan masalah tersebut sehingga terciptalah robot perempuan ini." jelasnya panjang lebar.
Kepopuleran robot tidaklah terlepas dari kemajuan teknologi. Namun, ketika tekonogi semakin tak terkendali, manusia dapat dikalahkan oleh 'ilmu pengetahuan' dan melupakan jati dirinya sendiri. Dalam menciptakan robot maupun memajukan teknologi, manusia boleh menggunakan otak dan memaksimalkan daya gunanya, tetapi manusia tetap harus tetap menjadi tuan dan jangan sampai 'diperbudak' oleh teknologi. Tahukah anda bahwa robot yang secanggih apapun tetap tidak dapat menandingi otak manusia? Manusia yang dapat berpikir jernih dan mengendalikan teknologi serta tidak tergantung kepadanya adalah manusia yang bertanggung jawab. Jadi, walaupun robot telah siap menjadi sepopuler telepon genggam, ingatlah bahwa anda sebagai manusia-lah yang menciptakan Telepon Genggam, sebagaimana andalah yang menciptakan Robot!

Klik disini untuk melanjutkan »»
Langganan: Postingan (Atom)
 
My blog is proudly powered by Kanjeng Raden Mas Gaara | Template by Danilla Gaara