Sabtu, 30 Juni 2012

Membuat RSS Reader Android (Pemrograman Android)

Kita sudah tidak asing dengan RSS (Really Simple Syndication). RSS adalah rangkuman (ringkasan) dari suatu web yang boleh dipublikasikan atau di link-kan oleh web lain. Misal Detik.com mempunyai RSS berisi berita-berita terbaru, Kompas.com dan sebagainya.

Kali ini kita buat RSS Reader atau Pembaca RSS menggunakan Aplikasi Android.

Pertama-tama program utama kita letakkan di Main Activity

MainActivity.java

package my.amijaya.rssreadersederhana;

import java.io.IOException;
import java.net.MalformedURLException;
import java.net.URL;

import javax.xml.parsers.ParserConfigurationException;
import javax.xml.parsers.SAXParser;
import javax.xml.parsers.SAXParserFactory;

import org.xml.sax.Attributes;
import org.xml.sax.InputSource;
import org.xml.sax.SAXException;
import org.xml.sax.XMLReader;
import org.xml.sax.helpers.DefaultHandler;

import android.app.Activity;
import android.os.Bundle;
import android.widget.TextView;

public class MainActivity extends Activity {
String streamTitle = "";
String daftarjudul = "";

    /** Called when the activity is first created. */
    @Override
    public void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.main);

        TextView result = (TextView)findViewById(R.id.result);
        
        try {
URL rssUrl = new URL("http://rss.detik.com/index.php/detikcom"); 
SAXParserFactory mySAXParserFactory = SAXParserFactory.newInstance();
SAXParser mySAXParser = mySAXParserFactory.newSAXParser();
XMLReader myXMLReader = mySAXParser.getXMLReader();
RSSHandler myRSSHandler = new RSSHandler();
myXMLReader.setContentHandler(myRSSHandler);
InputSource myInputSource = new InputSource(rssUrl.openStream());
myXMLReader.parse(myInputSource);

//result.setText(streamTitle);
result.setText(daftarjudul);

} catch (MalformedURLException e) {
// TODO Auto-generated catch block
e.printStackTrace();
result.setText("Cannot connect RSS!");
} catch (ParserConfigurationException e) {
// TODO Auto-generated catch block
e.printStackTrace();
result.setText("Cannot connect RSS!");
} catch (SAXException e) {
// TODO Auto-generated catch block
e.printStackTrace();
result.setText("Cannot connect RSS!");
} catch (IOException e) {
// TODO Auto-generated catch block
e.printStackTrace();
result.setText("Cannot connect RSS!");
}
        
        
    }
    
    private class RSSHandler extends DefaultHandler
    {
    final int stateUnknown = 0;
    final int stateTitle = 1;
    int state = stateUnknown;
   
    int numberOfTitle = 0;
    String strTitle = "";
    String strElement = "";
   
@Override
public void startDocument() throws SAXException {
// TODO Auto-generated method stub
strTitle = "--- Start Document ---\n";
}

@Override
public void endDocument() throws SAXException {
// TODO Auto-generated method stub
strTitle += "--- End Document ---";
streamTitle = "Number Of Title: " + String.valueOf(numberOfTitle) + "\n"
+ strTitle;
}

@Override
public void startElement(String uri, String localName, String qName,
Attributes attributes) throws SAXException {
// TODO Auto-generated method stub
if (localName.equalsIgnoreCase("title"))
{
state = stateTitle;
strElement = "Title: ";
numberOfTitle++;
}
else
{
state = stateUnknown;
}
}

@Override
public void endElement(String uri, String localName, String qName)
throws SAXException {
// TODO Auto-generated method stub
if (localName.equalsIgnoreCase("title"))
{
strTitle += strElement + "\n";
daftarjudul += strElement + "\n";
}
state = stateUnknown;
}

@Override
public void characters(char[] ch, int start, int length)
throws SAXException {
// TODO Auto-generated method stub
String strCharacters = new String(ch, start, length);
if (state == stateTitle)
{
strElement += strCharacters;
}
}
   
    }
}

Kemudian pada desain tampilannya kita buat tampilan sederhana berisi satu TextView untuk menampilkan daftar judul-judul dari RSS yang dibaca :

main.xml

<?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:layout_width="fill_parent" 
    android:layout_height="wrap_content" 
    android:text="@string/hello" />
