VB6 Samba

Selasa, 28 Juni 2011

Berikut ini catatan kecil yang saya buat saat melakukan eksperimen dikantor. Alkisah terdapat sebuah aplikasi yang dibangun menggunakan Visual Basic 6 (VB6). Hehe, berarti berbasis Client-Server dunk. Aplikasi ini menggunakan dua buah server. Namun saya dua-duanya berbasis Microsoft Windows hehe. Satu server untuk menampung Database Oracle, dan satu server untuk menampung file Image/Gambar. Nah, masalah mulai muncul pada server Image. Dikarenakan dishare secara full, maka, jadilah ia tempat berternak virus yang baik hehe.

Ya, mulailah ide untuk melakukan migrasi server Image ke Linux. Jadi biarkan server databasenya menggunakan Windows, dan server Imagenya menggunakan Linux. Saya menggunakan Fedora 12, dimana aplikasi yang digunakan untuk menjembatani komunikasi beda sistem operasi adalah Samba. Samba adalah implementasi dari SMB protocol yaitu protocol yang digunakan oleh sistem Microsoft Windows untuk men-sharing file dan printer. Samba bersifat open source, dengan SMB Anda bisa mengakses file/berkas dan printer yang di-share oleh komputer Windows atau men-share file dan printer di komputer linux Anda. Maksud dan tujuan dari eksperimen berikut adalah membuat Server Image untuk Aplikasi VB6 berbasis Samba. Dengan harapan jauh dari virus dan kinerjanya baik hehe.

Oke lah, mari kita mulai:
1. Siapkan server dengan Distro Fedora, saya menggunakan Fedora12
2. Installah paket Samba jika belum ada:

1 2 3 4 5

samba-common-xxx.rpm samba-client.xxx.rpm sambaxxx.rpm system-config-samba.xxx.rpm system-config-samba-docs.xxx.rpm

Anda bisa gunakan perintah RPM atau YUM.
3. Lakukan perintah berikut:

1 2 3 4 5 6

'Buatlah folder misal: # mkdir /images 'Ubah Ownernya: # chown nobody:nobody /images 'Ubah permissionnya # chmod 711 /images

4. Dan mulailah dengan konfigurasi file /etc/samba/smb.conf

1 2 3 4 5 6 7 8 9 10 11

[global] workgroup = WORKGROUP server string = Images Share log file = /var/log/samba/log.%m max log size = 100 security = share [images] path = /images read only = no guest ok = yes

Sebagai Catatan:
Di Fedora 12 saya menggunakan Firewall Iptables dam SELinux. Nah kedua mahluk ini terkadang “mengganggu” samba saya. Hehe, maka dengan terpaksa saya mendisable keduanya. Dengan cara:

1 2 3

# chkconfig --level 35 iptables off 'atau # /etc/init.d/iptables stop

dan mengubah GRUB /boot/grub/grub.conf untuk mendisable SELinux.
dengan menambahkan di belakang baris yang menggandung kata kernel dengan perintah selinux=0. Restartlah server Anda. Kemudian jalakan dengan perintah:

1 2 3 4 5 6

'tambah user samba # smbpasswd -a yoga 'kemudian masukkan password samba 'restart service samba # /etc/init.d/nmb restart # /etc/init.d/smb restart

Selanjutnya kita dapat melakukan Mapping Drive dari komputer client ke server samba. Mapping Drive ini dimaksudkan agar Aplikasi VB6 dapat menggunakan Image/Gambar yang diletakkan di Share Samba. Melakukan mapping dapat dilakukkan dengan masuk ke IP Server. Dari \\xx.xx.xx.xx\ klik kanan folder yang mau di mapping > kemudian Map Network Drive > Berikan drive yang sesuai. Dengan setting samba di atas, asumsinya adalah user dapat melakukkan Mapping tanpa menggunakan password & username.

Case selanjutnya yang belum diselsaikan adalah:
Bagaimana caranya melakukan sharing samba yang dapat writeable gambar, namun user tidak dapat menghapus gambar yang berada pada folder share. Hehe, ini yang sedang dipikirkan. Jika pengunjung yang budiman ada yang tau, mohon kasi komentar yach

