WebBlog Gina 'Ginong'

Membuat Tampilan Keren menggunakan Skin AplhaControl di delphi 7.0

2011-03-20T03:33:00.000-07:00

Membuat tampilan program yang keren tentu sangat penting,, ada yang bilang sih kalo tampilannya bagus, programnya juga pasti bagus..hehe (kata orang sih.. )

Ya ga gitu juga sih,, kalo tampilannya bagus ngeliatnya juga enak kan gan..hehe

Kali ini Saya akan menjelaskan step demi step bagaimana langkah membuat tampilan keren menggunakan skin alphacontrol di delphi 7.0. untuk bahan-bahannya (em.. kayak bikin kue aja..hehe) tentunya komponen skin alphacontol untuk delphi yang bisa anda download di www.aplhacontrol.com secara gratis…

Berikut adalah Langkah-Langkahnya :

Buka Delphi 7.0 Anda

Silahkan install komponen skin alphacontrolnya bagi yang belum terinstall, untuk cara installnya, silahkan lihat di Cara Menginstall komponen di delphi 7.0

Kemudian desain Form seperti yang anda inginkan (Rancang), lalu tambahkan komponen sSkinManager pada tab alphacontrol

Double klik komponen sSkinManager-nya, kemudian pilih skin yang ingin Anda pakai, dan jangan lupa pada properties arahkan SkinDirectory ke folder tempan skin tersimpan.
Eit,, jangan buru-buru dicompile dulu,, pasti kalo di run akan [Fatal Error] Unit1.pas(7): File not found: 'sSkinManager.dcu'. kita harus copy kan dulu semua file yang ber-ekstension *.dcu yang ada dalam folder komponen yang kita download bersama alpacontrol tadi tadi.

Kemudian compile,, tampilannya jadi kerenkan...

Cara Install komponen di delphi 7.0

2011-03-05T05:24:00.000-08:00

Salah satu kelebihan Delphi adalah banyaknya komponen visual maupun non visual yang bisa kita peroleh secara gratis maupun tidak gratis.

Komponen yang kita peroleh ada yang sudah ada instalernya kita tinggal klik kemudian next sampai finis, ada juga masih dalam bentuk package lengkap dengan sourcenya. Bagi seorang yang sudah mahir tentunya bukan menjadi masalah namun untuk para pemula tentu akan kesulitan bagaimana cara menginstall komponen yang sudah kita dapatkan. oleh karena itu saya akan memberikan masukan untuk instalasi komponen dalam bentuk package.

Berikut adalah Langkah-Langkahnya Installasinya :

1. Arahkan Library path ke source komponen yang akan kita install, caranya pada menu Tools->Envirotment Options kemudian pilih tab library, tekan tombol sebelah kanan pada library path, masukan directory source komponen yang akan diinstall lalu tekan add kemudian OK

2. Masuk ke directory komponen yang akan diinstall cari *.dpk yang sesuai dengan versi delphi yang kita pakai (Delphi 7.0) double klik.

3. Tekan Compile jika berhasil langsung tekan install. Ketika menekan install, terkadang muncul pesan error yang menyatakan komponen bukan designtime yang harus kita lakukan adalah tekan options kemudian ubah Usege options dari runtime only menjadi Designtime and runtime kemuadian OK, tekan install kembali.

4. masalah yang sering terjadi antara satu komponen dengan komponen yang lain saling terkait, kita harus meng instal secara berurutan, jika terjadi error komponen yang bersangkutan belum ada kita harus instal komponen tersebut terlebih dahulu begitu seterusnya.

Sumber : http://tipsdelphi.blogspot.com/

Contact

2011-02-21T18:29:00.000-08:00

Contact Gina 'Ginong'
- Twitter (@g13na)

About Gina 'Ginong' Dwitasari

2011-02-18T03:30:00.000-08:00

Hai Semua,,
Perkenalkan nama saya Gina Dwitasari, temen-temen sering manggil aku ginong (sumpah ga penting...) mungkin karena aku jenong alias nong-nong kaleee....
aku dilahirkan di Bandung tanggal 16 Febuari 1991 (yang mau ngasih kado boleh ko..hehe) anak ke-2 dari 4 bersaudara... dan mempunyai satu kembaran (aku anak kembar cuy...heuheu)
Lulusan S3 ===>> SD, SMP, ma SMA
Dan sekarang sedang kuliah di salah satu perguruan tinggi swasta di Bandung Jurusan Manajemen Informatika... Sebenernya masuk IT merupakan penyesalanku yang terdalam (cita-cita sih masuk jurusan fisika, matematika atau kimia... itu mah like this banget..) karena disampang aku nge-blank ma dunia IT (maklum di SMA aku jurusan IPA.... jadi mikirnya ke bulan mulu..kkwkwkwkw) dan ga begitu menguasai yah, bedalah ma anak-anak sekarang yang pada lulusan SMK IT....
Tapi,, seiring dengan berjalannya waktu... Ternyata eh ternyata, aku jatuh cinta ma yang namanya pemrograman,, apalagi kalu udah bikin-bikin website... I like it..hehe
di webBlog Gina 'Ginong' ini kita sharing ya...
Meskipun aku ga begitu jago (hebat) tapi, sekecil apapun ilmu akan baik rasanya jika di amalkan.. betul tidak...heu..

