Sabtu, 07 Januari 2012
Mengurutkan data secara Ascending atau Descending
Ini adalah listing untuk mengurutkan data secara Ascending maupun Descending. Jangan lama2, silahkan download disini.
Membuat MenuBar yang menawan
Wah, kita terkadang heran. Kok, ada gambar didalam menubar…??? Alasannya adalah dia memakai komponen Ocx yang bernama “menu.ocx “ cara pakainya mudah. Anda tinggal mengaturnya di properties. Nach, untuk mengetahui itu semua ada tipsnya lho. Silahkan download disini.
Form berada didepan
Ini adalah listing untuk menjadikan form yang kita panggil berada didepan. Jadi, untuk mempelajarinya anda harus memperhatikan lebih detail ke listing pada program ini. Silahkan download disini.
Bermain MessageBox
MessageBox adalah sebuah fitur yang dapat menginformasikan berdasarkan perintah yang tereksekusi. Namun, sebagian daripada kita bingung dengan MessageBox. Nach ini ada sedikit permainan yang mudah2an dapat membantu anda. Download disini.
Animasi teks muncul perhuruf
Ini adalah listing untuk memunculkan teks perhuruf. Keren banget lho kalau dipasang pada form kita. Download disini.
Membuat TreeView
TreeView biasanya digunakan utk menampilkan data berjenjang atau bisa juga dibukan sebagai menu. Berikut ini saya akan berikan contoh bagaimana membuat data bisa ditampilkan pada treeview ini, namun sebelumnya saya akan perlihatkan cara sederhana utk membuat treeview ini sbg menu seperti gambar dibawah ini :
Kode utk menampilkan seperti gambar diatas adalah seperti dibawah ini
Private Sub Form_Load()
Dim vnode As Node
With TreeView1
.ImageList = ImageList1
'---membuat node Header dgn key=Header
'---key ini nantinya digunakan utk acuan
'---membuat subnode
Set vnode = .Nodes.Add(, , "Header", "Root")
'---membuat sub node dibawah node header dgn key=Child1
Set vnode = .Nodes.Add("Header", tvwChild, "SubNode1", "Child 1")
Set vnode = .Nodes.Add("Header", tvwChild, "SubNode2", "Child 2")
'---membuat sub node dibawah subnode Child 1"
Set vnode = .Nodes.Add("SubNode1", tvwChild, "SubNode", "Child 1-1")
vnode.EnsureVisible
End With
ListView1.ColumnHeaders.Add , , "Company Name", 2000
End Sub
Sekarang saya akan memberikan contoh treeview yang digunakan sebagai seperti layaknya Windows Explorer, dimana treeview berpasangan dengan listview seperti gambar dibawah ini :
Kode utk bisa seperti gambar diatas seperti berkut ini
Private Sub cmdCustomer_Click()
Dim vnode As Node
TreeView1.Nodes.Clear
Set vnode = TreeView1.Nodes.Add(, , "Root", "Kode Pelanggan", 1)
Do While adoRset.EOF = False
Set vnode = TreeView1.Nodes.Add("Root", tvwChild, , adoRset!customerid, 2)
adoRset.MoveNext
Loop
'--semua node di expan/terlihat
vnode.EnsureVisible
End Sub
'--event ini utk menampilkan data ke dlm listview
'--berdasarkan node yg di click
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
adoRset.Close
Dim Kode As String
Dim SQL As String
Kode = TreeView1.Nodes(Node.Index).Text
SQL = "SELECT CompanyName FROM customers WHERE customerID= '" & Kode & "'"
adoRset.Open SQL, adoConn
Dim vItem As ListItem
ListView1.ListItems.Clear
With ListView1
.View = lvwReport
Do While adoRset.EOF = False
Set vItem = .ListItems.Add(, , adoRset!CompanyName)
adoRset.MoveNext
Loop
End With
End Sub
Sumber: visualcode.comxa.com
Animasi Form jatuh kebawah
Mungkin teman2 bingung dengan nich judul. Tapi, ini beneran lho... ada Form yang dapat jatuh kebawah. Jadi, jangan lama2, download disini.
Membuat Laporan dengan Crystal Report & Visual Basic 6.0
Dalam pembuatan program database report dipergunakan untuk menampilkan data hasil seleksi maupun hasil proses pemrograman.
Crystal Report merupakan paket software yang dipergunakan untuk keperluan menampilkan report.
Banyak fitur pengolahan report yang disediakan oleh crystal report namun saya lebih suka memanipulasi data report melalui Query yang ada di SQL Server maupun melalui kode di Visual Basic 6.0
Misalnya kita akan menampilkan daftar nama kota ke file Kota.rpt
Komponen-komponen penyusun report dalam aplikasi kita adalah sebagai berikut:
1. View atau Table dibuat dengan SQL Server (MIS: tbl_kota atau View_kota)
2. Report dibuat dengan Crystal Report (misal kota.rpt)
3. Report Viewer (Penampil Report) dibuat dengan Form Visual Basic dan Komponen Crystal Report)
4. Script untuk memanggil frmViewer
Untuk membuat report dengan crystal report kita terlebih dahulu menghubungkan Crystal Report ke Tabel atau View di SQL Server. Lalu file report mis: kota.rpt disimpan.
Gambar di bawah ini adalah contoh report yang dibuat dengan crystal report:
Setelah file disimpan, file ini nanti ditampilkan dengan Viewer (Penampil yang akan kita buat sendiri.
Penampil/Viewer report ini dibuat dengan form Visual Basic yang di dalamnya terdapat komponen Crystal Report Viewer.
Lihat gambar di bawah ini:
Selanjutnya form tersebut kita berinama frmViewer.frm
Di dalam frmViewer ini tentunya ada kode penampil sbb:
Public rptName As String
Public Sql As String
Public sConn As String
Private Sub Form_Load()
Dim oConn As New ADODB.Connection
oConn.Open sConn
Dim oRs As New ADODB.Recordset
Dim CrystalApp As New CRAXDRT.Application
Dim CrystalRpt As CRAXDRT.Report
oRs.Open Sql, oConn, adOpenStatic, adLockReadOnly, adCmdText
Set CrystalRpt = CrystalApp.OpenReport(rptName)
CrystalRpt.DiscardSavedData
CrystalRpt.Database.SetDataSource oRs
'-- tampilkan report pada viewer
CrystalActiveXReportViewer1.ReportSource = CrystalRpt
CrystalActiveXReportViewer1.ViewReport
oRs.Close
End Sub
Sekarang waktunya membuat tombol dan script pemanggil frmViewer. Kodenya adalah sbb:
Private Sub cmdLaporan_Click()
frmViewer.sConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Dataku;Data Source=."
frmViewer.rptName = "kota.rpt"
frmViewer.Sql = "select * from kota where kode_kota=’K-001’"
frmViewer.Show
End Sub
Jika kode kita benar setelah mengklik tombol laporan maka akan berjalan seperti gambar di bawah ini:
OK. Selamat sekarang report anda telah berjalan.
Untuk mempermudah pemahaman memang saya menjelaskan tahap-tahap pembuatan report secara garis besar. Ini artinya ada yang terpotong-potong.
Sumber: www.xbasicpro.com
Crystal Report merupakan paket software yang dipergunakan untuk keperluan menampilkan report.
Banyak fitur pengolahan report yang disediakan oleh crystal report namun saya lebih suka memanipulasi data report melalui Query yang ada di SQL Server maupun melalui kode di Visual Basic 6.0
Misalnya kita akan menampilkan daftar nama kota ke file Kota.rpt
Komponen-komponen penyusun report dalam aplikasi kita adalah sebagai berikut:
1. View atau Table dibuat dengan SQL Server (MIS: tbl_kota atau View_kota)
2. Report dibuat dengan Crystal Report (misal kota.rpt)
3. Report Viewer (Penampil Report) dibuat dengan Form Visual Basic dan Komponen Crystal Report)
4. Script untuk memanggil frmViewer
Untuk membuat report dengan crystal report kita terlebih dahulu menghubungkan Crystal Report ke Tabel atau View di SQL Server. Lalu file report mis: kota.rpt disimpan.
Gambar di bawah ini adalah contoh report yang dibuat dengan crystal report:
Setelah file disimpan, file ini nanti ditampilkan dengan Viewer (Penampil yang akan kita buat sendiri.
Penampil/Viewer report ini dibuat dengan form Visual Basic yang di dalamnya terdapat komponen Crystal Report Viewer.
Lihat gambar di bawah ini:
Selanjutnya form tersebut kita berinama frmViewer.frm
Di dalam frmViewer ini tentunya ada kode penampil sbb:
Public rptName As String
Public Sql As String
Public sConn As String
Private Sub Form_Load()
Dim oConn As New ADODB.Connection
oConn.Open sConn
Dim oRs As New ADODB.Recordset
Dim CrystalApp As New CRAXDRT.Application
Dim CrystalRpt As CRAXDRT.Report
oRs.Open Sql, oConn, adOpenStatic, adLockReadOnly, adCmdText
Set CrystalRpt = CrystalApp.OpenReport(rptName)
CrystalRpt.DiscardSavedData
CrystalRpt.Database.SetDataSource oRs
'-- tampilkan report pada viewer
CrystalActiveXReportViewer1.ReportSource = CrystalRpt
CrystalActiveXReportViewer1.ViewReport
oRs.Close
End Sub
Sekarang waktunya membuat tombol dan script pemanggil frmViewer. Kodenya adalah sbb:
Private Sub cmdLaporan_Click()
frmViewer.sConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Dataku;Data Source=."
frmViewer.rptName = "kota.rpt"
frmViewer.Sql = "select * from kota where kode_kota=’K-001’"
frmViewer.Show
End Sub
Jika kode kita benar setelah mengklik tombol laporan maka akan berjalan seperti gambar di bawah ini:
OK. Selamat sekarang report anda telah berjalan.
Untuk mempermudah pemahaman memang saya menjelaskan tahap-tahap pembuatan report secara garis besar. Ini artinya ada yang terpotong-potong.
Sumber: www.xbasicpro.com
Minggu, 20 Februari 2011
AMD vs Intel : Perlawanan Sebuah Prosesor Tangguh
Tidak bisa dipungkiri, persaingan pasar prosesor akhir-akhir kian memanas dengan dua kubu sebagai pemain utama persaingan, yaitu Intel yang telah lama mendominasi pasar dan AMD yang baru-baru ini banyak meluncurkan produk yang unjuk kerjanya cukup mengancam dominasi Intel.
Tanpa memihak pada Intel maupun AMD, dan membiarkan Anda mengerti sebagai konsumen, persaingan keras kedua perusahaan ini untuk mendominasi pasar dari musim ke musim berikutnya tidak selalu membuat produk dari perusahaan yang satu menjadi lebih baik dari produk perusahaan yang lain, begitu pula sebaliknya.
Sebenarnya akan lebih baik jika mempunyai pilihan ketiga, namun sayangnya semua teknologi terbaik dari Transmeta masih diperdebatkan keabsahan HAKI-nya. Masih saja tentang proses penghematan energi yang dianggap lebih penting pada setiap perbandingan unjuk kerja dari hari ke hari.
Seperti yang kita ketahui sekarang, Intel mendominasi pasar prosesor, baik dari segi harga, unjuk kerja, dan tentu saja dari segi kepastian mutu. Tentu saja pendapat ini timbul tanpa memperhitungkan AMD didalamnya.
Selama ini AMD telah lambat dalam menangani 'kekakuan' dalam pengembangan teknologinya, melesetnya tanggal peluncuran mungkin telah mengakibatkan AMD mati langkah dalam menghadapi pesaingnya, dan apapun hasilnya itu telah membuat AMD berhutang $5 Milyar kepada ATI di permulaan tahun ini.
Chipset AMD 690G adalah salah satu contoh sukses yang terkenal, dan jika Intel telah mengajarkan kita segalanya, semua itu menyamaratakan jalan dominasi chipset di pasar PC. AMD tidak tertidur dalam perputaran roda teknologi prosesor. Mungkin banyak terlambat, tetapi tidak mati. Saat ini AMD telah menyiapkan sebuah prosesor tangguh yang dijuluki ‘K10’, dan sebuah prosesor perbaikan dari 'Barcelona'. Tidak banyak yang tahu tentang unjuk kerja prosesor desktop AMD yang akan datang (K10 Phenom X2 dan X4) saat ini, namun kita harus mencari tahu dengan cepat apakah ‘Agena’ dan ’Kuma’ ini akan dapat membuat Intel merugi.
Ketika banyak produk AMD yang sukses belakangan ini, maka akan banyak rekannya yang mengikuti jejaknya, sedangkan Intel menjamin bahwa kesuksesan prosesor Core 2 Duo akan menjadi rancangan sempurna bagi sebuah chipset masa depan. Seperti yang mereka katakan, “Inilah yang namanya chipset”.
Prosesor Intel Core 2 Duo adalah prosesor yang sangat efesien, nilai dengan TDP (Thermal Design Power) hanya kurang lebih setengah dari yang digunakan seri Pentium 4/D, dan dalam test pemakaian nyata menunjukkan bahwa sistem komputer yang mempergunakan Intel Core 2 Duo memang menghemat banyak tenaga.
Itu semua memang baik, hal ini sangat mengangkat Intel bukan karena selisih beberapa point kecepatannya, namun karena Core 2 Duo memang lebih cepat dan harganya yang sangat kompetitif. Mungkin nilai dari sebuah prosesor masih seringkali tidak kita perhatikan selama ini. Yang perlu diingat adalah walaupun Extreme Edition dari Intel masih dihargai sangat tinggi, namun masih dipandang sangat pantas untuk inovasi CPU desktop. Bandingkan dengan prosesor AMD yang dengan harga yang relatif sama, Intel tetap masih berada di atasnya.
Jadi sebagaimana telah dibahas di atas, sebenarnya kapankan waktu yang tepat untuk AMD ataupun Intel? Intel masih memenangkan babak ini. Intinya bahwa manuver Intel masih melebihi AMD, juga seluruh generasi prosesor ganda yang ada. Unjuk kerja Core 2 Duo memang sangat memuaskan, itulah sebabnya banyak yang merekomendasikannya.
Namun sebelum menutup pembicaraan ini, ada satu hal lagi yang harus diingat. Sepanjang perbandingan kita berdasarkan pada kesetiaan pada merk dan uji unjuk kerja saja, maka tidak akan ada banyak pilihan dari teknologi yang terbaru dan terbaik. Yang terpenting saat ini adalah jika komputer yang Anda pakai sekarang telah mampu memenuhi semua kebutuhan komputasi Anda, maka Anda tidak perlu lagi repot memilih antara Intel dan AMD.
Sumber: www.beritanet.com
Tanpa memihak pada Intel maupun AMD, dan membiarkan Anda mengerti sebagai konsumen, persaingan keras kedua perusahaan ini untuk mendominasi pasar dari musim ke musim berikutnya tidak selalu membuat produk dari perusahaan yang satu menjadi lebih baik dari produk perusahaan yang lain, begitu pula sebaliknya.
Sebenarnya akan lebih baik jika mempunyai pilihan ketiga, namun sayangnya semua teknologi terbaik dari Transmeta masih diperdebatkan keabsahan HAKI-nya. Masih saja tentang proses penghematan energi yang dianggap lebih penting pada setiap perbandingan unjuk kerja dari hari ke hari.
Seperti yang kita ketahui sekarang, Intel mendominasi pasar prosesor, baik dari segi harga, unjuk kerja, dan tentu saja dari segi kepastian mutu. Tentu saja pendapat ini timbul tanpa memperhitungkan AMD didalamnya.
Selama ini AMD telah lambat dalam menangani 'kekakuan' dalam pengembangan teknologinya, melesetnya tanggal peluncuran mungkin telah mengakibatkan AMD mati langkah dalam menghadapi pesaingnya, dan apapun hasilnya itu telah membuat AMD berhutang $5 Milyar kepada ATI di permulaan tahun ini.
Chipset AMD 690G adalah salah satu contoh sukses yang terkenal, dan jika Intel telah mengajarkan kita segalanya, semua itu menyamaratakan jalan dominasi chipset di pasar PC. AMD tidak tertidur dalam perputaran roda teknologi prosesor. Mungkin banyak terlambat, tetapi tidak mati. Saat ini AMD telah menyiapkan sebuah prosesor tangguh yang dijuluki ‘K10’, dan sebuah prosesor perbaikan dari 'Barcelona'. Tidak banyak yang tahu tentang unjuk kerja prosesor desktop AMD yang akan datang (K10 Phenom X2 dan X4) saat ini, namun kita harus mencari tahu dengan cepat apakah ‘Agena’ dan ’Kuma’ ini akan dapat membuat Intel merugi.
Ketika banyak produk AMD yang sukses belakangan ini, maka akan banyak rekannya yang mengikuti jejaknya, sedangkan Intel menjamin bahwa kesuksesan prosesor Core 2 Duo akan menjadi rancangan sempurna bagi sebuah chipset masa depan. Seperti yang mereka katakan, “Inilah yang namanya chipset”.
Prosesor Intel Core 2 Duo adalah prosesor yang sangat efesien, nilai dengan TDP (Thermal Design Power) hanya kurang lebih setengah dari yang digunakan seri Pentium 4/D, dan dalam test pemakaian nyata menunjukkan bahwa sistem komputer yang mempergunakan Intel Core 2 Duo memang menghemat banyak tenaga.
Itu semua memang baik, hal ini sangat mengangkat Intel bukan karena selisih beberapa point kecepatannya, namun karena Core 2 Duo memang lebih cepat dan harganya yang sangat kompetitif. Mungkin nilai dari sebuah prosesor masih seringkali tidak kita perhatikan selama ini. Yang perlu diingat adalah walaupun Extreme Edition dari Intel masih dihargai sangat tinggi, namun masih dipandang sangat pantas untuk inovasi CPU desktop. Bandingkan dengan prosesor AMD yang dengan harga yang relatif sama, Intel tetap masih berada di atasnya.
Jadi sebagaimana telah dibahas di atas, sebenarnya kapankan waktu yang tepat untuk AMD ataupun Intel? Intel masih memenangkan babak ini. Intinya bahwa manuver Intel masih melebihi AMD, juga seluruh generasi prosesor ganda yang ada. Unjuk kerja Core 2 Duo memang sangat memuaskan, itulah sebabnya banyak yang merekomendasikannya.
Namun sebelum menutup pembicaraan ini, ada satu hal lagi yang harus diingat. Sepanjang perbandingan kita berdasarkan pada kesetiaan pada merk dan uji unjuk kerja saja, maka tidak akan ada banyak pilihan dari teknologi yang terbaru dan terbaik. Yang terpenting saat ini adalah jika komputer yang Anda pakai sekarang telah mampu memenuhi semua kebutuhan komputasi Anda, maka Anda tidak perlu lagi repot memilih antara Intel dan AMD.
Sumber: www.beritanet.com
Langganan:
Postingan (Atom)
