Sabtu, 15 Januari 2011

1.Buatlah sebuah Project dengan Nama = KreditMotor
2. Buat Database = DBKredit



5.Buat FormMotor


Ketentuan :

1. Saat Form dijalankan semua textbox dan Option Button Dalam Keadaan Nonaktif.
2. Buat prosedur aktif, bersih dan nonaktif
3. Di klik Tambah maka form aktif , dan bersih
4. Ketika notrans di Input dan ditekan Enter,jika notrans sudah ada maka ada pesan "Nomor Transaksi Sudah Ada"
5. Kode motor di input dan di tekan enter untuk mencari merk dan harga dari tabel motor maka merk dan harga akan muncul
6. Jumlah Angsuran di pilih maka Bunga dan total harga muncul
Jika jumlah angsur=12 maka
Bunga=10% dari harga
Total bayar=harga+bunga

Jika jumlah angsur=24 maka
Bunga=15% dari harga
Total bayar=harga+bunga

7. Uang Muka di input dan ditekan enter maka sisa bayar muncul
Sisa bayar=total bayar-uang muka

8. Tombol Simpan untuk menyimpan ke tabel transaksi
9. Tombol Batal untuk membuat form nonaktif dan bersih
10. Di Klik EXIT untuk keluar

Berikut ini Hasilnya :



“” Selamat Mengerjakan “”
BY : MR. Specta

Download Here

Buatlah Project : Quiz_A
Buatlah Database : DBHotel

Buatlah Tabel :


Buatlah Form : FRMHOTEL



KETENTUAN SOAL!!

1. Saat dijalankan Semua Objek TextBox pada Form Tidak Aktif
2. Klik Input , maka semua Objek TextBox Aktif dan Tgl Cek In tampil otomatis dan form dalam keadaan bersih.
3. No Reservasi di input manual.
4. Jenis Kamar, Harga tampil dari Tabel Kamar saat Tipe di input
5. Input Tgl Out, maka tampil:
Lama = ( Tgl Out + 1 ) – Tgl In
Total = Harga * Lama
6. Klik Save , maka data tersimpan di Tabel Reservasi
7. Klik Delete , maka data terhapus di Tabel Reservasi
8. Klik Browse , untuk menampilkan data dari Tabel Reservasi
9. Klik Close , maka menutup program


--- If u’r believe u’r self, Imposible is nothing ---

BY : AIY

DOWNLOAD HERE

Selasa, 11 Januari 2011

Di Bawah ini Contoh kasus Delphi untuk menghitung selisih tanggal..



Ketentuan Soal
Ketentuan:
1. Koneksikan 2 buah table ke tabelnya masing masing


2.Buat procedure aktif, nonaktif, kondisiawal, dan bersih
3.Saat form dijalankan semua objek kecuali CTambah tidak aktif
Form dalam kondisi awal : bersih nonaktif,ctambah.caption=&Tambah
4.di klik tambah form aktif dan nomor transaksi muncul otomatis berdasarkan jumlah data terakhir+1
5.Tipe di input dan di enter maka Jenis Kamar dan Harga tampil. Data diambil dari tabel kamar
6.Di isi tagl Cek in dan Tanggal Cek Out. Pada saat input tgl cek out dan ditekan enter maka lama dan total akan muncul
7.tombol simpan untuk menyimpan
8.Tombol Keluar Untuk mengakhiri Form


Hasilnya sbb:



*Penting
Setelah download dan di buka projectnya. Harap membuat alias manager lagi, dan sesuaikan dengan tempat penyimpanan anda..
Download disini
Mohon beri komentar untuk memeperbaiki di waktu yang akan datang

--------------------------------Semoga Bermanfaat----------------------------------

Sabtu, 08 Januari 2011

Dibawah ini Saya telah membuat form Delphi.. di dalamnya lumayan lengkap codingnya...
di form ini ada cara pencarian ke tabel melalui editbox dan combobox
ada cara membuat nomor secara berurutan
dan ada pula cara menggunakan radio button dan checkBox..

4. Buatlah Form sbb:



Ketentuan:
1. Koneksikan 3 buah table ke tabelnya masing masing
Objek Name Database name/ alias Table name Datasource
Table1 Bus Tiket_delphi Bus -
Table2 Pemesan Tiket_delphi Pemesan -
Table3 Transaksi Tiket_delphi Transaksi -
Datasource Datasoucre1 - - transaksi
Grid1 Dataset=datasource1

2.Buat procedure aktif, nonaktif, kondisiawal, dan bersih
3.Saat form dijalankan semua objek kecuali CTambah tidak aktif
Form dalam kondisi awal : bersih nonaktif,ctambah.caption=&Tambah

4.di klik tambah form aktif dan nomor transaksi muncul otomatis berdasarkan jumlah data terakhir+1

5.kode pemesan di input dan di enter maka nama dan status pemesan tampil. Data diambil dari tabel pemesan

6.combo1 disi dengan kode bus dari tabel bus

7. Saat combo1 di pilih dan di klik nama bus dan jurusan akan muncul


9. pilih Biaya Tambahan
Jika bagasi=Rp.25.000
Jika Makan=Rp.50.000
Jika kedua-duanya=Rp.75.000

10. di input jumlah beli dan ditekan enter maka muncul subtotal,potongan,Jumlah bayar
Subtotal=harga*jumbel
Potongan jika member potongan=10% dari subtotal
Umum tidak dapat potongan
Jumlah bayar=(subtotal+Biaya Tambahan)-Potongan

11. Urutan pengerjaan
Klik tambah=> Input kode pemesan=>pilih kode Bus=>pilih jenis bus=>pilih biaya tambahan=>input Jumlah beli=>Simpan



Hasilnya sbb:




DOWNLOAD DI BAWAH INI

LATIHAN DELPHI PRA UAS


**PENTING

file download berupa file .Rar extract di path C.
di dalamnya terdapat form.coding,beserta tabel-tabelnya..
anda tinggal buat alias managernya lagi..sesuaikan dengan tempat penyimpanan tabelnya
--------------Trima Kasih---------------------

Selasa, 04 Januari 2011

Didalam Form ini terdapat cara pencarian data ke tabel melalui editbox dan combobox..

Silahkan Download Disin
i

Senin, 03 Januari 2011

Bilamana ingin melihat Materi untuk hari kamis..
Silahkan Download pada teks berkedip dibawah ini

Visual Foxpro materi 6-8 Januari 2011

Minggu, 02 Januari 2011

Kali ini saya mencoba membuat sebuah aplikasi ramalan cinta, seperti yang ada di tipi-tipi, cuma bedanya tidak menggunakan REG [spasi] MBAH KHARIS kirim ke 9877, hehehehehehe

program ini menggunakan Visual Foxpro 9.0, oke langsung aja ke TKP
Cekidot!
Silahkan Download : REG MBAH KHARIS

Popular Posts
  • MENGHITUNG SELISIH TANGGAL DI DELPHI 7
  • Contoh Array + Fungsi
  • Menghitung Nlai akhir Mahasiswa menggunakan scanf dan printf
  • Modul C++
  • Latihan C++
  • Materi & Tugas Delphi Pert.7
  • Lesson 5th : "Session About How to Make Inner Join In 3 tables"
  • Tugas Pertemuan 7-8
  • Materi Delphi Semester 6 penyewaan
  • Nested if