Untuk rumus penghitungannya, saya mengambil artikel dari blog http://organisasi.org/rumus-menghitung-berat-badan-ideal-normal-indeks-broca-broca-index. Dengan memanfaatkan project MenuList yang telah kita buat sebelumnya, kita akan meneruskannya sehingga akan membentuk aplikasi DietMeter ini. Saya akan membuat project baru dan menempelkan code yang ada sebelumnya ke project baru saya . berikut ini adalah langkahnya :

1. Buat project android yang baru, dan isikan sebagai berikut : 

1. Kita buat 2 layout baru yaitu beratnormal.xml dan beratideal.xml pada res/layout/, masing2 juga memiliki file .java yaitu beratnormal.java dan beratideal.java yang mana kita harus buat baru di src/com.dietmeter.

Cara menambahkan file xml adalah dengan klik kanan pada direktori res/layout  dan pilih menu New->Other kemudian pilih menu Android XML File dan tekan Next :

Untuk lebih amannya,gunakan nama dengan huruf non capital, beri nama beratnormal.xml lalu pastikan tipe resource adalah Layout lalu tekan finish.

Cara menambahkan file class(.java) adalah dengan klik kanan pada direktori src/com.dietmeters dan memilih menu New->Class dan akan tampil sebagai berikut :

Lalu kita tentukan superclass dari class ini dengan cara kita browse superclass dan ketikkan “activity” seperti pada gambar berikut :

Pilih dan tekan OK lalu Finish.

• beratnormal (.xml dan .java)
  • Dalam  layout xml ini akan dimunculkan kode sebagai berikut :

<?xml version="1.0" encoding="utf-8"?>

<LinearLayout

xmlns:android="http://schemas.android.com/apk/res/android"

android:orientation="vertical"

android:layout_width="fill_parent"

android:layout_height="fill_parent">

<TextView

android:id="@+id/label1"

android:text="Berat Badan :"

android:layout_width="wrap_content"

android:layout_height="wrap_content"

>

</TextView>

<EditText

android:id="@+id/edBerat"

android:text=""

android:layout_width="fill_parent"

android:layout_height="wrap_content"

android:inputType="numberDecimal">

</EditText>

<TextView

android:id="@+id/label2"

android:text="Tinggi Badan :"

android:layout_width="wrap_content"

android:layout_height="wrap_content">

</TextView>

<EditText

android:id="@+id/edTinggi"

android:text=""

android:layout_width="fill_parent"

android:layout_height="wrap_content"

android:inputType="numberDecimal">

</EditText>

<Button

android:id="@+id/btnKalkulasi"

android:text="Kalkulasi"

android:layout_width="fill_parent"

android:layout_height="wrap_content"

android:onClick="kalkulasi">

</Button>

<Button

android:id="@+id/btnKembali"

android:text="Menu Utama"

android:layout_width="fill_parent"

android:layout_height="wrap_content"

android:onClick="BackMainMenu">

</Button>

</LinearLayout>

• • Dalam file .java kita masukkan kode :

package com.dietmeters;

import org.xml.sax.Parser;

import android.app.Activity;

import android.os.Bundle;

import android.view.View;

import android.widget.Button;

import android.widget.EditText;

import android.widget.Toast;

public class beratnormal extends Activity{

private EditText edBerat;

private EditText edTinggi;

private Button btnKalkulasi;

private Button btnKembali;

@Override

public void onCreate(Bundle savedInstanceState){

super.onCreate(savedInstanceState);

setContentView(R.layout.beratnormal);

edBerat = (EditText) findViewById(R.id.edBerat);

edTinggi = (EditText) findViewById(R.id.edTinggi);

btnKalkulasi = (Button) findViewById(R.id.btnKalkulasi);

btnKembali = (Button) findViewById(R.id.btnKembali);

}

public void doKalkulasi(View view){

float Berat = Float.parseFloat(edBerat.getText().toString());

float Tinggi = Float.parseFloat(edTinggi.getText().toString());

float Hasil = (float) Tinggi - 100;

String rt = "Normal";

//kelebihan berat badan

if (Berat > Hasil)

{

float Persen = ((float)Berat / Hasil * 100)-100;

if (Persen>9 && Persen<21)

{

rt = "Kelebihan Berat Badan / Overweight";

}

else if (Persen > 20)

{

rt = "Kegemukan / Obesitas / Obesity";

}

}

else if (Berat < Hasil)

{

float Persen = ((float)Hasil/Berat*100) - 100;

if (Persen>9)

{

rt = "Kurus";

}

}

Toast.makeText(this, "Anda : " + rt, Toast.LENGTH_LONG).show();

}

public void BackMainMenu(View view){

finish();

}

}

• beratideal (.xml dan .java)
  • Dalam  layout xml ini akan dimunculkan kode sebagai berikut :

<?xml version="1.0" encoding="utf-8"?>

<LinearLayout

xmlns:android="http://schemas.android.com/apk/res/android"

android:orientation="vertical"

android:layout_width="fill_parent"

android:layout_height="fill_parent">

<TextView

android:id="@+id/label1"

android:text="Berat Badan :"

android:layout_width="wrap_content"

android:layout_height="wrap_content"

>

</TextView>

<EditText

android:id="@+id/edBerat"

android:text=""

android:layout_width="fill_parent"

android:layout_height="wrap_content"

android:inputType="numberSigned|numberDecimal">

</EditText>

<TextView

android:id="@+id/label2"

android:text="Tinggi Badan :"

android:layout_width="wrap_content"

android:layout_height="wrap_content">

</TextView>

<EditText

android:id="@+id/edTinggi"

android:text=""

android:layout_width="fill_parent"

android:layout_height="wrap_content"

android:inputType="numberSigned|numberDecimal">

</EditText>

<Button

android:id="@+id/btnKalkulasi"

android:text="Kalkulasi"

android:layout_width="fill_parent"

android:layout_height="wrap_content"

android:onClick="doKalkulasi">

</Button>

<Button

android:id="@+id/btnKembali"

android:text="Menu Utama"

android:layout_width="fill_parent"

android:layout_height="wrap_content"

android:onClick="BackMainMenu">

</Button>

</LinearLayout>

• • Dalam file .java kita masukkan kode :

package com.dietmeters;

import android.app.Activity;

import android.os.Bundle;

import android.view.View;

import android.widget.Button;

import android.widget.EditText;

import android.widget.Toast;