Mencari akar persamaan kuadrat dengan menggunakan C++ Builder

2011-02-06T00:52:00.000-08:00

Di dalam ilmu matematika, pasti Anda sudah tidak asing lagi dengan persamaan ax²+bx+c=0.

Untuk mencari akar-akar dari persamaan tersebut, biasanya seseorang dapat menggunakan 3 metode, yaitu memfaktorkan, menggunakan rumus abc, dan kuadrat sempurna. Nah, Sekarang tugas kita orang informatika untuk mempermudah menghitungnya.

Dengan menggunakan C++ Builder 4, Saya akan membuat sebuah aplikasi untuk mencari akar-akar dalam suatu persamaan.

Berikut adalah Langkah-Langkahnya :

1. Buat interface/antar muka program

Komponen	Properties	Nilai/Value
Form1	Caption	Mencari Akar-akar
	Name	FrAkar
Label1	Caption	a
	Name	Label1
Label2	Caption	b
	Name	Label2
Label3	Caption	c
	Name	Label3
Label4	Caption	Diskriminan
	Name	Label4
Label5	Caption	Akar ke-1
	Name	Label5
Label6	Caption	Akar ke-2
	Name	Label6
Label7	Caption	Label7
	Name	Label7
Edit1	Name	EdA
Edit2	Name	EdB
Edit3	Name	EdC
Edit4	Name	EdD
Edit5	Name	EdAkar1
Edit6	Name	EdAKar2
Button1	Caption	Hitung
	Name	Button1
Button2	Caption	Hapus
	Name	Button2
Button3	Caption	Keluar
	Name	Button3

2. Ketika pertama kali running, ketikan Listing program pada form create dengan cara mendouble klik form.

EdA->Text="";

EdB->Text="";

EdC->Text="";

EdD->Text="";

EdAkar1->Text="";

EdAkar2->Text="";

Label7->Caption="";

3. Event Ketika Button Hitung di klik, berikut Listing programnya:

int a,b,c;

double D,x1,x2;

