UAS KONSEP PEMROGRAMAN TSI-B VOKASI UI

PENJELASAN PROGRAM APLIKASI

Cara Penggunaan Program Aplikasi Rawat Jalan :

1.)  Masuk ke Form 1 untuk mendaftar sebagai pasien baru (apabila sudah mendaftar sebelumnya silahkan langsung klik masuk)

2.) Nomor akan langsung secara otomatis terisi setelah anda masuk ke Form 1. Isikan Nama, Alamat, Tempat dan Tanggal Lahir dan No.HP anda secara benar. Jangan lupa Nomor, Nama dan Alamat Anda karena itu akan digunakan untuk login.

3.) Setelah semua terisi, klik Daftar. Selanjutnya Nama anda akan secara otomats tersimpan.

4.) Selanjutnya klik Masuk untuk menuju Menu Login.

5.) Setelah itu Anda akan masuk ke Form 2 yaitu Form Login.

6.) Isikan Nama, Nomor dan Alamat Anda, kemudian klik tombol Login. Pastikan data benar dan terisi semua. Karena kalau data salah dan tidak terisi secara lengkap Anda tidak bisa login.

7.) Setelah itu Anda akan masuk ke Form 3 yaitu form Data Pasien. Pastikan kembali data yang ada di  pojok kiri atas sesuai dengan data Anda.

8.) Selanjutnya di dalam Form terdapat 5 nama Dokter Spesialis dan 1 Dokter Umum. Ada Dokter Mata, THT, Penyakit Dalam, Kulit dan Kelamin, Gigi dan Umum.

9.) Pilih sesuai dengan penyakit Anda.

10.) Ketika Anda memilih salah satu Nama Dokter, kolom harga jasa Dokter dan Spesialis akan secara terotomatis terisi.

11.) Setelah itu pilih Obat yang akan Anda beli. Misal Anda memilih Dokter Spesialis mata, kemudian anda memilih Obat Mata minus. Harga obat tersebut akan secara otomatis keluar ketika Anda meng-klik Obat Mata Minus.

12.) Setelah itu, klik tombol Total. Maka semua akan terhitung secara otomatis dan keluar di kolom Total Bayar.

13.) ClassRawatJalan digunakan untuk method menghitung aplikasi ini. Class ini berhubungan dengan Form 3.

13.) Sekian penjelasan Program Aplikasi Rawat Jalan yang saya buat . Semoga bermanfaat J

·      
FORM 1

Berikut Source Codenya :

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ListView1.GridLines = True

        ListView1.View = View.Details

        ListView1.Columns.Add("No.")

        ListView1.Columns.Add("Nama", 150)

        ListView1.Columns.Add("Tempat", 100)

        ListView1.Columns.Add("Tanggal Lahir", 175)

        ListView1.Columns.Add("Alamat", 250)

        ListView1.Columns.Add("No. HP", 120)

        TextBox1.Text = 1

        TxtNama.Focus()

    End Sub

    Private Sub BtnDaftar_Click(sender As Object, e As EventArgs) Handles BtnDaftar.Click

        Dim Arr(4) As String

        Arr(0) = TxtNama.Text

        Arr(1) = TxtTempat.Text

        Arr(2) = TxtTTL.Text

        Arr(3) = TxtAlamat.Text

        Arr(4) = TxtNoHP.Text

        Dim listitem As ListViewItem

        listitem = New ListViewItem

        ListView1.Items.Add(Arr(0))

        ListView1.Items.Add(Arr(1))

        ListView1.Items.Add(Arr(2))

        ListView1.Items.Add(Arr(3))

        ListView1.Items.Add(Arr(4))

        TextBox1.Text = TextBox1.Text + 1

        TxtNama.Text = ""

        TxtTempat.Text = ""

        TxtTTL.Text = ""

        TxtAlamat.Text = ""

        TxtNoHP.Text = ""

        TxtNama.Focus()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Form2.Show()

    End Sub

End Class

·       FORM 2

         Berikut Source Codenya :

Public Class Form2

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then

            MsgBox("Masukkan Nama, Nomor Pasien & Alamat", MsgBoxStyle.Critical, "Warning")

        Else

            Form3.Show()

            Me.Hide()

            Form3.Label5.Text = TextBox1.Text

            Form3.Label6.Text = TextBox2.Text

            Form3.Label7.Text = TextBox3.Text

        End If

    End Sub

End Class

FORM 3

Berikut Source Codenya :

