UAS AUDITE IT MENGGUNKAN ACL

UAS Matakuliah AUDIT IT Menggunakan ACL

STMIK ERESHA/Septi Indriastuti/161011700413

Data diambil dari Laboratorium Swasta, terdiri dari:

1. Data CID Pasien

2. Data hasil pemeriksaan Asam Urat

3. Data hasil pemeriksaan Chlolesterol

4. Data hasil pemeriksaan Glukosa 

5. Data hasil pemeriksaan HbA1c

Data tersebut akan dugunakan untuk menyelesaikan beberapa kasussebagai berikut

A.  Untuk melakukan promo Pap Smear dibutuhkan data pelanggan wanita dengan usia > 25 th

Langkah -langkah

1. Aktif pada file DATA_CID_PASIEN

2. Pilih Menu Extract pada menubar Data

3. Pada Main pilih, klik Radio Buttons Fields

4. Klik Extract Fields, pilih fields yang dibutuhkan, ( AGE,SEX_ID ) Lalu Klik OK

5. Klik if, isi kolok Expression dengan rumus : SEX_ID='F' and AGE>=25

6. Mengisi Kolom to dengan SEX_ID, Output yang dihasilkan 

B. Pasien Omset Lebh dari 1 Juta 

Langkah -langkah

1. Aktif pada file DATA_CID_PASIEN

2. Pilih Menu Extract pada menubar Data

3. Pada Main pilih, klik Radio Buttons Fields

4. Klik Extract Fields, pilih fields yang dibutuhkan, ( FREQ,AGE, OMZET, PATIEN_NAME ) Lalu Klik OK

5. Klik if, isi kolok Expression dengan rumus : OMZET>=1000000

6. Mengisi Kolom to dengan OMZET Output yang dihasilkan seperti berikut

C. Pasien dengan HBA1c >=6,5

1. Aktif pada file Data_HBA1c

2. Pilih Menu Extract pada menubar Data

3. Pada Main pilih, klik Radio Buttons Fields

4. Klik Extract Fields, pilih fields yang dibutuhkan, (  OMZET, PATIEN_NAME, TEST_RESULT,AGE) Lalu Klik OK

5. Klik if, isi kolok Expression dengan rumus : TEST_RESULT>='6.5'

6. Mengisi Kolom to dengan HBA1C6.5 yang dihasilkan seperti berikut

D .Laki laki dengan asam urat lebih dari 7,5

1. Aktif pada file Data_Asam_Urat

2. Pilih Menu Extract pada menubar Data

3. Pada Main pilih, klik Radio Buttons Fields

4. Klik Extract Fields, pilih fields yang dibutuhkan, ( AGE, DOB, PATIENT_NAME, SEX_ID, TEST_RESULT) Lalu Klik OK

5. Klik if, isi kolok Expression dengan rumus : TEST_RESULT>='7' AND SEX_ID='M'

6. Mengisi Kolom to dengan ASAM URAT , Output yang dihasilkan sebagai berikut

E. Pasien dengan glukosa => 126

1. Aktif pada file Data_GLUKOSA _PUASA

2. Pilih Menu Extract pada menubar Data

3. Pada Main pilih, klik Radio Buttons Fields

4. Klik Extract Fields, pilih fields yang dibutuhkan, ( TEST_RESULT, PATIEN _NAME),Lalu Klik OK

5. Klik if, isi kolok Expression dengan rumus : TEST_RESULT>='126'

6. Mengisi Kolom to dengan gLUKOSA_126,Output yang dihasilkan sebagai berukut

TERIMAKASIH

TUGAS UTS AUDIT IT SEPTI INDRIASTUTI 07SIFE002 REG C

TUGAS UTS
Mata Kuliah  : AUDUT IT

Septi Indriastuti / 161011700413

15 Desember 2019

#Dalam Kesempatan Kali Ini terdapat 3 Table Untuk Menganalisa Database Pasien Laboratorium

•  Data Pasien

•  Data Agama

• Data Pekerjaan

        

# Pembuatan Realasi

Soal no.1

Pasien yang periksa lebih dari 3 kali

1.1Design View

Rekayasa Perangkat Lunak Aplikasi Jual Beli di Kantin

Analisa Kebutuhan Untuk Jual Beli kantin :

1. Untuk mempermudah melakukan transaksi Jual Beli

2. Mempermudah pengontrolan stok barang

Struktur Data Base

Data Base Name : Database2.mdb

Table Name        : tugas_uas

Field                   : ID                                     : AutoNumber

                             nama_barang                    : Text

                             banyak_barang                 :Text

                             harga_barang                   :Text

                             total_harga                       :Text

Screen Shoot Tampilan Form Penjualan

Tampilan Sukses

Form View Data

Source Code Form Penjualan

Imports System.Data
Imports System.Data.OleDb


Public Class WebForm1
    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source= C:\Users\ASUS\Documents\Visual Studio 2012\Projects\Tugas_uas\Tugas_uas\app\Database2.mdb"
    Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As Single
        Dim b As Single
        Dim c As Single
        Dim d As Single
        Dim Hasil1 As Single
        Dim Hasil2 As Single
        Dim Hasil3 As Single
        a = TextBox2.Text
        b = TextBox3.Text

        Hasil1 = a * b


        TextBox5.Text = Hasil1

    End Sub

    Protected Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO tugas_uas values('" & TextBox6.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox5.Text & "') "
        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses")

    End Sub

    Protected Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Response.Redirect("WebForm3.aspx")
    End Sub
End Class



Source Code Veiw Data 

Public Class WebForm3
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub GridView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView1.SelectedIndexChanged

    End Sub
End Class

Tugas Struktur Data - Queue

Reverensi Data:

http://lecturer.ukdw.ac.id/anton/download/TIstrukdat4.ppt

https://kumpulancodingan.blogspot.co.id/2015/04/contoh-program-c-queueantrian.html

Menghitung Luas Segi Tiga Menggunakan Jframe di NetBeans.

Menghitung Luas Segi Tiga Menggunakan Jframe di NetBeans.

Lakukan tiga langkah awal yang kita mulai dari :
1.masuk ke NetBeans terlebih dahulu, lalu klik file -> new project
2.klik New Java Application -> tulis judul -> klik Finish
3.klik kanan pada default package project dan pilihnew - jframe form


Setelah tiga langkah yang sudah kita lalui diatas buat desain sistem pembayaran dengan menggunakan Tools Pallete, cari tools mana yang akan anda pakai. disini saya menggunakan Tools Pallete Swing Controls.

Kemudian buat design dengan menggunakan lable, text field dan button, kurang 

klik kanan pada  Form HITUNG -> Event -> Action -> actioPerformed [btnHASILActionPerformed]
setelah proses diatas anda ikuti secara otomatis anda akan di alihkan pada halaman Source.
halaman ini yang nantinya akan kita masukan SOURCE CODE yang berfungsi untuk
menjalankan proses PENGHITUNGAN LUAS SEGI TIGA.


anda bisa memasukkan SOURCE CODE dibawah kata :
private void jBHASILActionPerformed(java.awt.event.ActionEvent evt) {                                        

        // TODO add your handling code here:

       int Alas,Tinggi,HASIL;

       Alas=Integer.parseInt(TexAlas.getText());

       Tinggi=Integer.parseInt(TexTinggi.getText());

       HASIL=(Alas*Tinggi)/2;

       TexHASIL.setText(""+HASIL);  

Coontoh Hasil Runing :

Masukan nilai "Panjang" dan "Lebar" Lalu hasil akan tercetak di Kolom "Hasil"
Maka akan seprti gambar dibawah ini.

Selesai.......................Terimakasih.