<ScrollView 
android:layout_width="fill_parent"
android:layout_height="wrap_content">
<TextView  
    android:layout_width="fill_parent" 
    android:layout_height="wrap_content" 
    android:id="@+id/result" />
</ScrollView>
</LinearLayout>


Kemudian jangan lupa pada Android Manifest, berikan permission untuk terhubung (connect) ke Internet :

AndroidManifest.xml

<?xml version="1.0" encoding="utf-8"?>
<manifest xmlns:android="http://schemas.android.com/apk/res/android"
      package="my.amijaya.rssreadersederhana"
      android:versionCode="1"
      android:versionName="1.0">
    <application android:icon="@drawable/icon" android:label="@string/app_name">
        <activity android:name=".MainActivity"
                  android:label="@string/app_name">
            <intent-filter>
                <action android:name="android.intent.action.MAIN" />
                <category android:name="android.intent.category.LAUNCHER" />
            </intent-filter>
        </activity>

    </application>
    <uses-sdk android:minSdkVersion="8" />
    <uses-permission android:name="android.permission.INTERNET" />
</manifest> 


Source Code selengkapnya berbentuk project dapat didownload pada link di bawah ini :

https://docs.google.com/open?id=0B4i1FYc_4RXzRGI0VjVKT1VkSWs

Semoga berguna.

Membuat Web Browser dengan Visual Basic .NET (Pemrograman VB.NET)


Untuk membuat aplikasi Browser Web di Visual Basic .NET dapat digunakan komponen WebBrowser yang dapat digunakan untuk membuka halaman Web maupun mengexplore File-file lokal seperti hanya Windows Explorer dan Internet Explorer.. Langkah-langkah pembuatannya sebagai berikut :

1. Buka Visual Studio. Klik menu File-New-Project. Akan muncul dialog New Project. Pilih Project types : Visual Basic-Windows, Templates : Windows Application. Klik OK.


2. Akan ditampilkan Form1 yang masih kosong. Dari Toolbox tab All Windows Forms tambahkan komponen WebBrowser ke Form1. Kemudian tambahkan 1 buah komponen label ke Form1, 3 buah komponen TextBox ke Form1 dan tambahkan 6 buah komponen Button ke Form1.


3. Ubah property Text dari Form1 menjadi Web Browser. Ubah property Text dari TextBox1 menjadi kosong (“”). Kemudian ubah property Text dari Button-Button-nya menjadi “Go”, “<”, “>”, “Refresh”, “Save” dan “About”. Sehingga tampak seperti pada tampilan berikut ini :


4. Klik dua kali pada Button1 (“Go”), akan ditampilkan kode program Form1.vb milik Form1. Pada event procedure Private Sub Button1_Click tambahkan kode program berikut ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub

5. Kemudian klik dua kali pada Button2 (“<”) dan berturut-turut selanjutnya Button3 (“>”), Button4 (“Refresh”), Button5 (“Save”) dan Button6 “About”.. Tambahkan kode program berikut ini pada event-event-nya :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.GoBack()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.GoForward()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.Refresh()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
System.IO.File.WriteAllText(SaveFileDialog1.FileName, WebBrowser1.DocumentText)
End If
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
MsgBox("Web Browser Tutorial" & vbCrLf & "© 2008 amijaya.com", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "About")
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
WebBrowser1.Navigate(TextBox1.Text)
End If
End Sub

6. Untuk menjalankan program klik menu Debug-Start Debugging (F5). Kemudian coba isikan alamat web (URL) : http://<alamat web> pada TextBox “Address” klik Button “Go”. Akan ditampilkan halaman web tersebut :


7. Program ini juga dapat digunakan untuk melihat file dan direktori di dalam komputer seperti halnya Windows Explorer, caranya ketikkan path dari direktori yang akan dilihat pada TextBox “Address”, kemudian klik Button “Go”. Akan ditampilkan file-file isi dari direktori tersebut :


Jumat, 29 Juni 2012

Pemrograman Android : Menulis Menambah Contacts Phone Book pada Android

Program ini berguna kalau kita ingin menambahkan Kontak ke Phone Book atau Address Book Android secara program (memakai kode program).

Berikut ini adalah program utamanya untuk menulis atau menambah Contacts pada PhoneBook Android

MainActivity.java :


package my.amijaya.writecontacts;

import java.util.ArrayList;

