Membuat Lan Cable Tester

Kabel LAN tester.

Berikut adalah sirkuit yang sangat sederhana, namun praktis, yang digunakan untuk memeriksa jenis kabel LAN (lurus atau silang) serta kesalahan mungkin.Jadi kita menggunakan unit yang memiliki 8 output, masing-masing yang menghasilkan pulsa successivly.Hanya satu output bisa tinggi setiap saat.Kemudian kita menggunakan dua konektor RJ45 dan kami menerapkan pulsa ke 8 pin satu konektor (A) wnd kita menghubungkan LED pada pin dari konektor lainnya (B).Jika kita menghubungkan kabel LAN lurus, kita melihat bahwa LED glow satu per satu secara berurutan.Jika kawat rusak, korespondennya LED tidak akan menyala.Jika kita menghubungkan kabel silang, maka urutan perubahan LED bersinar untuk 1,2,7,4,5,8,3,6. Jadi kita bisa Label LED sehingga kita dapat melihat dengan mudah.Jika kedua ujung kabel tidak cukup dekat untuk menjadi pluged ke curcuit, kita dapat menggunakan papan terpencil, yang hanya memiliki satu rj-45 konektor dan 8 LED.Kemudian pasang salah satu ujung kabel ke konektor A pada papan utama dan hubungkan ujung lainnya ke unit remote.Perhatikan bahwa tidak ada kawat umum yang diperlukan untuk unit remote.

 

Saya telah menyertakan sebuah sirkuit alternatif daripada menggunakan IC dapat juga menggunakan AVR ATtiny2313, tetapi setiap kontroler AVR dapat dengan mudah diadaptasi.

Lihat foto dan diagram  berikut:

Read More

Mengatasi Acrobat Reader Crash di Firefox

Saat mengklik link yang menuju ke sebuah file .pdf, Firefox secara otomatis akan menjalankan plugins Acrobat Reader. Seringkali file .pdf tertentu membuat Firefox crash sehingga perlu ditutu dan dijalankan ulang. Untuk mencegah hal ini, Anda dapat mengklik kanan link ke file .pdf tersebut dan memilih Save Link As. Anda dapat pula mengotomatiskan langkah tersebut dengan cara berikut.

1. Klik Tools > Options, kemudian buka tab Applications.
2. Cari Adobe Acrobat x.x Document (application/pdf), kemudian pilih Save File pada kolom Action.

Dengan cara ini, setiap kali Anda mengklik link yang menuju ke file .pdf, Firefox akan membuka dialog Save As dan meminta Anda untuk menyimpan file Acrobat tersebut. Anda dapat membacanya di lain waktu.

Cara di atas juga bisa diterapkan untuk tipe file lainnya, seperti .3gp, .mp3, dan lain-lain.

Read More

Operasi Matrix dengan Array

• Buat project baru dengan nama “ Operasi Matrix”
• Tambahkan:  

Toolbox	nama
button	Input matrix 1
	Input matrix 2
	proses
Textbox	Textbox1
	Textbox2
	Textbox3 (hasil)
Label	Label 1  (untuk matrix1) ,text=” ”
	Label 2  (untuk matrix1) ,text=” ”
	Label 3 text=”Hasil”
Combobox

• Seperti berikut:

 

• Pada combobox tambahkan operasi dengan click 1x => ada tanda panah keci  => click n edit item. ketik “penjumlahan , pengurangan dan perkalian”
• Definisikan variabel berikut:

Public i, j, k, baris1, kolom1, baris2, kolom2, elemen As Integer Public arry1(,) As Integer 'definisikan array ke 1 dua demensi bertipe integer Public arry2(,) As Integer 'definisikan array ke 2 dua demensi bertipe integer

• Ketik code berikut pada input matrix 1: 

baris1 = InputBox("Masukan Julah Baris", "Input Baris") kolom1 = InputBox("Masukan Julah Kolom", "Input Kolom") Me.Label1.Text = "Matrix Ordo " & baris1 & "X" & kolom1 ReDim arry1(baris1, kolom1) For i = 1 To baris1 For j = 1 To kolom1 elemen = InputBox("Masukan baris" & i & " Kolom " & j, "Input Element") arry1(i, j) = elemen Next j Next i For i = 1 To baris1 For j = 1 To kolom1 TextBox1.Text &= arry1(i, j) TextBox1.Text &= " " Next j TextBox1.Text &= vbCrLf Next i

• Ketik code berikut pada input matrix 2: 

baris2 = InputBox("Masukan Julah Baris", "Input Baris") kolom2 = InputBox("Masukan Julah Kolom", "Input Kolom") Me.Label2.Text = "Matrix Ordo " & baris2 & "X" & kolom2 ReDim arry2(baris2, kolom2) For i = 1 To baris2 For j = 1 To kolom2 elemen = InputBox("Masukan baris" & i & " Kolom " & j, "Input Element") arry2(i, j) = elemen Next j Next i For i = 1 To baris2 For j = 1 To kolom2 TextBox2.Text &= arry2(i, j) TextBox2.Text &= " " Next j TextBox2.Text &= vbCrLf Next i

• Ketik code berikut pada proses: 

TextBox3.Text = "" If ComboBox1.SelectedIndex = 0 Then penjumlahan() ElseIf ComboBox1.SelectedIndex = 1 Then pengurangan() ElseIf ComboBox1.SelectedIndex = 2 Then perkalian() Else MessageBox.Show("Anda Harus memilih Operasi Matrix", "Program error", MessageBoxButtons.OK) Exit Sub End If

        

•  Tambahkan tiga fungsi berikut: 

