Koneksi VPN (Virtual Private Network di Fedora 11) dengan PPTP-Config

Assalamu’alaikum Wr.Wb

Hai, linuxer. Dalam koneksi jaaringan LAN/MAN/WAN yang mengharuskan anda untuk koneksi ke Virtual Private Network, tentunya tidak sulit bagi anda yang mempergunakan OS Windows XP ke atas, tapi bagaimana caranya jika anda mempergunakan os selain windows. Memang agak bingung pada awalnya, hehe..

Nah untuk mengkoneksikan ke VPN, ada beberapa langkah untuk melakukannya. pertama-tama anda harus menginstall terlebih dahulu paket pptp dan pptpconfig. Satu hal yang di sayangkan jika anda mempergunakan Fedora versi 6 ke atas. Paket pptpconfig belum tersedia untuk versi ini. Tapi jangan khawatir, anda masih bisa mempergunakan pptpconfig dengan versi fedora 6 dengan sedikit perubahan.

Instalasi PPTP

Untuk instalasi pptp, silakan anda masuk ke terminal dan ketikkan :

shell > su
password : *****
shell > yum install pptp

Dengan mengetikkan perintah di atas, berarti anda sedang menginstall pptp, dan setelah selesai, lanjutkan dengan mengetikkan perintah ini:

shell > rpm -Uvh http://pptpclient.sourceforge.net/yum/stable/fc6/pptp-release-current.noarch.rpm
shell > yum --enablerepo=pptp-stable

perintah di atas berguna untuk menginstall repositori pptpconfig dari fedora 6 ke versi fedora anda. Kemudian mengaktifkan repositori tersebut. Langkah selanjutnya adalah mengedit file repositori pptpconfig tersebut, karena masih kata $releasever akan menunjuk ke versi fedora 11, padahal repositori yang tersedia cuma sampai versi 6. Jelasnya anda kunjungi alamat ini : http://pptpclient.sourceforge.net/

Oke, lanjutkan dengan terminal anda :

shell > cd /etc/yum.repos.d
shell > gedit pptp.repo

dan ubahlah baris berikut ini :

mirrorlist=http://pptpclient.sourceforge.net/yum/stable/mirrorlist-pptp-stable-fc$releasever

menjadi

mirrorlist=http://pptpclient.sourceforge.net/yum/stable/mirrorlist-pptp-stable-fc6

Intinya, silakan anda ubah pada mirrorlist dari fc$releasever menjadi fc6. Ubahlah  juga pada baris yang masih mengandung kata-kata tersebut. Setelah selesai silakan anda sesuaikan file pptp.repo anda dengan kode berikut:

[pptp-stable]
name=PPTP Client stable repository for Fedora Core $releasever ($basearch)
#baseurl=http://pptpclient.sourceforge.net/yum/stable/fc$releasever/$basearch
mirrorlist=http://pptpclient.sourceforge.net/yum/stable/mirrorlist-pptp-stable-fc6
enabled=1
gpgcheck=1
gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-PPTP

[pptp-beta]
name=PPTP Client beta repository for Fedora Core $releasever ($basearch)
#baseurl=http://pptpclient.sourceforge.net/yum/beta/fc$releasever/$basearch
mirrorlist=http://pptpclient.sourceforge.net/yum/beta/mirrorlist-pptp-beta-fc6
enabled=0
gpgcheck=1
gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-PPTP

[poptop-stable]
name=PoPToP stable repository for Fedora Core $releasever ($basearch)
#baseurl=http://poptop.sourceforge.net/yum/stable/fc$releasever/$basearch
mirrorlist=http://poptop.sourceforge.net/yum/stable/mirrorlist-poptop-stable-fc6
enabled=1
gpgcheck=1
gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-PPTP

[poptop-beta]
name=PoPToP beta repository for Fedora Core $releasever ($basearch)
#baseurl=http://poptop.sourceforge.net/yum/beta/fc$releasever/$basearch
mirrorlist=http://poptop.sourceforge.net/yum/beta/mirrorlist-poptop-beta-fc6
enabled=0
gpgcheck=1
gpgkey=file:///etc/pki/rpm-gpg/RPM-GPG-KEY-PPTP