{

a=StrToInt(EdA->Text);

b=StrToInt(EdB->Text);

c=StrToInt(EdC->Text);

D=(b*b)-(4*a*c);

EdD->Text=FloatToStr(D);

//jika Didkriminannya kurang dari 0 maka akar2 merupakan bilangan imaginer

if (D<0)

Label7->Caption="Akarnya adalah Bilangan Imaginer";

else

{

if (D==0)

//Jika Diskriminiannya =0 maka akar ke-1 dan ke-2 sama

Label7->Caption="Akar-akarnya kembar" ;

else

{

Label7->Caption="Akar-akarnya adalah :";

}

x1=((-b)+(sqrt(D)))/(2*a);

x2=((-b)-(sqrt(D)))/(2*a);

EdAkar1->Text=FloatToStr(x1);

EdAkar2->Text=FloatToStr(x2);

}

4. Event Ketika Button Hapus di klik, Maka kondisi dikembalikan ke awal, sama ketika pertama kali program running. Jadi kita hanya tinggal memanggil procedure form create yaitu :

FormCreate(Sender);

5. Event Ketika Button Keluar di klik :

if (Application->MessageBox("Anda Mau keluar ?","Keluar",

MB_OKCANCEL+MB_ICONQUESTION)==ID_OK)

{

Application->Terminate();

}

VB .NET Menggunakan Store Procedure

2011-01-29T07:58:00.000-08:00

Buat Store Procedure di SQL Server :
CREATE PROCEDURE SP_tambahbuku(@kode_buku char(5),@judul varchar(50),@jenis varchar(30),@pengarang varchar(30),@penerbit varchar(30))
as
begin
insert into buku(kode_buku,judul,jenis,pengarang,penerbit)
values(@kode_buku,@judul,@jenis,@pengarang,@penerbit)
end

CREATE PROCEDURE SP_deletebuku(@kode_buku char(5))
as
DELETE FROM buku
WHERE kode_buku=@kode_buku
RETURN

CREATE PROCEDURE SP_updatebuku(@kode_buku char(5),@judul varchar(50),@jenis varchar(30),@pengarang varchar(30),@penerbit varchar(30))
AS
BEGIN
UPDATE buku SET kode_buku=@kode_buku,judul=@judul,jenis=@jenis,pengarang=@pengarang,penerbit=@penerbit
WHERE kode_buku=@kode_buku
END

Script ini berada di FormBuku :
Imports System.Data
Imports System.Data.SqlClient

Public Class FromBuku
    Dim koneksi As New SqlConnection("Data Source=GINONG;Initial Catalog=pustaka;Integrated Security=True")
    Private PosisiRecord As BindingManagerBase

#Region "umum"
    Sub FormClear()
        TxtKode.Clear()
        TxtJudul.Clear()
        CbJenis.Text = ""
        TxtPengarang.Clear()
        TxtPenerbit.Clear()
        TxtKode.Focus()
        Me.CbJenis.Text = "- Pilih -"
        Me.CbJenis.Items.Add("Teknologi")
        Me.CbJenis.Items.Add("Pemrograman")
        Me.CbJenis.Items.Add("Sistem Informasi")
        Me.CbJenis.Items.Add("Lainnya")
    End Sub
#End Region

#Region "Akses-Data"
    Sub ViewRecord()
        Dim sql As String = "SELECT * FROM buku"
        Dim da As SqlDataAdapter = New SqlDataAdapter(sql, koneksi)
        Dim ds As DataSet = New DataSet
        da.Fill(ds, "buku")
        PosisiRecord = MyBase.BindingContext(ds, "buku")
        TxtKode.DataBindings.Add("Text", ds, "buku.kode_buku")
        TxtJudul.DataBindings.Add("Text", ds, "buku.judul")
        CbJenis.DataBindings.Add("Text", ds, "buku.jenis")
        TxtPengarang.DataBindings.Add("Text", ds, "buku.pengarang")
        TxtPenerbit.DataBindings.Add("Text", ds, "buku.penerbit")
    End Sub

    Sub SimpanRecord()
        Dim sqltrans As SqlTransaction = koneksi.BeginTransaction
        Dim cmdtrans As SqlCommand = koneksi.CreateCommand
        If TxtKode.Text <> "" Then
            Try
                With cmdtrans
                    .CommandText = "SP_tambahbuku"
                    .CommandType = CommandType.StoredProcedure
                    .Connection = koneksi
                    .Transaction = sqltrans
                    .Parameters.Add("@kode_buku", SqlDbType.Char, 5).Value = TxtKode.Text
                    .Parameters.Add("@judul", SqlDbType.VarChar, 50).Value = TxtJudul.Text
                    .Parameters.Add("@jenis", SqlDbType.VarChar, 30).Value = CbJenis.Text
                    .Parameters.Add("@pengarang", SqlDbType.VarChar, 30).Value = TxtPengarang.Text
                    .Parameters.Add("@penerbit", SqlDbType.VarChar, 30).Value = TxtPenerbit.Text
                    .ExecuteNonQuery()
                End With
                sqltrans.Commit()
                MsgBox("Data Telah Tersimpan")
            Catch ex As Exception
                sqltrans.Rollback()
                MessageBox.Show(ex.Message, "Data Gagal Tersimpan", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                sqltrans.Dispose()
                cmdtrans.Dispose()
                koneksi.Close()
            End Try
        End If
    End Sub

    Sub DeleteRecord()
        Dim sqltrans As SqlTransaction = koneksi.BeginTransaction
        Dim cmdtrans As SqlCommand = koneksi.CreateCommand
        Dim hapus As Int16
        If TxtKode.Text <> "" Then
            Try
                With cmdtrans
                    hapus = MsgBox("Benar record ini akan dihapus " & TxtKode.Text & "?", MsgBoxStyle.OkCancel, "Delete record")
                    Select Case hapus
                        Case vbCancel
                            Exit Sub
                        Case vbOK
                            .CommandText = "SP_deletebuku"
                            .CommandType = CommandType.StoredProcedure
                            .Connection = koneksi
                            .Transaction = sqltrans
                            .Parameters.Add("@kode_buku", SqlDbType.Char, 5).Value = TxtKode.Text
                            .ExecuteNonQuery()
                    End Select
                End With
                sqltrans.Commit()
                MsgBox("Data Telah TerHapus")
            Catch ex As Exception
                sqltrans.Rollback()
                MessageBox.Show(ex.Message, "Data Gagal Terhapus", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                sqltrans.Dispose()
                cmdtrans.Dispose()
                koneksi.Close()
            End Try
        End If
    End Sub

    Sub UpdateRecord()
        Dim sqltrans As SqlTransaction = koneksi.BeginTransaction
        Dim cmdtrans As SqlCommand = koneksi.CreateCommand
        If TxtKode.Text <> "" Then
            Try
                With cmdtrans
                    .CommandText = "SP_updatebuku"
                    .CommandType = CommandType.StoredProcedure
                    .Connection = koneksi
                    .Transaction = sqltrans
                    .Parameters.Add("@kode_buku", SqlDbType.Char, 5).Value = TxtKode.Text
                    .Parameters.Add("@judul", SqlDbType.VarChar, 50).Value = TxtJudul.Text
                    .Parameters.Add("@jenis", SqlDbType.VarChar, 30).Value = CbJenis.Text
                    .Parameters.Add("@pengarang", SqlDbType.VarChar, 30).Value = TxtPengarang.Text
                    .Parameters.Add("@penerbit", SqlDbType.VarChar, 30).Value = TxtPenerbit.Text
                    .ExecuteNonQuery()
                End With
                sqltrans.Commit()
                MsgBox("Data Telah Terupdate")
            Catch ex As Exception
                sqltrans.Rollback()
                MessageBox.Show(ex.Message, "Data Gagal Terupdate", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                sqltrans.Dispose()
                cmdtrans.Dispose()
                koneksi.Close()
            End Try
        End If
    End Sub
#End Region

    Private Sub FromBuku_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "~~~ Master Data Buku ~~~"
        Me.BackColor = Color.AliceBlue
        ControlBox = False
        Me.WindowState = FormWindowState.Maximized
        Me.PanelLuar.Location = New System.Drawing.Size(250, 80)
        Me.PanelLuar.Size = New System.Drawing.Size(802, 519)
        Me.ViewRecord()
        koneksi.Open()
    End Sub

    Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        SimpanRecord()
        FormClear()
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        FormClear()
    End Sub

    Private Sub BtnSelesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    Private Sub BtnPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrev.Click
        PosisiRecord.Position -= 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFirst.Click
        PosisiRecord.Position = 0
    End Sub

    Private Sub BtnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNext.Click
        PosisiRecord.Position += 1
    End Sub

    Private Sub BtnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLast.Click
        PosisiRecord.Position = PosisiRecord.Count - 1
    End Sub

    Private Sub BtnTambah_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
        FormClear()
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        DeleteRecord()
    End Sub

    Private Sub BtnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUbah.Click
        UpdateRecord()
    End Sub
End Class

Untuk yang maw download scriptnya dan aplikasinya klik disini (StoreProcedure.txt dan Pustaka.rar)

AJAX

2010-08-06T00:26:00.001-07:00

Asynchronous JavaScript and XMLHTTP, atau disingkat AJaX, adalah suatu teknik pemrograman berbasis web untuk menciptakan aplikasi web interaktif. Tujuannya adalah untuk memindahkan sebagian besar interaksi pada komputer web surfer, melakukan pertukaran data dengan server di belakang layar, sehingga halaman web tidak harus dibaca ulang secara keseluruhan setiap kali seorang pengguna melakukan perubahan. Hal ini akan meningkatkan interaktivitas, kecepatan, dan usability. Ajax merupakan kombinasi dari:
DOM yang diakses dengan client side scripting language, seperti VBScript dan implementasi ECMAScript seperti JavaScript dan JScript, untuk menampilkan secara dinamis dan berinteraksi dengan informasi yang ditampilkan
Objek XMLHTTP dari Microsoft atau XMLHttpRequest yang lebih umum di implementasikan pada beberapa browser. Objek ini berguna sebagai kendaraan pertukaran data asinkronus dengan web server. Pada beberapa framework AJAX, element HTML IFrame lebih dipilih daripada XMLHTTP atau XMLHttpRequest untuk melakukan pertukaran data dengan web server.
XML umumnya digunakan sebagai dokumen transfer, walaupun format lain juga memungkinkan, seperti HTML, plain text. XML dianjurkan dalam pemakaian teknik AJaX karena kemudahan akses penanganannya dengan memakai DOM
JSON dapat menjadi pilihan alternatif sebagai dokumen transfer, mengingat JSON adalah JavaScript itu sendiri sehingga penanganannya lebih mudah
Seperti halnya DHTML, LAMP, atau SPA, Ajax bukanlah teknologi spesifik, melainkan merupakan gabungan dari teknologi yang dipakai bersamaan. Bahkan, teknologi turunan/komposit yang berdasarkan Ajax, seperti AFLAX sudah mulai bermunculan.