Merasa tulisan ini
tidak di mengerti, silahkan baca artikel penulis Step 1 – 3.
II. MEMBUAT DATABASE DAN TABLE
Buat database baru dan letakkan di dalam folder Bin.
Dan beri nama “tes.mdb“. Buat satu buah table, dengan nama ”DataKu” dengan
desain table sebagai berikut :
III. DESIGN & CODING
Ganti properties form seperti pada tabel dibawah ini.
BackColor AliceBlue
FormBorderStyle Fixed3D
Text Import
Name F_Import
StartPosition CenterScreen
Size 826, 466
Lalu tambahkan komponen-komponen dibawah ini kedalam form
No Nama Komponen Jumlah
1 Label 2
2 TextBox 3
3 DataGrid 2
4 Button 6
5 OpenFileDialog 1
Mengganti properties masing-masing komponen
• Label
No Nama Label Teks Label
1 Label1 Sheet Name
2 Label2 Table Name
• TextBox
No Nama TextBox Properties
Text kosongkan 1 TextBox1 Name txtFileName
Text Sheet1 2 TextBox2 Name txtSheet
Text kosongkan 3 TextBox3 Name txtAlamat
Text kosongkan 4 TextBox4 Name txtTable
• Button
No Nama Button Properties
BackColor Transparent
FlatStyle Flat
Text Load 1 Button1
Name btnLoad
BackColor Transparent
FlatStyle Flat
Text View Excel Data 2 Button2
Name btnView
BackColor Transparent
FlatStyle Flat
Text Clear Excel Grid 3 Button3
Name btnClear
4 Button4 BackColor Transparent
FlatStyle Flat
Text Import Data
Name btnImport
BackColor Transparent
FlatStyle Flat
Text View Access Data 5 Button5
Name btnView2
BackColor Transparent
FlatStyle Flat
Text Clear Access Grid 6 Button6
Name btnClear2
• OpenFileDialog
Properties
Filter Microsoft Office Excel|*.xls
RestoreDirectory True
Lalu desain form seperti gambar dibawah ini.
Menambahkan Class Pada Project
Sebelum kita mulai membuat listing pada form, terlebih dahulu kita membuat
koneksi pada database.
Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New
Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder ini tambahkan
Class dengan nama “DataBaseConnection.vb” (Klik kanan Folder
“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru
anda buat.
Sekarang aktifkan form Import, dan masuk ke jendela Code. Ketikkan sintaks
dibawah ini di awal baris.
Imports System.Data
Imports System.Data.OleDb
Imports System.Data
Imports System.Data.OleDb
Namespace AccessData
Public Class DatabaseConnection
Dim conect As New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=tes.mdb;")
Public Function open() As OleDbConnection
conect.Open()
Return conect
End Function
Public Function close() As OleDbConnection
conect.Close()
Return conect
End Function
End Class
End Namespace
Dan ketikkan listing-listing seperti di bawah ini.
#Region "Deklarasi"
Dim MyConnection As New AccessData.DatabaseConnection
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim objDataAdapter As OleDbDataAdapter
Dim strSQL As String
Dim objDataSet As New DataSet
Dim objDataTableExcel As New DataTable
Dim objDataTableAccess As New DataTable
Dim Field1, Field2, Field3 As String
#End Region
Sub DeleteTable()
'Menghapus seluruh data pada table didalam Access
strSQL = "Delete From" & "[" & Trim(txtTable.Text) & "]" & " ;"
objCommand = New OleDbCommand
objCommand.Connection = MyConnection.open()
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "mdt_Delete")
MyConnection.close()
End Sub
Klik ganda button Load dan ketik sintaks di bawah ini.
Klik ganda button View dan ketik sintaks di bawah ini.
Sub import()
DeleteTable()
Dim i As Integer
'Melakukan pengulangan berdasarkan baris
'yang ada pada Excel
For i = 0 To (objDataTableExcel.Rows.Count - 1)
Try
'Menampilkan data dan di tampung
'Pada Variable berdasarkan baris
With objDataTableExcel.Rows(i)
Field1 = .Item(0)
Field2 = .Item(1)
Field3 = .Item(2)
End With
'Melakukan penginputan data dari variable
'Kedalam tabel pada Access
strSQL = "Insert Into " & "[" & Trim(txtTable.Text) & "]" & "(Field1,
Field2, Field3) Values " & _
" (" & Field1 & ",'" & Field2 & "','" & Field3 & "'); "
objCommand = New OleDbCommand
objCommand.Connection = MyConnection.open
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "mdt_Import")
MyConnection.close()
Catch When Err.Number <> 0
MsgBox("Tidak dapat membuat hubungan ke database" _
& vbCrLf & Err.Description)
Exit Sub
End Try
Next i
MsgBox("Import Finish", MsgBoxStyle.Information, "Import Data")
End Sub
'Mencari file (.xls) yang akan dibuka
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
txtFileName.Text = OpenFileDialog1.FileName
End If
Klik ganda button Clear, ketik sintaks dibawah ini
Klik ganda button Import, ketik sintaks dibawah ini
'Jika textbox Sheet = kosong
If txtSheet.Text = "" Then
MsgBox("Masukkan nama Sheet pada Excel", MsgBoxStyle.Exclamation, "Import
Data")
Exit Sub
End If
Dim tbl As String
tbl = txtSheet.Text
'Koneksi ke file Excel yang di tunjuk
Dim strConn As String = "Provider=Microsoft.Jet.OleDb.4.0;data source=" &
txtFileName.Text & ";Extended Properties=Excel 8.0;"
Dim objConn As New OleDbConnection(strConn)
Try
objDataTableExcel.Clear()
'SQL Menampilkan data pada Excel
strSQL = "Select * " & " From " & "[" & tbl & "$" & "]"
objCommand = New OleDbCommand
objCommand.Connection = objConn
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "mdt_show")
objDataTableExcel = objDataSet.Tables("mdt_show")
objConn.Close()
'Data di tampung pada Datagrid
DataGrid1.DataSource = objDataTableExcel
DataGrid1.ReadOnly = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
'Mengkosongkan Datagrid1 (Data Excel)
objDataTableExcel.Clear()
DataGrid1.DataSource = objDataTableExcel
DataGrid1.ReadOnly = True
Dan klik ganda button View2 dan button Clear2, ketikkan sintaks untuk masing-masing
button seperti dibawah ini.
Untuk button view2
Untuk button Clear2
If txtTable.Text = "" Then
MsgBox("Masukkan nama tabel pada Access", _
MsgBoxStyle.Exclamation, "Import Data")
Exit Sub
End If
If txtSheet.Text = "" Then
MsgBox("Masukkan nama Sheet pada Excel", _
MsgBoxStyle.Exclamation, "Import Data")
Exit Sub
End If
Try
import()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
MyConnection.close()
End Try
If txtTable.Text = "" Then
MsgBox("Masukkan nama tabel", _
MsgBoxStyle.Exclamation, "Import Data")
Exit Sub
End If
Try
'untuk menampilkan data pada table (access)
'kedalam datagrid2
objDataTableAccess.Clear()
strSQL = "Select * " & " From " & "[" & Trim(txtTable.Text) & "]"
objCommand = New OleDbCommand
objCommand.Connection = MyConnection.open
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "mdt_show2")
objDataTableAccess = objDataSet.Tables("mdt_show2")
MyConnection.close()
DataGrid2.DataSource = objDataTableAccess
DataGrid2.ReadOnly = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
IV. PENGGUNAAN PROGRAM
Jalan kan program dengan menekan F5, dan muncul tampilan program seperti berikut :
1. Cari file excel yang mau ditampilkan, dengan menekan button Load.
2. Jika nama Sheet pada Excel yaitu Sheet1, maka biarkan saja TextBox Sheet
Name, tapi jika tidak ganti Sheet Name sama dengan nama Sheet pada file Excel
yang akan ditampilkan.
3. Tekan button View Excel Data
objDataTableAccess.Clear()
DataGrid2.DataSource = objDataTableAccess
DataGrid2.ReadOnly = True
4. Ketikkan nama table pada TextBox Table Name, Lalu tekan button Import Data,
button ini berfungsi untuk memindahkan data dari Excel kedalam table didalam
Access. Tunggu sampai pesan Import Finish Muncul.
5. Untuk mencoba apakah data sudah di Import, Coba klik button View Access
Data, jika data nya muncul sama dengan Datagrid Excel maka proses import
sudah benar
V. ERROR MESSAGE
Jika menerima pesan error dari program, lakukan hal-hal seperti berikut:
Cek apakah sudah benar Sheet Name yaitu Sheet1...
Cek apakah nama table pada Access sudah benar..
VI. PENUTUP
sesudah mencoba program dari artikel yang penulis buat ini, mudah-mudahan para
pembaca mendapat ilmu tambahan tentang .Net. Hal-hal yang sederhana memang
selalu kita lupakan, sehingga hal yang sederhana itu selalu kita anggap sebagai
sesuatu yang sangat susah..
Penulis berharap artikel ini bisa di implementasikan kedalam program-program
penulis yang membutuhkan proses seperti didalam artikel ini.
Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan
berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
_____________________.Net – Step V
Junindar
STEP BY STEP MENJADI
PROGRAMMER HANDAL
DENGAN VB.NET
Junindar
Blog : http://junindar.blog.com
E-Mail : xx_lead@yahoo.com
junindar@gmail.com
STEP V
IMPORT
DATA DARI TXT / CSV FILE
I. Pangantar
Pada artikel sebelumnya, kita telah membuat program untuk mentransfer data dari
Excel ke Access table. Dan pada artikel yang ke 5 ini, penulis mengajak pembaca
untuk bermain dengan txt dan csv (comma-separated values) file. Pada artikel ini
hampir sama saja, kita akan membuat program mengimport data dari txt / csv file
lalu di insert kedalam Access Table.
Lisensi Dokumen:
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat
tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang
disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang,
kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
_____________________.Net – Step V
Junindar
Tetapi pada step ini, cara yang di gunakan berbeda dengan step sebelumnya.
Mengingat kembali pada artikel sebelumnya. Untuk mentransfer data, kita
melakukan nya baris demi baris . Jadi jika jumlah baris (row) nya sangat banyak
maka waktu yang di butuhkan juga lebih panjang durasinya. Tetapi pada artikel ini
kita akan mentransfer seluruh data secara langsung. Dan durasi yang di pakai untuk
ini jauh lebih singkat, dan caranya pun lebih mudah. Eksperimen yang dilakukan
penulis dalam mentransfer data yang berjumlah 100.000 baris, penulis dapat
melakukan kurang dari 1 menit. Wauuuuuuuuu, waktu yang sangat fantastis bukan.
II. MEMBUAT DATABASE DAN TABLE
Buat database baru dan letakkan di dalam folder Bin.
Dan beri nama “CSV.mdb“. Buat satu buah table, dengan nama ”Absen” dengan
desain table sebagai berikut :
III. DESIGN & CODING
Ganti properties form seperti pada tabel dibawah ini.
FormBorderStyle Fixed3D
Text Import
Name F_Import
StartPosition CenterScreen
Size 712, 360
Lalu tambahkan komponen-komponen dibawah ini kedalam form
No Nama Komponen Jumlah
1 Label 3
2 TextBox 3
3 DataGrid 2
4 Button 6
_____________________.Net – Step V
Junindar
5 OpenFileDialog 1
6 FolderBrowseDialog 1
7 ComboBox 1
Mengganti properties masing-masing komponen
• Label
No Nama Label Teks Label
1 Label1 Data From TextFile
2 Label2 Data From Access
3 Label3 File Name
• TextBox
No Nama TextBox Properties
Text kosongkan 1 TextBox1 Name txtFilePath
Text kosongkan 2 TextBox2 Name txtFolderPath
Text kosongkan 3 TextBox3 Name txtFileName
• Button
No Nama Button Properties
BackColor Transparent
FlatStyle Flat
Text ... 1 Button1
Name btnOpenFileDlg
BackColor Transparent
FlatStyle Flat
Text ... 2 Button2
Name btnOpenFldrBwsr
BackColor Transparent
FlatStyle Flat
Text Import 3 Button3
Name btnImport
BackColor Transparent
FlatStyle Flat
Text View From TextFile 4 Button4
Name btnView
BackColor Transparent 5 Button5
FlatStyle Flat
_____________________.Net – Step V
Junindar
Text View From Access
Name btnView2
BackColor Transparent
FlatStyle Flat
Text Export 6 Button6
Name btnExport
• OpenFileDialog
Properties
Name OFD
RestoreDirectory True
• FolderBrowseDialog
Properties
Name FBD
• ComboBox
Properties
Name CbExt
DropDownStyle DropDownList
Collection - .txt
- .csv
Lalu desain form seperti gambar dibawah ini.
_____________________.Net – Step V
Junindar
Menambahkan Class Pada Project
Sebelum kita mulai membuat listing pada form, terlebih dahulu kita membuat
koneksi pada database.
Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New
Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder ini tambahkan
Class dengan nama “DataBaseConnection.vb” (Klik kanan Folder
“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru
anda buat.
Sekarang aktifkan form Import, dan masuk ke jendela Code. Ketikkan sintaks
dibawah ini di awal baris.
Dan ketikkan listing-listing seperti di bawah ini.
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports System.Data
Imports System.Data.OleDb
Namespace AccessData
Public Class DatabaseConnection
Dim conect As New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=CSV.mdb;")
Public Function open() As OleDbConnection
conect.Open()
Return conect
End Function
Public Function close() As OleDbConnection
conect.Close()
Return conect
End Function
End Class
End Namespace
#Region "Declaration"
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim objDataAdapter As OleDbDataAdapter
Dim StrSQL As String
Dim objDataTableText As New DataTable
Dim objDataTableAccess As New DataTable
Dim myconnection As New AccessData.DatabaseConnection
#End Region
_____________________.Net – Step V
Junindar
Klik ganda button Open File Dialog dan ketik sintaks di bawah ini.
Klik ganda button Import dan ketik sintaks di bawah ini.
Try
OFD.Filter = "CSV (Comma delimited) (*.csv) |*.csv |Text
Documents(*.txt) |*.txt| All Files (*.*) |*.*"
OFD.FilterIndex = 0
OFD.FileName = ""
Dim result As DialogResult = OFD.ShowDialog()
If result = DialogResult.Cancel Then
OFD.FileName = Nothing
txtFilePath.Text = ""
Else
txtFilePath.Text = OFD.FileName
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Try
If txtFilePath.Text.Trim = "" Then
MsgBox("Cari file terlebih dahulu", MsgBoxStyle.Information, "Pesan
kesalahan")
Exit Sub
End If
Dim TempPath, TempFile As String
TempFile = Mid(txtFilePath.Text.Trim, InStrRev(txtFilePath.Text.Trim,
"\") + 1, Len(txtFilePath.Text.Trim))
TempPath = Microsoft.VisualBasic.Left(txtFilePath.Text.Trim,
(Len(txtFilePath.Text.Trim) - Len(TempFile)))
Dim cmd As OleDbCommand = New OleDbCommand
cmd.CommandText = "INSERT INTO Absen (EmployeeID, FTime,FDate) " & _
" SELECT * FROM [Text;DATABASE=" & TempPath & ";].[" & TempFile.Trim &
"]"
cmd.Connection = myconnection.open()
cmd.ExecuteNonQuery()
myconnection.close()
MsgBox("Import Finish", MsgBoxStyle.Information, "Import")
Catch ex As Exception
MsgBox(ex.Message)
myconnection.close()
Exit Sub
End Try
_____________________.Net – Step V
Junindar
Klik ganda button View, ketik sintaks dibawah ini
Klik ganda button Open Folder Browse, ketik sintaks dibawah ini
Try
If txtFilePath.Text.Trim = "" Then
MsgBox("Cari file terlebih dahulu", MsgBoxStyle.Information, "Pesan
kesalahan")
Exit Sub
End If
Dim TempPath, TempFile As String
TempFile = Mid(txtFilePath.Text.Trim, InStrRev(txtFilePath.Text.Trim,
"\") + 1, Len(txtFilePath.Text.Trim))
TempPath = Microsoft.VisualBasic.Left(txtFilePath.Text.Trim,
(Len(txtFilePath.Text.Trim) - Len(TempFile)))
objDataTableText.Clear()
DgText.DataSource = Nothing
StrSQL = "SELECT * FROM [Text;DATABASE=" & TempPath & ";].[" & TempFile
& "]"
objCommand = New OleDbCommand
objCommand.Connection = myconnection.open()
objCommand.CommandType = CommandType.Text
objCommand.CommandText = StrSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "mdt_check")
objDataTableText = objDataSet.Tables("mdt_check")
myconnection.close()
DgText.DataSource = objDataTableText
TempFile = Nothing
TempPath = Nothing
Catch ex As Exception
MsgBox(ex.Message)
myconnection.close()
Exit Sub
End Try
Try
FBD.SelectedPath = ""
Dim result As DialogResult = FBD.ShowDialog()
If result = DialogResult.Cancel Then
FBD.SelectedPath = Nothing
txtFolderPath.Text = ""
Else
txtFolderPath.Text = FBD.SelectedPath.Trim()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
_____________________.Net – Step V
Junindar
Dan klik ganda button View2, ketikkan sintaks seperti dibawah ini.
IV. PENGGUNAAN PROGRAM
Jalan kan program dengan menekan F5, dan muncul tampilan program seperti berikut :
1. Cari file txt atau csv yang mau ditampilkan, dengan menekan button Load.
(dibawah grid Text File)
2. Tekan button View From Text File
Try
objDataTableAccess.Clear()
StrSQL = "SELECT EmployeeId,format(FTime,'hh:mm') " & _
"As Waktu,format(FDate,'dd/mm/yyyy') As Tanggal FROM Absen"
objCommand = New OleDbCommand
objCommand.Connection = myconnection.open()
objCommand.CommandType = CommandType.Text
objCommand.CommandText = StrSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "mdt_check2")
objDataTableAccess = objDataSet.Tables("mdt_check2")
myconnection.close()
DgAccess.DataSource = objDataTableAccess
Catch ex As Exception
MsgBox(ex.Message)
myconnection.close()
Exit Sub
End Try
_____________________.Net – Step V
Junindar
3. Jika sudah yakin dengan data yang di tampilkan pada datagrid, tekan button
import untuk mengimport data.
4. Untuk mencoba apakah data sudah di Import, Coba klik button View Access
Data, jika data nya muncul sama dengan Datagrid TextFile maka proses import
sudah benar
_____________________.Net – Step V
Junindar
V. PENUTUP
Penulis sadari bahwa cara penyampaian pada artikel ini sangat cepat, tidak
menjelaskan secara detail. Itu sebab penulis beranggapan para pembaca sudah
mengikuti artikel-artikel yang di buat oleh penulis dari awal sampai yang sekarang
ini. Jadi jika para pembaca kurang mengerti atau tidak memahaminya penulis
anjurkan untuk membaca step 1 terlebih dahulu, baru dilanjutkan dengan step-step
berikutnya.
Mungkin bagi sebagian pembaca artikel kurang banyak memberi ilmu atau
manfaatnya. Tapi jika kita sudah sering bekerja dengan memakai external file,
maka ini akan sangat membantu pekerjaan kita. Hal ini sangat dirasakan sendiri
oleh penulis.
Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan
berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
_____________________.Net – Step VI
Junindar
STEP BY STEP MENJADI
PROGRAMMER HANDAL
DENGAN VB.NET
Junindar
Blog : http://junindar.blog.com
E-Mail : xx_lead@yahoo.com
junindar@gmail.com
STEP VI
EXPORT DATA DARI ACCESS TABLE
KE TXT / CSV FILE
I. Pangantar
sesudah membaca artikel step 5 pasti para pembaca banyak yang bertanya dan
merasa keheranan. Apakah penulis lupa atau tidak tahu cara mengexport data dari
txt / csv file. sebab pada artikel ini penulis mendesign form dengan
menampilkan button export. Sedangkan pada tahap coding tidak di temukan
bagaimana cara mengexport data ini .
Lisensi Dokumen:
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat
tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang
disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang,
kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
_____________________.Net – Step VI
Junindar
Hal ini memang sengaja penulis lakukan, agar para pembaca paham terlebih
dahulu cara untuk mengimport data. Jika sudah mengerti maka kita akan memasuki
lagi tahap selanjutnya yaitu mengexport data dari access table ke txt /csv file.
Bagi para pembaca yang belum membaca step 5 penulis harapkan untuk membaca
artikel ini terlebih dahulu. sebab antara artikel sebelumnya dan yang saat ini
sangat erat sekali hubungan nya. Dan kita masih memakai project yang sama.
Hasil eksperimen yang dilakukan penulis untuk mengeksport data dengan jumlah
baris lebih kurang 100.000 baris durasi yang dibutuhkan yaitu sekitar 20 detik. Ini
merupakan waktu yang sangat cepat sekali.
II. CODING
sebab kita masih memakai form dan project yang sama jadi kita langsung saja
masuk ke tahap coding.
Dan klik ganda pada button export, dan ketik sintaks dibawah ini :
Sub CheckData()
Try
objDataTableAccess.Clear()
StrSQL = "SELECT EmployeeId,format(FTime,'hh:mm') " & _
"As Waktu,format(FDate,'dd/mm/yyyy') As Tanggal FROM Absen"
objCommand = New OleDbCommand
objCommand.Connection = myconnection.open()
objCommand.CommandType = CommandType.Text
objCommand.CommandText = StrSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "mdt_check2")
objDataTableAccess = objDataSet.Tables("mdt_check2")
myconnection.close()
Catch ex As Exception
MsgBox(ex.Message)
myconnection.close()
Exit Sub
End Try
End Sub
_____________________.Net – Step VI
Junindar
Try
If txtFileName.Text.Trim = "" Then
MsgBox("Masukkan nama file terlebih dahulu",
MsgBoxStyle.Information, "Pesan kesalahan")
Exit Sub
End If
If txtFolderPath.Text.Trim = "" Then
MsgBox("Pilih folder terlebih dahulu", MsgBoxStyle.Information,
"Pesan kesalahan")
Exit Sub
End If
CheckData() 'mengecek jumlah baris dalam tabel
If objDataTableAccess.Rows.Count = 0 Then
MsgBox("Data tidak tersedia", MsgBoxStyle.Information, "Pesan
kesalahan")
Exit Sub
End If
Dim i As Integer
Dim Header1, Header2, Header3, Field1, Field2, Field3 As String
Dim fsOutput As FileStream = New FileStream(txtFolderPath.Text +
"\" + txtFileName.Text.Trim + CbExt.SelectedItem,
FileMode.Create, FileAccess.Write)
Dim srOutput As StreamWriter = New StreamWriter(fsOutput)
objCommand = myconnection.open.CreateCommand
objCommand.CommandText = "Select * From Absen;"
objdatareader = objCommand.ExecuteReader
objdatareader.Read()
Header1 = Replace(objdatareader.GetName(0), "#", ".")
Header2 = Replace(objdatareader.GetName(1), "#", ".")
Header3 = Replace(objdatareader.GetName(2), "#", ".")
srOutput.WriteLine(Header1.ToString() + "," + Header2.ToString()
+ "," + Header3.ToString())
For i = 0 To objDataTableAccess.Rows.Count - 1
With objDataTableAccess.Rows(i)
Field1 = .Item(0).ToString
Field2 = .Item(1).ToString
Field3 = .Item(2).ToString
End With
srOutput.WriteLine(Field1.ToString() + "," + Field2.ToString()
+ "," + Field3.ToString())
Next i
srOutput.Close()
fsOutput.Close()
MsgBox("Export data berhasil", MsgBoxStyle.Information, "Pesan
keberhasilan")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Pesan kesalahan")
myconnection.close()
End Try
_____________________.Net – Step VI
Junindar
III. PENUTUP
Sekarang pertanyaan-pertanyaan yang ada pada pembaca sudah terjawab,
bagaimana cara untuk mengeksport data dari table ke txt / csv file, sangat
mudahkan ? Semoga artikel ini membantu para pembaca dalam hal mencari ilmu
khusus nya pada bidang pemrograman Vb.Net.
Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan
berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
_____________________.Net – Step VII
Junindar
STEP BY STEP MENJADI
PROGRAMMER HANDAL
DENGAN VB.NET
Junindar
Blog : http://junindar.blog.com
E-Mail : xx_lead@yahoo.com
junindar@gmail.com
STEP VII
MENGOLAH DATA
TEXT FILE
I. Pangantar
Apakah para pembaca menerima data text file yang tidak terstruktur dan tidak
mempunyai header untuk datanya ? Lalu data ini harus di masukkan kedalam
tabel. Jika pernah apa yang akan pembaca lakukan ? Data yang berbentuk seperti ini
biasanya dari sebuah mesin, sebagai contoh penulis memberikan sample data yang
tidak terstrukur dari sebuah mesin absensi, contohnya seperti ini.“
Lisensi Dokumen:
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat
tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang
disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang,
kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
_____________________.Net – Step VII
Junindar
s0371080021122007“. Sedangkan data yang terstruktur contohnya seperti pada file
csv (“s0371,08:00,21/12/2007“). Untuk data yang tidak terstruktur, kita tidak bisa
langsung mengimport data mentah ini kedalam tabel, sebab bentuknya belum
beraturan. Kita harus menjadikan data mentah ini terstruktur terlebih dahulu,
dan sebelumnya kita harus mengetahui bentuk/struktur yang di inginkan. Untuk
data diatas struktur nya yaitu sebagai berikut : s0371 yaitu EmployeeID, 0800
yaitu jam, dan 21122007 yaitu tanggal. sesudah kita mengetahui strukturnya
barulah kita dapat mengolah data ini dan akhirnya kita insert ke dalam tabel.
Untuk catatan struktur dan jumlah karakter harus sudah permanen (baku).
II. MEMBUAT DATABASE DAN TABLE
Buat database baru dan letakkan di dalam folder Bin.
Dan beri nama “CSV.mdb“. Buat satu buah table, dengan nama ”Absen” dengan
desain table sebagai berikut :
III. DESIGN & CODING
Ganti properties form seperti pada tabel dibawah ini.
FormBorderStyle Fixed3D
Text Import
Name Import
StartPosition CenterScreen
Size 450, 330
Lalu tambahkan komponen-komponen dibawah ini kedalam form
No Nama Komponen Jumlah
1 TextBox 1
2 DataGrid 1
4 Button 3
4 OpenFileDialog 1
_____________________.Net – Step VII
Junindar
Mengganti properties masing-masing komponen
• TextBox
No Nama TextBox Properties
Text kosongkan 1 TextBox1 Name txtFilePath
• Button
No Nama Button Properties
BackColor Transparent
FlatStyle Flat
Text ... 1 Button1
Name btnOpenFileDlg
BackColor Transparent
FlatStyle Flat
Text Import 2 Button3
Name btnImport
BackColor Transparent
FlatStyle Flat
Text View From TextFile 3 Button4
Name btnView
Lalu desain form seperti gambar dibawah ini.
Menambahkan Class Pada Project
Sebelum kita mulai membuat listing pada form, terlebih dahulu kita membuat
koneksi pada database.
Sebelumnya Buat folder pada project yang anda buat (Klik kanan project>Add>New
Folder) dan beri nama “AccessData”. Selanjutnya didalam Folder ini tambahkan
_____________________.Net – Step VII
Junindar
Class dengan nama “DataBaseConnection.vb” (Klik kanan Folder
“AccessData”>Add>Add Class). Ketikan listing di bawah ini pada class yang baru
anda buat.
Lalu buat Class didalam folder AccessData dan ubah nama class ini menjadi
“AccessAbsen.vb“. Dan ketik sintak dibawah ini
Imports System.Data
Imports System.Data.OleDb
Namespace AccessData
Public Class DatabaseConnection
Dim conect As New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=CSV.mdb;")
Public Function open() As OleDbConnection
conect.Open()
Return conect
End Function
Public Function close() As OleDbConnection
conect.Close()
Return conect
End Function
End Class
End Namespace
_____________________.Net – Step VII
Junindar
Sekarang aktifkan form Import, dan masuk ke jendela Code. Ketikkan sintaks
dibawah ini di awal baris.
Dan ketikkan listing-listing seperti di bawah ini.
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
#Region "Declaration"
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim objDataAdapter As OleDbDataAdapter
Dim StrSQL As String
Dim objDataTableText As New DataTable
Dim objDataTableAccess As New DataTable
Dim myconnection As New AccessData.DatabaseConnection
Protected myConnectionAbsen As New AccessData.AccessAbsen
#End Region
Imports System.Data
Imports System.Data.OleDb
Namespace AccessData
Public Class AccessAbsen
Public Function AccessAbsenInsert(ByVal EmployeeID As String, _
ByVal FTime As String, _
ByVal FDate As String)
Dim myconnection As New AccessData.DatabaseConnection
Dim SqlString As String = "Insert Into Absen " & _
" (EmployeeID,FTime,FDate) Values (?,?,?)"
Dim myCmd As New OleDbCommand(SqlString)
myCmd.Connection = myconnection.open
myCmd.CommandType = CommandType.Text
myCmd.Parameters.Add("EmployeeID", EmployeeID)
myCmd.Parameters.Add("FTime", FTime)
myCmd.Parameters.Add("FDate", FDate)
myCmd.ExecuteNonQuery()
myconnection.close()
End Function
End Class
End Namespace
_____________________.Net – Step VII
Junindar
Klik ganda button Open File Dialog dan ketik sintaks di bawah ini.
Klik ganda button View dan ketik sintaks di bawah ini.
Try
OFD.Filter = "CSV (Comma delimited) (*.csv) |*.csv |Text
Documents(*.txt) |*.txt| All Files (*.*) |*.*"
OFD.FilterIndex = 0
OFD.FileName = ""
Dim result As DialogResult = OFD.ShowDialog()
If result = DialogResult.Cancel Then
OFD.FileName = Nothing
txtFilePath.Text = ""
Else
txtFilePath.Text = OFD.FileName
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Try
objDataTable.Clear()
strSQL = "SELECT EmployeeId,format(FTime,'hh:mm') " & _
"As Waktu,format(FDate,'dd/mm/yyyy') As Tanggal FROM Absen"
objCommand = New OleDbCommand
objCommand.Connection = myconnection.open()
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "mdt_check")
objDataTable = objDataSet.Tables("mdt_check")
myconnection.close()
DgView.DataSource = objDataTable
Catch ex As Exception
MsgBox(ex.Message)
myconnection.close()
Exit Sub
End TryEnd Try
_____________________.Net – Step VII
Junindar
Klik ganda button Import, ketik sintaks dibawah ini
IV. PENUTUP
Percobaan yang dilakukan oleh penulis untuk mengimport data dalam waktu 1
menit berhasil mengimport sebanyak kurang lebih 1300 baris. Memang lebih
lambat dari artikel sebelumnya, sebab pada step ini kita harus mengimport data
baris demi baris, sebab data harus di olah terlebih dahulu.
Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan
berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
Try
Dim oFile As System.IO.File
Dim oRead As System.IO.StreamReader
Dim EntireFile, LineIn, tempfile As String
If txtFilePath.Text.Trim = "" Then
MsgBox("Cari file terlebih dahulu", MsgBoxStyle.Information, "Pesan
kesalahan")
Exit Sub
End If
oRead = oFile.OpenText(txtFilePath.Text.Trim)
While oRead.Peek <> -1
LineIn = oRead.ReadLine()
Dim ID As String = LineIn.Substring(0, 5)
Dim jam As String = LineIn.Substring(5, 2) & ":" &
LineIn.Substring(7, 2)
Dim tgl As String = LineIn.Substring(9, 2) & "/" &
LineIn.Substring(11, 2) & "/" & LineIn.Substring(13, 4)
myConnectionAbsen.AccessAbsenInsert(ID, jam, tgl)
End While
oRead.Close()
MsgBox("Import data berhasil", MsgBoxStyle.Information, "Pesan
keberhasilan")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
myconnection.close()
End Try
_____________________.Net – Step VIII
Junindar
STEP BY STEP MENJADI
PROGRAMMER HANDAL
DENGAN VB.NET
Junindar
Blog : http://junindar.blog.com
E-Mail : xx_lead@yahoo.com
junindar@gmail.com
STEP VIII
MEMBUAT JAM DIGITAL DUNIA &
RUNNING TEXT
I. Pangantar
Mungkin para pembaca pernah di tanya tentang jam brapa pada saat ini di suatu
negara. Ya kalau negara dekat seperti Malaysia, Singapura pasti udah pada tau
semuanya kan… Ayoo brapa, jangan iya-iya aja… J. Tapi kalau di tanya seperti di
Jerman, India, China wah mungkin Cuma sedikit di antara kita yang mengetahui
nya.
Lisensi Dokumen:
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat
tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang
disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang,
kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
_____________________.Net – Step VIII
Junindar
Trus penulis kepikiran, kenapa ga kita buat aja program untuk melihat waktu di
negara-negara seluruh dunia, yang kita inginkan. Nah sekarang dengan
memanfaatkan sedikit coding dengan memakai Date and Time > Time Zone
kita sudah bisa membuat program jam digital untuk melihat waktu pada seluruh
negara di dunia yang kita inginkan..
Lalu pada artikel ini penulis juga memberikan suatu cara untuk membuat running
text sederhana, yang akan memperindah form yang kita buat. Udah pada ga sabaran
nich?? Ikutin petunjuk yang ada pada artikel ini dengan baik ya….
II. DESIGN & CODING
a. Buat project baru dengan nama “Jam“
Ganti properties form seperti pada tabel dibawah ini.
FormBorderStyle FixedSingle
Text Jam Digital
StartPosition CenterScreen
Size 686, 150
BackColor Desktop
Lalu tambahkan komponen-komponen dibawah ini kedalam form
No Nama Komponen Jumlah
1 TextBox 5
2 Label 11
3 Timer 2
4 GroupBox 1
5 PictureBox 1
Mengganti properties masing-masing komponen
• TextBox
No Nama TextBox Properties
Text 10 : 10 : 10
Name txtFilePath
TextAlign Center
ForeColor Chartreuse
1 TextBox1
Name txtTimeBatam
_____________________.Net – Step VIII
Junindar
BackColor Black
Text 10 : 10 : 10
Name txtFilePath
TextAlign Center
ForeColor Chartreuse
Name txtTimeSingapore
2 TextBox2
BackColor Black
Text 10 : 10 : 10
Name txtFilePath
TextAlign Center
ForeColor Chartreuse
Name txtTimeZhuhai
3 TextBox3
BackColor Black
Text 10 : 10 : 10
Name txtFilePath
TextAlign Center
ForeColor Chartreuse
Name txtTimeIndia
4 TextBox4
BackColor Black
Text 10 : 10 : 10
Name txtFilePath
TextAlign Center
ForeColor Chartreuse
Name txtTimeAustria
5 TextBox5
BackColor Black
• Label
No Nama Label Properties
BackColor Silver
FlatStyle Fixed3D
Text PM Wed 1 Label1
Name lblDayBatam
BackColor Silver
FlatStyle Fixed3D
Text PM Wed 2 Label2
Name lblDaySingpore
BackColor Silver
FlatStyle Fixed3D
Text PM Wed 3 Label3
Name lblDayZhuhai
BackColor Silver
FlatStyle Fixed3D
Text PM Wed 4 Label4
Name lblDayDelhi
5 Label5 BackColor Silver
_____________________.Net – Step VIII
Junindar
FlatStyle Fixed3D
Text PM Wed
Name lblDayAustria
6 Label6 Text Batam (Indonesia)
7 Label7 Text Singapore / JB
8 Label8 Text Zhuhai (China)
9 Label9 Text India
10 Label10 Text Austria / Germany
Name lblJalan
Text Kosongkan
ForeColor White 11 Label11
BackColor OliveDrab
• GroupBox
No Nama
GroupBox
Properties
Text World Timer Watch
ForeColor Desktop 1 GroupBox1
BackColor AliceBlue
• Picture Box
• Timer
sesudah itu, masukkan seluruh Text box kedalam groupbox, lalu label 1-10 dan
terakhir picturebox. Sehingga bentuk dari form nya seperti pada gambar di bawah ini.
No Nama
PictureBox
Properties
Image Masukkan gambar yang
di sukai 1 PictureBox1
SizeMode StretchImage
No Nama Timer Properties
Name tmrWorldClock
Enabled True 1 Timer1
Interval 100
Name TmrText
Enabled True 2 Timer2
Interval 200
_____________________.Net – Step VIII
Junindar
Coding
Sekarang saat nya kita melakukan coding pada project ini.
Double click pada form, lalu ketikkan code seperti dibawah ini.
Code diatas merupakan kalimat yang akan nantinya menjadi running text pada form.
Untuk kasus ini para pembaca dapat mengubah kalimat diatas sesuai dengan
keinginan masing-masing.
Ketikkan code di bawah pada form.
Private Declare Sub GetSystemTime Lib "kernel32" (ByRef
lpSystemTime As SYSTEMTIME)
Private Structure SYSTEMTIME
Public wYear As Short
Public wMonth As Short
Public wDayOfWeek As Short
Public wDay As Short
Public wHour As Short
Public wMinute As Short
Public wSecond As Short
Public wMilliseconds As Short
End Structure
lblJalan.Text = "Ini yaitu program untuk melihat jam pada
beberapa negara di dunia...."
#Region " World Clock Variables "
Dim lpT As SYSTEMTIME
Dim dateUTC As Date
Dim WTime As Date
#End Region
_____________________.Net – Step VIII
Junindar
Private Sub getWorldClock()
Try
Call GetSystemTime(lpT)
'India
dateUTC = Date.Today.UtcNow().AddHours(5.5)
WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " :
" & lpT.wSecond).AddHours(5.5)
txtTimeIndia.Text = WTime.ToLongTimeString
lblDayDelhi.Text = dateUTC.DayOfWeek().ToString()
'Austria/Germany
dateUTC = Date.Today.UtcNow().AddHours(1.0)
WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " :
" & lpT.wSecond).AddHours(1.0)
txtTimeAustria.Text = WTime.ToLongTimeString
lblDayAustria.Text = dateUTC.DayOfWeek().ToString()
'Zhuhai
dateUTC = Date.Today.UtcNow().AddHours(8.0)
WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " :
" & lpT.wSecond).AddHours(8.0)
txtTimeZhuhai.Text = WTime.ToLongTimeString
lblDayZhuhai.Text = dateUTC.DayOfWeek().ToString()
'Indonesia
dateUTC = Date.Today.UtcNow().AddHours(7.0)
WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " :
" & lpT.wSecond).AddHours(7.0)
txtTimeBatam.Text = WTime.ToLongTimeString
lblDayBatam.Text = dateUTC.DayOfWeek().ToString()
'Singapore/JB
dateUTC = Date.Today.UtcNow().AddHours(8.0)
WTime = CDate(lpT.wHour & " : " & lpT.wMinute & " :
" & lpT.wSecond).AddHours(8.0)
txtTimeSingapore.Text = WTime.ToLongTimeString
lblDaySingpore.Text =
dateUTC.DayOfWeek().ToString()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
_____________________.Net – Step VIII
Junindar
sesudah selesai double click pada tmrWorldClock dan ketik code seperti di bawah ini
:
Dan terakhir double click pada komponen TmrText dan ketik code seperti di bawah
ini :
sesudah selesai melakukan petunjun seperti diatas, mari kita lihat hasil nya, tekan F5
pada project. Jika para pembaca mengikuti petunjuk sesuai dengan yang penulis
intruksikan maka form yang di running akan seperti gambar di bawah ini :
Keren bukan????
Dan tentunya para pembaca bingung kenapa kalau untuk indonesia Add.Hours = 7.0,
untuk hal kita dapat melihat informasinya pada Date and Time > Time Zone, seperti
pada gambar di bawah ini :
getWorldClock()
Dim s1 As String
Dim S2 As String
s1 = Microsoft.VisualBasic.Left(lblJalan.Text, 1)
S2 = Microsoft.VisualBasic.Right(lblJalan.Text,
Len(lblJalan.Text) - 1)
lblJalan.Text = S2 + s1
_____________________.Net – Step VIII
Junindar
Jadi jika seandainya para pembaca ingin melihat / mengubah program ini untuk
melihat negara yang di inginkan, kita tinggal melihat Time Zone negara ini . +
(plus) atau – (minus) berapa suatu negara terhadap Greenwich Mean Time (GMT).
Dan pada source code tinggal di ubah pada bagian AddHours(nilai).
Selamat mencoba …………………………………………
III. PENUTUP
Untuk mendownload source code lengkap nya, dapat di download pada blog
penulis, http://junindar.blog.com . Semoga Artikel-artikel tentang VB.Net ini masih
tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki.
Aminnnnnnnnnnnnnnnn
_____________________.Net – Step IX
Junindar
STEP BY STEP MENJADI
PROGRAMMER HANDAL
DENGAN VB.NET
Junindar
Blog : http://junindar.blog.com
E-Mail : xx_lead@yahoo.com
junindar@gmail.com
STEP IX
MEMBUAT PROGRAM
AUTO SHUTDOWN
I. Pengantar
Seberapa seringkah para pembaca lupa mematikan PC pada saat selesai bekerja,
baik siang maupun malam hari. Jika itu sering terjadi tagihan listrik akan meningkat
untuk hal-hal yang tidak berguna atau sia-sia. Oleh sebab itu banyak sekali
software-software baik yang gratis maupun yang bayar beredar di pasaran untuk
mengurus hal semacam ini.
Lisensi Dokumen:
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat
tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang
disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang,
kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
_____________________.Net – Step IX
Junindar
Pada artikel ini penulis mengajak para pembaca untuk berkreasi pada komputer
sendiri. Yaitu dengan membuat program auto shutdown yang simple tapi sangat
berguna bagi kita. Semoga artikel ini bisa membuat kita lebih kreatif dan sering
berkreasi baik untuk diri kita sendiri maupun orang lain.
DESIGN & CODING
a. Buat project baru dengan nama “MatiPC“
Ganti properties form seperti pada tabel dibawah ini.
FormBorderStyle FixedSingle
Text Shutdown
StartPosition CenterScreen
Size 328, 184
BackColor White
Lalu tambahkan komponen-komponen dibawah ini kedalam form
No Nama Komponen Jumlah
1 DateTimePicker 1
2 GroupBox 1
3 Timer 1
4 Button 2
5 ContextMenu 1
6 Notify Icon 1
7 Label 1
Mengganti properties masing-masing komponen
• TextBox
No Nama
DateTimePicker
Properties
Format Custom
ShowUpDown True
Custom
Format
hh:mm tt
ForeColor Chartreuse
1
DateTimePicker1
Name DtTime
_____________________.Net – Step IX
Junindar
• Label
No Nama Label Properties
1 Label1 Text Time
• Button
No Nama Button Properties
Text Disabled 1 Button1 Name btnEnabled
Text Hide 2 Button1 Name btnHide
• GroupBox
No Nama
GroupBox
Properties
Text Set Timer 1 GroupBox1 BackColor WhiteSmoke
• Timer
• ContextMenu
Buat menu dengan cara klik component ContextMenu, dan ketik menuitem dengan
nama
- Exit
- View
Seperti pada gambar
No Nama Timer Properties
Name TimerShutdown
Enabled False 1 Timer1
Interval 60000
_____________________.Net – Step IX
Junindar
• Notify Icon
sesudah itu, masukkan seluruh DtTime, Label kedalam GroupBox dan design form
seperti pada gambar diatas.
Coding
Sekarang saat nya kita melakukan coding pada project ini.
Double click pada “TimerShutdown”, lalu ketikkan code seperti dibawah ini.
No Nama Notify
Icon
Properties
Text Shutdown
1 Notify Icon Icon Cari gambar (*.ico)
yang di senangi
_____________________.Net – Step IX
Junindar
Code diatas merupakan proses untuk mematikan PC, logika nya jika waktu saat ini
sama dengan waktu pada DateTimePicker yang kita setting, maka PC akan mati.
Sedangkan code-code di bawah nya yang di kasih comment merupakan proses untuk
Restart, Logoff dan abort. Jadi para pembaca dapat memodif program ini sesuai
dengan keinginan.
Double Click BtnEnabled, dan ketik sintaks seperti di bawah:
Logika dari sintaks diatas yaitu , pada saat program dijalankan pertama kali
TimerShutdown kita set False untuk enabled, dan text untuk btnEnabled = “Disabled”,
dan jika di klik button ini maka DateTimePicker menjadi Disabled dan Timer pun
dijalankan. Dan proses ini di lakukan sebaliknya.
If btnEnabled.Text = "Disabled" Then
DtTime.Enabled = False
btnEnabled.Text = "Enabled"
TimerShutdown.Enabled = True
Else
DtTime.Enabled = True
btnEnabled.Text = "Disabled"
TimerShutdown.Enabled = False
End If
Dim P_Time As String
P_Time = Format(TimeOfDay, "hh:mm tt")
Try
If P_Time = Trim(DtTime.Text) Then
System.Diagnostics.Process.Start("Shutdown", "/s")
' Untuk shutdown
' System.Diagnostics.Process.Start("Shutdown",
"/r") 'Untuk Restart
' System.Diagnostics.Process.Start("Shutdown",
"/l") ' Untuk logoff
' System.Diagnostics.Process.Start("Shutdown",
"/a") ' untuk abort
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
_____________________.Net – Step IX
Junindar
Double click button Hide, dan ketik sintak berikut
Sintaks diatas untuk menghilangkan form pada layar dan taskbar.
Double click menu item exit dan View, ketik sintaks untuk masing menu item seperti
dibawah ini :
Jika sudah selesai melakukan proses-proses diatas, coba jalankan program dengan
menekan tombol F5.
Untuk menutup program click kana pada icon, dan klik exit. Sedangkan untuk
menghilangkan tampilan pada layar klik button Hide. Untuk menampilkan kembali klik
kanan dan klik View. Untuk menjalankan auto shutdown tentukan jam yang di inginkan,
lalu klik button Disabled dan klik button Hide.
Me.Opacity = 0%
Me.ShowInTaskbar = False
End
Me.Opacity = 100%
Me.ShowInTaskbar = True
_____________________.Net – Step IX
Junindar
Jika program ini jalan kita bisa mengipelmentasikan pada computer kita masing-
masing tanpa perlu mendownload atau membelinya. Yang lebih penting kita sudah
membuat suatu kreasi dan membuat kita lebih kreatif. Dan program ini masih bisa di
explore lagi sehingga bisa menjadi program auto shutdown yang lebih bagus dan
handal.
Selamat mencoba …………………………………………
II. PENUTUP
Untuk mendownload source code lengkap nya, dapat di download pada blog
penulis, http://junindar.blog.com . Semoga Artikel-artikel tentang VB.Net ini masih
tetap saya tulis, seiring dengan berkembangnya ilmu yang saya miliki.
Aminnnnnnnnnnnnnnnn
_____________________.Net – Step X
Junindar
Junindar
Blog : http://junindar.blog.com
E-Mail : xx_lead@yahoo.com
junindar@gmail.com
STEP X
Library Not Registered
I. Pengantar
Artikel kali ini yang penulis buat tidak mengenai pemograman dengan Vb.net, yang
seperti biasa nya penulis buat. Tapi kali bagaimana cara kita memperbaiki Visual
Studio kita ketika mengalami error. Penulis Pernah ga mengalami error message
seperti ini “Library Not Registered”, ketika mau membuat Project baru ,form, class
dan sebagainya…
Lisensi Dokumen:
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat
tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang
disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang,
kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
_____________________.Net – Step X
Junindar
Kenapa hal itu bisa terjadi ? Seperti yang penulis baca di
http://support.microsoft.com/kb/823244 sebab pada saat kita membuat setup
project, kita memasukkan file Extensibility dan VSLangProj, kemudian kita install
ke PC kita. Dan ketika kita remove program ini dari PC, lalu kita mau
membuat project baru maka error “Library Not Registered” muncul.
Lalu apakah yang akan kita lakukan???? Sebenarnya ini merupakan pengalaman
penulis ketika menghadapi error seperti ini, dengan segala macam cara penulis
lakukan untuk memperbaiki Visual Studio penulis.
Disini penulis akan menceritakan bagaimana tahap yang penulis lakukan untuk
memperbaikinya..
sesudah melakukan pencarian dengan google, penulis menumukan solusi dari
Microsoft dengan link diatas. Tapi penulis sangat kaget sebab harus Repair atau
ReInstal VS.Net. Tapi Itu bukan solusi yang menarik dan baik bagi penulis..
sesudah sedikit kecewa dengan solusi yang diberikan oleh microsoft, maka penulis
berusaha mencari lagi solusi lain, yaitu dengan cara Register ulang file vcproj.dll
(regsvr32.exe "C:\Program Files\Microsoft Visual Studio .NET
2003\Vc7\vcpackages\csproj.dll"). wah penulis sangat bahagia sebab ada cara
yang sangat gampang untuk memperbaiki.
Tetapi sesudah melakukan hal diatas penulis mendapatkan pesan seperti dibawah,
lalu penulis mencoba melakukan pencarian file ini (csproj.dll) didalam folder,
ternyata file ini tidak ada.
Menurut penulis mungkin hilang sewaktu penulis UnInstall program, lalu penulis
mencari file ini di internet, syukur alhamdulillah penulis mendapatkan nya.
Lalu file ini di copy kedalam folder dan ulangi register file,
dan........................................
_____________________.Net – Step X
Junindar
Pesan yang sama muncul seperti diatas, penulis sangat kecewa dan kecewa..
Akhir nya udah mentok ya seperti emang harus di Repair VS.Net nya. Lalu penulis
melakukan Repair VS.Net yang ada di PC, sesudah memakan waktu 5-10 menit, Restart
PC lalu buka VS.Net dan buat project apa yang terjadi “LIBRARY NOT
REGISTERED“ yang muncul. Semakin putus asa, penulis melakukan searching
dimana-mana tapi solusi nya selalu sama saja Register csproj.dll.
Dengan prasaan yang putus asa penulis akhirnya memutuskan langkah terakhir yaitu
dengan ReInstall.. Penulis UnInstall VS.Net lalu Reboot, Install lalu ReBoot. Lumayan
memakan waktu yang lumayan. Akhirnya selesai juga, dengan prasan PEDE penulis buka
aplikasi dan buat project baru TETAPI hal paling penulis takutkan muncul lagi yaitu
muncul kalimat yang paling penulis takutkan di waktu-waktu ini “LIBRARY NOT
REGISTERED“. Betapa kagetnya ketika melihat hal ini , sepertinya ini akan
menjadi pekerjaan yang paling di takutkan yaitu dengan cara Intall OS…. Wahh
TIDAKKKKKKKKKKKKKK…..
Lalu dengan prasaan yang tidak semangat penulis mencoba mencari lagi solusi dengan
melakukan pencarian dengan google, penulis tidak tau sudah sampai page ke berapa akhir
nya penulis membuka sebuah link, yang memberikan solusi dengan mengisntall
Windows Script 5.6, lalu hal ini pun penulis lakukan, sesudah melakukan proses
install yang Cuma 1 menit, lalu Reboot. Maka dengan prasaan yang tidak yakin penulis
mencoba membuat project baru, lalu apa yang
terjadiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii, ternyata dan tak pernah penulis duga
project ini berhasil dibuat.. itu berarti tidak ada error lagi pada VS.Net penulis..
PENUTUP
Sebenarnya dengan sengaja penulis menerangkan dengan panjang lebar solusi untuk
menyelesaikan masalah ini , sebab itu lah yang penulis alami.. penulis juga
pengen para pembaca juga ikut merasakan apa yang penulis alami.. ..
Semoga Artikel-artikel tentang VB.Net ini masih tetap saya tulis, seiring dengan
berkembangnya ilmu yang saya miliki. Aminnnnnnnnnnnnnnnn
_____________________.Net – Step XI
Junindar
STEP BY STEP MENJADI
PROGRAMMER HANDAL
DENGAN VB.NET
Junindar
Blog : http://junindar.blog.com
E-Mail : xx_lead@yahoo.com
junindar@gmail.com
STEP XI
Membuat Program Stopwatch
I. Pengantar
Didalam pemograman sering sekali kita melupakan hal-hal sederhana sebab kita
selalu saja memikirkan sesuatu yang sangat sulit, sehingga nanti nya hal yang
mudah akan kita temui menjadi sangat susah diselesaikan.
Untuk itu penulis mengajak para pembaca untuk membuat program yang sederhana
dan nantinya bisa kita gunakan atau manfaatkan pada computer kita. Program yang
akan kita buat yaitu Program Stopwatch. Untuk artikel ke 11 ini saya asumsikan
Lisensi Dokumen:
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat
tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang
disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang,
kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
_____________________.Net – Step XI
Junindar
para pembaca sudah membaca seluruh artikel saya di www.ilmukomputer.com jadi
penyampaian dan penya