Simpan file pptp.repo anda dengan menekan tombol Ctrl+S atau pilih menu File -> Save, dan tutuplah jendela Gedit anda. Lanjutkan dengan terminal anda:

shell > yum clean all
....
shell > yum install pptp pptpconfig

Nah, setelah selesai silakan anda buka menu Aplikasi -> Internet -> PPTP Client

PPTP Client

Kemudian, masukkan password anda, maka anda akan melihat tampilan jendela PPTP Client anda. Masukkan konfigurasi pada jaringan anda:

PPTPConfig

Pada tab Routing, dalam Routing Style pilih All To Tunnel. Pada Tab DNS dan Encryption bisa anda biarkan saja, dan pada Tab Miscellaneous centang tanda Reconnect if diconnected. Kemudian klik tombol Add. Setelah anda klik tombol Add, maka anda akan melihat VPN dalam daftar PPTP Client Tunnerl List, dan klik tombol Start. Jangan lupa anda pilih terlebih dahulu VPN anda.

PPTPConfig Start

Setelah anda melihat tampilan pesan Connected, berarti anda sudah bisa masuk dalam jaringan VPN anda. Selamat Mencoba dan Moga Bermanfaat

Wassalam

ID3 Tag Editor di Linux

Assalamu’alaikum Wr.Wb.

Hai Linuxer, pada sitem operasi Ms.Windows, anda bisa menemukan banyak sekali aplikasi untuk mengedit ID3 tag file audio, misal: mp3, ogg, flac, wav dan lain2. Andapun bisa mengedit file audio tersebut di linux, nama sofwarenya adalah: EasyTag.

Untuk instalasi silakan anda buka Terminal anda, dan ketikkan perintah berikut:

shell > su
password : ********
shell > yum install easytag

Setelah selesai, untuk membukanya silakan anda pilih menu Aplikasi -> Suara & Video -> EasyTAG (untuk desktop gnome bahasa indonesia), dalam desktop bahasa inggris, anda pilih Applications -> Sound & Video -> EasyTAG.

Menu EasyTAG

Atau anda bisa menekan tombol Alt+F2 untuk menjalankan dialog Run Applications dan ketik easytag.

Run Applications : EasyTag

Oke, nah ini adalah hasilnya:

EasyTAG

Selamat Mencoba.

Assalamu’alaikum Wr.Wb.

Audio dan Video Converter di Linux

Assalamu’alaikum Wr.Wb.

Hallo linuxer, bagi anda yang dahulu sering mengubah-ubah format video atau audio di windows dan sekarang anda beralih ke linux. Tentunya anda bertanya-tanya, apa sih software untuk converter video dan audio yang mudah dan berbasis gui di linux?

Jawabnya: tentu ada donx…

Video Converter : Avidemux

Audio Converter : SoundConverter.

Untuk instalasi di fedora silakan ketik ini pada shell terminal anda:

shell > su -c 'yum install soundconverter avidemux ffmpeg flac'

SoundConverter

Avidemux Video Converter

Selamat mencoba, dan Moga bermanfaat

Assalamu’alaikum Wr.Wb.

Fedora 11 Muncul. Cool!

Assalamu’alaikum Wr.Wb

Duh udah lama nunggu nih fedora 11 (tapi telat buat tulisan ini, hehehehe), dan setelah di coba ternyata hasilnya maknyus!!!. Loading awal bener2 cepat. dan dukungan suara untuk PulseAudio dan Alsa sangat mantap. Saat ini saya menggunakan desktop kde 4.2.3 dengan compiz native nya sudah berjalan dengan ringan, padahal VGA nya cuma 32MB, luar biasa.

Agar desktop anda terlihat lebih bagus, cobalah anda tambahkan fusion-icon dan emerald theme. Sedikit bagi2 ini tampilan layar fedora dan desktop kde 4.2.3 punyaku:

Tampil Besar

Fedora 11 KDE 4.2.3 dan Compiz

Tampil Besar

Fedora 11 KDE 4.2.3 Appearence Oxyzone

Moga Bermanfaat

Wassalamu’alaikum Wr.Wb

Instalasi WiFi BroadCom di Fedora 11

Assalamu’alaikum Wr.Wb.

