Senin, Juni 21, 2010

deposit pulsa

Ayo kita belajar hemat....!!!

hello temen-temen dengan deposit pulsa, jadi lebih praktis dan hemat lho? kalau temen-temen pengen deposit pulsa silahkan hubungin aku di no. 085 740 645 272.
***
ni tidak dikenakan biaya pendaftaran, uang yang temen transfer langsung ntar jadi saldo pulsa temen-temen dan tidak ada batas kadaluarsanya. jadi tidak ada ruginya lho
buruan daftar.... aku tunggu ya temen-temen......
temen2 bisa lihat brosur di bawah ini, kalau kurang jelas brosurnya bisa aku kirim lwt email. dan tanyakan ke aku langsung kalau belum paham, okey..... bisa lewat email atau telepon


»»  read more

Kamis, Juni 17, 2010

Ms.Foxpro Dasar

PEMROGRAMAN DATABASE
Di Ms. Visual Foxpro

SOAL

Sebuah rumah sakit swasta di semarang membutuhkan suatu program untuk menginput data para pasien dan menampilkan data dokter, ruang dan biayanya. Diberikan data sebagai berikut :

LANGKAH MENGERJAKAN

1. Buka Microsoft visual foxpro

2. Klik file, new, new file

3. Muncul create simpan dengan folder pribadi

4. Muncul jendela “project manajer”

5. Klik tanda + di documents, klik forms, klik new, new form

6. Muncul jendela form designer

7. Klik kanan pilih properties untuk memunculkan table properties

8. Klik view, form controls tombol untuk memunculkan table form controls

9. Mulai mendesain di form designer

Ø Table properties membantu untuk mendesain tulisan

Ø Table form controls membantu untuk menulis

HASILNYA :

OPTIONGROUP :

Ø Klik kanan di kotak optiongroup pilih builder.

Ø Number of buttons : jumlah option yang ada

Ø Isikan caption sesuai jumlah option yang diinginkan

Ø ok

3.PROSES

DO CASE

CASE THISFORM.OPTIOngroup1.OPtion1.Value=1

THISFORM.OPTIOngroup2.OPtion1.Value=1

NAMADOKTER = "IRAWAN"

TARIPDOKTER = 50000

NAMAKAMAR = "MAWAR"

TARIPKAMAR = 25000

CASE THISFORM.OPTIOngroup1.OPtion2.Value=1

THISFORM.OPTIOngroup2.OPtion2.Value=1

NAMADOKTER = "GUNAWAN"

TARIPDOKTER = 75000

NAMAKAMAR = "MELATI"

TARIPKAMAR = 35000

CASE THISFORM.OPTIOngroup1.OPtion3.Value=1

THISFORM.OPTIOngroup2.OPtion3.Value=1

NAMADOKTER = "BUDIMAN"

TARIPDOKTER = 65000

NAMAKAMAR = "KANTIL"

TARIPKAMAR = 45000

CASE THISFORM.OPTIOngroup1.OPtion4.Value=1

THISFORM.OPTIOngroup2.OPtion4.Value=1

NAMADOKTER = "SUBANDAR"

TARIPDOKTER = 50000

NAMAKAMAR = "FLAMBOYAN"

TARIPKAMAR = 47500

CASE THISFORM.OPTIOngroup1.OPtion5.Value=1

THISFORM.OPTIOngroup2.OPtion5.Value=1

NAMADOKTER = "SOLIKIN"

TARIPDOKTER = 55000

NAMAKAMAR = "KAMBOJA"

TARIPKAMAR = 50000

ENDCASE

THISFORM.TExt3.Value=NAMADOKTER

THISFORM.TExt4.Value=TARIPDOKTER

THISFORM.TExt5.Value=NAMAKAMAR

THISFORM.TExt6.Value=TARIPKAMAR

THISFORM.TExt7.Value=TARIPDOKTER+TARIPKAMAR

»»  read more