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
0 comments:
Posting Komentar