import android.app.Activity;
import android.content.ContentProviderOperation;
import android.content.ContentValues;
import android.net.Uri;
import android.os.Bundle;
import android.provider.ContactsContract;
import android.provider.Contacts.People;
import android.provider.ContactsContract.CommonDataKinds.Phone;
import android.widget.Toast;

public class MainActivity extends Activity {
    /** Called when the activity is first created. */
    @Override
    public void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.main);
        
        //addContact("Michelle","02744444");
        //addContact("Michael","02711111");
        //addContact("Shafira","707070");
        //addContact("Angelica","085123456");
        Tambah();
    }
    

Pemrograman Web : Validasi Input Angka Numeric, Kosong dan Email dengan Javascript

Sering sekali kita harus membuat validasi untuk input data di web, entah itu untuk memberikan peringatan jika sebuh isian belum diisi atau validasi isi dari inputan misal apakah sudah dalam bentuk angka atau sudah dalam format email yang benar dsb.

Ini adalah beberapa contoh validasi input, contoh pertama adalah fungsi untuk validasi input jika masih kosong :

<script type="text/javascript">
function cek()
{
if (document.getElementById("nama").value == '')
{
alert("Nama Belum Diisi");
return false;
}
if (isNaN(document.getElementById("no_telp").value))
{
alert("Nomor Telepon Harus Angka");
return false;
}
return true;
}
</script>

Pemrograman Android : Membuat Splash Screen pada Android

Splash Screen adalah sebuah halaman yang biasa muncul ketika suatu program pertama kali muncul. Bisa digunakan untuk memberi identitas program, nama dan logo, sekaligus menanti program selesai loading.

Pada contoh ini untuk membuat Splash Screen di Android kita membutuhkan 2 Activity dan 2 Layout Buatlah 2 Layout Tampilan

splash.xml


<?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:layout_width="fill_parent" 
    android:layout_height="wrap_content" 
    android:text="SPLASH SCREEN"
    />
</LinearLayout>



Pemrograman C#.NET : Mengendalikan Kamera, Foto, Capture, Merekam Video Menggunakan C#.NET

Kamera Video beberapa tahun terakhir semakin banyak penggunaannya, untuk Web Cam, untuk Security Camera dan sebagainya. Karena penggunaan yang pesat itulah maka interface dan protokol nya semakin terstandarisasi, artinya asal sebuah kamera telah diinstal driver di Windows, maka hampir semua software yang menggunakan kamera langsung dapat mengenalinya, misalnya Yahoo Messenger, pasti bisa mengenali kamera baik yang ada di laptop, PC maupun eksternal camera (web cam).

Nah ide pun mulai muncul. Bagaimana membuat program menggunakan bahasa pemrograman desktop, dalam hal ini Visual Basic .NET atau C# .NET untuk memakai kamera tersebut. Baik untuk memfoto (capture) atau rekam video, bahkan ada juga keinginan untuk membuat fasilitas Motion Detection (deteksi gerakan).

Sekitar setahun yang lalu penulis ditunjukkan oleh teman dan diajak membantu membuat aplikasi untuk mengcapture gambar menggunakan webcam secara otomatis menggunakan program, kemudian hasil dari foto tersebut dikirim secara attachment via email, dan syukurlah berhasil. Kemudian program itu pun dikendalikan menggunakan SMS dengan SMS Gateway.

Tapi project itu terlalu rumit dan panjang untuk dituliskan di satu tulisan ini, yang penulis ingin share terlebih dahulu adalah sumber yang dikembangkan penulis sehingga berhasil membuat program tersebut adalah dari sebuah Project Open Source bernama iSpy, websitenya bernama iSpyConnect.com :

http://www.ispyconnect.com/

Source Code nya dalam bahasa C#.NET dan formatnya harus dibuka di Visual Studio 2010, bisa didownload di link di bawah ini :

http://www.ispyconnect.com/source.aspx

Di Bawah ini link source code project versi agak lama yang bisa running (berjalan), koleksi penulis pribadi (private). Maaf hanya bisa didownload penulis. Jika menginginkan bisa mendownload menggunakan link diatas

https://docs.google.com/open?id=0B4i1FYc_4RXzMEdfWHN3ZGJVdW8

Semoga bermanfaat

Rabu, 27 Juni 2012

Pemrograman Web : Enable Disable Combo Box (Select/List) dengan Javascript