Bagi anda yang laptopnya mempergunakan WiFi Broadcom memang terkadang belum dikenali, begitu juga dengan laptop saya. Kesal juga rasanya kalo punya perangkat tapi tidak bisa dipergunakan. Tapi tenang, anda tidak perlu khawatir, fedora memang sudah menyediakan fasilitas ini. Untuk mengetahui apakah laptop anda memiliki fasilitas WiFi broadcom atau tidak, jalankan perintah ini pada Terminal anda:

shell> lspci |grep Network
03:00.0 Network controller: Broadcom Corporation BCM4312 802.11b/g (rev 01)

Yups, hasil ini mungkin berbeda dengan punya anda. Nah, selanjutnya anda bisa melakukan pencarian paket rpm untuk broadcom dengan nama broadcom-wl.[versi].rpm. Caranya, ketik pada console:

shell > yum list broadcom-wl
yum list broadcom-wl
Loaded plugins: fastestmirror, presto, refresh-packagekit
Installed Packages
broadcom-wl.noarch    5.10.79.10-2.fc11

ok. sekarang anda install dengan perintah:

shell > yum -y install broadcom-wl

Selesai. Selanjutnya silakan ada restart komputer anda dan coba anda nyalakan WiFi anda.

Moga manfaat

Wassalamu’alaikum

Ubuntu Muslim Edition SABILY

Assalamu’alaikum Wr.WB

Bagi anda yang menyukai Linux Ubuntu, ada perlunya anda mencoba menggunakan OS Sabily (Spin dari Ubuntu 9.04 Jaunty Jackalope). Nah, untuk mendownload silakan anda mengunjungi situs ini : SABILY.

Cover DVD Sabily

Moga Bermanfaat, Wassalam

Input Gambar Ke PictureBox di VB.NET

Assalamu’alaikum Wr.Wb.

Artikel ini untuk menjawab pertanyaan dari penanya, yang ingin tau bagaimana cara input gambar di VB.NET. Memang ada perbedaan yang cukup besar antara VB6 dan VB.NET dalam cara untuk menginput gambar. Dimana pada VB6, anda hanya perlu perintah LoadPicture untuk menginput gambar, sedangkan pada VB.NET, ada satu perbedaan yang sangat besar. Anda harus menggunakan Library System.Drawing untuk bisa menampilkan gambar.

Contoh Tutorial PictureBox VBNET

Berikut adalah langkah untuk membuat program berikut seperti di atas:

1. Buat Project baru, dan tambahkan komponen berikut ini

- OpenFileDialog1
- PictureBox1
- CheckBox1
- Button1
- Label1

untuk PictureBox1, ubahlah atribut BorderStyle menjadi Fixed3D, begitu juga dengan Label1, ubah atribut BorderStyle menjadi Fixed3D dan ubah juga atribut AutoSize menjadi false.

Sesuaikan dengan tampilan desain berikut ini:

Tampilan Desain

2. Selanjutnya, anda masuk ke dalam jendela kode program. Anda harus mengimpor System.Drawing.Bitmap supaya bisa menggunakan function FromFile. Tambahkan pada bagian paling atas program anda:

Imports System.Drawing.Bitmap

3. Selanjutnya, tambahkan kode pada event Form1_Load, berikut kodenya:

 ' pengaturan OpenFileDialog1
 OpenFileDialog1.Title = "Masukkan foto anda"
 OpenFileDialog1.Filter = "JPEG File|*.jpg;*.jpeg"
 ' pengaturan PictureBox supaya tampilannya strecthimage
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

4. Lalu tambahkan event Button1_Click pada Button1, kodenya:

If OpenFileDialog1.ShowDialog Then
 PictureBox1.Image = FromFile(OpenFileDialog1.FileName)
 Call CheckBox1_CheckedChanged(sender, e)
 Label1.Text = "Nama file: " & OpenFileDialog1.FileName
End If

5. Tambahkan pula pada CheckBox1_CheckedChanged:

 If CheckBox1.CheckState = CheckState.Checked Then
   PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 Else
   PictureBox1.SizeMode = PictureBoxSizeMode.Normal
 End If

6. OK, simpan proyek anda dan tekan tombol F5 untuk mencoba program anda. Untuk jelasnya perhatikan kode program selengkapnya berikut ini:

Imports System.Drawing.Bitmap

