Masalah
configuration progres mungkin anda temukan setelah memasang 2 versi MS
office dalam windows yang sama atau dalam satu pc.
Misalnya
saya memasang office 2007 dan office 2010 dalam satu pc, maka saat akan
membuka MS Word atau yang lainnya pasti akan muncul configuration
progress dan ini akan memakan waktu yang lumayan lama.
Nah, berikut ini cara mengatasinya :
Silahkan klik RUN bagi yang menggunakan windows XP dan ketikan RUN pada
kotak pencarian Start untuk Windows 7. Setelah masuk kotak RUN silahkan
ketikan "regedit" tanpa petik ya...
Masuk pada HKEY_CURRENT_USER => Software => Microsoft => Office => 12.0 => Word => Options
Kemudian buatlah file baru dengan cara Klik Kanan pada halaman Options New => DWORD Value
Renamelah dan beri nama dengan NoReReg lalu klik kanan pada file tersebut dan pilih Modify Berilah nilai 1
Terapkan juga untuk Folder dengan nama 11.0 , 14.0, atau 15.0 yang terpenting
carilah folder Options dan berilah reg NoReReg tersebut.
Restartlah Aplikasi MS Office atau sekalian restart PC nya.
Ada beberapa tahap yang harus dilakukan dalam pembuatan program sederhana untuk pengolahan citra pada VB Net 2008.
Langkah –langkah nya adalah sebagai berikut :
Desain lah Form seperti dibawah ini :
Dan jangan lupa untuk menambahkan komponen menustrip (pada toolbox Menu &
Toolbar),OpenFileDialog (pada toolbox Dialog) dan SaveFileDialog (pada
toolbox Dialog)
OpenFileDialog -> name dirubah jadi OFD
SaveFileDialog -> name dirubah jadi SFD
Kemudian ketik listing programnya seperti di bawah ini :
Public Class Form1
Dim gambar As Bitmap
Private Sub OpenCitraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenCitraTolStripMenuItem.Click
OFD.Filter = "BMP|*.bmp|JPG|*.jpg"
OFD.ShowDialog()
If OFD.FileName = "" Then Exit Sub
Pic1.Image = Image.FromFile(OFD.FileName)
gambar = New Bitmap(Pic1.Image)
End Sub
Private Sub SFD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveCitraToolStripMenuItem.Click
OFD.Filter = "JPG|*.jpg|BMP|*.bmp"
SFD.ShowDialog()
If OFD.FileName = "" Then Exit Sub
If OFD.FilterIndex = 1 Then
gambar.Save(OFD.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
End If
If OFD.FilterIndex = 2 Then
gambar.Save(OFD.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
End Sub
Private Sub GrayscaleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GrayscaleToolStripMenuItem.Click
Dim Pb, Pc As Integer
Dim Rt, vM, vH, vB As Double
With gambar
For Pb = 0 To .Height - 1
For Pc = 0 To Width - 1
vM = .GetPixel(Pc, Pb).R
vH = .GetPixel(Pc, Pb).G
vB = .GetPixel(Pc, Pb).B
Rt = (vM + vH + vB) / 3
.SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
Next
Pic1.Image = gambar
Pic2.Refresh()
Next
End With
End Sub
Maka Hasilnya seperti di bawah ini...
Private Sub NegatifToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegatifToolStripMenuItem.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
With gambar
For Pb = 0 To .Height - 1
For Pc = 0 To .Width - 1
vM = 255 - .GetPixel(Pc, Pb).R
vH = 255 - .GetPixel(Pc, Pb).G
vB = 255 - .GetPixel(Pc, Pb).B
If vM <= 0 Then vM = 0
If vB <= 0 Then vB = 0
If vH <= 0 Then vH = 0
.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
Next
Pic1.Image = gambar
Pic2.Refresh()
Next
End With
End Sub
Hasil Negatif...
Private Sub BrigthnessToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrigthnessToolStripMenuItem.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
With gambar
For Pb = 0 To .Height - 1
For Pc = 0 To .Width - 1
vM = .GetPixel(Pc, Pb).R + 5
vH = .GetPixel(Pc, Pb).G + 5
vB = .GetPixel(Pc, Pb).B + 5
If vM > 255 Then vM = 255
If vB > 255 Then vB = 255
If vH > 255 Then vH = 255
.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
Next
Pic1.Image = gambar
Pic2.Refresh()
Next
End With
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
Private Sub BinerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BinerToolStripMenuItem.Click
Dim Pb, Pc As Integer
Dim rata, vM, vH, vB As Double
With gambar
For Pb = 0 To .Height - 1
For Pc = 0 To .Width - 1
vM = .GetPixel(Pc, Pb).R
vH = .GetPixel(Pc, Pb).G
vB = .GetPixel(Pc, Pb).B
rata = (vM + vH + vB) / 3
If (rata < 128) Then
vH = 0
vM = 0
vB = 0
Else
vM = 255
vH = 255
vB = 255
End If
.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
Next
Pic1.Image = gambar
Pic2.Refresh()
Next
End With
End Sub
Hasil Biner...
Private Sub DefaultGambarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultGambarToolStripMenuItem.Click
Pic1.Image = Pic2.Image
End Sub
Private Sub ToolStripMenuItem180_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem180.Click
Dim Pb, Pc As Integer
Dim vM, vH, vB As Double
Dim gambar3 As Bitmap = New Bitmap(Pic1.Image)
With gambar
For Pb = .Height - 1 To 0 Step -1
For Pc = .Width - 1 To 0 Step -1
vM = .GetPixel(Pc, Pb).R
vH = .GetPixel(Pc, Pb).G
vB = .GetPixel(Pc, Pb).B
gambar3.SetPixel(.Width - 1 - Pc, .Height - 1 - Pb, Color.FromArgb(vM, vH, vB))
Next
Pic1.Image = gambar3
Pic2.Refresh()
Next
End With
gambar3 = gambar3
End Sub
Hasil 180 Derajat...
Private Sub ToolStripMenuItem90_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem90.Click
Dim gambar3 = New Bitmap(Pic1.Image)
gambar3 = New Bitmap(Pic1.Image)
Pic1.Image = gambar3
gambar3.RotateFlip(RotateFlipType.Rotate90FlipNone)
Pic1.Image = gambar3
End Sub
Hasil 90 Derajat...
Private Sub DerajatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DerajatToolStripMenuItem.Click
Dim gambar3 = New Bitmap(Pic1.Image)
gambar3 = New Bitmap(Pic1.Image)
Pic1.Image = gambar3
gambar3.RotateFlip(RotateFlipType.Rotate270FlipNone)
Pic1.Image = gambar3
End Sub
Hasil270 Derajat...
Private Sub CerminToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerminToolStripMenuItem.Click
Dim gambar3 = New Bitmap(Pic1.Image)
gambar3 = New Bitmap(Pic1.Image)
Pic1.Image = gambar3
gambar3.RotateFlip(RotateFlipType.RotateNoneFlipX)
Pic1.Image = gambar3
End Sub
Private Sub GreenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GreenToolStripMenuItem.Click
Dim Pb, Pc As Integer
Dim rata, vM, vH, vB As Double
With gambar
For Pb = 0 To .Height - 1
For Pc = 0 To .Width - 1
vM = .GetPixel(Pc, Pb).R
vH = .GetPixel(Pc, Pb).G + 10
vB = .GetPixel(Pc, Pb).B
rata = (vM + vH + vB) / 3
If (rata >= 255) Then
vH = 255
vM = 0
vB = 0
Else
vM = 0
vH = 0
vB = 0
End If
.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
Next
Pic1.Image = gambar
Pic2.Refresh()
Next
End With
gambar = gambar
End Sub
Hasil Green...
Private Sub RedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedToolStripMenuItem.Click
Dim Pb, Pc As Integer
Dim rata, vM, vH, vB As Double
With gambar
For Pb = 0 To .Height - 1
For Pc = 0 To .Width - 1
vM = .GetPixel(Pc, Pb).R + 10
vH = .GetPixel(Pc, Pb).G
vB = .GetPixel(Pc, Pb).B
rata = (vM + vH + vB) / 3
If (rata >= 255) Then
vH = 0
vM = 255
vB = 0
Else
vM = 0
vH = 0
vB = 0
End If
.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
Next
Pic1.Image = gambar
Pic2.Refresh()
Next
End With
gambar = gambar
End Sub
Hasil Red...
Private Sub BlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlueToolStripMenuItem.Click
Dim Pb, Pc As Integer
Dim rata, vM, vH, vB As Double
With gambar
For Pb = 0 To .Height - 1
For Pc = 0 To .Width - 1
vM = .GetPixel(Pc, Pb).R
vH = .GetPixel(Pc, Pb).G
vB = .GetPixel(Pc, Pb).B + 10
rata = (vM + vH + vB) / 3
If (rata >= 255) Then
vH = 0
vM = 0
vB = 255
Else
vM = 0
vH = 0
vB = 0
End If
.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
Next
Pic1.Image = gambar
Pic2.Refresh()
Next
End With
gambar = gambar
End Sub
End Class
Printer Canon MP258 merupakan printer Multifunsi dari vendor Canon. Printer ini tergolong laris dipasaran, karena harga yang murah dan bisa digunakan untuk fasilitas scan dan copy.
Sebagaimana generasi sebelumnya, Canon MP258 ini juga diproteksi oleh Canon. Ketika jumlah maksimal print di memory MP258 ini sudah terpenuhi atau full, maka printer MP258 akan berhenti beroperasi dengan memunculkan pesan di layar monitor Error 5B00 dan di panel LCDnya menunjukkan kode P07.
Berikut ini cara mengatasi MP258 yang error 5B00 atau P07 :
Jika printer MP258 yang error 5B00 atau P07 dalam keadaan hidup, matikan printer MP258 tersebut dengan menekan tombol powernya. Tunggu sampai printer MP258 mati.
Tekan dan tahan tombol Stop / Reset, kemudian tekan dan tahan tombol Power. Jadi kedua tombol masih dalam keadaan tertekan.
Lepas tombol Stop / Reset, kemudian tekan tombol Stop / Reset 2 x (jangan lepas tombol powernya).
Kemudian lepaskan kedua tombol secara bersamaan.
Printer MP258 yang error 5B00 atau P07 akan melakukan inisialisasi beberapa saat seperti ketika printer dicoba pertama pada saat beli. Tunggu sampai lcd panel pada printer MP258 yang error 5B00 atau P07 tadi menunjukkan angka 0 (nol).
Printer MP258 akan terdeteksi sebagai device baru di komputer anda, walaupun tadinya sudah terpasang driver printer tersebut. Abaikan saja kondisi ini.
Kondisi MP258 menampilkan angka 0 (nol) pada lcd panelnya menunjukkan bahwa MP258 dalam keadaan Service Mode dan siap untuk direset menggunakan software.
Danboard memiliki sebutan singkat yaitu Danbo yang terbuat dari kertas karton board. Azuma Kiyohiko adalah pencipta dari boneka Danbo yang juga merupakan komikus serial manga Yotsuba. Melalui internet, boneka ini juga bisa dibeli yaitu lewat situs Amazon, harga boneka danbo ini pun tidaklah murah, kurang lebih Rp. 250.000 sampai Rp. 500.000. Terdapat beberapa bagian tubuh yang bisa digerakkan oleh karena itu kita dapat mendapatkan pose yang diinginkan dari boneka lucu Danbo ini
Bahan dan Alat
Kertas (kertas untuk menjillid/karton tebal 2 lembar ukuran A4/kertas krep)
Penggaris
Gunting
Silet karter
Lem Kertas
Rancangan / Model Danbo Papercraft
Langkah-Langkah Membuat (Merakit/Merangkai) Boneka Danbo
Potong gambar 16 dan rekatkan dengan lem bagian warna putihnya. Ini adalah bagian lengan.
Potong gambar 3 dan lem di bagian atas lengan yang dibuat di langkah 1.
Potong gambar 6, lipat geriginya, rekatkan ujung putih ke ujung satunya dengan lem, sehingga melingkar seperti cincin. Beri lem di kedua bagian gerigi dan tempelkan potongan gambar 7 di tiap sisinya sehingga seperti silinder.
Sambungkan bagian yang dibuat dari langkah 3 dan langkah 2, sehingga membentuk lengan yang bisa digerakkan
Potong gambar 8 dan lubangi 3 bagian yang berwarna putih. lalu potong gambar 10. Di gambar 10 ada garis silang di dalam lingkaran, potong garis itu dengan silet kurter, kemudian pasang kedalam lubang besar di gambar 8. Lalu lipat keatas bagian putihnya. Kalau bingung ini ada penjelasan gambarnya . Setelah itu potong gambar 11 dan tutup 4 garis putih tadi. Usahakan agar bisa berputar (untuk sendi leher). Kemudian potong gambar 18 dan 19. Dan lakukan seperti tadi. Kemudian lem bagian badan.
Pasangkan lengan ke sisi kiri dan kanan bagian yang kamu buat di langkah 5 tadi.
Buat 2 silinder lagi seperti langkah 3, tetapi dengan gambar 14, 15. Potong 13 dan sambungkan ke 2 silinder tadi.
Potong gambar 12 lipat sesuai garis dan lem dengan silinder yang telah dibuat pada langkah 7.
Lem hasil dari langkah 8 ke bagian atas badan yang dibuat pada langkah 5 (bagian leher).
Potong gambar 1, lipat sesuai pola. Potong juga gambar 4 dan lubangi bagian mata gambar 1, kemudian pasang potongan gambar 4 didalam gambar 1 agar matanya terlihat lebih nyata (opsional).
Sambungkan bagian kepala dari langkah 10 ke bagian leher yang dibuat di langkah 9.
Potong gambar 2 dan lem, biarkan sisi yang lebih (bagian kaki).
Potong gambar 17 dan 5, kemudian buat silinder seperti langkah 3, lalu pasang kaki dari langkah 12 dan usahakan agar bisa berputar.
Lem kedua sisi silinder ke bagian bawah badan.
Bisa dipastikan hasil akhirnya tidak jauh berbeda dengan danbo asli yang bisa diputar-putar. Tetapi belum terdapat lampu seperti aslinya, jika anda kreatif anda pasti dapat menambahkan lampu pada mata danbo.
Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(tipe.Text, 3)
Select Case x
Case "TOK" : Bibe.Text = "150000"
Case "RUM" : Bibe.Text = "50000"
Case "SWA" : Bibe.Text = "400000"
Case "PAB" : Bibe.Text = "1000000"
End Select
Select Case x
Case "TOK" : kwh.Text = "500"
Case "RUM" : kwh.Text = "200"
Case "SWA" : kwh.Text = "1500"
Case "PAB" : kwh.Text = "10000"
End Select
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Besar.Text = ini.Text - lalu.Text
Total.Text = Val(Bibe.Text) + Val(kwh.Text * Besar.Text)
pjk.Text = Total.Text * 0.15
Pembayaran.Text = Val(Total.Text) + Val(pjk.Text)
End Sub
Sub buatTabel()
LV.Columns.Add("kode", 80, HorizontalAlignment.Center)
LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
LV.Columns.Add("Harga/kwh", 100, HorizontalAlignment.Left)
LV.Columns.Add("Meter Bulan ini", 100, HorizontalAlignment.Left)
LV.Columns.Add("Meter Bulan lalu", 100, HorizontalAlignment.Left)
LV.Columns.Add("Besar Pemakaian", 100, HorizontalAlignment.Left)
LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = tipe.Text
Lst.SubItems.Add(Bibe.Text)
Lst.SubItems.Add(kwh.Text)
Lst.SubItems.Add(ini.Text)
Lst.SubItems.Add(lalu.Text)
Lst.SubItems.Add(Besar.Text)
Lst.SubItems.Add(Total.Text)
Lst.SubItems.Add(pjk.Text)
Lst.SubItems.Add(Pembayaran.Text)
LV.Items.Add(Lst)
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
tipe.Text = ""
Bibe.Text = ""
kwh.Text = ""
ini.Text = ""
lalu.Text = ""
Besar.Text = ""
Total.Text = ""
pjk.Text = ""
Pembayaran.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dipilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
tipe.Text = ""
Bibe.Text = ""
kwh.Text = ""
ini.Text = ""
lalu.Text = ""
Besar.Text = ""
Total.Text = ""
pjk.Text = ""
Pembayaran.Text = ""
End Sub
Private Sub semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles semua.Click
LV.Items.Clear()
End Sub
End Class
Hasil Program
Demikilahlah postingan saya Nama : AFRIZAL NPM : 1111864
Selamat belajar Pemrograman VB NET
Kali ini saya repost dari sahabat blogger yang kebetulan juga saya ingin tahu cara membuat/ Mengkrimping Kabel RJ45 dan Urutan Kabel Straight & Cross untuk bisa membuat jaringan pada komputer yang terbuhung secara online ke internet/lokal. Selain bermanfaat bagi saya dan anda juga yang ingin belajar membuat kabel jaringan lan sendiri. Ikuti saja langkah – langkahnya dibawah ini.
Sebelum memulai, tentu kita harus punya alat untuk mengkrimping seperti :
1. Tank Crimping
2. Kabel UTP
3. Konektor RJ-45
4. Cable Tester
Tank Crimping
Tank krimping adalah alat untuk memotong kabel UTP dan untuk menjepit ujung konektor,dan ini sangat penting sekali bagi kita yang ingin belajar cara mengkrimping kabel,alat ini bentuknya hampir sama dengan Tank biasa yang sering kita lihat atau temui. Dan di bawah ini adalah gambar tank crimping :
Kabel UTP Kabel UTP perlu kita gunakan untuk saling menyalurkan jaringan
internet,dan di dalam kabel UTP ini di dalamnya ada 8 helai kabel kecil
yang berwarna-warni,dan ini warna kabel kecil yang ada di dalam kabel
UTP :
URUTAN-URUTAN KABEL UTP (Straight dan Cross):
Berikut ini adalah urutan pengabelan Straight :
Ujung A
1. Putih Orange
2. Orange
3. Putih Hijau
4. Biru
5. Putih Biru
6. Hijau
7. Putih Coklat
8. Coklat
Ujung B
1. Putih Orange
2. Orange
3. Putih Hijau
4. Biru
5. Putih Biru
6. Hijau
7. Putih Coklat
8. Coklat
Berikut ini adalah urutan pengabelan Cross :
Ujung A
1. Putih Orange
2. Orange
3. Putih Hijau
4. Biru
5. Putih Biru
6. Hijau
7. Putih Coklat
8. Coklat
Ujung B
1. Putih Hijau
2. Hijau
3. Putih Orange
4. Biru
5. Putih Biru
6. Orange
7. Putih Coklat
8. Coklat
Konektor
Konektor adalah peripheral yang kita pasang pada ujung kabel UTP tujuanya agar kabel dapat kita pasang pada port LAN.
Kita harus mempunyai konektor RJ-45 untuk dipasangkan pada ujung kabel UTP. dan alat ini sangat berguna sekali.
Cable Tester Cable Tester adalah alat untuk menguji hasil krimpingan
kita,tapi kalau krimpingan kita salah maka lampu di Cable Tester ini
tidak akan menyala dan kalau hasil krimpingan kita sudah benar maka
lampu di Cable Tester akan menyala dengan otomatis,jadi alat ini sangat
berguna bagi kita untuk mengetahui hasil krimpingan kita, di bawah ini
contoh gambar Cable Tester:
Praktek membuat kabel Straight
Kupas bagian ujung kabel UTP, kira-kira 2 cm
Buka pilinan kabel, luruskan dan urutankan kabel sesuai standar TIA/EIA 368B
Setelah urutannya sesuai standar, potong dan ratakan ujung kabel,
Masukan kabel yang sudah lurus dan sejajar tersebut ke dalam konektor RJ-45, dan pastikan semua kabel posisinya sudah benar.
Lakukan crimping menggunakan crimping tools, tekan
crimping tool dan pastikan semua pin (kuningan) pada konektor RJ-45
sudah “menggigit” tiap-tiap kabel.
Setelah selesai pada ujung yang satu, lakukan lagi pada ujung yang lain
Langkah terakhir adalah menge-cek kabel yang sudah kita
buat tadi dengan menggunakan LAN tester, caranya masukan masing-masing
ujung kabel (konektor RJ-45) ke masing2 port yang tersedia pada LAN
tester, nyalakan dan pastikan semua lampu LED menyala sesuai dengan
urutan kabel yang kita buat.
Dibawah ini adalah contoh ujung kabel UTP yang telah
terpasang konektor RJ-45 dengan benar, selubung kabel (warna biru) ikut
masuk kedalam konektor, urutan kabel dari kiri ke kanan (pada gambar
dibawah ini urutan pin kabel dimulai dari atas ke bawah).
Demikian penjelasan Cara mengkrimping kabel RJ45, Urutan kabel Straight
& Cross, dan juga praktek pemasangan kabel Straight. Semoga
bermanfaat bagi anda-anda semua
Nah, Berikut kegunaan masing-masing kabel sob.....
Penggunaan kabel straight :
menghubungkan komputer ke port biasa di Switch.
menghubungkan komputer ke port LAN modem cable/DSL.
menghubungkan port WAN router ke port LAN modem cable/DSL.
menghubungkan port LAN router ke port uplink di Switch.
menghubungkan 2 HUB/Switch dengan salah satu HUB/Switch menggunakan port uplink dan yang lainnya menggunakan port biasa
Penggunaan kabel crossover :
menghubungkan 2 buah komputer secara langsung
menghubungkan 2 buah HUB/Switch menggunakan port biasa diantara kedua HUB/Switch.
menghubungkan komputer ke port uplink Switch
menghubungkan port LAN router ke port biasa di HUB/Switch
Semoga dapat postingan saya ini dapat bermanfaat sob...
Belajar mendadak menjelang ujian memang tidak efektif. Paling nggak sebulan sebelum ulangan adalah masa ideal buat mengulang pelajaran. Materi yang banyak bukan masalah. Ada sepuluh cara pintar supaya waktu belajar kita menjadi efektif. 1. Belajar itu memahami bukan sekedar menghapal
Ya, fungsi utama kenapa kita harus belajar adalah memahami hal-hal baru. Kita boleh hapal 100% semua detail pelajaran, tapi yang lebih penting adalah apakah kita sudah mengerti betul dengan semua materi yang dihapal itu. Jadi sebelum menghapal, selalu usahakan untuk memahami dulu garis besar materi pelajaran.
2. Membaca adalah kunci belajar
Supaya kita bisa paham, minimal bacalah materi baru dua kali dalam sehari, yakni sebelum dan sesudah materi itu diterangkan oleh guru. Karena otak sudah mengolah materi tersebut sebanyak tiga kali jadi bisa dijamin bakal tersimpan cukup lama di otak kita.
3. Mencatat pokok-pokok pelajaran
Tinggalkan catatan pelajaran yang panjang. Ambil intisari atau kesimpulan dari setiap pelajaran yang sudah dibaca ulang. Kata-kata kunci inilah yang nanti berguna waktu kita mengulang pelajaran selama ujian.
4. Hapalkan kata-kata kunci
Kadang, mau tidak mau kita harus menghapal materi pelajaran yang lumayan banyak. Sebenarnya ini bisa disiasati. Buatlah kata-kata kunci dari setiap hapalan, supaya mudah diingat pada saat otak kita memanggilnya. Misal, kata kunci untuk nama-nama warna pelangi adalah MEJIKUHIBINIU, artinya merah, jingga, kuning, hijau, biru, nila dan ungu.
5. Pilih waktu belajar yang tepat
Waktu belajar yang paling enak adalah pada saaat badan kita masih segar. Memang tidak semua orang punya waktu belajar enak yang sama lo. Tapi biasanya, pagi hari adalah waktu yang tepat untuk berkonsentrasi penuh. Gunakan saat ini untuk mengolah materi-materi baru. Sisa-sisa energi bisa digunakan untuk mengulang pelajaran dan mengerjakan pekerjaan rumah.
6. Bangun suasana belajar yang nyaman
Banyak hal yang bisa buat suasana belajar menjadi nyaman. Kita bisa pilih lagu yang sesuai dengan mood kita. Tempat belajar juga bisa kita sesuaikan. Kalau sedang bosan di kamar bisa di teras atau di perpustakaan. Kuncinya jangan sampai aktivitas belajar kita mengganggu dan terganggu oleh pihak lain.
7. Bentuk Kelompok Belajar
Kalau lagi bosan belajar sendiri, bisa belajar bareng dengan teman. Tidak usah banyak-banyak karena tidak bakal efektif, maksimal lima orang. Buat pembagian materi untuk dipelajari masing-masing orang. Kemudian setiap orang secara bergilir menerangkan materi yang dikuasainya itu ke seluruh anggota lainnya. Suasana belajar seperti ini biasanya seru dan kita dijamin bakalan susah untuk mengantuk.
8. Latih sendiri kemampuan kita
Sebenarnya kita bisa melatih sendiri kemampuan otak kita. Pada setiap akhir bab pelajaran, biasanya selalu diberikan soal-soal latihan. Tanpa perlu menunggu instruksi dari guru, coba jawab semua pertanyaan tersebut dan periksa sejauh mana kemampuan kita. Kalau materi jawaban tidak ada di buku, cobalah tanya ke guru.
9. Kembangkan materi yang sudah dipelajari
Kalau kita sudah mengulang materi dan menjawab semua soal latihan, jangan langsung tutup buku. Cobalah kita berpikir kritis ala ilmuwan. Buatlah beberapa pertanyaan yang belum disertakan dalam soal latihan. Minta tolong guru untuk menjawabnya. Kalau belum puas, cari jawabannya pada buku referensi lain atau internet. Cara ini mengajak kita untuk selalu berpikir ke depan dan kritis.
10. Sediakan waktu untuk istirahat
Belajar boleh kencang, tapi jangan lupa untuk istirahat. Kalau di kelas, setiap jeda pelajaran gunakan untuk melemaskan badan dan pikiran. Setiap 30-45 menit waktu belajar kita di rumah selalu selingi dengan istirahat. Kalau pikiran sudah suntuk, percuma saja memaksakan diri. Setelah istirahat, badan menjadi segar dan otak pun siap menerima materi baru.
Satu lagi, tujuan dari ulangan dan ujian adalah mengukur sejauh mana kemampuan kita untuk memahami materi pelajaran di sekolah. Selain menjawab soal-soal latihan, ada cara lain untuk mengetes apakah kita sudah paham suatu materi atau belum. Coba kita jelaskan dengan kata-kata sendiri setiap materi yang sudah dipelajari. Kalau kita bisa menerangkan dengan jelas dan teratur, tak perlu detail, berarti kita sudah paham.
Untuk Membuat program gaji karyawan sobat semua bisa mencontoh program saya in.
nah berikut listingnya sob... Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buatTabel()
nik.Items.Add("001")
nik.Items.Add("002")
nik.Items.Add("003")
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Staf")
status.Items.Add("Menikah")
status.Items.Add("Tidak Menikah")
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
Select Case jabatan.Text
Case "Mandor" : gaji.Text = 1750000
Case "Kepala Bagian" : gaji.Text = 2500000
Case "Staf" : gaji.Text = 1250000
End Select
pajak.Text = 0.15 * gaji.Text
End Sub
Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
Select Case nik.Text
Case "001" : nama.Text = "Afrizal"
Case "002" : nama.Text = "Kiky"
Case "003" : nama.Text = "Dedi"
End Select
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
Select Case status.Text
Case "Menikah" : tjkeluarga.Text = 0.15 * gaji.Text
Case "Tidak Menikah" : tjkeluarga.Text = 0
End Select
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
total.Text = Val(gaji.Text) + Val(tjkeluarga.Text) - Val(pajak.Text)
End Sub
Private Sub baru_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = nik.Text
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(gaji.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(tjkeluarga.Text)
Lst.SubItems.Add(pajak.Text)
Lst.SubItems.Add(total.Text)
LV.Items.Add(Lst)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
