Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada
salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti kalkulator standar Windows
Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak masing-masing objek.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12
Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1
Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2
Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3
Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4
Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5
Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6
Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7
Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8
Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9
Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0
Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-
Command Button 12:
(Name) : cmdKoma
Caption : .
Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +
Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -
Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x
Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /
Command Button 17:
(Name) : cmdClearEntry
Caption : CE
Command Button 18:
(Name) : cmdClear
Caption : C
Command Button 19:
(Name) : cmdSamaDengan
Caption : =
Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:
Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub
' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub
' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub
Artikel Populer IlmuKomputer.Com
Copyright © 2005 IlmuKomputer.Com
Silahkan modifikasi sendiri program Anda. Dapat saja ditambahkan fungsi yang lain seperti akar,
kuadrat atau bahkan trigonometri.
Source code diperoleh dari
www.planetsourcecode.com
Artikel Populer IlmuKomputer.Com
Copyright © 2005 IlmuKomputer.Com
Iman Adrianto
Iman_adri@yahoo.com
Terima kasih & Selamat Mencoba!
Tuesday, March 25, 2008
Menyembunyikan Aplikasi Taskbar Windows Dengan
Tips Delphi kali ini adalah suatu code untuk menyembunyikan aplikasi dari taskbar Windows. Anda
cukup menuliskan code seperti berikut ini pada event OnCreate aplikasi Anda.
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong
(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
ShowWindow(Application.Handle, SW_SHOW);
end;
Mudah bukan? Sekian dulu tips Delphi sederhana kali ini, untuk source code lengkap project ini bisa
Anda download di sini. Silakan ikuti tips dan tulisan menarik lainnya di www.sony-ak.com.
Lisensi Dokumen:
Copyright © 2003 IlmuKomputer.Com
Sony Arianto Kurniawan
sony-ak@sony-ak.com
Sony AK Knowledge Center
http://www.sony-ak.com/
cukup menuliskan code seperti berikut ini pada event OnCreate aplikasi Anda.
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong
(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
ShowWindow(Application.Handle, SW_SHOW);
end;
Mudah bukan? Sekian dulu tips Delphi sederhana kali ini, untuk source code lengkap project ini bisa
Anda download di sini. Silakan ikuti tips dan tulisan menarik lainnya di www.sony-ak.com.
Lisensi Dokumen:
Copyright © 2003 IlmuKomputer.Com
Sony Arianto Kurniawan
sony-ak@sony-ak.com
Sony AK Knowledge Center
http://www.sony-ak.com/
Monday, March 24, 2008
Form Cantik Dengan Dellphii
Form Canttiik Dengan Dellphii
Ahmad Imron
admin@ahmadimron.com
http://www.ahmadimron.com
Akhir-akhir ini perkembangan perangkat lunak melaju dengan pesatnya. Meskipun perkembangannya tidak sebanding dengan perangkat keras, perkembangan software ini patut kita acungi jempol. Seiring dengan berjalannya waktu, banyak perusahaan software yang muncul dan tenggelam. Muncul akibat dorongan serta semangat dan tenggelam karena tidak kuat dalam persaingan. Bisnis software memang cukup menjanjikan utamanya karena pasar yang begitu luas. Namun pasar yang luas tersebut
terkadang malah menjadi bumerang karena kita harus bersaing dengan perusahaan asing yang notabene dalam hal modal dan sumber daya manusia mereka lebih unggul.
Selain aplikasi yang kita bangun memiliki keunggulan dalam hal teknologi, maka hendaknya aplikasi tersebut juga memiliki design interface yang bagus disebabkan kita selalu berhubungan dengan konsumen yang notabene sebagian besar konsumen di negara kita masih menganggap bahwa tampilan merupakan salah faktor yang cukup penting sebagai pertimbangan dalam membeli perangkat lunak.
Bagi anda yang sudah sering bergelut dengan pemrograman tentu tidak asing dengan apa yang dinamakan form. Form merupakan bingkai dasar dari sebuah aplikasi yang umumnya berbasis GUI(Graphic User Interface). Form standar atau form tradisionil umumnya berbentuk kotak. Bagi seseorang yang dinamis dan berjiwa seni tinggi tentu akan bosan dengan design form seperti ini.
Salah satu cara untuk memodifikasi bentuk form adalah dengan menggunakan region. Fungsi HRGN atau region dapat memodifikasi bentuk form menjadi model roundrect, rectangular, elliptical, polygonal dan sejenisnya berikut kombinasi bentuk-bentuk dasar tersebut (combinergn).
Setelah lama bergelut dengan region, saya menemui kendala yaitu akan cukup sulit menggunakan
region bila bentuk form yang akan kita buat tidak sama dengan bentuk dasar ataupun kombinasi dari region. Selain itu waktu yang dibutuhkan juga cukup lama. Lalu saya memutuskan untuk mencari komponen yang dapat merubah form standar. Setelah mencari kemana-mana akhirnya saya menemukan komponen dxfShapedForm, bagian dari ExpressForumLibrary(tm) Componen Suite yang dikembangkan oleh Developer Express Inc. Jika anda membeli paket original Delphi maka anda akan menemukan komponen ini pada cd Delphi Companion Tools.
Melihat contoh yang disertakan saya langsung tercengang. Ternyata membuat form yang cantik dapat
dilakukan dengan mudah dan cepat. Kita tinggal menempatkan komponen pada form, meload gambar, mengaktifkan komponen dan form cantik dapat segera digunakan. Akhirnya saya berfikir lagi bagaimana kalau digunakan komponen standar Delphi saja agar program menjadi lebih ringan. Dari Lisensi Dokumen:
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak
menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan
dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali
mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Oke, langsung saja kita mulai step by step membuat form cantik ini:
1. Buka Delphi anda dan buatlah projek baru (standar EXE). Langkah ini dapat diakses melalui
File > New > Application
2. Tambahkan komponen image pada form. Komponen ini terletak pada tab Additional.
Gambar yang akan anda tambahkan ini nantinya akan menjadi background sekaligus bentuk
dari form. Agar gambar bisa transparan pada form, anda dapat membuat gambar dengan
format .gif transparan atau .bmp dengan warna background khusus (background harus
berwarna #FF00FF)
3. Klik ganda pada komponen image sehingga akan membuka kotak dialog seperti ditunjukkan
pada gambar
Gambar 1. Load gambar
Klik tombol Load untuk mengambil gambar
4. Sesudah gambar diload, klik sekali lagi komponen image untuk mengaktifkannya. Pada
properties di object inspector untuk komponen image, ubah nilai Transparent ke true.
Langkah ini mengakibatkan gambar menjadi transparan. Jika gambar anda tidak menjadi
transparan, berarti gambar yang anda gunakan masih salah. Perbaiki dulu gambar anda baru ikuti langkah selanjutnya
5. Klik nama form di Object Tree View untuk mengaktifkan form. Pada Properties di Object Inspector untuk komponen form ini ubah nilai BorderStyle menjadi bsNone. Coba run projek anda dengan menekan F9. Tampak bahwa form tidak memiliki border, namun form asli masih tampak, hal ini terlihat dari adanya background dibelakang image.
6. Hal yang akan kita lakukan adalah membuat transparan background dari form. Dalam
mentransparankan background form ini terdapat tiga nilai dari properties yang harus kita ubah yaitu Color, TransparentColor, TransparentColorValue. Ubah nilai Color dan
TransparentColorValue dengan nilai yang sama misal clBlack. Set nilai TransparentColor dengan true. Hasilnya ditunjukkan pada gambar dibawah
Gambar 2. Form transparan pada saat dirun Tampak bahwa background pada form menjadi transparan sehingga bentuk daripada form selalu mengikuti bentuk gambar yang kita buat. Namun, apakah pekerjaan kita sudah selesai? Ternyata belum karena form tersebut tidak dapat didrag seperti form pada umumnya.
Pada langkah ke 7 kita akan mengatasi hal ini
7. Agar form yang kita buat dapat didrag tambahkan potongan kode berikut:
procedure WMNCHitTest(var msg : TWMNCHitTest);message
WM_NCHitTest;
Letakkan definisi prosedur diatas pada bagian type, dapat juga diletakkan pada bagian
deklarasi private atau deklarasi public tergantung dari kebutuhan. Jika anda ingin
menggunakan prosedur tersebut pada unit lain maka letakkan pada deklarasi public, pun
sebaliknya.
Pada bagian implementasi tambahkan kode berikut:
procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest);
begin
inherited;
if (msg.Result = htClient) then
if Msg.YPos < Top + 40 then
msg.Result := htCaption;
end;
Ada 2 hal yang harus anda perhatikan ketika menambahkan kode diatas. Hal tersebut
ditunjukkan dengan teks warna merah. Form1 menunjukkan nama form. Jika nama form
anda misalnya frmPetunjuk maka ubah Form1 menjadi frmPetunjuk. Kedua yaitu nilai
40. Nilai ini menunjukkan jarak dari form bagian atas yang dapat didrag. Semakin besar
nilai ini maka bagian dari form yang dapat didrag semakin besar
Form diatas adalah form modifikasi sehingga anda harus menambahkan beberapa even dan
komponen yang pada umumnya sudah terdapat pada form biasa semisal close, maximize, minimize
dan sebagainya. Anda dapat juga menambahkan komponen semisal button untuk menjalankan
even-even tersebut.
Gambar 3. Form yang ditambah komponen lain
Sebenarnya anda dapat juga menggunakan skin untuk membuat form cantik ini. Namun saya tidak
menyarankan penggunaan skin ini. Selain program menjadi berat diakibatkan oleh penggunaan komponen tambahan bisa itu berupa librari atau ocx (ActiveX), kompabilitas dengan komponen standar Delphi juga menjadi kendala. Bukankah lebih baik memodifikasi sesuatu yang standar daripada harus menggunakan suatu fitur embeded !?
Sekian dulu trik dari saya semoga bermanfaat bagi anda semua. Komentar, saran dan pertanyaan mengenai trik ini harap dikirimkan ke admin@ahmadimron.com.
This article is dedicated to my loving and supportive friend Amberdawn.
Kuliah Berseri IlmuKomputer.Com
Copyright © 2004 IlmuKomputer.Com
Ahmad Imron
admin@ahmadimron.com
http://www.ahmadimron.com
Akhir-akhir ini perkembangan perangkat lunak melaju dengan pesatnya. Meskipun perkembangannya tidak sebanding dengan perangkat keras, perkembangan software ini patut kita acungi jempol. Seiring dengan berjalannya waktu, banyak perusahaan software yang muncul dan tenggelam. Muncul akibat dorongan serta semangat dan tenggelam karena tidak kuat dalam persaingan. Bisnis software memang cukup menjanjikan utamanya karena pasar yang begitu luas. Namun pasar yang luas tersebut
terkadang malah menjadi bumerang karena kita harus bersaing dengan perusahaan asing yang notabene dalam hal modal dan sumber daya manusia mereka lebih unggul.
Selain aplikasi yang kita bangun memiliki keunggulan dalam hal teknologi, maka hendaknya aplikasi tersebut juga memiliki design interface yang bagus disebabkan kita selalu berhubungan dengan konsumen yang notabene sebagian besar konsumen di negara kita masih menganggap bahwa tampilan merupakan salah faktor yang cukup penting sebagai pertimbangan dalam membeli perangkat lunak.
Bagi anda yang sudah sering bergelut dengan pemrograman tentu tidak asing dengan apa yang dinamakan form. Form merupakan bingkai dasar dari sebuah aplikasi yang umumnya berbasis GUI(Graphic User Interface). Form standar atau form tradisionil umumnya berbentuk kotak. Bagi seseorang yang dinamis dan berjiwa seni tinggi tentu akan bosan dengan design form seperti ini.
Salah satu cara untuk memodifikasi bentuk form adalah dengan menggunakan region. Fungsi HRGN atau region dapat memodifikasi bentuk form menjadi model roundrect, rectangular, elliptical, polygonal dan sejenisnya berikut kombinasi bentuk-bentuk dasar tersebut (combinergn).
Setelah lama bergelut dengan region, saya menemui kendala yaitu akan cukup sulit menggunakan
region bila bentuk form yang akan kita buat tidak sama dengan bentuk dasar ataupun kombinasi dari region. Selain itu waktu yang dibutuhkan juga cukup lama. Lalu saya memutuskan untuk mencari komponen yang dapat merubah form standar. Setelah mencari kemana-mana akhirnya saya menemukan komponen dxfShapedForm, bagian dari ExpressForumLibrary(tm) Componen Suite yang dikembangkan oleh Developer Express Inc. Jika anda membeli paket original Delphi maka anda akan menemukan komponen ini pada cd Delphi Companion Tools.
Melihat contoh yang disertakan saya langsung tercengang. Ternyata membuat form yang cantik dapat
dilakukan dengan mudah dan cepat. Kita tinggal menempatkan komponen pada form, meload gambar, mengaktifkan komponen dan form cantik dapat segera digunakan. Akhirnya saya berfikir lagi bagaimana kalau digunakan komponen standar Delphi saja agar program menjadi lebih ringan. Dari Lisensi Dokumen:
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak
menghapus atau merubah atribut penulis dan pernyataan copyright yang disertakan
dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang, kecuali
mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Oke, langsung saja kita mulai step by step membuat form cantik ini:
1. Buka Delphi anda dan buatlah projek baru (standar EXE). Langkah ini dapat diakses melalui
File > New > Application
2. Tambahkan komponen image pada form. Komponen ini terletak pada tab Additional.
Gambar yang akan anda tambahkan ini nantinya akan menjadi background sekaligus bentuk
dari form. Agar gambar bisa transparan pada form, anda dapat membuat gambar dengan
format .gif transparan atau .bmp dengan warna background khusus (background harus
berwarna #FF00FF)
3. Klik ganda pada komponen image sehingga akan membuka kotak dialog seperti ditunjukkan
pada gambar
Gambar 1. Load gambar
Klik tombol Load untuk mengambil gambar
4. Sesudah gambar diload, klik sekali lagi komponen image untuk mengaktifkannya. Pada
properties di object inspector untuk komponen image, ubah nilai Transparent ke true.
Langkah ini mengakibatkan gambar menjadi transparan. Jika gambar anda tidak menjadi
transparan, berarti gambar yang anda gunakan masih salah. Perbaiki dulu gambar anda baru ikuti langkah selanjutnya
5. Klik nama form di Object Tree View untuk mengaktifkan form. Pada Properties di Object Inspector untuk komponen form ini ubah nilai BorderStyle menjadi bsNone. Coba run projek anda dengan menekan F9. Tampak bahwa form tidak memiliki border, namun form asli masih tampak, hal ini terlihat dari adanya background dibelakang image.
6. Hal yang akan kita lakukan adalah membuat transparan background dari form. Dalam
mentransparankan background form ini terdapat tiga nilai dari properties yang harus kita ubah yaitu Color, TransparentColor, TransparentColorValue. Ubah nilai Color dan
TransparentColorValue dengan nilai yang sama misal clBlack. Set nilai TransparentColor dengan true. Hasilnya ditunjukkan pada gambar dibawah
Gambar 2. Form transparan pada saat dirun Tampak bahwa background pada form menjadi transparan sehingga bentuk daripada form selalu mengikuti bentuk gambar yang kita buat. Namun, apakah pekerjaan kita sudah selesai? Ternyata belum karena form tersebut tidak dapat didrag seperti form pada umumnya.
Pada langkah ke 7 kita akan mengatasi hal ini
7. Agar form yang kita buat dapat didrag tambahkan potongan kode berikut:
procedure WMNCHitTest(var msg : TWMNCHitTest);message
WM_NCHitTest;
Letakkan definisi prosedur diatas pada bagian type, dapat juga diletakkan pada bagian
deklarasi private atau deklarasi public tergantung dari kebutuhan. Jika anda ingin
menggunakan prosedur tersebut pada unit lain maka letakkan pada deklarasi public, pun
sebaliknya.
Pada bagian implementasi tambahkan kode berikut:
procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest);
begin
inherited;
if (msg.Result = htClient) then
if Msg.YPos < Top + 40 then
msg.Result := htCaption;
end;
Ada 2 hal yang harus anda perhatikan ketika menambahkan kode diatas. Hal tersebut
ditunjukkan dengan teks warna merah. Form1 menunjukkan nama form. Jika nama form
anda misalnya frmPetunjuk maka ubah Form1 menjadi frmPetunjuk. Kedua yaitu nilai
40. Nilai ini menunjukkan jarak dari form bagian atas yang dapat didrag. Semakin besar
nilai ini maka bagian dari form yang dapat didrag semakin besar
Form diatas adalah form modifikasi sehingga anda harus menambahkan beberapa even dan
komponen yang pada umumnya sudah terdapat pada form biasa semisal close, maximize, minimize
dan sebagainya. Anda dapat juga menambahkan komponen semisal button untuk menjalankan
even-even tersebut.
Gambar 3. Form yang ditambah komponen lain
Sebenarnya anda dapat juga menggunakan skin untuk membuat form cantik ini. Namun saya tidak
menyarankan penggunaan skin ini. Selain program menjadi berat diakibatkan oleh penggunaan komponen tambahan bisa itu berupa librari atau ocx (ActiveX), kompabilitas dengan komponen standar Delphi juga menjadi kendala. Bukankah lebih baik memodifikasi sesuatu yang standar daripada harus menggunakan suatu fitur embeded !?
Sekian dulu trik dari saya semoga bermanfaat bagi anda semua. Komentar, saran dan pertanyaan mengenai trik ini harap dikirimkan ke admin@ahmadimron.com.
This article is dedicated to my loving and supportive friend Amberdawn.
Kuliah Berseri IlmuKomputer.Com
Copyright © 2004 IlmuKomputer.Com
Tiips Membuat Messages Board
Tiips Membuat Messages Board
dengan PHP dan MySQL
Stieven R. Kalengkian
stieven@kawanuanetworks.com
http://www.php.wox.org
Messages board dalam website dewasa ini sudah mulai ngetrend untuk itu saya mencoba membagi beberapa tips dan
trik untuk membuatnya dengan fitur emoticons (smiles).
Sudah tentu jika ada ingin mencoba tips dan trik ini harus sudah mengusai dasar-dasar HTML, JavaScript, PHP dan MySQL. Namun saya berusaha untuk memberikan kemudahan untuk mereka yang baru pertama kali atau baru belajar dengan PHP dan MySQL ini.
Oke! Mari kita mulai…
Langkah pertama… siapkan MySQL server anda Nah.. sekarang anda bingung tentang MySQL server… ya ya… saya tahu itu, sebab anda mungkin baru pertama kali mendengarnya hmmm… tak usah kawatir saya akan mencoba menyajikan sesederhana mungkin agar dapat dimengerti dan dipahami. Selanjutnya tentang mysql server dapat dilihat di www.mysql.com dan untuk mendownload mysql dapat di download lewat http://www.mysql.com/downloads/index.html
Setelah MySQL server disiapkan langkah berikut adalah kita menyiapkan database dan table yang akan digunakan untuk menyimpan data messages board. Gunakan mysql client untuk membuat database dan table. Dan biasanya dalam pake mysql server sudah terdapat mysql clientnya, tapi anda juga dapat menggunakan mysql client dengan dukungan GUI sepert MySQLFront yang dapat di download di http://mysqlfront.venturemedia.de/
Jika anda menggunakan mysql client standard (console) berikut langkah-langkahnya :
root: mysql –h localhost –u root –ppassword
Berikut penjelasannya untuk tulisan yang bercetak tebal :
Localhost, adalah alamat host dari MySQL server
Root, adalah user untuk akses ke MySQL server
Password, adalah password untuk akses ke MySQL server
Dan jika anda berhasil mengakses ke MySQL server maka akan muncul pesan seperti :
Welcome to the MySQL monitor. Commands end with ; or Welcome to the MySQL monitor.
Commands end with ; or \g.
Your MySQL connection id is 35901 to server version: 4.0.12-standard-log
Type 'help;' or '\h' for help. Type '\c' to clear the buffer.
mysql>
Lisensi Dokumen:
Copyright © 2003 IlmuKomputer.Com
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat
tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang
disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang,
kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Setelah anda berhasil mengakses kedalam MySQL server buatlah satu database, caranya
mysql> CREATE DATABASE namadatabase
Atau jika sudah memiliki database dan anda ingin menggunakan database tersebut untuk menyimpan datanya :
mysql > use namadatabase
Selanjutnya buatlah satu table untuk menyimpan data messages board
CREATE TABLE sms (
id bigint(5) unsigned NOT NULL auto_increment,
sms_from varchar(60) default NULL,
sms_msg varchar(255) default NULL,
sms_date varchar(30) default NULL,
sms_email varchar(60) default NULL,
host enum('minahasa','knet') default NULL,
PRIMARY KEY (id)
) TYPE=MyISAM;
Setelah database disiapkan sekarang kita akan beralih ke PHP scriptnya. Disini kita akan membuat 4 file php
1. config.php (untuk mengatur semua config terutama untuk koneksi ke database server MySQL)
2. tampilan.php (tampilan utama dari messages board)
3. smile.php (untuk menampilkan emoticons/smiles)
4. sms.php (untuk menampilkan hasil/data messages board)
config.php
//host dari mysql server
$sqlhost="localhost";
//user dari mysql server
$sqluser="root";
//password dari mysql server
$sqlpasswd="";
//database dimana data messages board di simpan
$sqldb="namadatabase";
$conn=mysql_connect("$sqlhost","$sqluser","$sqlpasswd") or die("align=center>CAN NOT CONNECT TO MYSQL SERVER");
mysql_query("use $sqldb");
extract($_SERVER,"EXTR_PREFIX_SAME");
extract($HTTP_ENV_VARS,"EXTR_PREFIX_SAME");
extract($HTTP_GET_VARS,"EXTR_PREFIX_SAME");
extract($HTTP_POST_VARS,"EXTR_PREFIX_SAME");
?>
File : Tampilan.php
Messages boar by ipen
cellspacing="0">
style="background:#FAE852;border-bottom:1px solid
#FCF29A;border-top:1px solid #FCF29A" align="center" cellpadding="1"
cellspacing="1">
Messages Board
align="center" cellpadding="3" cellspacing="1">
name="ifr" scrolling="auto" marginwidth="0" src="sms.php">
target="ifr">
Nama
Pesan
(smilies)
File : smile.php
messages board Smilies - ipen
align="center">
Replacement
File : sms.php
messages board by ipen
alink="#000000" leftmargin="0" topmargin="0" marginwidth="0"
dengan PHP dan MySQL
Stieven R. Kalengkian
stieven@kawanuanetworks.com
http://www.php.wox.org
Messages board dalam website dewasa ini sudah mulai ngetrend untuk itu saya mencoba membagi beberapa tips dan
trik untuk membuatnya dengan fitur emoticons (smiles).
Sudah tentu jika ada ingin mencoba tips dan trik ini harus sudah mengusai dasar-dasar HTML, JavaScript, PHP dan MySQL. Namun saya berusaha untuk memberikan kemudahan untuk mereka yang baru pertama kali atau baru belajar dengan PHP dan MySQL ini.
Oke! Mari kita mulai…
Langkah pertama… siapkan MySQL server anda Nah.. sekarang anda bingung tentang MySQL server… ya ya… saya tahu itu, sebab anda mungkin baru pertama kali mendengarnya hmmm… tak usah kawatir saya akan mencoba menyajikan sesederhana mungkin agar dapat dimengerti dan dipahami. Selanjutnya tentang mysql server dapat dilihat di www.mysql.com dan untuk mendownload mysql dapat di download lewat http://www.mysql.com/downloads/index.html
Setelah MySQL server disiapkan langkah berikut adalah kita menyiapkan database dan table yang akan digunakan untuk menyimpan data messages board. Gunakan mysql client untuk membuat database dan table. Dan biasanya dalam pake mysql server sudah terdapat mysql clientnya, tapi anda juga dapat menggunakan mysql client dengan dukungan GUI sepert MySQLFront yang dapat di download di http://mysqlfront.venturemedia.de/
Jika anda menggunakan mysql client standard (console) berikut langkah-langkahnya :
root: mysql –h localhost –u root –ppassword
Berikut penjelasannya untuk tulisan yang bercetak tebal :
Localhost, adalah alamat host dari MySQL server
Root, adalah user untuk akses ke MySQL server
Password, adalah password untuk akses ke MySQL server
Dan jika anda berhasil mengakses ke MySQL server maka akan muncul pesan seperti :
Welcome to the MySQL monitor. Commands end with ; or Welcome to the MySQL monitor.
Commands end with ; or \g.
Your MySQL connection id is 35901 to server version: 4.0.12-standard-log
Type 'help;' or '\h' for help. Type '\c' to clear the buffer.
mysql>
Lisensi Dokumen:
Copyright © 2003 IlmuKomputer.Com
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat
tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang
disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang,
kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Setelah anda berhasil mengakses kedalam MySQL server buatlah satu database, caranya
mysql> CREATE DATABASE namadatabase
Atau jika sudah memiliki database dan anda ingin menggunakan database tersebut untuk menyimpan datanya :
mysql > use namadatabase
Selanjutnya buatlah satu table untuk menyimpan data messages board
CREATE TABLE sms (
id bigint(5) unsigned NOT NULL auto_increment,
sms_from varchar(60) default NULL,
sms_msg varchar(255) default NULL,
sms_date varchar(30) default NULL,
sms_email varchar(60) default NULL,
host enum('minahasa','knet') default NULL,
PRIMARY KEY (id)
) TYPE=MyISAM;
Setelah database disiapkan sekarang kita akan beralih ke PHP scriptnya. Disini kita akan membuat 4 file php
1. config.php (untuk mengatur semua config terutama untuk koneksi ke database server MySQL)
2. tampilan.php (tampilan utama dari messages board)
3. smile.php (untuk menampilkan emoticons/smiles)
4. sms.php (untuk menampilkan hasil/data messages board)
config.php
//host dari mysql server
$sqlhost="localhost";
//user dari mysql server
$sqluser="root";
//password dari mysql server
$sqlpasswd="";
//database dimana data messages board di simpan
$sqldb="namadatabase";
$conn=mysql_connect("$sqlhost","$sqluser","$sqlpasswd") or die("align=center>CAN NOT CONNECT TO MYSQL SERVER");
mysql_query("use $sqldb");
extract($_SERVER,"EXTR_PREFIX_SAME");
extract($HTTP_ENV_VARS,"EXTR_PREFIX_SAME");
extract($HTTP_GET_VARS,"EXTR_PREFIX_SAME");
extract($HTTP_POST_VARS,"EXTR_PREFIX_SAME");
?>
File : Tampilan.php
#FCF29A;border-top:1px solid #FCF29A" align="center" cellpadding="1"
cellspacing="1">
Nama
Pesan
(smilies)
style="background:#FFD800;color:#000000" value="SEND">
style="background:#FFD800;color:#000000" value="CLEAR">
File : smile.php
Replacement
File : sms.php
marginheight="0">
include("config.php");
function smiles($msgsmiles) {
global $smsmsg;
$msgsmiles=str_replace(":)","
$msgsmiles=str_replace(":com:","
$msgsmiles=str_replace(":kiss:","
$msgsmiles=str_replace(":fight:","
$msgsmiles=str_replace(":(","
$msgsmiles=str_replace(":o","
$msgsmiles=str_replace(":D","
$msgsmiles=str_replace(";)","
$msgsmiles=str_replace(":p","
$msgsmiles=str_replace(":artist:","
$msgsmiles=str_replace(":bowling:","
$msgsmiles=str_replace(":mad:","
$msgsmiles=str_replace(":dizzy:","
$msgsmiles=str_replace(":nono:","
$msgsmiles=str_replace(":eyepatch:","
$msgsmiles=str_replace(":sick:","
$msgsmiles=str_replace(":cry:","
$msgsmiles=str_replace(":uhh:","
$msgsmiles=str_replace(":wacko:","
$msgsmiles=str_replace(":yinyang:","
$msgsmiles=str_replace(":frog:","
$smsmsg=$msgsmiles;
}
if ($sendsms) {
$smsdate=date("d Y F H:i");
if (($smspesan) and ($smsnama)) {
$smsnama=strip_tags($smsnama);
$smspesan=strip_tags($smspesan);
$getSMS=mysql_query("select * from ". $prefix ."sms where host='minahasa' and
sms_msg='$smspesan'");
$SMSold=mysql_fetch_array($getSMS);
if (!$SMSold[sms_msg]) {
mysql_query("insert into ". $prefix ."sms
(sms_from,sms_date,sms_msg,host) values
('$smsnama','$smsdate','$smspesan','minahasa')
");
}
}
}
$getSMS=mysql_query("select * from ". $prefix ."sms where host='minahasa' order
by id desc limit 0,50");
while ($sms=mysql_fetch_array($getSMS)) {
unset($smsfrom);
unset($smsmsg);
unset($smspesanexp);
$smsnamaexp=explode(" ",$sms[sms_from]);
$smspesanexp=explode(" ",$sms[sms_msg]);
for ($in=0;$in<=count($smsnamaexp);$in++) {
if (strlen($smsnamaexp[$in]) > 15) {
$smsnamaexp[$in]=substr($smsnamaexp[$in],0,15). "
" .substr($smsnamaexp[$in],16,strlen($smsnamaexp[$in]));
}
$smsfrom .=" " .$smsnamaexp[$in];
}
for ($ip=0;$ip<=count($smspesanexp);$ip++) {
if (strlen($smspesanexp[$ip]) > 15) {
$smspesanexp[$ip]=substr($smspesanexp[$ip],0,15). "
" .substr($smspesanexp[$ip],16,strlen($smspesanexp[$ip]));
}
$smsmsg.=" " .$smspesanexp[$ip];
}
$smsmsg=str_replace("..","., ",$smsmsg);
smiles($smsmsg);
echo "
|
$smsfrom $smsmsg |
";
}
?>
wow!!! Rumit juga rupanya ☺ untuk download source lengkapnya beserta file emoticonsnya silahkan
download di www.php.wox.org/ipen_v2/tutor/php/php_msgboard.zip
jika ada kesulitan bisa hubungi di http://www.php.wox.org atau email: stieven@kawanuanetworks.com
Contohnya dapat di lihat di http://php.wox.org/ipen_v2/sample/sms/
Selamat mencoba!
Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
Subscribe to:
Posts (Atom)