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