17.36 | 0
komentar | Read More
Contoh Program Input Data Barang Turbo C++
Written By V - Net Kudukeras on Rabu, 03 Agustus 2011 | 17.36
1928 JUDUL SKRIPSI JURUSAN INFORMATIKA
Written By V - Net Kudukeras on Sabtu, 02 Juli 2011 | 07.06
Bagi kawan-kawan sesama mahasiswa terutama jurusan Teknik Informatika, Manajemen Informatika, Sistem Informasi, Teknik Komputer, Teknik Elektro maupun jurusan-jurusan lain yang pendalaman minatnya mengarah ke dunia teknologi informasi / IT kadang untuk mendapatkan ide judul skripsi yang relevan dengan jurusan minatnya tersebut mungkin mengalami kesulitan. Apalagi bagi kawan-kawan mahasiswa yang masih blank belum kepikiran untuk mengambil skripsi.
Bagi yang sering mondar-mandir ke perpustakaan kampus sih kadang agak terbuka wawasannya dengan melihat-lihat judul skripsi para kakak kelas. Paling tidak jika bagi mahasiswa yang belum waktunya untuk mengambil skripsi maka sebaiknya sudah punya ancang-ancang judul skripsi apakah yang akan digunakan nanti. Berikut ini ada beberapa judul-judul skripsi jurusan Teknik Informatika, Manajemen Informatika, Sistem Informasi dll yang bisa kawan-kawan jadikan sebagai acuan untuk menentukan judul skripsi/tugas akhir nanti. Hehehehe… siapa tau dari sekian banyak judul skripsi ini ada yang bisa dijadikan inspirasi untuk judul skripsi kalian.
Bagi yang sering mondar-mandir ke perpustakaan kampus sih kadang agak terbuka wawasannya dengan melihat-lihat judul skripsi para kakak kelas. Paling tidak jika bagi mahasiswa yang belum waktunya untuk mengambil skripsi maka sebaiknya sudah punya ancang-ancang judul skripsi apakah yang akan digunakan nanti. Berikut ini ada beberapa judul-judul skripsi jurusan Teknik Informatika, Manajemen Informatika, Sistem Informasi dll yang bisa kawan-kawan jadikan sebagai acuan untuk menentukan judul skripsi/tugas akhir nanti. Hehehehe… siapa tau dari sekian banyak judul skripsi ini ada yang bisa dijadikan inspirasi untuk judul skripsi kalian.
07.06 | 0
komentar | Read More
Export Data Access ke Excel via Visual Basic
Private Sub Command1_Click()
Dim app As Application
Dim wbk As Workbook
Dim sheet As Worksheet
Set app = Excel.Application
Set wbk = app.Workbooks.Add
Set sheet = wbk.Worksheets(1)
sheet.Cells(5, 5) = "Kode"
sheet.Cells(5, 6) = "Nama Hardware"
sheet.Range("E5:F5").Font.Bold = True
sheet.Range("E5:F5").Borders.LineStyle = xlContinuous
ActiveWindow.DisplayGridlines = False
With RstHardwareExcel
.MoveFirst
n = 5
For i = 1 To .RecordCount
sheet.Cells(n + i, 5) = .Fields(0)
sheet.Cells(n + i, 6) = .Fields(1)
sheet.Range("E" & n+i & ":F" & n+i).Borders.LineStyle=xlContinuous
.MoveNext
Next i
End With
sheet.Range("E5").EntireColumn.AutoFit
sheet.Range("F5").EntireColumn.AutoFit
Me.CommonDialog1.DialogTitle = "File Name"
Me.CommonDialog1.Filter = "File Excel|*.xls"
Me.CommonDialog1.ShowSave
wbk.SaveAs Me.CommonDialog1.FileName
wbk.Close
app.Quit
Set sheet = Nothing
Set wbk = Nothing
Set app = Nothing
End Sub
Private Sub Form_Load()
BukaKoneksi
BukaHardwareExcel
End Sub
Private Sub Form_Unload(Cancel As Integer)
TutupHardwareExcel
TutupKoneksi
End Sub
*) Untuk koneksi Database Access saya menggunakan Modul, berikut dibawah ini adalah isi dari Modul yang saya buat di VB
Public Koneksi As ADODB.Connection
Public RstHardwareExcel As ADODB.Recordset
Sub BukaKoneksi()
Set Koneksi = CreateObject("ADODB.Connection")
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.Path & "\data.mdb"
End Sub
Sub BukaHardwareExcel()
Set RstHardwareExcel = CreateObject("ADODB.RecordSet")
RstHardwareExcel.Open "Hardware", Koneksi, adOpenStatic,adLockOptimistic
End Sub
Sub TutupKoneksi()
Koneksi.Close
Set Koneksi = Nothing
End Sub
Dibawah ini merupakan Contoh Form ketika saya jalankan
Dim app As Application
Dim wbk As Workbook
Dim sheet As Worksheet
Set app = Excel.Application
Set wbk = app.Workbooks.Add
Set sheet = wbk.Worksheets(1)
sheet.Cells(5, 5) = "Kode"
sheet.Cells(5, 6) = "Nama Hardware"
sheet.Range("E5:F5").Font.Bold = True
sheet.Range("E5:F5").Borders.LineStyle = xlContinuous
ActiveWindow.DisplayGridlines = False
With RstHardwareExcel
.MoveFirst
n = 5
For i = 1 To .RecordCount
sheet.Cells(n + i, 5) = .Fields(0)
sheet.Cells(n + i, 6) = .Fields(1)
sheet.Range("E" & n+i & ":F" & n+i).Borders.LineStyle=xlContinuous
.MoveNext
Next i
End With
sheet.Range("E5").EntireColumn.AutoFit
sheet.Range("F5").EntireColumn.AutoFit
Me.CommonDialog1.DialogTitle = "File Name"
Me.CommonDialog1.Filter = "File Excel|*.xls"
Me.CommonDialog1.ShowSave
wbk.SaveAs Me.CommonDialog1.FileName
wbk.Close
app.Quit
Set sheet = Nothing
Set wbk = Nothing
Set app = Nothing
End Sub
Private Sub Form_Load()
BukaKoneksi
BukaHardwareExcel
End Sub
Private Sub Form_Unload(Cancel As Integer)
TutupHardwareExcel
TutupKoneksi
End Sub
*) Untuk koneksi Database Access saya menggunakan Modul, berikut dibawah ini adalah isi dari Modul yang saya buat di VB
Public Koneksi As ADODB.Connection
Public RstHardwareExcel As ADODB.Recordset
Sub BukaKoneksi()
Set Koneksi = CreateObject("ADODB.Connection")
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.Path & "\data.mdb"
End Sub
Sub BukaHardwareExcel()
Set RstHardwareExcel = CreateObject("ADODB.RecordSet")
RstHardwareExcel.Open "Hardware", Koneksi, adOpenStatic,adLockOptimistic
End Sub
Sub TutupKoneksi()
Koneksi.Close
Set Koneksi = Nothing
End Sub
Dibawah ini merupakan Contoh Form ketika saya jalankan
*) Setelah Form muncul berikutnya
diclick Command1 maka akan muncul tampilan CommondDialog dalam bentuk ShowSave seperti dibawah ini
diclick Command1 maka akan muncul tampilan CommondDialog dalam bentuk ShowSave seperti dibawah ini
Ketika muncul Commond Dialog dengan bentuk ShowSave maka berikutnya silahkan diberi nama filenya, maka akan muncul file Excel dengan nama tersebut.
Nah tinggal dicek aja
Selamat Mencoba
06.54 | 0
komentar | Read More
Percantik Explorer dengan Explorer Breadcrumbs
Dengan Explorer Breadcrumbs maka akan mempermudah Anda dalam menjelajah setiap hirarki folder pada Windows ExplorerDownload file
06.34 | 0
komentar | Read More


