Skip to main content

Posts

Showing posts from January, 2010

Pemrograman Grafik dengan Delphi

Beberapa hal dasar yang perlu diketahui terkait pemrograman grafik, di antaranya adalah : a. Kanvas b. Piksel c. Koordinat kanvas dapat dibayangkan seperti satu lembar kertas atau kain, yang pada lembaran tersebut kita dapat menggambar. Pada form kanvas di implementasikan melalui properti yang disebut Canvas . kanvas tersusun atas sejumlah piksel. Piksel adalah elemen terkecil pada kanvas yang dapat dimanipulasi. Setiap piksel mempunyai koordinat, yang dinyatakan dengan X,Y. "X" merupakan kolom, sedangkan "Y" merupakan baris. Dengan demikian piksel pojok kiri atas memiliki koordinat (0,0) sedangkan pojok kanan bawah memiliki koordinat berupa(client width, client height). Canvas memiliki property bernama Pen, atribut ini berguna untuk pengaturan color, style, width dll. Untuk property style pada pen terdapat beberapa macam bentuk garis yang dihasilkan, antaranya dengan perintah: pssolid,psdash,psdot,psdashdot,psdashdotdot. Canvas juga menyediakan propert...

Membuat Traffic Lamp (lampu lalulintas) dengan Delphi

Langsung saja tidak usah basa-basi. 1. Pertama-tama kita buka dulu delphi yang sudah terinstall di komputer atau laptop anda. 2. Setelah itu Klik tab Properties pada Object Inspetor. Ubah Caption "Form1" menjadi "Fauzan Traffic Lamp". Terus pada color "clBtnFace" ubah menjadi "clAqua". 3. Klik dua kali pada form1 lalu isikan listing program berikut : procedure TForm1.FormCreate(Sender: TObject); begin shape2.Brush.Color:=clred; label1.Font.Color:=clred; label1.Caption :='10'; label2.Caption:='Stop!!!'; label2.font.color:= clred; end; 4. Pada menu bar additional klik "shape" (gambar segitiga,linkaran,persegi). Tambahkan tujuh buah "shape" pada form1 dan atur sesuai gambar dibawah ini : 5. Untuk mengganti warna pada "shape" tersebut, klik sekali "shape" yang ingin di ubah warnanya, setelah itu pada object inspector, klik tanda "+" pada "brush" sehingga d...

Membuat Audio Player Dengan Delphi

Awal ceritanya seh aku lagi nyari tugas membuat data base dengan delphi di mbah google,tepatnya seh setahun yang lalu dan tidak sengaja dapet tutorial buat Audio player dari mas "NurWahyu H". dan secara tidak sengaja juga, aku baca artikelnya.(baca artikel kok gak sengaja??????????) dari situlah aku mulai tertarik, dan langsung aku praktekkin (gak jadi ngerjain tugas tapi malah main-main,,, wkwkwkwkwk). Jika anda tertarik juga silahkan baca tutorial dibawah ini, atau download program yang sudah saya praktekin disini . langkah-langkahnya sebagai berikut : 1. Jalankan Borland Delphi. Kemudian klik File | New | VCL Form Application. 2. Klik tab Properties pada Object Inspetor. Ubah Caption “Form1” menjadi Wahyu Audio Player”. Lalu pindah ke tab Events, kilk ganda pada Event OnCreate sehingga tampil Code Editor dan ketikkan kode: procedure TForm1.FormCreate(Sender: TObject); var busur:HRGN; oke:HBRUSH; setengah:HDC; begin busur:=createellipticrgn(5,25,495,590); ...

Koneksi Database di Delphi 7 dengan ADO

1. Pertama-tama kita harus membuat database terlebih dahulu dengan menggunakan Ms.Acces,di bawah ini contoh database yang telah saya buat, isikan kolom dan baris pada Ms. Acces seperti gambar di bawah ini: pastikan databasenya seperti gambar dibawah ini : 2. Simpan access tersebut ke hardisk dan beri nama sesuai kehendak teman-teman. 3. Buka Delphi lalu Buat Form baru dan Siapkan : a. 5 buah label (Standar) b. 5 buah DBEdit (Data Control) c. ADOConection (ADO) d. ADOTable (ADO) e. DataSource (Data Access) f. DBNavigator (Data Control) g. 2 Buah Button (Standar) h. DBGrid (Data Control) Susunlah Komponen-komponen diatas sesuai dengan gambar di bawah ini,atau terserah temen-temen aja yang penting mudah di pahami. 4. Koneksikan ADOConection a. Klik dua kali komponen ADOConecction,lalu akan muncul tampilan seperti di bawah ini : b. Klik Build >> lalu muncul tampilan seperti di bawah ini : c. Klik Next >>Klik Tombol(...) untuk mengon...