Fungsi Penjumlahan Dim hasil(,) As Integer If baris1 = baris2 And kolom1 = kolom2 Then ReDim hasil(baris1, kolom1) For i = 1 To baris1 For j = 1 To kolom1 hasil(i, j) = arry1(i, j) + arry2(i, j) Next j Next i For i = 1 To baris1 For j = 1 To kolom1 TextBox3.Text &= hasil(i, j) TextBox3.Text &= " " Next j TextBox3.Text &= vbCrLf Next i Else MessageBox.Show("Penjumlahan Tidak Dapat Dilakukan Jika Ordo Tidak Sama", "Program error", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub End If
Fungsi Pengurangan Dim hasil(,) As Integer If baris1 = baris2 And kolom1 = kolom2 Then ReDim hasil(baris1, kolom1) For i = 1 To baris1 For j = 1 To kolom1 hasil(i, j) = arry1(i, j) - arry2(i, j) Next j Next i For i = 1 To baris1 For j = 1 To kolom1 TextBox3.Text &= hasil(i, j) TextBox3.Text &= " " Next j TextBox3.Text &= vbCrLf Next i Else MessageBox.Show("Penngurangan Tidak Dapat Dilakukan Jika Ordo Tidak Sama", "Program error", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub End If
Fungsi Perkalian Dim hasil(,), temp1 As Integer If baris1 = kolom2 Then ReDim hasil(baris1, kolom1) For i = 1 To baris1 For j = 1 To kolom1 For k = 1 To kolom1 temp1 += arry1(i, k) * arry2(k, j) Next k hasil(i, j) = temp1 temp1 = 0 'menghilangkan nilai yang ditampung Next j Next i For i = 1 To baris1 For j = 1 To kolom1 TextBox3.Text &= hasil(i, j) TextBox3.Text &= " " Next j TextBox3.Text &= vbCrLf Next i Else MessageBox.Show("Perkalian Tidak Dapat Dilakukan Jika baris Tidak Sama dengan Kolom", "Program error", MessageBoxButtons.OK, MessageBoxIcon.Warning) Exit Sub End If

• Tekan F5 untuk menjalakan project.

DOWNLOAD FILE (pdf)

DOWNLOAD PROJECT(rar)

Read More

Menyimpan data dari datagrid ke excel

1.       Buat new project -> windows form -> tulis nama project

sesuai dengan keinginan brother (Save excel)

2.      Tambahkan: 1 button => nama= Save  dan 1 datagridview

3.      Add referensi excel ke project dengan click kanan di solusi explorer

Click  Com dan cari Microsoft Excel Librarya  tergantung office yang ada di compi

4.      Tambahkan Import   
          Imports Excel = Microsoft.Office.Interop.Excel 
5.   Click 2x button Save  dan ketik Code Berikut:

If ((DG.Columns.Count = 0) Or (DG.Rows.Count = 0)) Then Exit Sub End If 'Creating dataset to export Dim dset As New DataSet 'add table to dataset dset.Tables.Add() 'add column to that table For i As Integer = 0 To DG.ColumnCount - 1 dset.Tables(0).Columns.Add(DG.Columns(i).HeaderText) Next 'add rows to the table Dim dr1 As DataRow For i As Integer = 0 To DG.RowCount - 1 dr1 = dset.Tables(0).NewRow For j As Integer = 0 To DG.Columns.Count - 1 dr1(j) = DG.Rows(i).Cells(j).Value Next dset.Tables(0).Rows.Add(dr1) Next Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass Dim wBook As Microsoft.Office.Interop.Excel.Workbook Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet wBook = excel.Workbooks.Add() wSheet = wBook.ActiveSheet() Dim dt As System.Data.DataTable = dset.Tables(0) Dim dc As System.Data.DataColumn Dim dr As System.Data.DataRow Dim colIndex As Integer = 0 Dim rowIndex As Integer = 0 For Each dc In dt.Columns colIndex = colIndex + 1 excel.Cells(1, colIndex) = dc.ColumnName Next For Each dr In dt.Rows rowIndex = rowIndex + 1 colIndex = 0 For Each dc In dt.Columns colIndex = colIndex + 1 excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName) Next Next wSheet.SaveAs("C:\vbexcel.xlsx") wBook.Close()

6.   Tekan F5 Untuk Menjalankan Program
7.    Semoga Membantu!!!

Download File  

Read More

Menampilkan data excel pada datagrid dengan VB.net

1.      Buat new project -> windows form -> tulis nama project

sesuai dengan keinginan brother (open excel)

2.      Tambahkan: 1 button => nama= Open dan 1 datagridview

3.      Add referensi excel ke project dengan click kanan di solusi explorer

Click  Com dan cari Microsoft Excel Librarya  tergantung office yang ada di compi

4.      Click 2x button Open  dan ketik Code Berikut:

' Add table ecxel to datagrid Dim StrCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "***" & ";Extended Properties=Excel 12.0" Dim conn As New System.Data.OleDb.OleDbConnection conn.ConnectionString = StrCon conn.Open() Dim mydataset As New DataSet ' mengambil data sheet xa Dim myData As New OleDb.OleDbDataAdapter("SELECT * FROM [XA$]", StrCon) myData.TableMappings.Add("Table", "XA$") myData.Fill(mydataset) DataGridView1.DataSource = mydataset.Tables(0).DefaultView conn.Close()

         

5.      *** = di isi lokasi dari file excel yang akan di buka misal: D:\book1.exls

6.      SELECT * FROM [XA$] = mengambil data dari sheet yang bernama “XA”

Jika sheet belum di rename kasi di sana sheet1 ,sheet2 ato yg laen!!!!

7.      Tekan  F5  untuk menjalakan program.

 8.  Semoga membantu!!!

Download File (vb)

 

Read More