public class beratideal extends Activity{

private EditText edBerat;

private EditText edTinggi;

private Button btnKalkulasi;

private Button btnKembali;

@Override

public void onCreate(Bundle savedInstanceState){

super.onCreate(savedInstanceState);

setContentView(R.layout.beratideal);

edBerat = (EditText) findViewById(R.id.edBerat);

edTinggi = (EditText) findViewById(R.id.edTinggi);

btnKalkulasi = (Button) findViewById(R.id.btnKalkulasi);

btnKembali = (Button) findViewById(R.id.btnKembali);

}

public void doKalkulasi(View view){

float Berat = Float.parseFloat(edBerat.getText().toString());

float Tinggi = Float.parseFloat(edTinggi.getText().toString());

String rt = "Ideal";

float ideal = (float)(Tinggi - 100) - ((float)0.1 * (Tinggi - 100));

if (Berat > ideal)

{

float Persen = ((float)Berat / ideal * 100)-100;

if (Persen>9 && Persen<21)

{

rt = "Kelebihan Berat Badan / Overweight";

}

else if (Persen > 20)

{

rt = "Kegemukan / Obesitas / Obesity";

}

}

else if (Berat < ideal)

{

float Persen = ((float)ideal/Berat*100) - 100;

if (Persen>9)

{

rt = "Kurus";

}

}

Toast.makeText(this, "Anda : " + rt, Toast.LENGTH_LONG).show();

}

public void BackMainMenu(View view){

finish();

}

}

Setelah itu hal terpenting, kita daftarkan 2 activity tersebut ke dalam AndroidManifest.xml. caranya dengan mengklik AndroidManifest.xml dan masuk ke dalam tab Application (tab berada di bawah)lalu scroll window tersebut dan akan Nampak gambar sebagai berikut :

Lalu kita klik Add dan pilih Create a new element at the top level,in Application lalu pilih Activity seperti ditunjukkan pada gambar di bawah ini :

Lalu tekan OK, lalu pada kolom sebelah kanan kita ubah field Name dengan gambar sebagai berikut :

Default nama activity adalah “Activity”, kita browse dan kita ketikkan beratnormal :

Lalu kita tekan OK, selanjutnya pada Label kita isikan “Berat Normal” (lihat gambar sebelumnya).hal yang sama lakukan juga untuk beratideal activity.

Selanjutnya kita akan mengisikan code pada source form menu utama yaitu ActivityDietMeters.java . kita isikan sebagai berikut :

package com.dietmeters;

import android.app.ListActivity;

import android.os.Bundle;

import android.view.View;

import android.widget.ArrayAdapter;

import android.widget.ListView;

import android.widget.Toast;

import android.content.Intent;

public class ActivityDietMeters extends ListActivity {

/** Called when the activity is first created. */

@Override

public void onCreate(Bundle icicle) {

super.onCreate(icicle);

String[] DietMeter = new String[] { "Normal Meter", "Ideal Meter"};

this.setListAdapter(new ArrayAdapter<String>(this,android.R.layout.simple_list_item_1, DietMeter));

}

@Override

protected void onListItemClick(ListView l,View v,int Position,long id){

super.onListItemClick(l, v, Position, id);

Object o = this.getListAdapter().getItem(Position);

String Teks = o.toString();

ShowThis(Teks);

}

public void ShowThis(String Teks)

{

Intent i = null;

if (Teks.equals("Normal Meter")){

i = new Intent(this,beratnormal.class);

}

else if (Teks.equals("Ideal Meter")){

i = new Intent(this,beratideal.class);

}

if (i != null)

{

startActivity(i);

}

else

{

Toast.makeText(this, Teks, Toast.LENGTH_LONG).show();

}

}

}

Kita lihat perbedaan code aplikasi sekarang dengan code sebelumnya, perhatikan baris code berikut :

protected void onListItemClick(ListView l,View v,int Position,long id){

super.onListItemClick(l, v, Position, id);

Object o = this.getListAdapter().getItem(Position);

String Teks = o.toString();

ShowThis(Teks); //method pemanggilan activity

}

public void ShowThis(String Teks)

{

Intent i = null; //beri nilai default

if (Teks.equals("Normal Meter")){

i = new Intent(this,beratnormal.class);

}

else if (Teks.equals("Ideal Meter")){

i = new Intent(this,beratideal.class);

}

if (i != null)

{

startActivity(i);

}

}

Dalam code di atas kita membuat suatu method ShowThis(String Teks) dimana isinya adalah pemanggilan activity yang berdasarkan pemilihan menulist.

Setelah mengisikan sesuai dengan di atas,kita coba jalankan di emulator dan beginilah contoh hasilnya :

• Tampilan utama

• Normal Meter

• Ideal Meter

Apabila telah berjalan sesuai dengan di atas, maka anda telah berhasil membuat aplikasi jadi #1 anda dengan menggunakan android.

Demikian tutorial ini semoga dapat menambah ilmu anda, apabila anda ingin mendownload source code aplikasi ini bisa didownload disini.

Soal Latihan :

- sebenarnya coding tersebut masih bisa dipersingkat dengan hanya memanfaatkan 1 form saja dan code yang bisa dipersingkat juga (dalam tutorial sengaja untuk dipanjangkan), cobalah untuk mengerjakan kasus ini. apabila anda bisa dan berkenan,silahkan share disini supaya teman2 yang lain bisa melihatnya atau pm saya apabila kesulitan mengerjakan ini.

1. Buat Project android yang baru
2. Klik Next dan isikan konfigurasi sebagai berikut :
3. Setelah itu pada edisi ini kita tidak akan mengubah main.xml karena kita akan membuat tampilan secara runtime , kita buka ActivityListMenu.java dan kita tempelkan code sebagai berikut :

package com.listmenu;

import android.app.ListActivity;
import android.os.Bundle;
import android.view.View;
import android.widget.ArrayAdapter;
import android.widget.ListView;
import android.widget.Toast;

public class ActivityListMenu extends ListActivity {
 @Override
 public void onCreate(Bundle icicle) {
 super.onCreate(icicle);

 String[] DietMeter = new String[] { "Normal Meter", "Ideal Meter"};
 this.setListAdapter(new ArrayAdapter<String>(this,android.R.layout.simple_list_item_1, DietMeter));
 //setContentView(R.layout.main);
 }

 @Override
 protected void onListItemClick(ListView l, View v, int position, long id) {
 super.onListItemClick(l, v, position, id);
 Object o = this.getListAdapter().getItem(position);
 String keyword = o.toString();
 Toast.makeText(this, "Menu Diet : " + keyword, Toast.LENGTH_LONG).show();

 }
}

Dapat kita lihat code di atas, kita tidak lagi mengimport lib android.app.Activity tetapi kita menggunakan android.app.List Activity , hal ini karena kita akan membuat suatu list menu dalam form tersebut dan secara otomatis main class dari class activity tersebut adalah class yang di-extends dari ListActivity.

Pada main method OnCreate kita membuat suatu array string dimana kita namakan DietMeter dan kita isikan 2 value didalamnya, setelah itu kita memasangkan array tersebut sebagai items dari listmenu yang kita bentuk.

Selanjutnya kita membuat suatu method override yang merupakan event daripada ListMenu ini, dan kita isikan code dimana apabila diklik akan menampilkan menu item yang kita pilih.

4. Jalankan aplikasi ini, dan akan tampil sebagai berikut :

Apabila hasil seperti gambar diatas maka aplikasi menu telah berhasil dibuat.

Icon Dalam Menu