Public Class Form1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 If OpenFileDialog1.ShowDialog Then
 PictureBox1.Image = FromFile(OpenFileDialog1.FileName)
 Call CheckBox1_CheckedChanged(sender, e)
 Label1.Text = "Nama file: " & OpenFileDialog1.FileName
 End If
 End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 ' pengaturan OpenFileDialog1
 OpenFileDialog1.Title = "Masukkan foto anda"
 OpenFileDialog1.Filter = "JPEG File|*.jpg;*.jpeg"
 ' pengaturan PictureBox supaya tampilannya strecthimage
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 End Sub

 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
 If CheckBox1.CheckState = CheckState.Checked Then
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
 Else
 PictureBox1.SizeMode = PictureBoxSizeMode.Normal
 End If
 End Sub
End Class

Moga Bermanfaat, Wassalam.

Ekspor Database ke Berbagai Format 2

Assalamu’alaikum Wr.Wb

Berikut ini adalah lanjutan dari artikel Ekspor Database ke Berbagai Format. Kali ini kita akan membuat prosedur untuk mengekspor table ke dalam format HTML.

Berikut adalah prosedur EksporHTML:

procedure TForm1.EksporHTML(NamaTabel, NamaFolder : string);
var
 cmdEkspor : TADOCommand;
begin
 cmdEkspor := TADOCommand.Create(nil);
 try
 cmdEkspor.Connection := ADOConnection1;
 cmdEkspor.CommandText :=
 Format('SELECT * INTO [%s] IN "%s" %s FROM %s',
 [NamaTabel+'.html', NamaFolder, '"HTML Export;"', NamaTabel]);
 //ShowMessage(cmdEkspor.CommandText);
 cmdEkspor.Execute;
 finally
 cmdEkspor.Free;
 end;
end;

OKE, selanjutnya, tambahkan kode ini pada vcl btnEkspor dengan event btnEksporClick(Sender : TObject):

procedure TForm1.btnEksporClick(Sender: TObject);
var
 strNamaFile : string;
begin
 ....
 if ListBox1.ItemIndex > -1 then
 begin
 ...
 if rdbHTMl.Checked then
 begin
 EksporHTML(ListBox1.Items[ListBox1.ItemIndex],edtFolderSimpan.Text);
 MessageDlg('Data sudah berhasil di ekspor ke format HTML ' +
 'dalam file ' + QuotedStr(strNamaFile + '.html'),
 mtInformation,[mbOk], 0 );
 end;
 // untuk dbase, dan csv/txt untuk tulisan berikutnya
 end;
end;

Untuk kode tambahan saya kasih warna ini.

Berikut adalah tampilan hasil outputnya yang dibuka dengan firefox 3:

Bersambung……….

Semoga Bermanfaat, Wassalam

Ekspor Database ke Berbagai Format

Assalamu’alaikum Wr.Wb.

Hallo programmer, bagi anda yang biasanya menggunakan Delphi dalam pemrograman dan pembuatan aplikasi sehari-hari atau proyek anda , tentunya anda menginginkan cara untuk mengekspor data anda ke dalam format tertentu yang anda inginkan sebagai backup data atau sebagai keperluan lain.

Nah, pada tulisan kali ini saya akan mencoba untuk memberikan sedikit trik untuk mengekspor tabel dalam database anda ke dalam berbagai format (saat ini hanya satu dahulu – excel, yang lainnya menyusul). Hehe…

Berikut adalah langkah-langkah untuk melakukannya:

- Buka aplikasi delphi kesayangan anda ( pada contoh ini saya impelementasikan menggunakan delphi 11)

- Buat proyek baru anda, dan simpanlah dilokasi sesuai keinginan anda sendir.

- Kemudian susun tampilan anda seperti tampilan berikut ini:

Tampilan Form Rancangan