sumber : http://blog.yogaprihastomo.com/category/visual-basic/

Continue Reading | komentar

VB6 Chart

Hehehe… Tulisan pertama di awal tahun kenapa juga mesti tentang komputer yo wis biarin deh. Ok lah, Alkisah sedang mencari grafik/chart pada Website Kesayangan, eh tidak taunya bertemu dengan Animated Chart yang kemudian disempurnakan menjadi Ultra Chart. Kedua grafik ini dibuat oleh developer yang sama. Hmmm, wow keren. Kedua Chart ini dibundel kedalam sebuah User Control yang bisa langsung kita tambahkan ke project kita. Hehehe.. maunya sih dapat OCXnya Saya gunakan keduanya untuk menggenerate data statistik. Beberapa fitur yang ditawarkan kedua grafik ini adalah : adanya Theme, adanya legend, adanya tooltips, adanya save as picture, multiseries/categories, rotasi teks, dsb. Hehe silahkan coba sendiri.

Alternatif grafik lainnya yang tidak kalah menarik adalah Chart Control. Chart yang satu ini berupa 3DBar yang menarik. Namun, dari semuanya, control yang dibuat hanya untuk Bar chart, tidak mendukung jenis grafik lainnya. Untuk keperluan sederhana sepertinya sudah mumpuni kok, hehe.. tinggal tunggu update-an dari developernya jika masih ada bug. So far, belum nemu bug yang signifikan. Hehehe…, jika mau lengkap, sepertinya harus bayar euy hehe.

BTW, salut. Selamat mencoba :
- Unduh Animated Chart
- Unduh Ultra Chart
- Unduh Chart Control

sumber : http://blog.yogaprihastomo.com/category/visual-basic/

Continue Reading | komentar

FusionCharts VB

Menyambung tulisan sebelumnya mengenai User Control di Visual Basic 6 yang digunakan untuk membuat Chart. Maka tulisan berikut akan membahas mengenai komponen Berbayar untuk grafik di VB6. Namanya adalah FusionCharts For VB. Dengan komponen ini kita bisa :

** Menambahkan animasi dan grafik yang interaktif untuk aplikasi Visual Basic yang kita buat.
** Menggunakan sumber data berupa database, CSV, XML, Array
** Terdapat berbagai macam variasi grafik mulai dari 2D dan 3D
** Dapat di customize masing-masing darisetiap aspek grafik, baik fungsional dan tampilan
** Menyertakan dokumentasi yang baik dan contoh program.

1 2 3 4 5 6 7 8 9 10 11 12 13

'Contoh Code Sederhana 'Passing Chart Parameters chartParameters = "caption=Grafik PT/EBT;subcaption=Berdasarkan Per Tahun;xAxisName=Tahun;yAxisName=Jumlah;" Call FusionCharts1.Data.setChartParams(chartParameters) 'Passing recordset reference to FusionChart component Call FusionCharts1.Data.addDataFromDatabase(qryTahun, "Jumlah", "Tahun") 'Changes Chart Type to Combination2D FusionCharts1.ChartType = pie3d 'Calls render chart method FusionCharts1.RenderChart

Ya, FusionCharts For VB menggunakan media file Flash Movie sebagai media dalam menggenerate grafik. Lebih dari tiga puluh jenis grafik yang tersedia. Ya…, memang harga nggak pernah bohong hehe, dan memang layak jika dijadikan komponen untuk aplikasi VB6 Anda. Tampilannya memang interaktif sekali sehingga membuat aplikasi yang dibuat terkesan “lumayan” . Selamat mencoba. Rate:=****

sumber : http://blog.yogaprihastomo.com/category/visual-basic/

Continue Reading | komentar

VB Export ke HTML