Dalam listmenu kali ini kita akan menambahkan icon didalam item menu tersebut, caranya adalah kita buat file xml bernama baris.xml yang kita pasangkan di direktori layout, caranya adalah di direktori res/layout kita klik kanan dan pilih menu New-Other dan pilih menu Android XML File dan klik Next lalu isikan sebagai berikut  :

Klik Finish. Selanjutnya kita isikan baris.xml sebagai berikut :

<?xml version="1.0" encoding="utf-8"?>
<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
 android:layout_width="wrap_content"
 android:layout_height="wrap_content">
 <ImageView
 android:id="@+id/icon"
 android:layout_height="wrap_content"
 android:src="@drawable/icon"
 android:layout_width="22px"
 android:layout_marginTop="4px"
 android:layout_marginRight="4px"
 android:layout_marginLeft="4px">
 </ImageView>
 <TextView
 android:text="@+id/TextView01"
 android:layout_width="wrap_content"
 android:layout_height="wrap_content"
 android:id="@+id/label"
 android:textSize="30px"></TextView>
</LinearLayout>

Lalu code pada ActivityListMenu.java kita hanya akan ubah sedikit saja, perhatikan code seluruhnya :

package com.listmenu;

import android.app.ListActivity;
import android.os.Bundle;
import android.view.View;
import android.widget.ArrayAdapter;
import android.widget.ListView;
import android.widget.Toast;

public class ActivityListMenu extends ListActivity {
 @Override
 public void onCreate(Bundle icicle) {
 super.onCreate(icicle);

 String[] DietMeter = new String[] { "Normal Meter", "Ideal Meter"};
 this.setListAdapter(new ArrayAdapter<String>(this,R.layout.baris, DietMeter));
 //setContentView(R.layout.main);
 }

 @Override
 protected void onListItemClick(ListView l, View v, int position, long id) {
 super.onListItemClick(l, v, position, id);
 Object o = this.getListAdapter().getItem(position);
 String keyword = o.toString();
 Toast.makeText(this, "Menu Diet : " + keyword, Toast.LENGTH_LONG).show();

 }
}

Code diatas sebagian besar sama hanya saja kita menggunakan layout sendiri di ArrayAdapter dan memberitahukan adapter untuk memakai layout yang elemen UInya harus mengandung teks. Code yang beda adalah pada baris ini :

this.setListAdapter(new ArrayAdapter<String>(this,R.layout.baris, DietMeter));

Dan coba jalankan, apabila aplikasi telah benar akan tampil hasil sebagai berikut :

tutorial selanjutnya adalah bagaimana menampilkan form baru ketika menu tersebut diklik dengan meneruskan project ini.

Demikian tutorial ini, semoga dapat menambah ilmu bagi kita semua. Untuk mendownload source project ini bisa didownload disini.

1. Buka Eclipse, dan buat project android baru : 
2. Klik Next dan isi sesuai dengan gambar ini (dibagi menjadi 2 gambar karena window yang panjang) 
3. Klik Finish dan akan muncul project android di workspace seperti berikut ini :

Tentunya dalam project tersebut banyak file2 yang ditemukan..,tidak usah dihafalkan satu persatu karena hanya ada 3 file penting dalam project itu yaitu :

• Main.xml

File ini digunakan untuk design user interface di android.

• String.xml

File ini untuk membantu daripada file main.xml, supaya terlihat rapi (tidak terlalu panjang) maka kita dapat membuat object disini dan di main.xml kita hanya memanggil nama dari object itu saja .

• TampilkanHelloWorld.java

File ini tentunya tidak asing lagi , file ini merupakan main code daripada project ini. Disini kita akan bercoding ria.

File mappingnya adalah sebagai berikut :

Pada aplikasi helloworld ini kita akan membuat layout sebagai berikut :

Nah dari design layout itu nantinya apabila kita klik tombol “tampilkan” di editText akan keluar tulisan “Hello World, This is my first application using android!”, untuk itu kita buka main.xml dan kita buat layout sebagai berikut :

<?xml version=<em>"1.0"</em> encoding=<em>"utf-8"</em>?>

<LinearLayout xmlns:android=<em>"http://schemas.android.com/apk/res/android" </em>

<em> </em>android:orientation=<em>"vertical" </em>android:layout_width=<em>"fill_parent" </em>android:layout_height=<em>"fill_parent"</em>>

<TextView android:layout_width=<em>"fill_parent" </em>android:layout_height=<em>"wrap_content"</em> android:text=<em>"@string/hello"</em>/>

<EditText android:text=<em>""</em> android:id=<em>"@+id/edHello"</em> android:layout_width = <em>"fill_parent"</em> android:layout_height=<em>"wrap_content"</em> android:inputType=<em>"text"</em>></EditText>

<Button android:text=<em>"Tampilkan"</em> android:id=<em>"@+id/btnTampil"</em> android:layout_width = <em>"fill_parent"</em> android:layout_height=<em>"wrap_content"</em> android:onClick = <em>"TampilTulisan"</em>></Button>

</LinearLayout>

Desain layout ini bersifat linear layout, sesuai dengan namanya per-object akan menghandle 1 row/baris. Selanjutnya apa yang akan kita lakukan???kita akan mengubah string.xml, berikut ini adalah perubahannya :

Ubah value pada resource “hello” menjadi seperti di atas.

• Kemudian setelah itu kita akan memasuki inti dari programming itu yaitu “coding”. Kita buka “TampilkanHelloWorld.java” lalu akan muncul editor, kita isikan code berikut ini :

package com.helloworld;

import android.app.Activity;
import android.os.Bundle;
import android.view.View;
import android.widget.EditText;
import android.widget.Button;

public class TampilkanHelloWorld extends Activity {
 /** Called when the activity is first created. */
 private EditText edHello;
 private Button btnTampil;

 @Override
 public void onCreate(Bundle savedInstanceState) {
 super.onCreate(savedInstanceState);
 setContentView(R.layout.main);
 edHello = (EditText) findViewById(R.id.edHello);
 btnTampil = (Button) findViewById(R.id.btnTampil);
 }

 public void TampilTulisan(View view){
 edHello.setText("Hello World, This is my first android application!");
 }
}

Pada code di atas kita lihat ada penambahan import lib yaitu

import android.view.View;
import android.widget.EditText;
import android.widget.Button;

Lib ini ditambahkan karena beberapa object ada dalam lib tersebut. Di code tersebut juga dapat kita lihat pada activity terdapat 2 pendeklarasian object EditText dan Button dan disamping itu juga terdapat method OnCreate, method itu yang akan dijalankan pertama kali ketika aplikasi berjalan.

Pada Code terdapat method TampilTulisan dimana akan dipanggil ketika button btnTampil itu ditekan/diklik, kenapa kita tidak membuat SetListener untuk btnTampil???lihat pada main.xml di baris ini :

<Button android:text=<em>"Tampilkan"</em> android:id=<em>"@+id/btnTampil"</em> android:layout_width = <em>"fill_parent"</em>

android:layout_height=<em>"wrap_content"</em> <strong>android:onClick = <em>"TampilTulisan</em><em>"</em></strong>></Button>

</LinearLayout>

