Export to Excel menggunakan Templeting VB.NET

selamat malam gan....
kali inii ane mau membahas cara membuat laporan dengan menggunakan templet ms excel. mengapa kita harus menggunakan templet?? ya....agar lebih mudah aja gan penerapannya  jika di dalam laporan kita terdapat banyak headeratau beberapa penempatan header yang sesuai dengan kebutuha atau custome header. dikatakan lebih mudah di sini karena hanya memanggil sebuah templet yang sudah kita siapkan kemudian mengisi kolom kolom yang sesuai dengan kebutuhan laporan kita...
langsung aja gan kita kerjakan ....yapps

langkah 1 :
buka ms excel dan buat data kemudian simpan dalam bentuk templet (Excel 97-2003 Templet)

langkah ke 2 :
buka laman kerja vb nya gan
tambahkan reference Microsoft.Office.Interop.Excel

langkah ke 3 :
buat form designnya juga gan

langkah ke 4 :

 tuliskan kodingannya gan ...

Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btn_cetak_Click(sender As Object, e As EventArgs) Handles btn_cetak.Click
        Dim excel_App As Excel.Application
        Dim excel_WorkBook As Excel.Workbook
        Dim excel_WorkSheet As Excel.Worksheet
        Dim misvalue As Object = System.Reflection.Missing.Value
        excel_App = New Excel.Application
        excel_WorkBook = excel_App.Workbooks.Open("E:\latihan visual studio\Templet Excel.xlt")
        excel_WorkSheet = excel_WorkBook.Worksheets(1)
        excel_WorkSheet = excel_WorkBook.Sheets("sheet1")
        excel_WorkSheet.Cells(3, 2) = txt_nama.Text
        excel_WorkSheet.Cells(4, 2) = txt_alamat.Text
        excel_App.Visible = True

    End Sub
End Class

langkah ke 6 :

jalankan programnya gan....

udah dulu ya gan/.......ane mau tidur dulu

membaca tulisan di ms excel dan di tampilkan di VB.NET

berjumpa kembali dengan ane gan....
kali ini ane mau membahas tentang cara membaca tulisan di ms excel dan di tampilkan di VB.NET.
caranya begini gan :

langkah ke1:
buat satu workbook dokumen ms excel dan simpan dengan nama Baca Excel
isikan pada kolom 1 dengan tulisan Selamat Datang di Ms Excel

langkah ke 2:
buka halaman kerja visual basic windows form app
untuk mengaktifkan object ms excel pada vb, maka kita harus menambahkan reference object tersebut.
pilih Microsoft.Office.Interop.Excel pada jendela Reference

langkah ke 3:
buat form design nya gan

langkah ke 4:
sekarang saatnya mengcoding gan....
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Public Function baca_excel(ByVal filename As String, ByVal sheetname As String, ByVal row As Integer, ByVal column As Integer)
        Dim excel_App As Excel.Application
        Dim excel_WorkBook As Excel.Workbook
        Dim excel_WorkSheet As Excel.Worksheet
        excel_App = New Excel.Application
        excel_WorkBook = excel_App.Workbooks.Open(filename)
        excel_WorkSheet = excel_WorkBook.Sheets(sheetname)
        Dim value As String
        value = excel_WorkSheet.Cells(row, column).value
        excel_WorkBook.Close()
        excel_App.Quit()
        Return value

    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox(baca_excel("E:\latihan visual studio\Baca Excel.xlsx", "sheet1", 1, 1))
    End Sub
End Class

note: perlu di ingat bahwa yang dibaca oleh program dari ms excel adalah kolom 1 baris 1.

