Latihan Persiapan UTS

1. Buat Proses Bersih,Aktif Dan Tidak Aktif, saat kita mengaktifkan Form Semua Textbox,combobox,dan optionbotton tidak aktif. Dan setelah kita klik input semua Textbox,combobox,dan optionbotton aktif.
2. Jaminan : *1. Jika ASKES maka tarif kamar Rp 50.000, tarif  Dokter Rp.100.000, Tarif Obat RP.80.000, admidtrasi Rp. 50.000.  *2. Jika JAMKESNAS maka tarif kamar Rp 50.000, tarif  Dokter Rp.85.000, Tarif Obat RP.50.000, admidtrasi Rp. 50.000.  *3. Jika UMUM, maka tarif kamar Rp 70.000, tarif  Dokter Rp.150.000, Tarif Obat RP.80.000, admidtrasi Rp. 50.000  * 4. Jika JAMSOSTEK maka tarif kamar Rp 40.000, tarif  Dokter Rp.90.000, Tarif Obat RP.55.000, admidtrasi Rp. 50.000
3. Harga Perawatan  : Jika kita Klik *VIP maka (Tarif kamar+20.000),(Tarif Dokter+50.000),(Tarif Obat+30.000),dan (Tarif adminidtrasi+30.000)  *Kelas 1 maka (Tarif kamar+15.000),(Tarif Dokter+40.000),(Tarif Obat+20.000),dan (Tarif adminidtrasi+20.000)  *Kelas 3 maka (Tarif kamar+20.000),(Tarif Dokter+35.000),(Tarif Obat+10.000),dan (Tarif adminidtrasi+10.000)  *Kelas 3 maka (Tarif kamar+10.000),(Tarif Dokter+30.000),(Tarif Obat+10.000),dan (Tarif adminidtrasi+10.000).
4. Total Bayar : Setelah Kita input lama inap Dan di ENTER  ketentuannya untuk total bayar adalah (Tarif kamar+Tarif Dokter+Tarif Obat+Tarif Adminidtrasi)*Lama Inap

Lihat Penuh >>>                                                                                 <<< Kembali

Listing Program :

Private Sub Cmdinput_Click()
Me.txtkode.Text = ""
Me.txtnama.Text = ""
Me.txtalamat.Text = ""
Me.cbojam.Text = "Silahkan Pilih"
Me.txtkamar.Text = ""
Me.txtdokter.Text = ""
Me.txtobat.Text = ""
Me.txtadm.Text = ""
Me.optk1.Value = False
Me.optk2.Value = False
Me.optk3.Value = False
Me.optvip.Value = False
Me.txtkode.SetFocus
End Sub

Private Sub Form_Activate()
Me.txtkode.SetFocus
End Sub

Private Sub Form_Load()
Me.cbojam.AddItem "ASKES"
Me.cbojam.AddItem "JAMSOSTEK"
Me.cbojam.AddItem "JAMKESNAS"
Me.cbojam.AddItem "UMUM"
End Sub

Private Sub optk1_Click()
If Me.cbojam.Text = "ASKES" And Me.optk1 Then
Me.txtkamar.Text = 325000
Me.txtdokter.Text = 150000
Me.txtobat.Text = 80000
Me.txtadm.Text = 35000
Else
If Me.cbojam.Text = "JAMSOSTEK" And Me.optk1 Then
Me.txtkamar.Text = 325000
Me.txtdokter.Text = 170000
Me.txtobat.Text = 85000
Me.txtadm.Text = 35000
Else
If Me.cbojam.Text = "JAMKESNAS" And Me.optk1 Then
Me.txtkamar.Text = 300000
Me.txtdokter.Text = 140000
Me.txtobat.Text = 75000
Me.txtadm.Text = 30000
Else
Me.txtkamar.Text = 335000
Me.txtdokter.Text = 170000
Me.txtobat.Text = 100000
Me.txtadm.Text = 50000
End If
End If
End If
End Sub

Private Sub optk2_Click()
If Me.cbojam.Text = "ASKES" And Me.optk2 Then
Me.txtkamar.Text = 300000
Me.txtdokter.Text = 125000
Me.txtobat.Text = 70000
Me.txtadm.Text = 20000
Else
If Me.cbojam.Text = "JAMSOSTEK" And Me.optk2 Then
Me.txtkamar.Text = 300000
Me.txtdokter.Text = 150000
Me.txtobat.Text = 70000
Me.txtadm.Text = 25000
Else
If Me.cbojam.Text = "JAMKESNAS" And Me.optk2 Then
Me.txtkamar.Text = 300000
Me.txtdokter.Text = 115000
Me.txtobat.Text = 60000
Me.txtadm.Text = 15000
Else
Me.txtkamar.Text = 285000
Me.txtdokter.Text = 150000
Me.txtobat.Text = 85000
Me.txtadm.Text = 35000
End If
End If
End If
End Sub

Private Sub optk3_Click()
If Me.cbojam.Text = "ASKES" And Me.optk3 Then
Me.txtkamar.Text = 250000
Me.txtdokter.Text = 85000
Me.txtobat.Text = 35000
Me.txtadm.Text = 10000
Else
If Me.cbojam.Text = "JAMSOSTEK" And Me.optk3 Then
Me.txtkamar.Text = 250000
Me.txtdokter.Text = 85000
Me.txtobat.Text = 40000
Me.txtadm.Text = 10000
Else
If Me.cbojam.Text = "JAMKESNAS" And Me.optk3 Then
Me.txtkamar.Text = 200000
Me.txtdokter.Text = 75000
Me.txtobat.Text = 20000
Me.txtadm.Text = 0
Else
Me.txtkamar.Text = 250000
Me.txtdokter.Text = 125000
Me.txtobat.Text = 50000
Me.txtadm.Text = 25000
End If
End If
End If
End Sub

Private Sub optvip_Click()
If Me.cbojam = "ASKES" Then
Me.txtkamar.Text = 350000
Me.txtdokter.Text = 175000
Me.txtobat.Text = 98000
Me.txtadm.Text = 50000
Else
If Me.cbojam.Text = "JAMSOSTEK" Then
Me.txtkamar.Text = 350000
Me.txtdokter.Text = 180000
Me.txtobat.Text = 100000
Me.txtadm.Text = 50000
Else
If Me.cbojam.Text = "JAMKESNAS" Then
Me.txtkamar.Text = 350000
Me.txtdokter.Text = 159000
Me.txtobat.Text = 90000
Me.txtadm.Text = 50000
Else
Me.txtkamar.Text = 375000
Me.txtdokter.Text = 200000
Me.txtobat.Text = 115000
Me.txtadm.Text = 55000
End If
End If
End If
Me.optk1.Enabled = False
Me.optk2.Enabled = False
Me.optk3.Enabled = False
End Sub

<<< Kembali