Ya, kita gunakan main.xml untuk pendeklarasian event btnTampil .

What’s next???selanjutnya kita akan mencoba menjalankan aplikasi ini, bagaimana caranya agar aplikasi ini dapat berjalan di emulator android??? Langkah-langkahnya adalah sebagai berikut :

1. Klik kanan pada package HelloWorld dan pilih menu Run As->Run Configurations.. lalu akan muncul dialog sebagai berikut :

Pada Android Application klik kanan dan pilih menu New dan kita isikan sebagai berikut :


Jangan lupa di tab Target kita tentukan target emulator kita sebagai berikut :



*Pembuatan virtual device telah diajarkan pada tutorial sebelumnya.

OK kita tekan Apply dan Run akan muncul emulator sebagai berikut :



Gambar di atas menunjukkan bahwa emulator sedang melakukan persiapan sebelum dapat digunakan, tunggu sebentar sampai muncul gambar di bawah ini :



Untuk melihat aplikasi yang sudah kita buat, seharusnya cukup dengan membuka kuncinya saja sudah otomatis running aplikasi yang telah kita buat, tapi apabila belum kita klik tombol seperti gambar di bawah ini :



Lalu akan muncul beberapa aplikasi kita pilih aplikasi yang telah kita buat :



OK,apabila benar maka aplikasi kita akan berjalan sebagai berikut :



Tekan tombolnya dan akan keluar text seperti gambar di atas, selamat aplikasi android anda sudah selesai .

Demikian tutorial ini semoga apa yang saja sampaikan dapat berguna bagi anda sekalian. Apabila anda ingin mendownload filenya silahkan download disini

• User friendly,mudah digunakan.
• Fitur2 bawaan yang sesuai dengan kebutuhan.
• Terdapat market placenya,sehingga kita dapat men-download aplikasi2 sendiri.

Bagi para developer,terdapat hal yang sangat menggembirakan..karena SDK android adalah berbasis java dan instalasi yang cukup mudah,serta tidak memerlukan efforts yang tinggi. Android juga support database SQLite sehingga kita dapat membuat aplikasi database dengan mudah dan hampir seperti aplikasi desktop pada umumnya.untuk mencoba bercoding ria di android kita tidak memerlukan gadget nya tapi cukup menginstall SDKnya yang sudah termasuk emulator di dalamnya

Seperti yang telah dijelaskan di atas, bahwa aplikasi android adalah berbasis java maka anda harus paling tidak mengenal dasar-dasar java sebelum beranjak membuat aplikasi android .

Apa yang harus dilakukan untuk bisa memulai bercoding ria dengan android???mudah sekali,silahkan ikuti langkah2 dibawah ini :

1. Download dan install JDK di sini
2. Download dan install eclipse disini (pilih paket yang klasik saja)
3. Download Android SDK disini (silahkan sesuaikan dengan sistem operasi yang anda gunakan), setelah itu silahkan extract file downloadnya ke path C:\ dan silahkan buka aplikasi “SDK Manager.exe” yang terdapat didalamnya, apabila terdapat dialog seperti ini dan terdapat beberapa isian maka anda diharuskan untuk melakukan update sdk android,klik accept all dan klik install.



4. Install ADT (Android Development Tool) ke dalam eclipse, caranya pilih menu help->install new Software.. dan akan muncul dialog seperti dibawah ini,isikan “https://dl-ssl.google.com/android/eclipse/” (tanpa tanda petik) ke dalam field “Work with” lalu cek list semua yang ada di daftar/ select all.
5. Klik Next dan tunggu sampai proses instalasi selesai. setelah itu klik menu Window->Preferences dan masuk ke tree Android lalu isikan lokasi SDK Android yang telah anda download tadi, apabila benar akan muncul seperti gambar dibawah ini , klik apply dan OK.
6. Lalu langkah terakhir anda diharuskan membuat worksapce untuk emulatornya, caranya dengan klik menu Window->Android SDK and AVD Manager seperti gambar di bawah ini
7. Apabila daftar masih kosong, maka klik new dan isikan sebagai berikut lalu klik Create AVD :
8. Proses instalasi sudah selesai,untuk memastikan bahwa anda dapat membuat aplikasi android maka klik menu File->New->Other dan pastikan bahwa menu android telah ada dalam daftar tersebut seperti dalam gambar di bawah ini :

Selamat android telah terinstall dan siap digunakan! , silahkan ber-eskplorasi terlebih dahulu dan artikel selanjutnya adalah tentang membuat aplikasi helloworld di android

Demikian artikel ini semoga apa yang saya sampaikan dapat bermanfaat bagi anda.Terima Kasih.

The TObject type defines the base class type. It is the oldest grandparent of all classes – every class is ultimately derived from TObject.

yang artinya kira2 begini, TObject merupakan suatu definisi tipe dimana merupakan dasar daripada tipe suatu class, merupakan suatu jenis awal semua class. semua class itu berasal dari TObject. nah cukuplah pembahasan tentang TObject, sekarang saanya bermain2 sesuai dengan judulnya.

Dalam contoh kali ini saya akan menggunakan komponen TComboBox, seringkali kita menambahkan items cukup dengan contoh berikut ini :

ComboBox1.Items.Add("testing");

nah, apabila hanya menambahkan item seperti di atas, maka kita hanya memiliki 1 value yaitu “testing” setiap kali kita memilihnya, bagaimana kita menyimpan beberapa nilai seperti yang dimiliki ComboBox pada html??? misalkan ada kasus sebagai berikut :

ID | Nama

1 | Testing

2 | Lagi2 Testing

nah kita ingin menampilkan data dimana apabila dipilih maka kita sebenernya hanya membutuhkan value ID tetapi untuk tampilan aplikasi sangatlah tidak sesuai apabila kita hanya menampilkan ID saja, karena user pasti akan bingung. sebenarnya itu bisa kita akali sebagai berikut :

ComboBox1.Items.Add("1=>Testing");

lalu dalam menyeleksinya kita parsing value yang terpilih, jadi kita hanya mengambil value “1″ saja, tetapi lagi2 berhubungan dengan user interface, cara seperti ini malah akan membuat berantakan tampilan aplikasi. hal ini dapat kita selesaikan dengan menambahkan masing2 TObject ke dalam item tersebut. kita gunakan cara :

ComboBox1.Items.AddObject(Const S: string ; AObject: TObject);

nah, untuk kasus ini saya akan memberikan data sebagai berikut :

nah tetapi dalam item yang ditampilkan, hanya menampilkan data pada kolom nama saja, ketika item terpilih kita dapat menarik  detail datanya. OK, caranya adalah sebagai berikut. pertama-tama kita membuat suatu class terlebih dahulu, bagi yang belum memahami cara pembuatan class silahkan kunjungi halaman http://programminglearning.wordpress.com/2009/05/02/bermain-main-dengan-class/

TPLContoh = class
 private
FID,FNama,FAlamat: string;
 public
constructor Create(Const AID,ANama,AAlamat: string);
 end;

//...

implementation