Program Konversi Uang Dengan Delphi

Pertama-tama wajib mendownload delphi 7, cari aja di mbah google pasti ada banyak banget. Setelah download selesai, install di kompi atau laptop anda, kalau dah punya delphi 7 gak diwajibkan untuk download, siapkan aja ember,gayung dan air, cari dikamar mandi jangan di mbah google.. xixixxi bingung ya kok pake ember,gayung dan air???? yaiaylah orang aku boongin,,, ckckckck udah deh bercandanya sekarang serius.... Langkah pembuatan program : 1. Jalankan Delphi 7 2. Pada kotak objek inspector terdapat 2 baris dan banyak kolom. pada kolom color isi dengan warna kesukaan anda. Disini saya contohkan dengan warna "clAqua" 3. Pada kolom caption "Form1" ganti dengan "konversi uang" 4. Tambahkan label,edit,dan button pada form konversi uang, dengan mengeklik simbol "A","OK","AB|" pada bagian atas lalu klik kan ke form konversi uang. lihat gambar dibawah : 5. dan di atur letaknya seperti gambar dibawah ini: 6. Untuk me...

Program Konversi Uang dengan C++

Sebagai contoh disini ada program pada POM bensin, Cara kerja program ini adalah : User akan memasukkan nama terlebih dahulu, selanjutnya memilih 4 menu yang tampil setelah nama diisikan. diantaranya adalah : 1. Solar : Rp.4000.00 2. Premium : Rp.4500.00 3. Pertamax : Rp.5000.00 4. Keluar Selanjutnya user memasukkan uang yang di bayarkan,maka program akan memberitahukan pecahan uang yang dibayarkan secara detail. Nah..lihat dan pelajari contoh listing programnya dibawah ini : #include<iostream.h> #include<conio.h> #include<iomanip> int main() { int a, jumlah, rtsnrb, lmplhrb, splhrb, lmrb, serb, lmrts, srts, lmplh, sisa; float uang,liter; char kembali,nama[100]; do { clrscr(); cout<<endl; cout<<" ========================================"<<endl; cout<<" | SELAMAT DATANG DI POM BENSIN FAUYAN |"<<endl; cout<<" ========================================"<<endl; cout<<endl; cout<<"Nama ...

Operator Perbandingan C++

Contoh 1 : Di program ini jika anda menginputkan angka 6 maka akan berniai benar, dan jka anda memasukkan angka selain 6 maka bernilai salah. #include <conio.h> #include <iostream.h> int main () { int a; cout<<"Masukkan suatu bilangan = ";cin>>a; if (a==6) {cout<<"Benar";} // {} berfungsi sebagai "then" (jika terdapat lebih dari satu pernyataan) else cout<<"Salah"; getch(); } Contoh 2 : Di program contoh 2 ini jika anda menginputkan nilai lebih dari dan sama dengan (>=) 80 maka angka tersebut bernilai "A", jika 70 maka bernilai "B", 60 bernilai "C", dan 50 bernilai "D". #include <conio.h> #include <iostream.h> int main () { int a; cout<<"Masukkan nilai Mahasiswa = ";cin>>a; if (a>=80) {cout<<"nilai A";} else if (a>=70) {cout<<"nilai B";} else if (a>=60) {cout<<"nilai C";} else if...

Menghitung Bangun Datar Dan Ruang Dengan C++