Barusan ada yang menanyakan bagaimana membuat agar ComboBox tidak pisa dipilih (Disable) dan Enable lagi jika telah memilih suatu masukan. Jadi Combo Box atau List Menu (Select) tersebut harus dikendalikan Enable Disable nya lewat Javascript. Setelah cari sana-sini dapat lah kode program berikut ini :

<html>
<head>
<script type="text/javascript">
function makeDisable(){
    var x=document.getElementById("tanggungan_anak")
    x.disabled=true
}
function makeEnable(){
    var x=document.getElementById("tanggungan_anak")
    x.disabled=false
}
</head>
</script>
<body onload="makeDisable()">
         <table>

                   <tr>
                    <td>Status Pernikahan </td>
                    <td><input name="status_pernikahan" type="radio" id="status_pernikahan" value="Menikah" onclick="makeEnable()" />
                      Menikah
                      <input name="status_pernikahan" type="radio" id="status_pernikahan" value="Belum Menikah" onclick="makeDisable()"/>
                      Belum Menikah </td>
                  </tr>
                  <tr>
                    <td>Tanggungan</td>
                    <td><select name="tanggungan_anak" id="tanggungan_anak">
                        <option value="0" selected="selected">Belum Punya Anak</option>
                        <option value="1">1 Anak</option>
                        <option value="2">2 Anak</option>
                        <option value="3">3 Anak</option>
                      </select>                    </td>
                  </tr>
          </table>
</body>
</html>

Semoga berguna

Pemrograman Web : Membuat Video Streaming dengan Flash Video Web Player JWPlayer pada Halaman Web

Menambahkan Web Player ke Halaman Web

Jika video yang kita punyai belum dalam format FLV (Flash Video) maka langkah pertama download dan Install FLV Encoder dari http://www.videohelp.com/tools/Riva-FLV-Encoder  (gratis) atau Super dari URL http://www.videohelp.com/tools/SUPER
 (gratis) atau bisa memakai Flash Professional.

Kemudian konversi video anda ke format flash flv dengan Riva FLV Encoder atau Super atau Flash Professional. Berikut ini tampilan konversi video menggunakan Riva Encoder :



Sedangkan ini adalah tampilan program konversi video Super :



Jika anda ingin mengecek hasil konversi video ke format FLV, maka bisa dilakukan dengan  download dan install FLV Player dari http://www.videohelp.com/tools/FLV_Player.

Setelah semua siap, download Flash Streaming Player bernama JWPlayer dari URL berikut http://www.longtailvideo.com/players/jw-flv-player/ . Kemudian ekstrak (uncompress) dan gabungkan satu directory dengan video yang telah disiapkan. Kemudian letakkan (copy atau upload) video anda beserta file-file JWPlayer ke folder web lokal (htdocs/www) atau ke folder hosting online (www/public_html). 


Database : Export Import, Transfer Data MS Access dan Oracle

Berikut ini cara transfer data (Ekspor dan Impor) data dari Microsoft Access ke Oracle atau sebaliknya, dari Oracle XE ke MS Access.

Pertama setting ODBC dahulu, klik Start - Control Panel :


Kemudian Buka Administrative Tools - Data Source ODBC, pilih User DSN, klik Add


Kemudian pilih Oracle in XE Client :


Selasa, 26 Juni 2012

Pemrograman Web : Otomatis Refresh Halaman Web atau Redirect ke Halaman Lain

Kadang kita butuh membuat suatu halaman web agar auto refresh setiap beberapa menit atau detik. Atau kita kadang butuh suatu halaman web agar redirect ke halaman web lain setelah beberapa detik. Maka script di bawah ini mungkin bisa menjadi solusi.

Script Javascript untuk me-redirect halaman web ke halaman web lain setelah beberapa detik/menit :

<head>
<script>
  var time = null
  function move() {
  //window.location = 'http://localhost/situsdream/laphargaberas.php';
  window.location.reload();
  //window.refresh();
}
</script>
</head>

<body onload="timer=setTimeout('move()',60000)">

Script HTML untuk merefresh halaman web setiap beberapa detik sekali :

<meta http-equiv="refresh" content="30" />

Pemrograman PHP : Fungsi PHP Untuk Mengubah Uang Menjadi Terbilang dalam Kalimat Rupiah

