Tuesday, March 27, 2012

Sistem informasi entri data rumah sakit


Sistem informasi entri data rumah sakit

okeh disini saya akan jelaskan sedikit latar belakang knapa membuat Sistem informasi entri data rumah sakit
saya membuat RUMKIT ini di karenakan di benak saya pngen mencoba membuat sebuah aplikasi yang sangat sederhana tapi bermafaat. menurut saya aplikasi ini bertujuan untuk kariawan rumah sakikt yang sedang entri data masih tergolong konvensional dan saya coba membuat secara lebih efektif lagi untuk kedepannya dan berikut beberapa menu dan tampilan awal aplikasinya....






tampilan awal aplikasi RUMKIT




Friday, March 9, 2012

membuat gaji kariyawan sederhana dengan visual basic 6.0


Membuat Gaji kryawan sederhana denga Visual Basic 6.0


okeh yang sebelumnya sudah ada pada artikel sebelumnya tentang pembuatan visual yang sederhana dan kali ini juga masih yang sederhana Karena saya juga masih tahap belajar .

yup langsung aja kita ke TKP,,,hehehehe,,,,

sediakan VB.6.0

dan sedikit kesabaran agan sekalian
Buka VB kesayangan agan
akan muncul tampilanya jreng jreng ,,


Langsung aj ambil yang standard exe.
Buat Interface seperti ini
Mudah lah ini hehhe


disini ane menjelaskan di pendidikan terakhir
pada point S1 = 500000 | S2 = 1000.000 | S3 = 1500.000  kenapa saya kasih nominalnya segitu karena aplikasi yang saya buat hanya sederha. Maksudnya adalah apabila di pilih S1 akan mendapat tambahan gaji dan apabila sudah menikah akan mendapatkan tambahan nominal dan belum menikah tidak mendapatkan. potkop adalah potongan koperasi berarti di kurang seluruh pendapatan dan di daptkan gaji bersih

misalkan gini ..
gaji pokok = 1000.000
Menikah  = 100.000
BELUM MENIKAH = 0
Potokop = 200.000
Tunjangan istri = 200.000
Tunjangan anak = 100000
1000.000 + 100.000 – 200.000 + 200.000 + 100.000  = 1200.000
begitulah kira kira ceritanya hehhe..

untuk membuat comboBox seperti ini muncul daftar nama daerahnya 

Ambil ComboBox




Lihat di properties kEtikan daftar nama kota yang agan buat.ada beberapa comboBox di gaji karyawan pembuatannya sama saja tinggal ikuti langkah seperti ini saja.







Double klik di Commenbotton di Proses ketikan koding berikut
Dim angka1 As Double
Dim angka2 As Double

Private Sub Command1_Click()
Label15.Caption = Text2.Text

angka1 = Text5.Text
angka2 = Text7.Text

If Option4.Value = True Then
hasil = 100000 + Text5.Text - Text7.Text + Text8.Text + Text9.Text
Else
If Option5.Value = True Then
hasil = 0 + Text5.Text - Text7.Text + Text8.Text + Text9.Text

End If
End If
Text4.Text = hasil
End Sub

DAN DOUBLE KLIIK DI EXIT.
Private Sub Command2_Click()
Unload Me
End Sub

DAN SEKARANG JALANKA N YANG SUDAH AGAN BUAT