Public Class Form3

   

    Dim vNamaDokter, vSpesialis, vObatMata, vObatTHT, vObatPenyakitDalam, vObatKulitdanKelamin, vObatGigi, vObatUmum As String

    Dim vHargaDokterMata, vHargaDokterTHT, vHargaDokterPenyDalam, vHargaDokterKulitKelamin, vHargaDokterGigi, vHargaDokterUmum, vInfeksiMata, vPlus, vMinus, vKatarak, vTelinga, vHidung, vTenggorokan, vJantung, vParu, vHati, vPanu, vKadas, vSiphilis, vSakitGigi, vPemutihGigi, vGigiTumbuh, vDiare, vTypus, vDemamBerdarah As Integer

   

    Private Sub CmbNamaDokter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbNamaDokter.SelectedIndexChanged

        vNamaDokter = CmbNamaDokter.SelectedItem

        Select Case vNamaDokter

            Case "dr. Indra"

                CmbNamaDokter.Text = "dr. Indra"

                TxtSpesialis.Text = "Mata"

                TxtBiayaDokterMata.Text = 200000

                vNamaDokter = CmbNamaDokter.Text

                vSpesialis = TxtSpesialis.Text

                vHargaDokterMata = TxtBiayaDokterMata.Text

            Case "dr. Siwi"

                CmbNamaDokter.Text = "dr. Siwi"

                TxtSpesialis.Text = "THT"

                TxtBiayaDokterTHT.Text = 250000

                vNamaDokter = CmbNamaDokter.Text

                vSpesialis = TxtSpesialis.Text

                vHargaDokterTHT = TxtBiayaDokterTHT.Text

            Case "dr. Citra"

                CmbNamaDokter.Text = "dr. Citra"

                TxtSpesialis.Text = "Penyakit Dalam"

                TxtBiayaDokterPenyDalam.Text = 1000000

                vNamaDokter = CmbNamaDokter.Text

                vSpesialis = TxtSpesialis.Text

                vHargaDokterPenyDalam = TxtBiayaDokterPenyDalam.Text

            Case "dr. Bayu"

                CmbNamaDokter.Text = "dr. Bayu"

                TxtSpesialis.Text = "Kulit dan Kelamin"

                TxtBiayaDokterKulitKelamin.Text = 500000

                vNamaDokter = CmbNamaDokter.Text

                vSpesialis = TxtSpesialis.Text

                vHargaDokterKulitKelamin = TxtBiayaDokterKulitKelamin.Text

            Case "drg. Reza"

                CmbNamaDokter.Text = "drg. Reza"

                TxtSpesialis.Text = "Gigi"

                TxtBiayaDokterGigi.Text = 300000

                vNamaDokter = CmbNamaDokter.Text

                vSpesialis = TxtSpesialis.Text

                vHargaDokterGigi = TxtBiayaDokterGigi.Text

            Case "dr. Dimas"

                CmbNamaDokter.Text = "dr. Dimas"

                TxtSpesialis.Text = "Umum"

                TxtBiayaDokterUmum.Text = 150000

                vNamaDokter = CmbNamaDokter.Text

                vSpesialis = TxtSpesialis.Text

                vHargaDokterUmum = TxtBiayaDokterUmum.Text

        End Select

    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub CmbMata_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbMata.SelectedIndexChanged

        vObatMata = CmbMata.SelectedItem

        Select Case vObatMata

            Case "Infeksi Mata"

                TxtObatMata.Text = 50000

                vInfeksiMata = TxtObatMata.Text

            Case "Plus"

                TxtObatMata.Text = 100000

                vPlus = TxtObatMata.Text

            Case "Minus"

                TxtObatMata.Text = 50000

                vMinus = TxtObatMata.Text

            Case "Katarak"

                TxtObatMata.Text = 500000

                vKatarak = TxtObatMata.Text

        End Select

    End Sub

    Private Sub CmbTHT_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbTHT.SelectedIndexChanged

        vObatTHT = CmbTHT.SelectedItem

        Select Case vObatTHT

            Case "Telinga"

                TxtObatTHT.Text = 70000

                vTelinga = TxtObatTHT.Text

            Case "Hidung"

                TxtObatTHT.Text = 100000

                vHidung = TxtObatTHT.Text

            Case "Tenggorokan"

                TxtObatTHT.Text = 50000

                vTenggorokan = TxtObatTHT.Text

        End Select

    End Sub

    Private Sub CmbPenyDalam_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbPenyDalam.SelectedIndexChanged

        vObatPenyakitDalam = CmbPenyDalam.SelectedItem

        Select Case vObatPenyakitDalam

            Case "Jantung"

                TxtObatPenyDalam.Text = 5000000

                vJantung = TxtObatPenyDalam.Text

            Case "Paru-Paru"

                TxtObatPenyDalam.Text = 10000000

                vParu = TxtObatPenyDalam.Text

            Case "Hati"

                TxtObatPenyDalam.Text = 7000000

                vHati = TxtObatPenyDalam.Text

        End Select

    End Sub

    Private Sub CmbKulitKelamin_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbKulitKelamin.SelectedIndexChanged

        vObatKulitdanKelamin = CmbKulitKelamin.SelectedItem

        Select Case vObatKulitdanKelamin

            Case "Panu"

                TxtObatKulitKelamin.Text = 30000

                vPanu = TxtObatKulitKelamin.Text

            Case "Kadas"

                TxtObatKulitKelamin.Text = 50000

                vKadas = TxtObatKulitKelamin.Text

            Case "Siphilis"

                TxtObatKulitKelamin.Text = 500000

                vSiphilis = TxtObatKulitKelamin.Text

        End Select

    End Sub

    Private Sub CmbGigi_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbGigi.SelectedIndexChanged

        vObatGigi = CmbGigi.SelectedItem

        Select Case vObatGigi

            Case "Sakit Gigi"

                TxtObatGigi.Text = 300000

                vSakitGigi = TxtObatGigi.Text

            Case "Pemutih Gigi"

                TxtObatGigi.Text = 200000

                vPemutihGigi = TxtObatGigi.Text

            Case "Gigi Tumbuh"

                TxtObatGigi.Text = 150000

                vGigiTumbuh = TxtObatGigi.Text

        End Select

    End Sub

    Private Sub CmbUmum_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CmbUmum.SelectedIndexChanged

        vObatUmum = CmbUmum.SelectedItem

        Select Case vObatUmum

            Case "Diare"

                TxtObatUmum.Text = 100000

                vDiare = TxtObatUmum.Text

            Case "Typus"

                TxtObatUmum.Text = 200000

                vTypus = TxtObatUmum.Text

            Case "Demam Berdarah"

                TxtObatUmum.Text = 300000

                vDemamBerdarah = TxtObatUmum.Text

        End Select

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim mata, tht, penydalam, kulitkelamin, gigi, umum As Integer

        Dim mata1, tht1, penydalam1, kulitkelamin1, gigi1, umum1 As New ClasRawatJalan

        mata = mata1.TotalBayarMata(Val(TxtObatMata.Text), Val(TxtBiayaDokterMata.Text))

        TxtTotalBayar.Text = mata

        tht = tht1.TotalBayarTHT(Val(TxtObatTHT.Text), Val(TxtBiayaDokterTHT.Text))

        TxtTotalBayar.Text = tht

        penydalam = penydalam1.TotalBayarPenyDalam(Val(TxtObatPenyDalam.Text), Val(TxtBiayaDokterPenyDalam.Text))

        TxtTotalBayar.Text = penydalam

        kulitkelamin = kulitkelamin1.TotalBayarKulitKelamin(Val(TxtObatKulitKelamin.Text), Val(TxtBiayaDokterKulitKelamin.Text))

        TxtTotalBayar.Text = kulitkelamin

        gigi = gigi1.TotalBayarGigi(Val(TxtObatGigi.Text), Val(TxtBiayaDokterGigi.Text))

        TxtTotalBayar.Text = gigi

        umum = umum1.TotalBayarUmum(Val(TxtObatUmum.Text), Val(TxtBiayaDokterUmum.Text))

        TxtTotalBayar.Text = umum

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        CmbMata.Text = ""

        CmbTHT.Text = ""

        CmbPenyDalam.Text = ""

        CmbKulitKelamin.Text = ""

        CmbGigi.Text = ""

        CmbUmum.Text = ""

        CmbNamaDokter.Text = ""

        TxtBiayaDokterMata.Text = ""

        TxtObatMata.Text = ""

        TxtObatGigi.Text = ""

        TxtObatPenyDalam.Text = ""

        TxtObatKulitKelamin.Text = ""

        TxtObatGigi.Text = ""

        TxtObatUmum.Text = ""

        TxtTotalBayar.Text = ""

        TxtSpesialis.Text = ""

    End Sub

