Ini cuma aplikasi sederhana cara memainkan MP3 di SDCARD, dengan menampilkan daftar lagu MP3 pada sebuah ListView.
Buat proyek baru dengan nama MP3Player di Eclipse. Activity utama kita bernama Mp3PlayerActivity.
Layout
Pertama-tama definisikan layout untuk menampilkan daftar lagu. Pakai saja ListView untuk menyederhanakan program. Nanti kalau sudah mahir boleh pakai list yang lebih cantik tampilannya. Jadi bikin dulu layout baru namanya daftarlagu.xml.
<?xml version=“1.0″ encoding=“utf-8″?>
<LinearLayout
xmlns:android=“http://schemas.android.com/apk/res/android”
android:orientation=“vertical”
android:layout_width=“match_parent”
android:layout_height=“match_parent”>
<ListView android:id=“@id/android:list”
android:layout_width=“fill_parent”
android:layout_height=“fill_parent”
android:layout_weight=“1″
android:drawSelectorOnTop=“false”
/>
<TextView android:id=“@id/android:empty”
android:layout_width=“fill_parent”
android:layout_height=“fill_parent”
android:text=“tidak ada lagu SD Card”
/>
</LinearLayout>
ListView yang cukup simple, yang akan menampilkan text “tidak ada lagi di SD card” ketika tidak ada items ditemukan di ListView.
Lalu bikin lagi file XML untuk menampilkan setiap file MP3 yang akan dimunculkan di ListView, kasi nama misalnya viewlagu.xml.
<?xml version=“1.0″ encoding=“utf-8″?>
<?xml version=“1.0″ encoding=“utf-8″?>
<TextView android:id=“@+id/text1″ xmlns:android=“http://schemas.android.com/apk/res/android”
android:layout_width=“wrap_content”
android:layout_height=“wrap_content”/>
Activity
Kemudian buka file MP3PlayerActivity.java yang sudah otomatis dibuat pada saat create project sebelumnya. Edit file tersebut sehingga lengkap seperti sebagai berikut:
package com.vitraining;
import java.io.File;
import java.io.FilenameFilter;
import java.io.IOException;
import java.util.ArrayList;
import java.util.List;
import android.app.ListActivity;
import android.media.MediaPlayer;
import android.media.MediaPlayer.OnCompletionListener;
import android.os.Bundle;
import android.util.Log;
import android.view.View;
import android.widget.ArrayAdapter;
import android.widget.ListView;
public class Mp3PlayerActivity extends ListActivity {
private static final String MEDIA_PATH = new String(“/sdcard/”);
private List<String> songs = new ArrayList<String>();
private MediaPlayer mp = new MediaPlayer();
private int currentPosition = 0;
@Override
public void onCreate(Bundle icicle) {
super.onCreate(icicle);
setContentView(R.layout.daftarlagu);
updateDaftarLagu();
}
public void updateDaftarLagu() {
File home = new File(MEDIA_PATH);
if (home.listFiles(new Mp3Filter()).length > 0) {
for (File file : home.listFiles(new Mp3Filter())) {
songs.add(file.getName());
}
ArrayAdapter<String> songList = new ArrayAdapter<String>(this, R.layout.viewlagu, songs);
setListAdapter(songList);
}
}
@Override
protected void onListItemClick(ListView l, View v, int position, long id) {
currentPosition = position;
playSong(MEDIA_PATH + songs.get(position));
}
private void playSong(String songPath) {
try {
mp.reset();
mp.setDataSource(songPath);
mp.prepare();
mp.start();
// Setup listener so next song starts automatically
mp.setOnCompletionListener(new OnCompletionListener() {
public void onCompletion(MediaPlayer arg0) {
nextSong();
}
});
} catch (IOException e) {
Log.v(getString(R.string.app_name), e.getMessage());
}
}
private void nextSong() {
if (++currentPosition >= songs.size()) {
// Last song, just reset currentPosition
currentPosition = 0;
} else {
// Play next song
playSong(MEDIA_PATH + songs.get(currentPosition));
}
}
}
class Mp3Filter implements FilenameFilter {
public boolean accept(File dir, String name) {
return (name.endsWith(“.mp3″));
}
}
Import package-package yang diperlukan. Di Eclipse, arahkan ke class yang dibilang error, lalu pilih import <nama package>.
Lakukan proses build (Project à Build Project) agar layout dikenali disini.
Function onCreate() gunanya untuk menampilkan view daftarlagu yang sudah kita buat sebelumnya. Kemudian memanggil function updateDaftarLagu().
Function updateDaftarLagu() gunanya untuk membaca semua file yang ada di SD Card sesuai filter yang telah didefinisikan sebelumnya (yaitu class MP3Filter). Setiap file lagu yang ditemukan, nama filenya disimpan di variable songs. Kemudian dibentuk ListAdapter yang datanya berasal dari variable songs dan layoutnya dari viewlagu yang sudah didefinisikan di atas.
Ketika item di ListView di-click maka program menjalankan function playSong().
Function playSong() gunanya untuk memainkan file MP3. Terlebih dahulu object variable mp di reset(), kemudian di-set file data nya dengan setDataSource(), di prepare(), dan di start(). Ketika selesai memainkan suatu lagu, program menjalankan function nextSong(). Ini dilakukan pada function setOnCompleteListener().
Function nextSong() gunanya untuk memajukan index variable songs dan memainkan lagu pada index tersebut.
Class Mp3Filter gunanya untuk meng-accept() file hanya jika ber-extension MP3.
Membuat emulasi SD Card
Agar bias jalan seperti di device, kita perlu bikin SD Card di emulator. Masuk ke folder android-sdk/tools, dan jalankan.
./mksdcard 128M /tmp/sd.img
Selanjutnya masuk ke menu Eclipse Run à Run Configurations… Pilih nama project yaitu MP3Player.
Di Tab Target, tambahkan di bagian Additional Emulator Command Line Options: “–sdcard /tmp/sd.img”
Lalu klik Run disitu untuk menjalankan emulator.
Awalnya program menampilkan pesan “tidak ada lagu di SC Card”. Gimana cara mengisi SD Card dengan file MP3?
Masuk ke android-sdk/platform-tools, dan jalankan
Adb push <sumber> /mnt/sdcard
Misalnya
adb push /Users/akhmaddanielsembiring/Documents/etc/lagu/Gigi\ -\ 11\ Januari.mp3 /mnt/sdcard
Jalankan ulang program di emulator, hasilnya kira-kira seperti ini.
Pingin tau lebih detail tentang pemrograman Android? Koneksi ke server, web services, JSON, GPS, Mapping Google maps? Ikuti training Android di VITRAINING.
]]>1. Required Packages
Install all the required packages:
$ apt-get install cvs build-essential automake autoconf bison flex libtool libncurses5-dev libssl-dev php5 php5-cli php5-curl php5-gd php5-mysql mysql-server php-pear php-db curl sox apache2 subversion libssl-dev libmysqlclient15-dev libxml2-dev
2. Compile and Install DAHDI Driver
Since we are going to use Digium TDM400 board, then we need to install DAHDI driver. First, get the system kernel name:
$ uname –r
This will results your kernel version number.
Install the kernel header according to your system kernel
$ apt-get install linux-headers-<version>
Create a symbolic link to /usr/src/linux-2.6
$ ln -s /usr/src/linux-headers-<version> /usr/src/linux-2.6
Download and extract the DAHDI driver to /usr/src
$ cd /usr/src/
$ wget http://downloads.digium.com/pub/telephony/dahdi-linux-complete/dahdi-linux-completecurrent.tar.gz
$ tar -zxvf dahdi-linux-complete-current.tar.gz
$ cd dahdi-linux-complete-X.X.X+X.X.X
Compile the driver
$ make
$ make install
$ make config
Note: Executing ‘make config’ will install an init script and symlinks which will allow you to start and stop DAHDI as a service.
3. Install asterisk
Download asterisk source distribution and put it on /usr/src. In this article I used asterisk version 1.6.2.9, you can download the newest version as you wish.
$ cd /usr/src
$ wget http://www.asterisk.org/downloads/asterisk/releases/asterisk-1.6.2.9.tar.gz
$ tar xvfpz asterisk-1.6.2.9.tar.gz
$ cd asterisk-1.6.2.9.tar.gz
Compile the source code
$ ./configure
$ make menuselect
Make sure that you are able to select chan_dahdi under the Channel Drivers menu. If not, then you need to check the installation step of DAHDI driver.
$ make
$ make install
4. Configure /etc/dahdi/system.conf and start the driver
In this example, FXO module is at Port 4 and FXS module is at Port 2 on the Digium TDM400 card. So the board arrangements are:
- FXS Green board = to be connected to a telephone handset, plug it into the bank #2 on the main board
- FXO Orange board = to be connected to telephone line, plug it into the bank #4 on the main board
- Power Supply = to be connected to PC power connector, for supplying FXS line
After plugging the FXO and FXS boards, then:
- Connect a normal telephone handset to port #2.
- Connect a telephone / PSTN analog line to port #4.
Note: Plugging an FXS port (the green module, port #2) into the PSTN may destroy the module and the card due to voltage being introduced into a system that wants to produce voltage, not receive it!
Note: Be sure to connect your computer’s power supply to the Molex connector on the TDM400 if you have FXS modules, as it is used to supply the voltage needed to drive the ring generator on the FXS ports
Next, Edit file /etc/dahdi/system.conf add the following lines:
fxoks=2
fxsks=4
loadzone=us
defaultzone=us
echocanceller=mg2,1-4
DAHDI uses modular echo cancellers that are configured per channel. The echo cancellers are compiled and installed as part of the dahdilinux package. You can specify the echo canceller to be used for each channel. The default behavior is for there to be no echo canceller on any channel. So, it is very important that you specify one in the system.conf file if you do not have hardware echo cancellers and need echo cancellation.
Then start the driver using this command
$ /etc/init.d/dahdi start
After loading the drivers for your hardware, you can verify their state with the use of
$ /sbin/dahdi_cfg -vv
Check the module loading using dmesg command:
$ dmesg
[ 1604.956854] dahdi: Telephony Interface Registered on major 196
[ 1604.956861] dahdi: Version: 2.3.0.1
[ 1604.979673] ACPI: PCI Interrupt 0000:00:05.0[A] -> GSI 16 (level, low) -> IRQ 20
[ 1604.979778] PCI: Setting latency timer of device 0000:00:05.0 to 64
[ 1604.979796] Freshmaker version: 73
[ 1604.980163] Freshmaker passed register test
[ 1605.476297] Module 0: Not installed
[ 1606.357479] Module 1: Installed — AUTO FXS/DPO
[ 1606.357567] Module 2: Not installed
[ 1606.555044] Module 3: Installed — AUTO FXO (FCC mode)
[ 1606.564781] Found a Wildcard TDM: Wildcard TDM400P REV I (2 modules)
[ 1606.757915] dahdi: Registered tone zone 0 (United States / North America)
[ 1606.801141] dahdi_echocan_mg2: Registered echo canceler ‘MG2′
5. Configure chan_dahdi.conf
Edit file /etc/asterisk/chan_dahdi.conf. This will instruct Asterisk to use the TDM400 card configured previously.
The following is a sample configuration for a TDM422E card. You can place this at the bottom of your chan_dahdi.conf file.
;General options
usecallerid = yes
hidecallerid = no
callwaiting = yes
threewaycalling = yes
transfer = yes
echocancel = yes
echocancelwhenbridged = yes
rxgain = 0.0
txgain = 0.0
;FXS Modules
group = 1
signalling = fxo_ks
context = Internal
channel = 1-2
;FXO Modules
group = 2
echocancel = yes
signalling = fxs_ks
context = Incoming
channel = 3-4
6. Setting up Voicemail and a basic dial plan
Open and edit voicemail.conf and find the following line at the bottom:
[default]
1234 => 4242,Mark Spencer,root@localhost
In this example, 1234 is the mailbox number, 4242 is the password, Mark Spencer is the person’s name, and root@localhost is his email address.
You can add extensions by adding the following:
1000 => 12345,Ujang,ujang@abc.com
2000 => 12345,Bayu,bayu@xyz.com
Next, open and edit /etc/asterisk/extensions.conf, which contains a large, complex sample dial plan. In this step, you will configure a basic dial plan to enable you to
send and receive calls. Go to the bottom of the file and add the following lines:
[Internal]
exten => 1000,1,Dial(DAHDI/1,20,rt)
exten => 1000,2,Voicemail(1000,u)
exten => 1000,102,Voicemail(1000,b)
exten => 2000,1,Dial(DAHDI/2,20,rt)
exten => 2000,2,Voicemail(2000,u)
exten => 2000,102,Voicemail(2000,b)
exten => 8500,1,VoiceMailMain
exten => 8501,1,MusicOnHold
exten => _9.,1,Dial(DAHDI/g2/www${EXTEN:1})
exten => _9.,2,Congestion
[Incoming]
exten => s,1,Answer
exten => s,2,Dial(DAHDI/g1,20,rt)
exten => s,3,Voicemail(1000,u)
exten => s,103,Voicemail(1000,b)
In this example there are two internal extensions (1000 and 2000), a number to check voicemail (8500), a number to listen to music-on-hold, (8501), and a prefix to dial to get an outside line (9). It is also configured to accept incoming calls over the FXO, rings phones 1 and 2, and route to voicemail box 1000.
7. Testing
Start asterisk as standalone application first:
$ asterisk –cvvvv
This will run asterisk in console mode and a lot of debugging messages for you to find out if something going wrong.
Dial tone should be present on phones connected to the FXS ports. Test your configuration by placing an outgoing call, placing a call from extension 1 to 2, or receiving an incoming call. Successful completion of these tasks indicates your configuration is working properly.
Quit asterisk using CTRL-C. If everything Ok, then you can start asterisk as a service.
$ /etc/init.d/asterisk start
If you need any further information or consultation, please contact me directly:
Akhmad Daniel Sembiring
vitraining.com – CEO, akhmad.daniel[at]gmail.com, 6281320379277
]]>Agar bisa membuat, menghapus, memodifikasi user account Windows di Active Directory melalui Delphi kita perlu menggunakan ADSI (Active Directory Services Interface) dari Microsoft. ADSI sebetulnya tersedia di semua platform Win32, namun selain Windows 2000 keatas kita perlu download dulu dari http://www.microsoft.com/adsi.
Bahasan ADSI sangat kompleks. Pada tulisan ini cuma dibahas beberapa yang penting aja. ADSI adalah sejenis generic interface untuk directory services. Beberapa provider ADSI standard (COM yaitu interfaces yang dapat kita gunakan di program) adalah WinNT, IIS, LDAP dan NDS. Provider jenis WinNT dapat digunakan untuk membuat, modify user accounts, maupun groups (dan banyak hal lain lagi).
Pertama kita perlu import ADSI Type Library (dari Menu Project/Import Type Library). Type Library yang dimaksud dapat ditemukan pada system32 subdirectory (misalnya C:\WINNT\system32\activeds.tlb). File yang diperlukan adalah ‘activeds.tlb’. Jika file tersebut belum ada, kemungkinan ADSI belum ter-installed dengan benar.
Setelah berhasil import Type Library kita akan menemukan file baru pada Delphi Imports directory dengan nama activeds_tlb.pas (misalnya ..\Delphi7\Imports\activeds_tlb.pas). Selanjutnya kita perlu meng-include file ini pada uses clause agar ADSI programming bisa dilakukan pada program Delphi.
Pada contoh pembuatan user melalui ADSI, anda perlu ganti [computername] dengan nama komputer yang betul yang anda gunakan. Hal yang sama juga pada [accountname]. Program ini telah dites pada
WindowsNT 4.0, Windows 2000, dan Windows 2003.
ActiveDs_TLB, // type library ADSI
ComObj; // untuk OleCheck dan COM functions lainnya
implementation
procedure TForm1.BtnCreateUserClick(Sender: TObject);
var
Usr: IADsUser;
Comp: IADsContainer;
begin
try
Comp := GetObject(‘WinNT://[computername],computer’) as
IADsContainer;
Usr := Comp.Create(‘user’, ‘[accountname]‘) as IADsUser;
Usr.setPassword(‘passwordnya’);
Usr.SetInfo;
except
on E: EOleException do begin
ShowMessage(E.Message);
end;
end;
end;
procedure TForm1.BtnSetPasswordClick(Sender: TObject);
var
Usr: IADsUser;
begin
try
Usr := GetObject(‘WinNT://[computername]/[accountname],user’)
as IADsUser;
Usr.SetPassword(‘thenewpassword’);
except
on E: EOleException do begin
ShowMessage(E.Message);
end;
end;
end;
// GetObject is a implementation of the VB GetObject call
// I’ve found this code (GetObject) on the Usenet.
//
// With GetObject can you bind to an existing ADSI provider
// using a ‘ADSIPath’ (for example WinNT://…. or
// IIS://localhost).
function TForm1.GetObject(const Name: string): IDispatch;
var
Moniker: IMoniker;
Eaten: integer;
BindContext: IBindCtx;
Dispatch: IDispatch;
begin
OleCheck(CreateBindCtx(0, BindContext));
OleCheck(MkParseDisplayName(BindContext,
PWideChar(WideString(Name)),
Eaten,
Moniker));
OleCheck(Moniker.BindToObject(BindContext, NIL, IDispatch,
Dispatch));
Result := Dispatch;
end;
end.
Melalui ADSI kita dapat juga memodifikasi setting user account. Baris dibawah ini digunakan untuk mengganti ‘Password never expires’ flag suatu account:
var
Usr: IADsUser;
begin
try
Usr := GetObject(‘WinNT://[computername]/[acccoutname],user’) as
IADsUser;
// Check the Checkbox State…
if CheckBoxPasswordNeverExpires.Checked then
Usr.Put(‘UserFlags’, Usr.Get(‘UserFlags’) OR 65536)
// 65536 is defined as UF_DONT_EXPIRE_PASSWORD in iads.h
// from the ADSI SDK available from Microsoft
else
Usr.Put(‘UserFlags’, Usr.Get(‘UserFlags’) XOR 65536);
Usr.SetInfo;
except
on E: EOleException do begin
ShowMessage(E.Message);
end;
end;
end;
Lebih lanjut ….
Untuk lebih mendalami ADSI anda perlu cek detail interface IADsUser atau IADsContainer. Informasi ADSI SDK dari Microsoft dapat dilihat di sini nih: http://msdn.microsoft.com/en-us/library/bb905317.aspx.
Referensi: www.delphi3000.com
Akhmad Daniel Sembiring
vITraining.com – Qualified IT Products, Outsourcing, and Services
Ligarwangi.com – Linux, E-book, Coffee, Gift, etc
]]>Perlu bikin function di Delphi yang return value-nya bukan integer, string, tapi Object, misalnya TStringList? Delphi bisa melakukan hal ini, tapi yang penting diingat adalah, object yang di-create secara manual, harus di-free secara manual pula, kalo nggak memory bakalan leak.
Ini caranya:
Misal definisi function sbb:
begin
result := TStringList.Create;result.Add(‘an item’) ;
end;
Terus cara manggilnya adalah sbb:
sl : TStringList;
begin
sl := GetStringList;
try
ShowMessage(sl[0]) ;
// atau misal lainnya
// ListBox1.Items.Assign(sl) ;
finally
sl.Free;
end;
end;
Yang penting diperhatikan disini adalah variabel TStringList yang kita punya ("sl"), yang dipake untuk nerima hasil dari function GetStringList. Setelah dilakukan sesuatu pada variabel itu, pada akhirnya kita harus menghapus variabel ybs dari memory – untuk menghindari memory leak, yaitu dengan sl.Free.
Jadi yang perlu diingat adalah: ketika suatu function return valunya adalah instance of an object – selalu pastikan bahwa kita tau siapa yang perlu mem-free object tsb ketika sudah tidak diperlukan lagi!
Sumber: google.com search "delphi function return tstringlist"
Akhmad Daniel Sembiring
vITraining.com – Qualified IT Products, Outsourcing, and Services
Ligarwangi.com – Linux, E-book, Coffee, Gift, etc
]]>
Image via Wikipedia
Berikut ini function Delphi untuk melakukan upload file menggunakan protokol HTTP. Function ini bisa digunakan pada aplikasi yang memerlukan uploading data ke suatu aplikasi web untuk diproses lebih lanjut, misalnya untuk upload dan import data.
names, values, nFiles, vFiles: array of string) ;
var
strData, n, v, boundary: string;
URL: OleVariant;
Flags: OleVariant;
PostData: OleVariant;
Headers: OleVariant;
idx: Integer;
ms: TMemoryStream;
ss: TStringStream;
begin
{
UploadFilesHttpPost(
WebBrowser1,
‘http://validator.w3.org/check’,
[],
[],
['uploaded_file'],
['C:\blank.htm'] );
}
if Length(names) <> Length(values) then
raise Exception.Create(‘UploadFilesHttpPost: Names and Values must have the same length.’) ;
if Length(nFiles) <> Length(vFiles) then
raise Exception.Create(‘UploadFilesHttpPost: FileNames and FileValues must have the same length.’) ;
URL := ‘about:blank’;
Flags := NavNoHistory or NavNoReadFromCache or NavNoWriteToCache or NavAllowAutosearch;
wb.Navigate2(URL, Flags) ;
while wb.ReadyState < READYSTATE_INTERACTIVE
do Application.ProcessMessages;
// anything random that WILL NOT occur in the data.
boundary := ‘—————————123456789′;
strData := ”;
for idx := Low(names) to High(names) do
begin
n := names[idx];
v := values[idx];
strData := strData + ‘–’ + boundary + #13#10 +
‘Content-Disposition: form-data; name="’ + n + ‘"’ + #13#10#13#10 + v + #13#10;
end;
for idx := Low(nFiles) to High(nFiles) do
begin
n := nFiles[idx];
v := vFiles[idx];
strData := strData + ‘–’ + boundary + #13#10 +
‘Content-Disposition: form-data; name="’ + n + ‘"; filename="’ + v + ‘"’ + #13#10;
if v = ” then
begin
strData := strData + ‘Content-Transfer-Encoding: binary’#13#10#13#10;
end
else
begin
if (CompareText(ExtractFileExt(v), ‘.JPG’) = 0)
or (CompareText(ExtractFileExt(v), ‘.JPEG’) = 0) then
begin
strData := strData + ‘Content-Type: image/pjpeg’#13#10#13#10;
end
else if (CompareText(ExtractFileExt(v), ‘.PNG’) = 0) then
begin
strData := strData + ‘Content-Type: image/x-png’#13#10#13#10;
end
else if (CompareText(ExtractFileExt(v), ‘.PDF’) = 0) then
begin
strData := strData + ‘Content-Type: application/pdf’#13#10#13#10;
end
else if (CompareText(ExtractFileExt(v), ‘.HTML’) = 0) then
begin
end;
strData := strData + ‘Content-Type: text/html’#13#10#13#10;
ms := TMemoryStream.Create;
try
ms.LoadFromFile(v) ;
ss := TStringStream.Create(”) ;
try
ss.CopyFrom(ms, ms.Size) ;
strData := strData + ss.DataString + #13#10;
finally
ss.Free;
end;
finally
ms.Free;
end;
end;
strData := strData + ‘–’ + boundary + ‘–’#13#10; // FOOTER
end;
strData := strData + #0;
{2. you must convert a string into variant array of bytes and every
character from string is a value in array}
PostData := VarArrayCreate([0, Length(strData) – 1], varByte) ;
{ copy the ordinal value of the character into the PostData array}
for idx := 1 to Length(strData) do PostData[idx-1] := Ord(strData[idx]) ;
{3. prepare headers which will be sent to remote web-server}
Headers := ‘Content-Type: multipart/form-data; boundary=’ + boundary + #13#10;
{4. you must navigate to the URL with your
script and send as parameters your array with POST-data and headers}
URL := URLstring;
wb.Navigate2(URL, Flags, EmptyParam, PostData, Headers) ;
while wb.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
end;
Terus cara menggunakannya adalah sbb, misal dipanggil pada event click Button1:
begin
UploadFilesHttpPost(
WebBrowser1,
‘http://127.0.0.1/receiver.php’,
[],
[],
[‘uploaded’],
[‘c:\export.zip’] );
end;
Prosedur diatas akan meng-upload file c:\export.zip ke server dengan URL http://127.0.0.1/receiver.php (sebuah script PHP untuk menangani file yang berhasil diupload). Nama field HTML input file upload nya adalah uploaded.
Pada sisi server, script PHP receiver.php yang dipanggil untuk memproses file upload contohnya sbb:
if(move_uploaded_file($_FILES[‘uploaded’][‘tmp_name’], $zipfile))
{
echo "File $zipfile berhasil diupload";
}
else {
echo "Sorry, there was a problem uploading your file.";
}
?>
Sumber Delphi.about.com.
Akhmad Daniel Sembiring
vITraining.com – Qualified IT Products, Outsourcing, and Services
Ligarwangi.com – Linux, E-book, Coffee, Gift, etc
![Reblog this post [with Zemanta]](http://img.zemanta.com/reblog_e.png?x-id=feeb52c8-dffe-4f92-955d-2d51430ca02b)
]]>3. Membuka form saat diperlukan
]]>2. Exception Handling
1. exception
2. try excep untuk menghindari kesalahan
3. nested exception
4. try finally
5. pada bagian initialization dan finalization
]]>1. DLL
1. Mengenal DLL
2. Membuat, memakai, memanggil DLL
3. Form dan DLL
4. Memanggil DLL dari bahasa lain, contoh Visual Basic
]]>|
Topik |
|
|
1. OOP Lagi 2. Packages 3. Membuat Komponen baru dari komponen yang sudah ada 4. Memakai Komponen Baru 5. Instalasi Komponen dari Internet 6. Import komponen Active X |
]]>|
Topik |
|
|
1. Menuliskan isi help 2. Men-compile help 3. Membuat context help 4. Splash screen 5. Version info |
]]>|
Topik |
|
|
1. Tprinter, TprinterDialog, TprinterSetupDialog 2. Font dan ukurannya 3. Gambar dan Grafik 4. Mencetak langsung ke printer dot matrix, mencetak struk |
]]>|
Topik |
|
|
1. Chart 2. Gambar 3. Animasi 4. Media Player: Video dan Suara |
]]>|
Topik |
|
|
1. Komponen Rave Report 2. Laporan Sederhana 3. Grouping 4. Master Detail 5. Invoicing 6. Mailing Merge 7. Export ke PDF, HTML, Excel |
]]>1. Desain User Interface dan Logika Program Aplikasi Penjualan
2. Membuat Database, Tabel, Index, Mengisi data contoh
3. Komponen-komponen yang digunakan untuk akses database
4. Komponen Tabel
1. Cara menggunakan
2. Fields, Calculated Fields, Lookup
3. Searching, Filtering, Range
4. Tabel Relations
5. Bookmark
2. Komponen SQL
1. Sekilas SQL
2. Cara menggunakan
3. Sorting data
4. Fungsi Agregat
3. Data Module
4. Parameter SQL
]]>UNDER CONSTRUCTION , THANK YOU FOR YOUR PATIENCE
Tujuan
1. Membuat database tabel dan alias
2. Membuat dan menggunakan index, menggunakan sorting
- Table Fields, Calculated Fields, Lookup
- Table Searching, Filtering, Range
- Tabel Relations
- Bookmark
- Komponen dan bahasa SQL dinamik
- Fungsi agregat
- Report master detail
Video Tutorial
[video]
Membuat Database
| No | Action | ||
| 1 | Buka Database Desktop | Start -> Program -> Borland Delphi 7 -> Database Desktop | |
| 2 | Buat Table baru | File->New->Table->Paradox 7 | Faktur A 10 *
Tanggal D Total N Sales_id A 10 Save as JUAL.DB |
| File->New->Table->Paradox 7 | Faktur A 10 *
Barang_ID A 10 * Jumlah N Save as JUALDETAIL.DB |
||
| File->New->Table->Paradox 7 | Id A 10 *
Barang A 10 Harga N Save As BARANG.DB |
||
| 3 | Isi Data Barang | File->Open->Table->BARANG.DB | MK010001 Indomie Kari Ayam 2,000.00
MK010002 Salam Mi 14,000.00 MK020001 Kacang Atom 3,400.00 MK020002 Kacang Asin 3,500.00 MN010001 Coffee Mix 5,000.00 MN010002 Fruit Tea 4,500.00 MN010003 Teh Botol 1,500.00 MN010004 Coca Cola 1,500.00 MN010005 Fanta 1,500.00 |
1.1.3. Membuat Window Menu Utama
| No | Action | ||
| 1 | New Project | File-> New -> Application | |
| 2 | Save All | Unit Filename: menu.pas
Project: jual Caption: Aplikasi Penjualan |
|
| 3 | Komponen BitBtn1 | Tab Additional | Caption: Penjualan |
| 4 | Komponen BitBtn2 | Tab Additional | Caption: Data Barang |
| 5 | Komponen BitBtn3 | Tab Additional | Caption: Laporan |
| 6 | Komponen BitBtn4 | Tab Additional | Caption: Keluar
Kind: btClose |
| 7 | Komponen Form1 | Name: frmMenuUtama | |
| 8 | Event OnClick BitBtn1 | FrmTransaksi.ShowModal |
1.1.4. Membuat Window Transaksi Penjualan
| No | Action | ||
| 1 | New Form | File-> New -> Form | Save All
Unit Filename: transaksi.pas Properti Name: frmTransaksi Caption: Transaksi Penjualan |
| 2 | Komponen Table1 | Tab BDE | Name: tbJual
DatabaseName: c:\e-learning\toko TableName: jual.db Active: true |
| 3 | Komponen Table2 | Tab BDE | Name: tbBarang
DatabaseName: c:\e-learning\toko TableName: barang.db Active: true |
| 4 | Komponen Table2 | Tab BDE | Name: tbJualDetail
DatabaseName: c:\e-learning\toko TableName: jualdetail.db Active: true |
| 5 | Komponen DataSource1 | Tab DataAccess | Name: dsJual
DataSet: tbJual |
| 6 | Komponen DataSource2 | Tab DataAccess | Name: dsJualDetail
DataSet: tbJualDetail |
| 6 | Komponen Panel1 | Tab Standard | Aling: Bottom
Caption: ” |
| 7 | Komponen DBGrid1 | Tab DataControl | Name: gridJualDetail
DataSource: dsJualDetail Align: Bottom |
| 8 | Komponen DBEdit1 | Tab DataControl | Name: edFaktur
DataSource: dsJual DataField: Faktur |
| 9 | Komponen DBEdit2 | Tab DataControl | Name: edTanggal
DataSource: dsJual DataField: Tanggal |
| 10 | Komponen DBEdit3 | Tab DataControl | Name: edSales_id
DataSource: dsJual DataField: Sales_id |
| 11 | Komponen DBEdit4
di atas Panel1 |
Tab DataControl | Name: edTotal
DataSource: dsJual DataField: Total |
| 12 | Komponen Label1 | Standard | Faktur |
| 13 | Komponen Label2 | Standard | Tanggal |
| 14 | Komponen Label3 | Standard | Sales ID |
| 15 | Komponen Label4
di atas Panel1 |
Standard | Total |
| 16 | Navigator | Tab DataCOntrol | DataSource: dsJual
Align: top |
| 17 | Set FieldDefs tbJual | Double click tbJual | Add all Fields |
| 17 | Properti tbJualDetail | Supaya jualdetail hanya menampilkan faktur yang dipilih pada tbJual | MasterSource: dsJual
MasterField: klik [...] Faktur->Faktur , Add |
| 18 | Set FieldDefs tbJualDetail | Double click tbJualDetail | Add all Fields
Field faktur: visible=false |
| 19 | Tambah field lookup Nama Barang | Double click tbJualDetail
New Field |
Name: NamaBarang
Type: String Field Type: Lookup Key Field: Barang_id DataSet: tbBarang Lookup Key: Id result Field: Barang DisplayWidth: 30 nama variable: tbJualDetailNamaBarang |
| 20 | Tambah field lookup Harga Barang | Double click tbJualDetail
New Field |
Name: HargaBarang
Type: Float Field Type: Lookup Key Field: Barang_id DataSet: tbBarang Lookup Key: Id result Field: Harga nama variable: tbJualDetailHargaBarang |
| 20 | Tambah field calculated Total Harga Barang | Double click tbJualDetail
New Field |
Name: Total
Type: Float Field Type: Calculated nama variable: tbJualDetailTotal |
| Susun Field tbDetail | Double click tbJualDetail
susun field |
||
| Aktifkan semua table | Pilih semua table | Active: true | |
| Coba jalankan | Klik tombol [+] untuk
Insert F001 Klik tombol [v] untuk mensave record |
Insert beberapa items
perhatikan total – total belum berfungsi |
1.1.5. Menghitung Sub Total dan Total
| No | Action | ||
| 1 | Handler event onCalcField
tbJualDetail |
click tbJualDetail
click event onCalcField |
procedure TfrmTransaksi.tbJualDetailCalcFields(DataSet: TDataSet);
begin tbJualDetailTotal.Value := tbJualDetailHargaBarang.Value * tbJualDetailJumlah.AsInteger; end; |
| 2 | Menghitung Total | Buat method
TfrmTransaksi. HitungTotal() |
…
published procedure HitungTotal; … |
| procedure TfrmTransaksi.HitungTotal;
var TempTotal: Extended; PrevRecord: TBookmark; begin PrevRecord := tbJualDetail.GetBookmark; { returns nil if table is empty } try tbJualDetail.DisableControls; tbJualDetail.First; TempTotal := 0;{ use temp for efficiency } while not tbJualDetail.EOF do begin TempTotal := TempTotal + tbJualDetailTotal.Value; tbJualDetail.Next; end; tbJualTotal.Value := TempTotal; finally tbJualDetail.EnableControls; if PrevRecord <> nil then begin tbJualDetail.GoToBookmark(PrevRecord); tbJualDetail.FreeBookmark(PrevRecord); end; end; end; |
|||
| Bind HitungTotal ke event tbJualDetail | AfterDelete | HitungTotal | |
| AfterPost | HitungTotal |
1.1.6. Membuat Window Data Barang
| No | Action | ||
| 1 | Membuat form dengan wizard | Database-> Form Wizard | Tabel barang |
| Format: Grid | |||
| 2 | Save Form | Barang.pas
Name: frmBarang |
|
| 3 | Bind ke menu utama | OnClick | FrmBarang.ShowModal |
1.1.7. Membuat Laporan Master Detail
| No | Action | ||
| 1 | Membuat form dengan wizard | Database-> Form Wizard | Tabel jual master
tabel jualdetail detail posisi: grid |
| 2 | Tambah Rave Component | RaveProject | |
| RaveTableConn1 | Dataset: tbJual | ||
| RaveTableConn2 | Dataset: tbJualDetail | ||
| 3 | Buat project RAV | Double click RvProject1 | |
| DataView1 | RaveTableConn1 | ||
| DataView2 | RaveTableConn2 | ||
| Region | |||
| DataBand1 | DataView: DataView1 | ||
| DataBand2 | DataView: DataView2
ControllerBand: DataBand1 DetailKey: Faktur MasterDataView: DataView1 MasterKey: Faktur BandStyle: detail |
||
| DataText di DataBand1 | Faktur
Sales Tanggal Total |
||
| DataText di DataBand2 | BarangID
Lookup nama Barang Faktur Jumlah |
||
| Hias dengan garis/ warna border | |||
| Preview | |||
| Binding dengan tombol | RvProject.Execute(‘Report1′) |
1.1.8. Menggunakan Data Module
]]>Tujuan
1. Memahami konsep database
2. mengenal dan menggunakan komponen database
3. membuat report sederhana menggunakan komponen Rave Report
Demo Tutorial
Langkah-langkah
|
No |
Action |
||
|
1 |
File->New->Application |
|
Save All create direktori "ikan" Project: ikan.dpr File: unit1.pas |
|
2 |
Komponen Panel1 |
kiri |
|
|
Komponen Panel2 |
kanan |
||
|
3 |
Komponen Tabel |
Tab BDE: Table |
Properti: |
|
|
DatabaseName: DBDEMOS TableName: biolife.dbf Active: True |
||
|
4 |
Komponen Datasource |
Tab DataAccess |
Properti DataSet: Table1 |
|
5 |
Komponen DBGrid |
Tab DataControl |
Properti DataSource: DataSource1 |
|
6 |
Komponen DBText |
Idem, di atas Panel1 |
Properti DataSource: DataSource1 DataField: Common_Name Align: Top Font: Verdana, 14 Alignment: Center |
|
7 |
Komponen DBText |
Idem, di atas Panel2 |
Properti DataSource: DataSource1 DataField: Species_name AutoSize: True Align: Top Font: Verdana, 14 Alignment: Center |
|
8 |
Komponen DBImage |
Idem, di atas Panel1 |
Properti DataSource: DataSource1 DataField: Graphics Align:Client |
|
9 |
Komponen DBMemo |
Idem, di atas Panel2, dibawah DBText2 |
Properti DataSource: DataSource1 DataField: Notes |
|
10 |
Komponen BitBtn 1 |
Tab Additional |
Properti Kind: bkOK Caption: Print Report |
|
11 |
Komponen BitBtn 2 |
Tab Additional |
Properti Kind: bkClose |
|
12 |
Supaya hanya beberapa field saja yang muncul pada db grid |
Properti FieldDefs Table1 |
Double Click Table1 |
|
|
Klik Kanan Add All Fields Species No: properti Visible=false Notes : properti Visible=false Graphics: properti Visible=false |
||
|
13 |
Format numerik kolom Lengh_In |
Properti FieldDefs Table1 |
Double Click Table1 Klik Kolom Lengh_In |
|
|
DisplayFormat : 0.00 |
||
|
14 |
Format Panjang kolom Common_Name |
Properti FieldDefs Table1 |
Double Click Table1 Klik kolom Common_Name |
|
|
DisplayWidth: 20 |
1.1.3. Membuat Report Sederhana
|
No |
Action |
||
|
1 |
Komponen RvTableConnection |
Tab Rave |
Properti Table: Table1 |
|
2 |
Komponen RvProject |
Tab Rave |
DoubleClick -> buka Rave Designer |
|
New Data Object |
Direct Data View , RvDataSetConnection1, Finish |
||
|
3 |
Tools -> Report Wizard |
Simple Table DataVIew1 -> Next All , pilih semua field, Next, Next Daftar Ikan -> Next Body Font=10 Generate |
|
|
4 |
View Report |
Save Report -> Ikan.Rav |
|
|
5 |
Edit Report |
Species No |
No |
|
Common_Name |
Common Name |
||
|
Length (cm) |
Cm |
||
|
Length_in |
Inch. |
||
|
Besarkan Ukuran Report |
|||
|
Besarkan Ukuran Deatil Band |
|||
|
6 |
Field Graphics |
Standard->BitMap Component |
Letakkan di detail band, kecilkan ukurannya |
|
|
Properti: DataView: DataView1 DataField: Graphics |
||
|
7 |
View Report |
|
|
|
8 |
Properti RvReport |
Filename |
Ikan.rav |
|
9 |
Bind event Print Report |
OnClick |
RvProject1.Open; RvProject1.ExecuteReport(‘Report1′); |
1.1.4. Menambah Filtering
|
No |
Action |
||
|
1 |
Komponen GroupBox |
Tab Standard |
|
|
2 |
Komponen ComboBox1 |
Tab Standard |
|
|
3 |
Komponen ComboBox2 |
Tab Standard |
|
|
4 |
Komponen CheckBox1 |
Tab Standard |
Property Caption = Filter Aktif |
|
5 |
Event CheckBox1 |
OnClick |
if CheckBox1.Checked then begin Table1.Filter := ‘ [Length (cm)] >= ‘ + ComboBox1.Text; Table1.Filter := Table1.Filter + Table1.Filtered:=True; end else Table1.Filtered:=False; |
|
4 |
Event Form onCreate |
procedure TForm1.FormCreate(Sender: TObject); var i: integer; n: string; begin for i:= 1 to 30 do begin n := IntToStr(i*10); ComboBox1.Items.Add(n); ComboBox2.Items.Add(n); end; ComboBox1.ItemIndex:=0; ComboBox2.ItemIndex:=0; end; |
|
|
5 |
Event ComboBox |
OnChange |
procedure TForm1.ComboBox1Change(Sender: TObject); begin if CheckBox1.Checked then CheckBox1Click(nil); end; procedure TForm1.ComboBox2Change(Sender: TObject); begin if CheckBox1.Checked then CheckBox1Click(nil); end; |
|
6 |
Coba jalankan, |
Pilih filter, aktifkan filter, Kosongkan comboBox |
Ok Error |
|
7 |
Menghandle error |
Tambahkan pada CheckBox onClick |
if ComboBox1.Text = ” then ComboBox1.Text :=’0′; if ComboBox2.Text = ” then ComboBox2.Text :=’0′; |
]]>Konsep Database
· Database: Kumpulan informasi yang tersusun sedemikian rupa sehingga program komputer dapat dengan cepat memilih, mencari, dan menampilkan sebagian data yang diinginkan
· tersusun dari field, record, dan table
· field : bagian terkecil tempat menyimpan informasi
· record : satu set informasi lengkap yang terdiri dari beberapa field
· table : kumpulan dari satu atau lebih record
· Contoh, buku telepon analog dengan sebuah table. Berisi daftar records, yang masing-masing terdiri dari tiga field: nama, alamat, dan nomor telephone.
· KEY : field yang digunakan untuk men-sortir data (mempercepat proses pencarian data).
· Sering juga disebut KEY FIELD , SORT KEY, INDEX, atau KEY WORD.
· Contoh, untuk jika ingin mensortir record berdasarkan umur, maka field umur adalah KEY
· Boleh terdapat lebih dari satu KEY pada suatu Table. Salah satu KEY ditentukan sebagai PRIMARY KEY dan harus berisi nilai yang UNIK untuk setiap recordnya.
· Key field yang mengidentifikasikan adanya kaitan dengan record pada tabel lain disebut FOREIGN KEY.
· Misalnya tabel penjualan terdiri dari no faktur sebagai KEY dan kode pelanggan sebagai FOREIGN KEY
Komponen Database pada Delphi
· Susunannya adalah Sebagai berikut:
 |