Fungsi yang berguna untuk mengubah angka uang menjadi kalimat terbilang uang dalam rupiah yang pernah dibuat dalam bentuk Macro Visual Basic berhasil penulis konversi menjadi bentuk bahasa PHP. Seperti halnya versi VB nya, fungsi ini juga untuk mengubah angka uang menjadi kalimat terbilang rupiah, misal : 1734563 menjadi Satu Juta Tujuh Ratus Tiga Puluh Empat Ribu Lima Ratus Enam Puluh Tiga Rupiah.

Program ini sangat berguna ketika kita membuat kuitansi.


<?php
//contoh
//echo terbilang(1010345650);
  
function satuan($inp)
{
if ($inp == 1)
{
return "satu ";
}
else if ($inp == 2)
{
return "dua ";
}
else if ($inp == 3)
{
return "tiga ";
}
else if ($inp == 4)
{
return "empat ";
}
else if ($inp == 5)
{
return "lima ";
}
else if ($inp == 6)
{
return "enam ";
}
else if ($inp == 7)
{
return "tujuh ";
}
else if ($inp == 8)
{
return "delapan ";
}
else if ($inp == 9)
{
return "sembilan ";
}
else
{
return "";
}
}

function belasan($inp)
{
$proses = $inp; //substr($inp, -1);
if ($proses == '11')
{
return "sebelas ";
}
else
{
$proses = substr($proses,1,1);
return satuan($proses)."belas ";
}
}

Senin, 25 Juni 2012

Memberi CSS Page Break untuk Ganti Halaman pada Print Halaman Web



Sebagai catatan saja. CSS mampu membuat agar suatu halaman web langsung ganti halaman. Hal ini sangat berguna misalnya kita akan mencetak halaman web yang mempunyai data yang sangat panjang, maka ketika di-print kita tidak bisa mengontrol pergantian halamannya di sebelah mana. Bisa jadi tabelnya terpotong di tengah-tengah data yang semestinya tidak terpotong. Solusinya kita "paksa" halaman yang terbentuk untuk dicetak agar sudah tertata beberapa tabel yang per tabelnya kira-kira tidak akan melebihi satu halaman. Kemudian di antara tabel-tabel tersebut kita beri CSS di bawah ini untuk "memaksa" agar ganti halaman (Page Break) pada bagian tersebut. 

CSS untuk Page Break (Ganti Halaman) :

<div style="page-break-before: always;"></div>

atau

.pagebreak { 
page-break-before: always; 
}

atau

Minggu, 24 Juni 2012

Excel Macro : Mengubah Uang jadi Terbilang Rupiah

Karena suatu permintaan, penulis membuat program di bawah ini,, yaitu kode program Macro VB di Microsoft Excel untuk mengubah angka uang menjadi kalimat terbilang rupiah, misal : 1234560 menjadi Satu Juta Dua Ratus Tiga Puluh Empat Ribu Lima Ratus Enam Puluh Rupiah.

Program ini sangat berguna ketika kita membuat kuitansi.


Private Sub CommandButton1_Click()
    Range("A2").FormulaR1C1 = UCase(terbilang())
End Sub

Private Sub CommandButton2_Click()
    Range("A2").FormulaR1C1 = LCase(terbilang())
End Sub