Hehehe…, ya sudah saya doumentasikan saja. Alkisah saya mengedit aplikasi VB6 yang sudah berjalan. Ya…, reportnya (laporannya), ke DataReport. Kendalanya mulai muncul saat harus menampung sebuah field yang mempunyai ukuran karakter lebid dari 30000. Dimana fieldnya diletakkan di section header. Maka yang berhasil untuk dicetak sekitar 3000an karakter saja. Sebenarnya bisa juga sih diakalin dengan menghitung jumlah karakter yang akan dicetak, setelah dihitung maka kita panggil data report sampai n-data report. Namun terlihat nggak elegan hahaha…, Untuk report yang lebih professional sebenarnya dapat menggunakan ActiveReport atau CrystalReports. Hehe tapi bayar,,,

Berikut catatan yang saya dapatkan setelah melakukan sedikit percobaan. Label dapat menampung maksimal sekitar 28.000 karakter. TextBox dapat menampung sekitar 65.535 karakter. Dan RichTextBox sepertinya buanyak deh, saya coba…bisa lebih dari 3.000.000 karakter hehehe… tapi agak lemot loadingnya. Untuk menangani data text yang besar, silahkan gunakan RichTextBox. Untuk mengaktifkannya, silahkan masuk menu Project > Components (C, kemudian check pada bagian Microsoft Rich TextBox Control 6.0 (SP6).

Hidup ini indah…, pilihan ekport data sebenarnya saya punya dua pilihan (maklum taunya baru dua hehe). Pertama ke Microsoft Excel, dimana tutorialnnya pernah saya tulis Disini. Atas alasan kemudahan dan kecepatan, serta kompabilitas OS, maka diputuskan unutuk mengeksport ke format HTML. Yups,,, oke deh. Asumsinya, saya menggunakan VB6, DB Server SQL 2000 (Northwind).

Langkah pertama adalah mendesain tampilan webnya (HTML), silahkan gunakan Dreamweaver, atau Ms Frontpage, atau Notepad++. Silahkan desain sebagus mungkin…, hehehe gunakan jiwa seni Anda. Setelah Anda desain, hasil kodenya, akan dipakai untuk mengeksport data dari VB. Kemudian savelah file HTML ini di folder yang sama dengan project VB.

Langkah kedua adalah mendesain form di VB, saya gunakan sebuah DataGrid dan sebuah CommandButton

Langkah ketiga adalah pengkodeaan pada VB, berikut ini contoh pengkodeaan sederhana :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim result As Long Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Form_Load() 'Sesuaikan dengan kondisi komputer Anda Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cn.Open "Provider=SQLOLEDB; Server=YOGA; Initial Catalog=Northwind; User Id=sa; Password=password" Set rs = New ADODB.Recordset rs.Open "SELECT CompanyName, ContactName, ContactTitle, Address FROM Suppliers", cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs DataGrid1.Refresh End Sub Private Sub Command1_Click() rs.MoveFirst 'Sesuaikan Open App.Path & "\preview.html" For Output As #1 Print #1, "" Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " Suppliers List " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " For i = 1 To rs.RecordCount Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " rs.MoveNext Next i Print #1, " COMPANY NAME CONTACT NAME CONTACT TITLE ADDRESS " & rs!CompanyName & " " & rs!ContactName & " " & rs!ContactTitle & " " & rs!Address & " " Print #1, " " Print #1, " " Print #1, " " Print #1, " " Print #1, "" Close #1 result = ShellExecute(Me.hWnd, "Open", App.Path & "\preview.html", vbNullString, vbNullString, SW_MAXIMIZE) End Sub

Langkah keempat, berdoa supaya tidak error hehehe. BTW, intinya sih…, kita membutuhkan sebuah file temporary (html) yang akan menampung kode HTML yang kita generate dari VB. Kemudian, setelah di generate, baru kita open file HTML tersebut dengan fungsi ShellExecute. Selamat mencoba…

Referensi :
Planet Source Code

Continue Reading | komentar

Export Data Ke Excel

Harusnya sudah mengurangi “pertemanan” dengan Visual Basic 6, hehehe… akan tetapi kok nggak bisa yach…, masih terlalu cinta hehehe. Ya sudah…, saya mau share bagaimana caranya Export data ke Excel dengan VB6. Asumsinya adalah : Database yang digunakan Northwind bawaan SQL Server 2000. Dan tabelnya menggunakan Customers. Ok… Excelnya saya menggunakan yang 2003. Nanti tinggal disesuaikan saja.

1. Desain Form dengan satu Command Button.
2. Tambahkan Referensi dari Menu Project > References

3. Checklist “Microsoft ActiveX Data Object 2.1 Library” dan
“Microsoft Excel 11.0 Object Library” klik OK
4. Inilah kode program pada Form1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58

'Program Untuk Export Data Ke Microsoft Excel Dim Con As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim ExlObj As Excel.Application Dim Lc, NxtLine, K Private Sub Command1_Click() Set Con = New ADODB.Connection Con.Open "Provider=SqlOleDb; Data Source=ASP\YOGA;" _ & "Initial Catalog=Northwind; User Id=sa;" _ & "Password=password" Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseClient Set ExlObj = CreateObject("Excel.Application") ExlObj.Workbooks.Add Set Rs = Nothing Rs.Open "SELECT CompanyName, ContactName, ContactTitle, Address, City, Country" _ & " From Customers", Con, adOpenDynamic, adLockOptimistic If Not Rs.EOF Then ExlObj.Visible = True With ExlObj.ActiveSheet .Cells(1, 3).Value = "CETAK SEMUA DATA CUSTOMER" .Cells(1, 3).Font.Name = "Tahoma" .Cells(1, 3).Font.Bold = True: .Cells(4, 1).Value = "Company Name": .Cells(4, 2).Value = "Contact Name" .Cells(4, 3).Value = "Contact Title": .Cells(4, 4).Value = "Address" .Cells(4, 5).Value = "City": .Cells(4, 6).Value = "Country" End With End If For K = 1 To Rs.Fields.Count ExlObj.ActiveSheet.Cells(4, K).Font.Bold = True Next Set K = Nothing NxtLine = 5 Do Until Rs.EOF For Lc = 0 To Rs.Fields.Count - 1 ExlObj.ActiveSheet.Cells(NxtLine, Lc + 1).Value = Rs.Fields(Lc) ExlObj.ActiveCell.Worksheet.Cells(NxtLine, Lc + 1).AutoFormat xlRangeAutoFormatList1, 0, regular, 3, 1, 1 Next Rs.MoveNext NxtLine = NxtLine + 1 Loop 'Set Password Untuk Memproteksi ExlObj.ActiveCell.Worksheet.Protect (rahasia) Set ExlObj = Nothing Rs.Close: Set Rs = Nothing Con.Close: Set Con = Nothing End Sub

5. Jalankan Aplikasi (F5), jika tidak ada Error, maka akan ditampilkan data pada Microsoft Excel.

Selamat mencoba…

sumber : http://blog.yogaprihastomo.com/category/visual-basic/

Continue Reading | komentar

File Flash To VB6

… Menyisipkan File Flash (swf) Ke VB6 …

Dari pertanyaan Mas Maulana yang disampaikan lewat FaceBook Saya tentang bagaimana menyisipkan file Flash (swf) ke Visual Basic 6???. Maka yang berikut ini langkah-langkah untuk menyisipkannya :
1. Pastikan komputer telah terinstall Flash Player.
2. Buat Project baru, Standart.Exe.
3. Tambahkan Component (CTRL+T) > Microsoft Internet Controls > OK
4. Letakkan Control tersebut dalam form. Atur besarnya sesuai ukuran.

5. Letakkan File SWFnya berada satu folder dengan Project VB.
6. Pada Form Load, ketikkan kode berikut :

1 2 3 4

Private Sub Form_Load() 'Ganti nama file Flash sesuai kondisi di komputer Anda WebBrowser1.Navigate App.Path & "\flash_fma.swf" End Sub

7. Jalankan Aplikasi (F5), jika tidak ada Error, maka akan ditampilkan file flash pada Form

Selamat mencoba…

sumber : http://blog.yogaprihastomo.com/2009/02/file-flash-to-vb6/

Continue Reading | komentar