1. Bangun datar Rumus Bujur Sangkar Bujur sangkar adalah bangun datar yang memiliki empat buah sisi sama panjang - Keliling : Panjang salah satu sisi dikali 4 (4S) (AB + BC + CD + DA) - Luas : Sisi dikali sisi (S x S) Rumus Persegi Panjang Persegi panjang adalah bangun datar mirip bujur sangkar namun dua sisi yang berhadapan lebih pendek atau lebih panjang dari dua sisi yang lain. Dua sisi yang panjang disebut panjang, sedangkan yang pendek disebut lebar. - Keliling : Panjang tambah lebar kali 2 ((p+l)x2) (AB + BC + CD + DA) - Luas : Panjang dikali lebar (pl) Rumus Segitiga - Keliling : Sisi pertama + sisi kedua + sisi ketiga (AB + BC + CA) - Luas : Panjang alas dikali pangjang tinggi dibagi dua (a x t / 2) Rumus Lingkaran - Keliling : diameter dikali phi (d x phi) atau phi dikali 2 jari-jari (phi x (r + r) - Luas : phi dikali jari-jari dikali jari-jari (phi x r x r) - phi = 22/7 = 3,14 Rumus Jajar Genjang atau Jajaran Genjang - Keliling : Penjumlahan dari keempat sisi yang ada (AB + B...

QUEUE ( ANTREAN ) dalam C++

1. PENGERTIAN QUEUE (ANTREAN) Queue adalah suatu bentuk khusus dari linear list, dengan operasi penyisipan (insertion) hanya diperbolehkan pada salah satu sisi, yang disebut sisi belakang (REAR), dan operasi penghapusan (deletion) hanya diperbolehkan pada sisi lainnya, yang disebut sisi depan (FRONT), dari list. Sebagai contoh dapat kita lihat antrean (Q1, Q2,...,QN). Kita notasikan bagian depan dari antrean Q sebagai FRONT(Q) dan bagian belakang sebagai REAR(Q). Jadi untuk antrean Q = [Q1, Q2, …, QN] : FRONT(Q) = Q1 dan REAR(Q) = QN Kita menggunakan notasi NOEL(Q) untuk menyatakan jumlah elemen di dalam antrean Q. NOEL(Q) mempunyai harga integer. Untuk antrean Q = [Q1,Q2,…, QN], maka NOEL(Q) = N. Operator penyisipan (insertion) disebut INSERT dan operator penghapusan (deletion) disebut REMOVE. 2. OPERASI DASAR PADA ANTREAN Ada 4 operasi dasar yang dapat dilakukan pada struktur data antrean, yakni : 1. CREATE (antrean) : CREATE(Q) adalah suatu operator untuk membentuk dan menunjukkan ...

Faktorial C++ Dengan Metode Iteratif

Salah satu cara untuk menghitung adalah dengan menggunakan loop, yang mengalikan masing-masing bilangan dengan hasil sebelumnya. Penyelesaian dengan cara ini dinamakan iteratif, yang mana secara umum dapat didefinisikan sebagai berikut: n! = (n)(n-1)(n-2) … (1) Contoh Program : #include <iostream.h> #include <conio.h> int faktorial (int n) { int i,fak; for(i=1;i<=n;i++) {fak=fak*i;} return(fak); } void main() { int faktor; cout<<"Masukkan beberapa faktorial = ";cin>>faktor; cout<<"maka hasilnya = "<<faktorial(faktor); getch(); }

Faktorial C++ Dengan Metode Rekursif

1. Pengertian -Rekursif merupakan alat/cara untuk memecahkan masalah dalam suatu fungsi atau procedure yang memanggil dirinya sendiri. -Prosesnya terjadi secara berulang-ulang -Yang perlu diperhatikan adalah “stopping role” 2. Kelebihan -Karena program lebih singkat dan ada beberapa kasus yang lebih mudah menggunakan fungsi yang rekursif 3. Kekurangan -Memakan memori yang lebih besar, karena setiap kali bagian dirinya dipanggil, dibutuhkan sejumlah ruang memori tambahan. -Mengorbankan efisiensi dan kecepatan 4. Problem yang sering dijumpai -Rekursi seringkali tidak bisa “berhenti” sehingga memori akan terpakai habis dan program bisa hang. 5. Penanggulangan -Jika memang bisa diselesaikan dengan iteratif, gunakanlah iteratif! 6. Contoh Permasalahan : Penghitungan bilangan faktorial 5! = 5 x 4 x 3 x 2 x 1 4! = 4 x 3 x 2 x 1 Berarti 5! = 5 x 4! 7. Penyelesaian dengan Metode Rekursif Cara pertama untuk menyelesaikan permasalahan di atas adalah dengan c...

Dapet Award dari Teman blog

Okelah langsung saja gak usah panjang lebar masalahnya besok aku ujian akhir semester, masuk pagi lagi,,paling males deh aku kuliah pagi. huft,,, ceritanya begini "di suatu malam hari dapat kabar dari teman kalau blog saya dapet award,terus coba aku cek,,, eh...ternyata bener. sesuai perintah pemberi award, saya harus memberi award kepada 10 teman blogs saya. Dan award ini saya berikan kepada : 1. Dhani Swastiko’s Official WeBlog 2. Belajar web 3. All About Algoritma 4. Robotic UTY 5. Smaradahana 6. Febri Satria 7. EdiLagi 8. Oonarea 9. Rois Hanafi 10. Fajar Firdaos Bagi siapa saja yang menerima award ini diharuskan untuk membagikan kembali award ini kepada sepuluh orang temannya. Dan selanjutnya si penerima award harus meletakkan link-link berikut ini di blog atau artikel kamu : Trik Gratisan Firmanthok Aldien Blog Coretanku Recycle Bin Female Brain nursenapza Top Secret Andryan Blog Bux Dhani Swastiko’s Official WeBlog Nih ini dia peraturan dalam menerima award ini… Kalo ga ...