Biar form rancangan anda sama, anda bisa menggunakan skrip untuk form1.dfm berikut dalam mode teks:object Form1: TForm1
 Left = 0
 Top = 0
 BorderStyle = bsDialog
 Caption = 'Demo Ekspor ADO Database'
 ClientHeight = 281
 ClientWidth = 305
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'Tahoma'
 Font.Style = []
 OldCreateOrder = False
 Position = poDesktopCenter
 PixelsPerInch = 96
 TextHeight = 13
 object Label1: TLabel
 Left = 8
 Top = 8
 Width = 154
 Height = 13
 Caption = 'Lokasi Database Acces (*.mdb):'
 end
 object Label2: TLabel
 Left = 8
 Top = 53
 Width = 67
 Height = 13
 Caption = 'Daftar Tabel :'
 end
 object Label3: TLabel
 Left = 8
 Top = 198
 Width = 88
 Height = 13
 Caption = 'Simpan ke Folder :'
 end
 object Label4: TLabel
 Left = 135
 Top = 53
 Width = 67
 Height = 13
 Caption = 'Format Data :'
 end
 object edtLokasi: TEdit
 Left = 8
 Top = 27
 Width = 202
 Height = 21
 TabOrder = 0
 end
 object btnBrowse: TButton
 Left = 214
 Top = 25
 Width = 75
 Height = 25
 Caption = '&Browse'
 TabOrder = 1
 OnClick = btnBrowseClick
 end
 object ListBox1: TListBox
 Left = 8
 Top = 72
 Width = 121
 Height = 97
 ItemHeight = 13
 TabOrder = 2
 end
 object StatusEkspor: TStaticText
 Left = 8
 Top = 175
 Width = 281
 Height = 17
 AutoSize = False
 BorderStyle = sbsSunken
 Caption = 'Pilih database -> Tabel -> Format dan Ekspor'
 TabOrder = 3
 end
 object btnEkspor: TButton
 Left = 135
 Top = 248
 Width = 75
 Height = 25
 Caption = '&Ekspor'
 Default = True
 Enabled = False
 TabOrder = 4
 OnClick = btnEksporClick
 end
 object btnTutup: TButton
 Left = 216
 Top = 248
 Width = 75
 Height = 25
 Caption = '&Tutup'
 TabOrder = 5
 OnClick = btnTutupClick
 end
 object edtFolderSimpan: TEdit
 Left = 8
 Top = 213
 Width = 202
 Height = 21
 TabOrder = 6
 end
 object btnBrowseFolder: TButton
 Left = 214
 Top = 211
 Width = 75
 Height = 25
 Caption = '&Browse'
 TabOrder = 7
 OnClick = btnBrowseFolderClick
 end
 object rdbExcel: TRadioButton
 Left = 135
 Top = 72
 Width = 113
 Height = 17
 Caption = 'Excel 8.0 (97/2000)'
 Checked = True
 TabOrder = 8
 TabStop = True
 end
 object rdbHTML: TRadioButton
 Left = 135
 Top = 95
 Width = 113
 Height = 17
 Caption = 'HTML'
 Enabled = False
 TabOrder = 9
 end
 object rdbDBase: TRadioButton
 Left = 135
 Top = 118
 Width = 113
 Height = 17
 Caption = 'DBase'
 Enabled = False
 TabOrder = 10
 end
 object rdbCSV: TRadioButton
 Left = 135
 Top = 141
 Width = 113
 Height = 17
 Caption = 'CSV / TXT'
 Enabled = False
 TabOrder = 11
 end
 object OpenDialog1: TOpenDialog
 Filter = 'Access Database|*.mdb'
 Left = 248
 Top = 8
 end
 object ADOConnection1: TADOConnection
 LoginPrompt = False
 Left = 10
 Top = 242
 end
end

Untuk bisa menggunakan kode di atas, klik kanan pada form anda dan pilih menu ‘Views as text‘, dan anda timpa semua kode teks anda dengan kode di atas. Klik kanan kembali pada tampilan ‘Code Editor’ anda dan pilih menu ‘View as Form‘, maka anda akan melihat Tampilan Form Rancangan di atas.

Berikut adalah kode program selengkapnya (baru excel aja lho.. yang lain disabled) :

unit unEkspor;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls, DB, ADODB, FileCtrl;

type
 TForm1 = class(TForm)
 Label1: TLabel;
 edtLokasi: TEdit;
 btnBrowse: TButton;
 OpenDialog1: TOpenDialog;
 ListBox1: TListBox;
 Label2: TLabel;
 StatusEkspor: TStaticText;
 btnEkspor: TButton;
 btnTutup: TButton;
 ADOConnection1: TADOConnection;
 edtFolderSimpan: TEdit;
 btnBrowseFolder: TButton;
 Label3: TLabel;
 Label4: TLabel;
 rdbExcel: TRadioButton;
 rdbHTML: TRadioButton;
 rdbDBase: TRadioButton;
 rdbCSV: TRadioButton;
 procedure btnBrowseFolderClick(Sender: TObject);
 procedure btnEksporClick(Sender: TObject);
 procedure btnTutupClick(Sender: TObject);
 procedure btnBrowseClick(Sender: TObject);
 private
 procedure EksporExcel(NamaTabel, NamaFile : string);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.EksporExcel(NamaTabel, NamaFile: string);