User Interface / Data Aware / Data Access
Bagian yang berhubungan dengan interface user: entry, delete, update data, browse, dll. User interface sebaiknya dipisahkan dari logika aplikasi database. Keuntungannya:
1. mempertinggi flexibility: perubahan yang terjadi pada database tidak mengakibatkan perubahan pada user interface, dan sebaliknya.
2. Dapat diperoleh adanya common forms yang dapat di-share di antara banyak applications, oleh karena itu dapat tersedia user interface yang konsisten dan standard untuk banyak aplikasi.
Komponen data source
1. Berfungsi sebagai saluran penghubung antara user interface dan dataset yang mewakili informasi dari database.
2. Datasource dapat digunakan secara bersamaan oleh banyak data-aware (user interface) dalam satu form, sehinnga saat user memilih suatu record, isi/ tampilan pada setiap control yang terkait ke datasource tersebut akan selalu di-synchronized dengan record yang dipilih.
[PENJELASAN DEMO]
Komponen dataset
Inti dari aplikasi database adalah dataset. Komponen ini mewakili satu set records suatu database. Records ini dapat berupa :
1. data dari satu tabledatabase ,
2. subset dari fields atau records dalam suatu table,
3. atau information lebih dari satu table yang dijoin menjadi satu view.
Dengan menggunakan dataset, logika aplikasi akan terlindungi dari perubahan yang terjadi secara fisik pada database. Maksudnya, ketika database berubah (nama field, tambah/hapus field, dll) , kita mungkin perlu melakukan perubahan pada komponen dataset yang menentukan data yang diwakilinya pada database yang berubah, tetapi logika aplikasi kita lainnya dapat langsung berjalan tanpa harus dilakukan perubahan.
SQL Sekilas
· Adalah bahasa standard (ANSI) yang digunakan untuk mengakses database pada sistem management database relasional (RDBMS) misalnya Oracle, MySQL, Sybase, MS SQL, Informix, PostgreSQL, DB2, dll
· Terdiri dari tiga kategori : DDL, DML, DCL
· DDL (Data Definition Language) : perintah yang digunakan untuk mendefinisikan struktur data
· CREATE DATABASE: membuat database baru
· DROP DATABASE: menghapus database beserta semua tabelnya
· CREATE TABLE: membuat definisi tabel baru
· DROP TABLE: menghapus definisi tabel
· ALTER TABLE : mengubah definisi tabel yang sudah ada
· RENAME TABLE : mengubah nama tabel
· CREATE INDEX : menambah index pada tabel
· DROP INDEX : menghapus index dari tabel
· DML (Data Manipulation Language) : perintah yang digunakan untuk memanipulasi data, yaitu menampilkan, merubah, menghapus, dan menambah data
· INSERT: menambah record baru
· SELECT: memilih kolom dan menampilkan record
· UPDATE: mengubah nilai kolom pada satu atau beberapa record
· DELETE: menghapus record
· REPLACE: mirip seperti INSERT; bedanya: jika field UNIQUE atau PRIMARY KEY pada record yang lama memiliki nilai yang sama dengan record yang baru, maka record yang lama akan dihapus terlebih dahulu sebelum record yang baru di-insert-kan
· TRUNCATE: mirip seperti DELETE FROM table_name; bedanya: akan men-drop dan men-create ulang table (lebih cepat), Not transaction-safe, tidak mengeluarkan jumlah record yang ter-delete (Lihat pada Slide ttg DELETE)
· DCL (Data Control Language) : perintah yang diguakan untuk mengontrol akses terhadap data
· GRANT: memberi hak kepada user
· REVOKE: menghapus hak dari seorang user
· Agregate Function:
· AVG() : menghitung nilai rata-rata dari beberapa record
· COUNT() : menghitung jumlah record
· COUNT(*) : menghitung jumlah total record pada suatu tabel
· MAX() : menghitung nilai maksimum dari beberapa record
· MIN() : menghitung nilai minimum dari beberapa record
· SUM() : menghitung total jumlah dari beberapa record
· Function :
· Date Time Function
· Math
· String Function
· Control Flow
· Operator: Logic, Comparison
]]>1. Buka project matrix
2. set break point
3. run
4. debug per baris dan prosedure (F8)
5. debug per baris masuk ke prosedure
6. watch evaluate inspect
7. tekan F1 pada keyword, baca help
]]>Pada video tutorial http://dijexi.com ini dijelaskan cara membuat aplikasi multiple document interface (MDI) word processor sederhana dengan tujuan untuk mempelajari cara membuat form MDI child dan frame,membuka form saat runtime, membuat Menu, menggabungkan menu Frame dan Child, menggunakan komponen RichEdit, alignment, word wrap , cut copy paste delete, menggunakan komponen Open, Save, PrinterSetup, Print, dan Font Dialog, dan menggunakan event form Close dan CloseQuery.
Video Tutorial Pembuatan Aplikasi
[video1a]
[video1b]
[video2]
[video3]
[video4]
[video5]
[video6]
[video7]
[video8]
[video9]
[video10]
[video11]
Background music: ethnical traditional music from Batak Karo: Gendang Karo – Perlawes.
Langkah-langkah
|
No |
Action |
||
|
1 |
File->New->Application |
|
Save All create direktori "word processor" Project: WORD.DPR File: unit1.pas |
|
2 |
Membuat MDI Frame |
FormStyle: fsMDIFrame Name: frmFrame |
|
|
3 |
Membuat Child Window |
File -> New -> Form |
File: unit2.pas Name: frmChild FormStyle: fsMDIClild |
|
3 |
Tidak auto create |
Project ->Options |
FrmChild -> Avaliable forms |
|
5 |
Membuat menu aplikasi |
||
|
Pada MDI Frame |
&File &New &Open - E&xit |
&Window &Tile &Cascade &Arrange Icons |
|
|
Pada Clild Window |
&File &New &Open &Close &Save Save &as &Printer S&etup - E&xit |
&Edit &Character Cu&t Ctrl-X &Copy Ctrl-C &Right &Paste Ctrl-V &Center De&lete Ctrl-D - - &Word Wrap Select &All - &Font… |
|
|
6 |
Save All |
||
|
7 |
Menggabungkan Menu |
frmFrame : File frmFrame: Window frmChild: File frmChild: Edit frmChild: Character |
GroupIndex = 0 9 0 => File pada Frame akan tertimpa 1 1 |
|
8 |
Membuat Child saat runtime |
frmFrame: File-> New Click |
Implementation uses Unit2; … Var editForm: TfrmChild; begin editForm := TfrmChild.Create(self); end; |
|
frmClild: File->New Click |
Implementation uses Unit1; { $R *.dfm} frmFrame.New1Click(nil); |
||
|
9 |
Coba Run |
||
|
10 |
Mengatur Child |
Frame: Window-> Tile Click |
Tile |
|
Frame: Window-> Cascade Click |
Cascade |
||
|
Frame: Window-> Arrange Click |
Arrange |
||
|
11 |
Membuat Daftar child window |
Frame: Properti WindowMenu = Window1 |
|
|
10 |
Membuat Text Editor pada Child |
Drop komponen RichEdit |
Align = alClient Name = RichEdit1 |
|
11 |
Alignment Text |
Character -> Left, ulangi untuk Character -> Right1 Character -> Center |
procedure TfrmChild.AlignClick(Sender: TObject); begin Left1.Checked := False; Right1.Checked := False; Center1.Checked := False; with Sender as TMenuItem do Checked := True; with RichEdit1.Paragraph do if Left1.Checked then Alignment := taLeftJustify else if Right1.Checked then Alignment := taRightJustify else if Center1.Checked then Alignment := taCenter; end; |
|
12 |
Scroll Bar dan Word Wrap |
Character -> Word Wrap |
procedure TEditForm.Wordwrap1Click(Sender: TObject); begin with RichEdit1 do begin WordWrap := not WordWrap; { toggle word wrapping } if WordWrap then ScrollBars := ssVertical else ScrollBars := ssBoth; WordWrap1.Checked := WordWrap; { set menu item check } end; end; |
|
13 |
Memblok Text |
Edit | Select All |
procedure TEditForm.Selectall1Click(Sender: TObject); begin RichEdit1.SelectAll; end; |
|
14 |
Cut Copy Paste |
Edit->Cut, dll |
procedure TEditForm.Cut1Click(Sender: TObject); begin Editor.CutToClipboard; end; procedure TEditForm.Copy1Click(Sender: TObject); begin Editor.CopyToClipboard; end;
procedure TEditForm.Paste1Click(Sender: TObject); begin Editor.PasteFromClipboard; end; |
|
15 |
Delete Text |
Edit Delete |
procedure TEditForm.Delete1Click(Sender: TObject); begin Editor.ClearSelection; end; |
|
16 |
Membuka File |
frmFrame: Drop Komponen OpenDialog |
Properti Filter = Rich text files (*.rtf) *.rtf Plain text files (*.txt) *.txt All files *.* |
|
frmChild: File -> Open Click |
. . private { private declarations } PathName: string; public { public declarations } procedure Open(const fileName: string); end; . . . procedure TEditForm.Open(const fileName: string); begin PathName := fileName; Caption := ExtractFileName(fileName); with RichEdit1 do begin Lines.LoadFromFile(PathName); SelStart := 0; Modified := False; end; end; procedure TEditForm.Open1Click(Sender: TObject); begin FrameForm.Open1Click(Sender); end; |
||
|
frmFrame: File -> Open |
procedure TFrameForm.Open1Click(Sender: TObject); begin if OpenFileDialog.Execute then with TEditForm.Create(Self) do Open(OpenFileDialog.FileName); end; |
||
|
17 |
Save File |
frmFrame: Drop komponen SaveDialog |
Properti Filter = Rich text files (*.rtf) *.rtf Plain text files (*.txt) *.txt All files *.* |
|
frmChild: File -> Save As |
procedure TEditForm.Saveas1Click(Sender: TObject); begin SaveFileDialog.FileName := PathName; if SaveFileDialog.Execute then begin PathName := SaveFileDialog.FileName; Caption := ExtractFileName(PathName); Save1Click(Sender); end; end; |
||
|
File->Save |
procedure TEditForm.Save1Click(Sender: TObject); begin if PathName = DefaultFileName then SaveAs1Click(Sender) else begin Editor.Lines.SaveToFile(PathName); Editor.Modified := False; end; end; |
||
|
18 |
Font Dialog |
Child: Drop komponen FontDialog: Character->FOnt |
procedure TEditForm.Font1Click(Sender: TObject); begin FontDialog1.Font := Editor.Font; if FontDialog1.Execute then Editor.SelAttributes.Assign(FontDialog1.Font); end; |
|
19 |
Mencetak File |
Child: drop komponen PrinterDialog dan PrinterSetupDialog |
|
|
File->Print Setup |
procedure TEditForm.Printersetup1Click(Sender: TObject); begin PrinterSetupDialog1.Execute; end; |
||
|
File->Print |
procedure TEditForm.Print1Click(Sender: TObject); begin if PrintDialog1.Execute then Editor.Print(PathName); end; |
||
|
20 |
Keluar |
Frame: File->Exit |
procedure TFrameForm.Exit1Click(Sender: TObject); begin Close; end; |
|
Child: onClose |
procedure TEditForm.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; TCloseAction describes how a form should respond when it is closed. caFree The form is closed and all allocated memory for the form is freed. |
||
|
Child : onQueryClose |
procedure TEditForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); const SWarningText = ‘Save changes to %s?’; begin if Editor.Modified then begin case MessageDlg(Format(SWarningText, [PathName]), mtConfirmation, [mbYes, mbNo, mbCancel], 0) of idYes: Save1Click(Self); idCancel: CanClose := False; end; end; end; Use OnCloseQuery to specify the conditions under which the form can close. An OnCloseQuery event handler returns a Boolean CanClose value that determines whether a form is allowed to close. Its default value is true. |
||
|
Child: File -> Exit |
procedure TEditForm.Exit1Click(Sender: TObject); begin FrameForm.Exit1Click(Sender); end; |
||
|
21 |
Coba Run |
Apa yang sudah dipelajari?
- membuat form MDI child dan frame
- membuka form saat runtime
- membuat Menu
- menggabungkan menu Frame dan Child
- menggunakan komponen RichEdit alignment, word wrap , cut copy paste delete
- menggunakan komponen Open, Save, PrinterSetup, Print, dan Font Dialog
- menggunakan event form Close dan CloseQuery
![Reblog this post [with Zemanta]](http://img.zemanta.com/reblog_e.png?x-id=8f95ea4a-fb02-4b4b-ac62-6af1d4e01476)
]]>Pada video tutorial ini dijelaskan bagaimana membuat program animasi dengan tujuan untuk mempelajari tentang membuat animasi sederhana dengan menggunakan komponen tTimer, event onTImer, Shape, SpeedBtn, Syntax membuat type data baru, menggunakan klausa initialization, dan event timer.
Video Tutorial Program
[video1]
[video2a]
[video3]
Langkah-langkah
|
No |
Action |
||
|
1 |
File->New->Application |
|
Save All create direktori "media Player" Project: ANIMASI.DPR File: unit1.pas |
|
2 |
Drop component |
Name |
Pallete |
|
|
Panel1 |
Align: Right |
Standard |
|
|
Panel2 |
Align: Client |
Standard |
|
|
Shape1 |
Pen: Elipse |
Additional |
|
|
SpeedBtn1 |
Glyph: DAY.BMP |
Additional |
|
|
SpeedBtn2 |
ARROW2U.BMP |
Additional |
|
|
SpeedBtn3 |
ARROW2R.BMP |
Additional |
|
|
SpeedBtn4 |
ARROW2D.BMP |
Additional |
|
|
SpeedBtn5 |
ARROW2L.BMP |
Additional |
|
|
Timer1 |
Interval:100 |
System |
|
4 |
Tambah Type data |
Dibawah indetifier type |
tArah = (diam,kiri, kanan, atas, bawah); |
|
5 |
Tambah constanta |
Di bawah type |
Contst langkah = 10; |
|
6 |
Tambah variabel |
Di bawah Form1 |
arah : tArah; |
|
7 |
Tambah initialization |
Di bawah implementation |
Initialization arah := diam; |
|
8 |
Event handler |
SpeedBtn1 .. 5 |
ChangeDirection
if sender=SpeedButton1 then arah := diam else if sender=SpeedButton2 then arah := atas else if sender=SpeedButton3 then arah := kiri else if sender=SpeedButton4 then arah := bawah else if sender=SpeedButton5 then arah := kanan
|
|
|
Timer onTimer |
if arah=atas then begin Shape1.top := Shape1.Top – langkah; if Shape1.Top<=0 then arah := bawah end else if arah=bawah then begin Shape1.top := Shape1.Top + langkah; if Shape1.top>=(panel2.Height – arah := atas end else if arah=kiri then begin Shape1.Left := Shape1.Left – langkah; if Shape1.Left<=0 then arah := kanan end else if arah=kanan then begin Shape1.Left := Shape1.Left + langkah; if Shape1.Left>=(panel2.Width – arah := kiri end;
|
Apa yang sudah dipelajari
- membuat animasi sederhana dengan menggunakan komponen tTimer.
- Komponen
- Timer, event onTImer
- Shape, properti
- SpeedBtn
- Syntax
- Membuat type data baru
- menggunakan kalusa initialization
- event timer
]]>