constructor TPLContoh.Create(const AID, ANama, AAlamat: string);
begin
FID    := AID;
FNama  := ANama;
FAlamat:= AAlamat;
end;

dari kode di atas kita telah membuat suatu class dimana memiliki 3 atribut yaitu FID,FNama dan FAlamat. dan kita membuat suatu modifikasi constructor dimana berparameter 3 variable yang masing2 akan mengisikan value pada ketiga atribut class tersebut.

nah kemudian kita buat suatu rancangan form sebagai berikut :

lalu kita tempelkan kode di form pada bagian event onCreate sebagai berikut :

procedure TForm1.FormCreate(Sender: TObject);
CONST
 ArrContohData : array[0..3,0..2] of string = (
('1','Tigor Mangatur Manurung','Warung Bata, Yogyakarya'),
('2','Shinta Ayu Hadiyanti','Kasihan Bantul, Yogyakarta'),
('3','Roy Marulido Situmorang','Sorogenen, Yogyakarta'),
('4','Cempluk','Akakom')
);
var
i: integer;
begin
with ComboBox1 do
begin
Items.BeginUpdate;
Items.Clear;
for i:=Low(ArrContohData) to High(ArrContohData) do
begin
Items.AddObject(ArrContohData[i][1],
TPLContoh.Create(ArrContohData[i][0],ArrContohData[i][1],
ArrContohData[i][2]));
end;
Items.EndUpdate;
end;
end;

dari kode diatas dapat kita liat bahwa kita menggunakan Items.AddObject(ArrContohData[i][1],
TPLContoh.Create(ArrContohData[i][0],ArrContohData[i][1],
ArrContohData[i][2])); yang maksudnya adalah kita menambahkan suatu item pada combobox dan menempelkan suatu object ke dalam masing2 item.

kemudian untuk menampilkan data object, dapat kita lakukan dengan cara menempelkan kode di combobox pada event OnSelect seperti berikut ini :

procedure TForm1.ComboBox1Select(Sender: TObject);
var
 strID,strNama,strAlamat: string;
begin
with ComboBox1 do
begin
strID     := TPLContoh(Items.Objects[ItemIndex]).FID;
strNama   := TPLContoh(Items.Objects[ItemIndex]).FNama;
strAlamat := TPLContoh(Items.Objects[ItemIndex]).FAlamat;
end;

ShowMessage('ID          : ' + strID + #13 +
'Nama     : ' + strNama + #13 +
'Alamat   : ' + strAlamat);
end;

berikut ini adalah hasilnya :

Nah, ternyata ada yang kurang, yaitu kita perlu untuk membersihkanTObject2 yang terbentuk ketika kita akan menambahkan/mengakhiri seksi ini, yaitu dapat memanfaatkan method seperti ini :

procedure FreeObjects(Const AStrings: TStrings);
var
idx : integer;
begin
for idx := 0 to Pred(AStrings.Count) do
begin
AStrings.Objects[idx].Free;
AStrings.Objects[idx] := nil;
end;
end;

panggil method di atas sebelum membersihkan item pada ComboBox atau pada saat mengakhiri Form .

Demikian tutorial ini, semoga dapat menambah wawasan di dalam pemrograman delphi

Dalam tutorial ini akan saya bahas bagaimana membuat suatu komponen yang saya beri nama TSimpleEncryptor. seperti namanya, komponen ini mampu untuk melakukan proses enkripsi string sederhana. terlebih dahulu kita akan membuat package baru dengan cara membuka delphi lalu klik New -> Package dan akan terbentuk suatu package kosong dengan gambar sebagai berikut :

Kemudian kita membuat suatu unit baru dengan cara biasa yaitu klik new – unit dan akan terbentuk suatu unit baru yang otomatis akan terdaftar di package tersebut. lalu setelah itu kita membentuk suatu class TSimpleEncryptor yang merupakan suatu class dari TComponent, berikut ini adalah pendeklarasian TSimpleEncryptor beserta atribut-atributnya :

type
TModeOperation = (moEncrypt,moDecrypt);
TSimpleEncryptor = class(TComponent)
private
FInputStr: string;
FOutputStr: string;
FKey: integer;
FModeOperation: TModeOperation;
function Encrypt(const s: String; CryptInt: Integer): String;
function Decrypt(const s: String; CryptInt: Integer): String;
procedure SetInputString(const Value: string);
published
property InputString: string read FInputStr write SetInputString;
property OutputString: string read FOutputStr write FOutputStr;
property Key: integer read FKey write FKey;
property Mode: TModeOperation read FModeOperation write FModeOperation;
end;

pada kode di atas dapat kita lihat pendeklarasian “TModeOperation = (moEncrypt,moDecrypt);” . pendeklarasian type ini akan menjadi suatu indikator yang membedakan operasi enkripsi / dekripsi.

Pada sub Published, terdapat beberapa property-property yang nantinya akan muncul pada object inspector. Komponen ini nantinya akan melakukan operasi enkripsi / dekripsi ketika InputString telah terisi / berubah. Sebelum melanjutkan lebih jauh saya akan menempelkan kode selengkapnya daripada unit ini  :

unit MainUnit;

interface
uses
Classes;

type
TModeOperation = (moEncrypt,moDecrypt);
TSimpleEncryptor = class(TComponent)
private
FInputStr: string;
FOutputStr: string;
FKey: integer;
FModeOperation: TModeOperation;
function Encrypt(const s: String; CryptInt: Integer): String;
function Decrypt(const s: String; CryptInt: Integer): String;
procedure SetInputString(const Value: string);
published
property InputString: string read FInputStr write SetInputString;
property OutputString: string read FOutputStr write FOutputStr;
property Key: integer read FKey write FKey;
property Mode: TModeOperation read FModeOperation write FModeOperation;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('ProgrammingLearning',[TSimpleEncryptor]);
end;

{ TSimpleEncryptor }

function TSimpleEncryptor.Decrypt(const s: String;
CryptInt: Integer): String;
var
i: integer;
s2: string;
begin
if not (Length(s) = 0) then
for i := 1 to Length(s) do
s2 := s2 + Chr(Ord(s[i]) - cryptint);
Result := s2;
end;

function TSimpleEncryptor.Encrypt(const s: String;
CryptInt: Integer): String;
var
i: integer;
s2: string;
begin
if not (Length(s) = 0) then
for i := 1 to Length(s) do
s2 := s2 + Chr(Ord(s[i]) + CrypTint);
Result := s2;
end;

procedure TSimpleEncryptor.SetInputString(const Value: string);
begin
case FModeOperation of
moEncrypt: FOutputStr := Encrypt(Value,FKey);
moDecrypt: FOutputStr := Decrypt(Value,FKey);
end;
FInputStr := Value;
end;

end.

Untuk mendaftarkan komponen ke dalam menu Component pallete kita harus mendeklarasikan procedure Register yang isinya sebagai berikut (telah tercantum juga pada kode di atas) :

procedure Register; //pendeklarasiannya

implementation

procedure Register; //penjabarannya
begin
RegisterComponents('ProgrammingLearning',[TSimpleEncryptor]);
end;