End Class

·       Source Code ClassRawatJalan

Public Class ClasRawatJalan

    Function TotalBayarMata(ByVal biayadoktermata As Integer, ByVal hargaobatmata As Integer)

        TotalBayarMata = hargaobatmata + biayadoktermata

    End Function

    Function TotalBayarTHT(ByVal biayadoktertht As Integer, ByVal hargaobattht As Integer)

        TotalBayarTHT = hargaobattht + biayadoktertht

    End Function

    Function TotalBayarPenyDalam(ByVal biayadokterpenydalam As Integer, ByVal hargaobatpenydalam As Integer)

        TotalBayarPenyDalam = hargaobatpenydalam + biayadokterpenydalam

    End Function

    Function TotalBayarKulitKelamin(ByVal biayadokterkulitkelamin As Integer, ByVal hargaobatkulitkelamin As Integer)

        TotalBayarKulitKelamin = hargaobatkulitkelamin + biayadokterkulitkelamin

    End Function

    Function TotalBayarGigi(ByVal biayadoktergigi As Integer, ByVal hargaobatgigi As Integer)

        TotalBayarGigi = hargaobatgigi + biayadoktergigi

    End Function

    Function TotalBayarUmum(ByVal biayadokterumum As Integer, ByVal hargaobatumum As Integer)

        TotalBayarUmum = hargaobatumum + biayadokterumum

    End Function

End Class