MsgBox(baca_excel("E:\latihan visual studio\Baca Excel.xlsx", "sheet1", 1, 1)

jika anda ingin membacaisi atau nilai pada kolom atau baris yang lain, sesuaikan angka - angka tersebut gan

langkah ke 5 :

jalankan aplikasinya gan

selamat mencoba gan....

export to excel menggunakan VB.NET

OK gan, kali ini ane mau ngebahas cara membuat laporan atau mencetak laporan dalam bentuk excel.
langsung aja gan...
langkah ke 1:
buka dulu tampilan kerja visual basic nya (windows form app )
simpan dengan nama laporan excel
langkah ke 2:
untuk mengaktifkan objek ms excel di vb, kita harus menambahkan Reference Object Microsoft.Office.Interop.Excel
langkah ke 3 :
buat design formnya seperti gambar berikut

langkah 4:
tulis codingannya gan, berikut adalah view code dari project kali ini


Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles excel.Click
        Dim excel_App As Excel.Application
        Dim excel_WorkBook As Excel.Workbook
        Dim exel_WorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        excel_App = New Excel.Application
        excel_WorkBook = excel_App.Workbooks.Add(misValue)
        exel_WorkSheet = excel_WorkBook.Sheets("sheet1")
        exel_WorkSheet.Cells(1, 1) = "selamat bos anda berhasil"
        exel_WorkSheet.SaveAs("E:\latihan visual studio\vbexcel.xlsx")
        excel_WorkBook.Close()
        excel_App.Quit()
        If MsgBox("file excel sukses di cetak, silahkan cek file tersebut di drive E:\latihan visual studio", MsgBoxStyle.OkOnly) = MsgBoxResult.Ok Then
            End
        End If
    End Sub
End Class

langkah ke 5:

jalankan (run) aplikasi tersebut dan klik tombol Cetak Dokumen Excel setelah program dijalankan

hasil dari proses tersebut adalah aplikasi akan mencetak dokumen Ms Excel dan file tersebut dapat dilihat dari lokasi data yang anda buat gan

selamat mencoba gan

tes koneksi visual basic dengan mysql dari xampp

bagaimana   cara mengkoneksikan visual basic dengan data yang ada di MySQL xampp?
pastikan agan sudah menginstal visual studio dan xampp.


tambahkan referensi MySQL.Data di References
buat dulu form designnya seperti pada gambar dibawah ini

source code nya

Imports MySql.Data.MySqlClient
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim MySQLConnection As New MySqlConnection("host=127.0.0.1; user=root;database=sia_sekolahdb ")
        Try
            MySQLConnection.Open()
            MessageBox.Show("terhubung gan")

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class


jika sudah berhasil terkoneksi , tampilannya begini gan

ini video tutorialnya  gan

tes koneksi visual basic dengan mysql dari xampp

bagaimana   cara mengkoneksikan visual basic dengan data yang ada di MySQL xampp?
pastikan agan sudah menginstal visual studio dan xampp.


tambahkan referensi MySQL.Data di References
buat dulu form designnya seperti pada gambar dibawah ini

source code nya

Imports MySql.Data.MySqlClient
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim MySQLConnection As New MySqlConnection("host=127.0.0.1; user=root;database=sia_sekolahdb ")
        Try
            MySQLConnection.Open()
            MessageBox.Show("terhubung gan")

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class


jika sudah berhasil terkoneksi , tampilannya begini gan

ini video tutorialnya  gan

Bandung Command Center

pernah dengar kata "bandung juara " ? yaapp...bandung hadir dengan inovasinya. yang kita sebut sebagai " bandung command center. apa sih command center itu? orang bandung bilah sih .....nih gedung mirip ruangan tony stark yang di film iron man ...apa iya ? dari pada penasaran , mending nonton lagi aja gan,,,dari pada bengong ....

apa kata pak emil tentang bandung command center ini....

kalau dibandingkan dengan  di film film iron man gimana menurut ente gan?

semoga tidak hanya bandung, kota kota yang lainnya semoga bisa lebih baik.

face recognition cctv

face recognition merupakan salah satu kajian dari system kecerdasan buatan khususnya robot vision...
nampaknya kita ketinggalan ya gan ?system ini sudah di pakai diluar negeri sana...kalau di kita kapan gan? pokoke tonnton aja dulu gan video berikut ini, semoga menginspirasi

gimana gan, ada hasrat ingin mencoba mengembangkan ?

voice recognition

dunia semakin berkembang...teknologi pun semakin melesat....kaya yang satu ini nih gan, yah kaya di film film ironman gitu deh gan, sistemnya menggunakan voice recognition seperti Jarvis, penasaran? monggo tonton video berikut ini gan
selamat menyaksikan , ..

agan agan semua juga bisa kok bikin programmnya ...ikuti aja tutorial berikut.....karna software mako program yang diatas itu tuh gan harus bayar kalau mau coba...tak kalah hebatnya dengan mako, zira pun mengkodinya dengan visual c sharp, nampaknya agak mudah gan...

saya pun pernah mencoba program ini..namun saya mencoba untuk dikombinasikan dengan Arduino. penasaran? mangga di tontong saja video berikut ini

dunia akan semakin nyaman jika semua teknologi kita kendalikan dengan menggunakan  system kecerdasan buatan

sistem keamanan rumah

system keamanan rumah...nampaknya boleh dicoba tuh gan

fingerprint arduino source code

source codenya  ini......

#include <Adafruit_Fingerprint.h>
#include <SoftwareSerial.h>

int getFingerprintIDez();

// pin #2 is IN from sensor (GREEN wire)
// pin #3 is OUT from arduino  (WHITE wire)
SoftwareSerial mySerial(2, 3);
Adafruit_Fingerprint finger = Adafruit_Fingerprint(&mySerial);

// On Leonardo/Micro or others with hardware serial, use those! #0 is green wire, #1 is white
//Adafruit_Fingerprint finger = Adafruit_Fingerprint(&Serial1);

void setup() 
{
  while (!Serial);  // For Yun/Leo/Micro/Zero/...
 
  Serial.begin(9600);
  Serial.println("Adafruit finger detect test");

  // set the data rate for the sensor serial port
  finger.begin(57600);
 
  if (finger.verifyPassword()) {
    Serial.println("Found fingerprint sensor!");
  } else {
    Serial.println("Did not find fingerprint sensor :(");
    while (1);
  }
  Serial.println("Waiting for valid finger...");
}

void loop()                     // run over and over again
{
  getFingerprintIDez();
  delay(50);            //don't ned to run this at full speed.
}

uint8_t getFingerprintID() {
  uint8_t p = finger.getImage();
  switch (p) {
    case FINGERPRINT_OK:
      Serial.println("Image taken");
      break;
    case FINGERPRINT_NOFINGER:
      Serial.println("No finger detected");
      return p;
    case FINGERPRINT_PACKETRECIEVEERR:
      Serial.println("Communication error");
      return p;
    case FINGERPRINT_IMAGEFAIL:
      Serial.println("Imaging error");
      return p;
    default:
      Serial.println("Unknown error");
      return p;
  }

  // OK success!

  p = finger.image2Tz();
  switch (p) {
    case FINGERPRINT_OK:
      Serial.println("Image converted");
      break;
    case FINGERPRINT_IMAGEMESS:
      Serial.println("Image too messy");
      return p;
    case FINGERPRINT_PACKETRECIEVEERR:
      Serial.println("Communication error");
      return p;
    case FINGERPRINT_FEATUREFAIL:
      Serial.println("Could not find fingerprint features");
      return p;
    case FINGERPRINT_INVALIDIMAGE:
      Serial.println("Could not find fingerprint features");
      return p;
    default:
      Serial.println("Unknown error");
      return p;
  }
 
  // OK converted!
  p = finger.fingerFastSearch();
  if (p == FINGERPRINT_OK) {
    Serial.println("Found a print match!");
  } else if (p == FINGERPRINT_PACKETRECIEVEERR) {
    Serial.println("Communication error");
    return p;
  } else if (p == FINGERPRINT_NOTFOUND) {
    Serial.println("Did not find a match");
    return p;
  } else {
    Serial.println("Unknown error");
    return p;
  }  
 
  // found a match!
  Serial.print("Found ID #"); Serial.print(finger.fingerID);
  Serial.print(" with confidence of "); Serial.println(finger.confidence);
}

// returns -1 if failed, otherwise returns ID #
int getFingerprintIDez() {
  uint8_t p = finger.getImage();
  if (p != FINGERPRINT_OK)  return -1;

  p = finger.image2Tz();
  if (p != FINGERPRINT_OK)  return -1;

  p = finger.fingerFastSearch();
  if (p != FINGERPRINT_OK)  return -1;
 
  // found a match!
  Serial.print("Found ID #"); Serial.print(finger.fingerID);
  Serial.print(" with confidence of "); Serial.println(finger.confidence);
  return finger.fingerID;
}