Untuk menginstall komponen yang baru saja kita buat ini, kita simpan terlebih dahulu package + unit yang telah kita buat ini dan kita klik Install pada package dan apabila berhasil akan muncul dialog informasi sebagai berikut :

Selanjutnya daftarkan path library komponen dengan klik Tools->Environment Options masuk ke dalam tab library lalu tambahkan path pada input Library Path .

Sekedar review percobaan hasil komponen ditunjukkan pada gambar di bawah ini :

Apabila anda ingin melihat source komponen yang dibahas disini silahkan mendownloadnya di http://www.4shared.com/file/121763554/dbed20db/SimpleEncryptor.html

Demikian tutorial ini semoga dapat menambah wawasan teman-teman dalam pemrograman khususnya delphi.

Ulir atau thread (singkatan dari “thread of execution“) dalam ilmu komputer, diartikan sebagai sekumpulan perintah (instruksi) yang dapat dilaksanakan (dieksekusi) secara sejajar dengan ulir lainnya, dengan menggunakan cara time slice (ketika satu CPU melakukan perpindahan antara satu ulir ke ulir lainnya) atau multiprocess (ketika ulir-ulir tersebut dilaksanakan oleh CPU yang berbeda dalam satu sistem). Ulir sebenarnya mirip dengan proses, tapi cara berbagi sumber daya antara proses dengan ulir sangat berbeda. Multiplethread dapat dilaksanakan secara sejajar pada sistem komputer. Secara umum multithreading melakukan time-slicing (sama dengan time-division multipleks), di mana sebuah CPU bekerja pada ulir yang berbeda, di mana suatu kasus ditangani tidak sepenuhnya secara serempak, untuk CPU tunggal pada dasarnya benar-benar melakukan sebuah pekerjaan pada satu waktu. Teknik penggantian (switching) ini memungkinkan CPU seolah-olah bekerja secara serempak.

nah, apabila telah paham akan pengertian sebuah thread rasanya tidak komplit apabila saya tidak mencontohkan / mengimplementasikannya. sebelumnya bagi temen-temen yang belum mengerti tentang pembuatan suatu class karena ini akan mengeksploitasi kemampuan pembuatan class silahkan belajar dulu cara membuat class di sini. baik pertama kita buat rancangan form sebagai berikut :

isi dari form tersebut hanya 5 panel,5 button dan 5 progressbar dan khusus untuk button dan progressbar namanya adalah untuk button : btn1,btn2,btn3,dst dan progressbar : pb1,pb2,pb3,dst.

Pertama-tama kita buat terlebih dahulu suatu class TThreadButton yang akan kita gunakan untuk mendefinisikan antara button dengan thread, class TThreadButton merupakan class turunan dari TButton, kita letakkan di atas class TForm itu sendiri, pendeklarasiannya adalah sebagai berikut :

TThreadButton = class(TButton)
aThread: TThread;
end;

kemudian selanjutnya kita buat suatu thread yang kali ini saya beri nama TthCounter yang pendeklarasiannya adalah sebagai berikut :

TthCounter = class(TThread)
 private
  FMax,FCounter: integer;
  FCurr: Extended;
  FOwnerButton: TThreadButton;
  FProgressBar: TProgressBar;
  procedure SetOwnerButton(const aButton: TThreadButton);
  procedure SetProgressBar(const aProgressbar: TProgressBar);
  procedure StepProgress;
  { Private declarations }
 protected
  procedure Execute; override;
 public
  constructor Create(CreateSuspended: boolean);
  property ProgressBar: TProgressBar read FProgressBar write SetProgressBar;
  property OwnerButton: TThreadButton read FOwnerButton write SetOwnerButton;
end;

dan sintak terusan untuk class TthCounter adalah sebagai berikut :

constructor TthCounter.Create(CreateSuspended: boolean);
begin
 inherited;
 FCounter                    := 0; //step awal kita beri nilai 0
 FMax                        := MAXINT; //maksimal step adalah nilai dari maksimal tipe integer
 FreeOnTerminate             := True; //lepaskan thread apabila terdeteksi ada pengakhiran aplikasi
end;

procedure TthCounter.Execute;
begin
 ProgressBar.Position          := 0;
 while ProgressBar.Position < 100 do
  begin
   StepProgress; //gunakan synchronize untuk pemanggilan suatu method
                //yang berhubungan dengan objek

   inc(FCounter,50000); //tambahkan nilai variabel FCounter sebanyak 50000
  end;

 OwnerButton.Caption := '&Start';
 OwnerButton.aThread := nil;
end;

procedure TthCounter.SetOwnerButton(const aButton: TThreadButton);
begin
 FOwnerButton := aButton;
end;

procedure TthCounter.SetProgressBar(const aProgressbar: TProgressBar);
begin
 FProgressBar := aProgressbar;
end;

procedure TthCounter.StepProgress;
begin
 FCurr                 := (FCounter / FMax); //posisi sekarang
 ProgressBar.Position  := Round(FCurr * 100); //masukkan posisi progressbar
end;

Selanjutnya pada Form kita buat prosedur yang nantinya berfungsi untuk memanggil thread tersebut, deklarasinya adalah sebagai berikut :

procedure ClickButton(aProgressBar: TProgressBar ; Sender: TObject);

dan sintak penerusnya adalah

procedure TfrmMain.ClickButton(aProgressBar: TProgressBar ; Sender: TObject);
var
 aButton: TThreadButton;
 aThread: TthCounter;
begin
 aButton := TThreadButton(Sender); //definiskan aButton sesuai dengan pengirim perintah
 if not Assigned(aButton.aThread) then  //jika thread milik aButton belum terisi maka
  begin
   aThread                     := TthCounter.Create(True); //buat thread baru
   aProgressBar.DoubleBuffered := True; //supaya progressbar tidak flicker
   aThread.ProgressBar         := aProgressBar; //definisikan progressbar
   aButton.aThread             := aThread; //beri nilai thread milik aButton dgn thread deklarasi
   aThread.OwnerButton         := aButton; //isi properti thread
   aThread.Resume; //jalankan thread
   aButton.Caption             := '&Pause'; //ubah caption tombol
  end
else  //kondisi bahwa thread milik aButton telah terisi
 begin
  if aButton.aThread.Suspended then //apabila posisi suspend maka
   begin
    aButton.aThread.Resume; //jalankan ulang thread
    aButton.Caption := '&Pause'; //ubah caption
   end
  else  //apabila thread sedang berjalan maka
   begin
    aButton.aThread.Suspend; //suspend thread
    aButton.Caption := '&Resume';//ubah caption
   end;
end;
end;

Nah untuk event tiap-tiap button adalah sebagai berikut :

• OnClick Btn1

ClickButton(pb1,btn1);

• OnClick Btn2

ClickButton(pb2,btn2);

• OnClick Btn3

ClickButton(pb3,btn3);

• OnClick Btn4

ClickButton(pb4,btn4);

• OnClick Btn5
  

ClickButton(pb5,btn5);