var
 cmdEkspor : TADOCommand;
begin
 cmdEkspor := TADOCommand.Create(nil);
 try
 cmdEkspor.Connection := ADOConnection1;
 cmdEkspor.CommandText :=
 Format('SELECT * INTO ["Excel 8.0;Database=%s"].[%s] FROM %s',
 [NamaFile,NamaTabel,NamaTabel]);
 //ShowMessage(cmdEkspor.CommandText);
 cmdEkspor.Execute;
 finally
 cmdEkspor.Free;
 end;
end;

procedure TForm1.btnBrowseClick(Sender: TObject);
const
 CONN = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
begin
 if (OpenDialog1.Execute) and (OpenDialog1.FileName<>'') then
 begin
 ListBox1.Clear;
 edtLokasi.Text := OpenDialog1.FileName;
 // menghubungkan dengan database access
 if ADOConnection1.Connected then ADOConnection1.Connected := false;
 ADOConnection1.ConnectionString := Format(CONN,[edtLokasi.Text]);
 ADOConnection1.Connected := true;
 ADOConnection1.GetTableNames(ListBox1.Items);
 if ListBox1.Items.Count > 0 then
 ListBox1.ItemIndex := 0;
 btnEkspor.Enabled := true;
 end;
end;

procedure TForm1.btnBrowseFolderClick(Sender: TObject);
var
 strLokasi : string;
begin
 SelectDirectory('Pilih lokasi folder untuk menyimpan data hasil ekspor','',
 strLokasi,[sdNewUI, sdNewFolder, sdShowShares, sdValidateDir]);
 if strLokasi <> '' then
 begin
 edtFolderSimpan.Text := strLokasi;
 end;
end;

procedure TForm1.btnEksporClick(Sender: TObject);
var
 strNamaFile : string;
begin
 if Length(Trim(edtFolderSimpan.Text)) < 3 then
 begin
 MessageDlg('Maaf, anda harus mengisi atau memilih folder dengan benar!',
 mtWarning,[mbOk],0);
 exit;
 end;

 if Length(edtFolderSimpan.Text)=3 then
 strNamaFile := edtFolderSimpan.Text
 else
 strNamaFile := edtFolderSimpan.Text + '\';
 strNamaFile := strNamaFile + ListBox1.Items[ListBox1.ItemIndex];

 if ListBox1.ItemIndex > -1 then
 begin
 if rdbExcel.Checked then
 begin
 EksporExcel(ListBox1.Items[ListBox1.ItemIndex],strNamaFile + '.xls');
 MessageDlg('Data sudah berhasil di ekspor ke format EXCEL 97/2000 ' +
 'dalam folder ' + QuotedStr(strNamaFile), mtInformation,
 [mbOk], 0 );
 end;
 // untuk html, dbase, dan csv/txt untuk tulisan berikutnya
 end;
end;

procedure TForm1.btnTutupClick(Sender: TObject);
begin
 Close;
end;

end.

Kemudian anda jalankan program anda, dan anda akan melihat tampilan berikut:

Bersambung……

Moga bermanfaat, Wassalam.

Selamat Tahun Baru Islam 1430 H

Assalamu’alaikum Wr.Wb.

Kepada kaum Muslim dan Muslimah di Seluruh Dunia, Saya mengucapkan Selamat Tahun Baru Islam 1430 H.

Semoga dengan memasuki tahun baru ini, kita dapat mengambil hikmah dari perjalanan kita di tahun-tahun sebelumnya untuk menjadi bahan perbaikan di tahun ini dan tahun yang akan datang, agar kita menjadi jauh lebih baik dari tahun-tahun kemarin. InsyaAllah.

Wassalamu’alaikum Wr.Wb.

Our sense of sympathy to the people of Palestine. Good Luck, We Pray To You Always.