Private Sub CommandButton3_Click()
    Range("A2").FormulaR1C1 = "=PROPER(""" & ubah(Range("A1").Value) & """)"
End Sub

Function terbilang()
'
' Terbilang Macro
' Macro recorded 20/06/2010 by erlin estiana
'

'
  Range("A2").FormulaR1C1 = ubah(Range("A1").Value)
  terbilang = ubah(Range("A1").Value)
End Function

Function satuan(inp)
    If (inp = 1) Then
        satuan = "satu "
    ElseIf (inp = 2) Then
        satuan = "dua "
    ElseIf (inp = 3) Then
        satuan = "tiga "
    ElseIf (inp = 4) Then
        satuan = "empat "
    ElseIf (inp = 5) Then
        satuan = "lima "
    ElseIf (inp = 6) Then
        satuan = "enam "
    ElseIf (inp = 7) Then
        satuan = "tujuh "
    ElseIf (inp = 8) Then
        satuan = "delapan "
    ElseIf (inp = 9) Then
        satuan = "sembilan "
    Else
        satuan = ""
    End If
End Function

Pemrograman Delphi : Membuat Web Browser dengan Delphi

Program Web Browser dengan Delphi

Untuk membuat aplikasi Web Browser di Code Gear Delphi dapat digunakan komponen WebBrowser pada Tool Palette Tab Internet yang dapat digunakan untuk membuka halaman Web maupun mengexplore File-file lokal seperti hanya Windows Explorer dan Internet Explorer. Buatlah sebuah project dan form baru pada Delphi, desain tampilan form sehingga didapat tampilan seperti pada gambar berikut :


Gambar Rancangan Aplikasi Web Browser

Pengaturan Properti :


Komponen
Properti Nilai
Form1 (Name)
Caption
Position
frmBrowser
Web Browser
poScreenCenter
WebBrowser (Name) WebBrowser1
Label1 Caption Address
Button1 (Name)
Caption
btnBack
Button2 (Name)
Caption
btnForward
Button3 (Name)
Caption
btnRefresh
Refresh
Button4 (Name)
Caption
btnGo
Go

Database Oracle : Menggunakan, Membuat Table dan Mengaktifkan User pada Oracle XE

Buka Start - All Programs Oracle Database Express Edition - Go To Database Home Page


Masuk dengan Username SYSTEM, password ****

Jumat, 22 Juni 2012

Database : Export Import, Transfer Data MS Access dan Firebird

Transfer Data Access ke Firebird

Untuk mentransfer data dari Access ke Firebird dapat dilakukan dengan cara mengeset terlebih dahulu Data Source pada ODBC agar terhubung ke database tujuan pada Firebird. Klik Start – Control Panel, pilih Administrative Tools – Data Source (ODBC) pada Classic View. Sedangkan pada Category View pilih Performance and Maintenance - Administrative Tools – Data Source (ODBC). Setelah muncul Dialog Data Source ODBC Administrator, pilih Tab System DSN, klik Add. Selanjutnya pada Dialog Create New Data Source pilih Firebird/Interbase (r) Driver. Klik Finish. Kemudian beri nama Data Source nya dan masukkan lokasi file Database, masukkan Database Account dan Password. Klik OK.


Setelah selesai maka akan muncul nama Data Source yang telah diset pada daftar di System DSN. Klik OK.
Buka database Access yang akan ditransfer, pada Tables klik kanan nama Table yang akan ditransfer, kemudian pilih Export.


Pada Dialog Export Table To.. pilih Save As Type - ODBC Databases.
Pada Dialog Select Data Source pilih Tab Machine Data Source dan pilih nama Data Source dari database Firebird tujuan. Klik OK.
Pada Dialog Export pilih nama Table pada Database tujuan. Klik OK.

Transfer Data Firebird ke Access

Untuk mentransfer data sebaliknya yaitu dari MySQL ke Access dapat dilakukan dengan cara mengeset terlebih dahulu Data Source pad ODBC agar terhubung ke database asal pada Firebird seperti halnya pada langkah di atas. Kemudian buka database Access dimana data akan diimport, pada Tables klik kemudian pilih Import.


Pada Dialog Import pilih Files of type – ODBC Databases.
Pada Dialog Select Data Source pilih Tab Machine Data Source dan pilih nama Data Source dari database SQLServer yang akan diimport. Klik OK.
Kemudian pada Dialog Login masukkan Login ID dan Password. Klik OK
Pada Dialog Import Object pilih nama table-table pada Database asal yang akan diimport. Klik OK.

Pemrograman Delphi : Membuat Text Editor, Notepad dengan Dephi


Program TextEditor dengan Dephi

Sebuah Aplikasi TextEditor memiliki kelengkapan antara lain MainMenu, Toolbar, Memo, Dialog, Operasi File, dan Multiform. Untuk membuat aplikasi tersebut buka Delphi, kemudian klik File - New -Application, beri nama projectnya TextEditor, simpanlan di tempat yang diingikan, kemudian rancanglah tampilan seperti berikut ini :


Gambar Rancangan Aplikasi Text Editor

MainMenu & Toolbar



Kamis, 21 Juni 2012

Pemrograman Delphi : Membuat Chart pada Delphi

Membuat Chart dengan Delphi

Pada Code Gear Delphi disediakan komponen TChart yang berada pada tab TeeChart Std yang dapat dipakai untuk keperluan pembuatan grafik. Ada beberapa macam grafik yang bisa diimplementasikan oleh komponen ini, seperti grafik garis, batang , pie, dan masih banyak lagi.

TChart merupakan grafik induk (ParentChart) untuk semua komponen Series. Sedangkan semua tipe series diturunkan dari kelas abstrak TChartSeries. Kemudian dari TChartSeries inilah sebuah method untuk menggambar grafik bisa dipanggil. Method yang lazim digunakan adalah AddXY, dengan struktur sebagai berikut :

Function AddXY(Const AXValue, AYValue: Double; Const AXLabel: String; Acolor: TColor) : LongInt;
Dimana : AXValue adalah nilai sumbu x,
AYValue adalah nilai sumbu y,
AXLabel adalah teks yang muncul pada sumbu x,
Acolor adalah warna garis grafik.
Catatan : Jika ingin pada sumbu x muncul nilai yang sesuai, maka kosongkan nilai parameter AXLabel dengan mengisi string kosong (‘’).
Apabila nilai pada parameter Acolor tidak diisi, maka garis grafiknya akan mengambil warna pada saat desain.

TChartSeries mempunyai beberapa turunan, yaitu TLineSeries, TPieSeries, TAreaSeries, TBarSeries, dll.

Contoh : sebuah grafik sinus.

procedure TForm1.Button1Click(Sender: Tobject);
var
i : word;
begin
for i := 1 to 720 do
begin
Series1.AddXY(i, sin(i*pi/180), ‘’,)
end;
end;

Untuk mencoba membuat aplikasi dengan TChart, masukkan komponen TChart tersebut pada Form kosong dan tambahkan beberapa buah tombol untuk menampilkan bermacam-macam Chart dengan tipe Series yang berbeda beda

Buatlah sebuah project dan form baru pada Delphi, desain tampilan form sehingga didapat tampilan seperti pada gambar berikut.



Gambar Desain Form Aplikasi Chart

Pengaturan Properti :


Komponen
Properti Nilai
Form1 (Name)
Caption Position
frmChart
Chart
poScreenCenter
Chart (Name) Chart1
Button1 (Name)
Caption
btnPie
Pie
Button2 (Name)
Caption
btnLine
Line
Button3 (Name)
Caption
btnDoUntilLoop
Do Until Loop
Button4 (Name)
Caption
btnBar
Bar
CheckBox (Name)
Caption
Chk3D
3D

Listing Program :

procedure TFChart.bBarClick(Sender: TObject);
var
sBar : TBarSeries;
begin
Chart1.RemoveAllSeries;
sBar := TBarSeries.Create(Chart1);
Chart1.AddSeries(sBar);
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Saham BEJ');
sBar.Clear;
sBar.AddXY(1, 9000, 'BUMI', clYellow);
sBar.AddXY(2, 8000, 'PGAS', clRed);
sBar.AddXY(3, 7500, 'ANTAM', clBlue);
sBar.AddXY(4, 7000, 'ASTRA', clGreen);
sBar.AddXY(5, 8500, 'INDOSAT', clGray);
end; procedure TFChart.bLineClick(Sender: TObject);
var
sLine : TLineSeries;
begin
Chart1.RemoveAllSeries;
sLine := TLineSeries.Create(Chart1);
Chart1.AddSeries(sLine);
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Harga Minyak');
sLine.Clear;
sLine.AddXY(1, 130, 'Juli', clYellow);
sLine.AddXY(2, 152, 'Agustus', clYellow);
sLine.AddXY(3, 120, 'September', clYellow);
sLine.AddXY(4, 70, 'Oktober', clYellow);
sLine.AddXY(5, 45, 'November', clYellow);
sLine.AddXY(6, 36, 'Desember', clYellow);
end;

procedure TFChart.bPieClick(Sender: TObject);
var
sPie : TPieSeries;
begin
Chart1.RemoveAllSeries;
sPie := TPieSeries.Create(Chart1);
Chart1.AddSeries(sPie);
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Pemilu 2009');
sPie.Clear;
sPie.Add(2, 'Republik', clYellow);
sPie.Add(1, 'Demokrat', clBlue);
sPie.Add(1, 'Konservatif', clRed);
sPie.Add(4, 'Buruh', clGreen);
sPie.Add(2, 'Nasionalis', clWhite);
end;

procedure TFChart.c3DClick(Sender: TObject);
begin
Chart1.View3D := C3D.Checked;
end;

Setelah dijalankan, hasilnya dapat dilihat pada tampilan berikut ini :




Gambar Hasil Tampilan Aplikasi Chart