Nah apabila telah mengikuti langkah – langkah seperti di atas kita jalankan aplikasi yang telah kita buat dan apabila benar maka hasilnya adalah sebagai berikut :

Bagi temen-temen yang belum jelas atau malah belum jalan, dapat mendownload project lengkapnya disini

Demikian tutorial ini, semoga dapat memberikan wawasan baru bagi temen-temen semua.

pada event OnKeyPress tuliskan kode ini :

if not(Key in['0'..'9',#8,#10]) then
Key := #0;

Menghapus semua isi TEdit di form

Coba buat 4 TEdit dan 1 Tombol, tambahkan kode ini pada event OnClick milik tombol :

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
begin
if Components[i] is TEdit then
TEdit(Components[i]).Clear;
end;
end;

Format Input Serial Number

Supaya bisa otomatis menambah dash “-” ketika diketik,mirip seperti input serial number instalasi Office 2007 , tempelkan kode ini di event OnChange TEdit :

procedure TForm1.Edit1Change(Sender: TObject);
var
i,iSel: integer;
sTemp: string;
begin
iSel := 0;
sTemp := StringReplace(Edit1.Text,'-','',[rfReplaceAll]);
for i := 1 to Length(Edit1.Text) do
begin
Inc(iSel,1);
if iSel = 4 then
begin
Insert('-',sTemp,i + 1);
iSel := -1;
end;

end;
Edit1.Text := sTemp;
Edit1.SelStart := Length(Edit1.Text)
end;

nah itu dulu aja, ntar apabila ada yang lain saya post disini, bagi yang ingin tanya tentang TEdit bisa ditanyakan melalui komentar.Semoga artikel ini dapat membantu teman-teman semuanya…

Sekarang kita akan memulai untuk proses pembuatannya, pertama kita siapkan terlebih dahulu rancangan database dimana saya memberi nama databasenya “db_vcd”, saya tidak akan membuat aplikasi yang kompleks melainkan hanya sesuai dengan topik yang dibahas, adapun rancangan database hanya melingkupi peminjaman saja, untuk barang dan lainnya akan saya buat sebagai data statis. berikut ini adalah rancangannya tabelnya :

nah, selanjutnya kita membuat suatu form, disini untuk menyimpan data-data transaksi saya akan memakai TStringGrid, berikut ini adalah rancangan formnya :

Berbeda dengan tutorial sebelumnya, sekarang saya menggunakan Delphi 7 untuk praktiknya hal ini karena pertimbangan saya masih banyak programmer delphi yang menggunakan versi 7 untuk belajar. seperti yang kita lihat rancangan form di atas dalam koneksi dengan MySQL menggunakan Zeos dan sekali lagi bagi yang belum mengerti mengenai koneksi Aplikasi ke MySQL dengan menggunakan zeos silahkan membaca tutorial saya yang sebelumnya, untuk rancangannya sendiri, file rancangannya adalah sbb :

object frmMain: TfrmMain
Left = 303
Top = 177
BorderStyle = bsDialog
Caption = 'Penyimpanan Data Secara Massal'
ClientHeight = 403
ClientWidth = 629
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 40
Width = 93
Height = 13
Caption = 'Tanggal Transaksi :'
end
object Label2: TLabel
Left = 37
Top = 13
Width = 72
Height = 13
Caption = 'No. Transaksi :'
end
object Label3: TLabel
Left = 320
Top = 40
Width = 99
Height = 13
Caption = 'Tanggal Kembali :'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 323
Top = 13
Width = 96
Height = 13
Alignment = taRightJustify
Caption = 'Anggota Peminjam :'
end
object dpPinjam: TDateTimePicker
Left = 115
Top = 37
Width = 186
Height = 21
Date = 39948.274073159720000000
Time = 39948.274073159720000000
TabOrder = 0
OnChange = dpPinjamChange
end
object edNota: TEdit
Left = 115
Top = 10
Width = 186
Height = 21
TabOrder = 1
end
object dpKembali: TDateTimePicker
Left = 425
Top = 37
Width = 186
Height = 21
Date = 39948.274073159720000000
Time = 39948.274073159720000000
TabOrder = 2
end
object cbAnggota: TComboBox
Left = 425
Top = 10
Width = 186
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 3
Items.Strings = (
'Tigor Mangatur Manurung'
'Heri Wersyadi'
'Hendra Purwanto'
'Susi Simelekete'
'Andi Purnama')
end
object Panel1: TPanel
Left = 16
Top = 80
Width = 595
Height = 273
BevelOuter = bvLowered
TabOrder = 4
object Label5: TLabel
Left = 21
Top = 8
Width = 71
Height = 13
Caption = 'Nama Barang :'
end
object sgData: TStringGrid
Left = 21
Top = 40
Width = 556
Height = 217
ColCount = 2
FixedCols = 0
RowCount = 2
ScrollBars = ssVertical
TabOrder = 0
ColWidths = (
105
420)
end
object cbBarang: TComboBox
Left = 98
Top = 5
Width = 383
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
end
object btnTambah: TButton
Left = 487
Top = 3
Width = 90
Height = 25
Caption = 'Tambah'
TabOrder = 2
OnClick = btnTambahClick
end
end
object btnSimpan: TButton
Left = 455
Top = 368
Width = 75
Height = 25
Caption = '&Simpan'
TabOrder = 5
OnClick = btnSimpanClick
end
object btnBatal: TButton
Left = 536
Top = 368
Width = 75
Height = 25
Caption = '&Batal'
TabOrder = 6
OnClick = btnBatalClick
end
object zConn: TZConnection
Protocol = 'mysql'
HostName = 'localhost'
Port = 3308
Database = 'db_vcd'
User = 'root'
Connected = True
Left = 16
Top = 368
end
object qAct: TZQuery
Connection = zConn
Params = <>
Left = 48
Top = 368
end
end

Karena akan terlalu banyak yang diterangkan, maka saya langsung kepada kode pada unitnya, tetapi jangan khawatir karena saya telah menyertakan komentar-komentar supaya lebih mudah memahami maksud dalam setiap sintak yang ada

unit uMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls, ComCtrls, ZConnection, DB,
ZAbstractRODataset, ZAbstractDataset, ZDataset;

type
TfrmMain = class(TForm)
Label1: TLabel;
dpPinjam: TDateTimePicker;
Label2: TLabel;
edNota: TEdit;
Label3: TLabel;
dpKembali: TDateTimePicker;
Label4: TLabel;
cbAnggota: TComboBox;
Panel1: TPanel;
sgData: TStringGrid;
Label5: TLabel;
cbBarang: TComboBox;
btnTambah: TButton;
btnSimpan: TButton;
btnBatal: TButton;
zConn: TZConnection;
qAct: TZQuery;
procedure FormCreate(Sender: TObject);
procedure btnBatalClick(Sender: TObject);
procedure btnTambahClick(Sender: TObject);
procedure dpPinjamChange(Sender: TObject);
procedure btnSimpanClick(Sender: TObject);
private
function GenCode: string; //fungsi auto no.nota
procedure RunSQL(_SQL: string ; isOpen: boolean = True);
{ Private declarations }
public
{ Public declarations }
end;
CONST
lama_pinjam_hari = 7; //lama pinjam adalah 7 hari
var
frmMain: TfrmMain;
iRow: integer;  //variabel indikator jumlah baris

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
var
ch: char;
begin
//variabel jumlah baris
iRow := 2;
//Pembuatan judul kolom grid
with sgData do
  begin
   Cells[0,0] := 'No. Nota';
   Cells[1,0] := 'Nama Barang';
  end;
//buat simulasi nama barang
for ch := 'A' to 'Z' do
  begin
   cbBarang.Items.Add('Barang - ' + ch);
  end;

//set tanggal pinjam menjadi tanggal hari ini
dpPinjam.Date := NOW;

//set tanggal kembali secara default
dpKembali.Date := Now + lama_pinjam_hari;

//munculkan nota
edNota.Text := GenCode;
end;

function TfrmMain.GenCode: string;
CONST
zero = '0000';
var
strTemp: string;
begin
//Format Nota adalah N-0001

//liat no.nota terakhir dari tb_pinjam
RunSQL('SELECT idpinjam FROM tb_pinjam ORDER BY idpinjam DESC LIMIT 1');

//cek apakah udah ada data dalam tabel, kalo belum hasilkan nilai pertama seperti format
//pada contoh
if qAct.Eof then
  begin
   result := 'N-0001';
   exit; //stop sampe disini saja perintahnya,
  end;

//jika memasuki baris ini, maka berarti telah ada data dalam tabel dan saatnya untuk
//melakukan filtering
strTemp := Copy(qAct.FieldByName('idpinjam').AsString,3,4); //potong data yang ditemukan dari karakter ke - 3 dan
//karakter yg dipotong adalah 4 (sampai akhir format no.nota)

strTemp := IntToStr(StrToInt(strTemp) + 1);//dah ketemu nilai berikutnya

strTemp := 'N-' + Copy(zero,1,Length(zero) - Length(strTemp)) + strTemp;
result  := strTemp;

end;

procedure TfrmMain.btnBatalClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TfrmMain.btnTambahClick(Sender: TObject);
begin
//validasi ketika pilihan kosong, maka abaikan perintah penambahan
if cbBarang.ItemIndex < 0 then
  exit; //supaya tidak menjalankan perintah selanjutnya ketika tidak ada barang yg dipilih

//identifikasikan jumlah baris
sgData.RowCount := iRow;

//isikan data sesuai pilihan ke dalam grid
with sgData do
  begin
   Cells[0,RowCount - 1] := edNota.Text;
   Cells[1,RowCount - 1] := cbBarang.Text;
  end;

//bersihkan isi cbBarang
cbBarang.ItemIndex := -1; //karena style DropDownList, maka membersihkannya dengan cara seperti ini

//tambah jumlah baris
Inc(iRow,1);
end;

procedure TfrmMain.dpPinjamChange(Sender: TObject);
begin
//isikan secara default tanggal pengembalian, lama pinjam sesuai dengan konstanta yang telah ditetapkan
dpKembali.Date := dpKembali.Date + lama_pinjam_hari;
end;

procedure TfrmMain.RunSQL(_SQL: string; isOpen: boolean);
begin
with qAct do
  begin
    Close;
    SQL.Text := _SQL;
    if isOpen then
     Open
    else
     ExecSQL;
  end;
end;

procedure TfrmMain.btnSimpanClick(Sender: TObject);
var
i: integer;
_SQL: string;
begin
try
//simpan ke tabel tb_detpinjam dlu ya
for i:=1 to sgData.RowCount - 1 do  //ini nih cara nyimpen massal yang sederhana, pake looping aja
  begin                             //jadi disimpen per baris gitu, inget mulai baris 1 pada stringgrid karena baris 0 adalah judul kolom!!!
    _SQL := 'INSERT INTO tb_detpinjam(idpinjam,barang)VALUES(' + QuotedStr(sgData.Cells[0,i]) + ',' + QuotedStr(sgData.Cells[1,i]) + ')';
    RunSQL(_SQL,False); //eksekusi SQL
  end;

//setelah selesai, dah simpen di tabel tb_pinjam
_SQL := 'INSERT INTO tb_pinjam(idpinjam,anggota,tglpinjam,tglkembali)VALUES(' +
QuotedStr(edNota.Text) + ',' + QuotedStr(cbAnggota.Text) + ',' + QuotedStr(FormatDateTime('yyyy-mm-dd',dpPinjam.Date)) +
',' + QuotedStr(FormatDateTime('yyyy-mm-dd',dpKembali.Date)) + ')';
RunSQL(_SQL,False); //eksekusi SQL
Application.MessageBox('Data berhasil disimpan dengan sempurna!!!','Informasi',MB_OK or MB_ICONINFORMATION);

//generate no.nota selanjutnya
edNota.Text := GenCode;

//bersih - bersih...
iRow := 2;
with sgData do
  begin
   RowCount := iRow;
   Cells[0,1] := ''; Cells[1,1] := '';
  end;

except
  Application.MessageBox('Data gagal disimpan dengan sempurna!!!','Peringatan',MB_OK or MB_ICONERROR);
end;
end;

end.

Untuk yang belum jelas atau berhasil silahkan download project jadi disini

Demikian tutorial ini semoga berguna bagi temen-temen semuanya…

• Upload : Rapidshare akan membatasi file yang kita upload dapat bertahan di server rapidshare untuk beberapa waktu / beberapa kali download.
• Download : Untuk fasilitas ini kita hanya dapat mendownload 1 file dalam 1x download (tidak dapat paralel) dan kecepatan downloadnya juga dibatasi.

Nah untuk Premium User kita mempunyai akses penuh terhadap akun kita, diantaranya :

• Mempunyai space untuk meletakkan file-file kita di server (upload)
• Mempunyai point-point yang dapat dikonversi menjadi akun lagi setelah jumlah point  sesuai dengan yang ditentukan.
• Dapat melakukan download secara paralel.

Premium User itu sendiri dapat didapat dengan cara :

• Membeli secara langsung,  untuk hal ini dikategorikan menjadi 1 bulan, 3 bulan, 6 bulan, dst lihat disini
• Dapat mendaftarkan sebagai Collector Point, Point ini didapat dari banyaknya file yang kita upload telah didownload oleh orang lain, untuk pendaftarannya silahkan klik disini

Nah, disini saya akan mencoba memperlihatkan bagaimana cara mendownload bagi yang tidak mempunyai akun Rapidshare (Free User) :

1. Klik link file yang akan didownload, maka akan muncul tampilan sebagai berikut :
2. Kemudian ada 2 pilihan menu, yaitu Free User dan Premium User. Klik pilihan Free User dan akan muncul tampilan sebagai berikut :
3. Nah langkah terakhir ya tinggal klik Download , tetapi yang perlu diingat adalah untuk free user tidak dapat mendownload file secara paralel.

Demikian tutorial ini, semoga dapat berguna bagi temen-temen semuanya.