CBIS

Computer Based Information System atau Sistem Informasi Berbasis Komputer merupakan  sistem pengolahan data menjadi sebuah informasi yang berkualitas dan dipergunakan untuk suatu alat bantu pengambilan keputusan.

Istilah dalam CBIS berupa data, informasi, sistem informasi dan berbasis komputer.

Data adalah bahan mentah yang akan diolah menjadi suatu informasi.

Informasi adalah hasil dari pengolahan data menjadi bentuk  lebih berguna bagi yang menerimanya dan menggambarkan suatu kejadian nyata dan dapat digunakan sebagai alat bantu dalam pengambilan keputusan.

Sistem Informasi adalah sistem pembangkit informasi dengan integrasi yang dimiliki antar subsistemnya.

Sistem informasi akan mampu menyediakan informasi yang berkualitas, cepat, tepat, aktual sesuai dengan manajemen yang dibutuhkan.

Subsistem CBIS diantaranya :

• Sistem Informasi Akuntansi
• Sistem Informasi Manajemen
• Sistem Informasi Pendukung Keputusan
• Automatisasi Kantor (Virtual Office)
• Sistem Pakar

Setting CLASSPATH

CLASSPATH adalah suatu variabel sistem yang digunakan untuk mengatakan kepada program yang ditulis dengan bahasa Java (termasuk tools yang terdapat dalam SDK) tempat lokasi kelas-kelas yang akan diigunakan.

Dengan melakukan setting terhadap nilai variabel CLASSPATH, maka kita dapat melakukan kompilasi maupun eksekusi program yang kita buat didirektori JavaCode yang terletak di drive D.

Apabila terdapat pesan kesalahan pada saat kompilasi terhadap kode-kode program yang terdapat didalam direktori tersebut, maka kita perlu melakukan setting terhadap variabel CLASSPATH dengan perintah berikut (dalam command prompt).

set CLASSPATH=.;D:\JavaCode

Atau apabila anda ingin agar proses kompilasi dan eksekusi program Java dapat dilakukan dari direktori manapun dan bersifat permanen, maka tambahkan direktori bin yang terdapat pada Java2SDK ke dalam file autoexec.bat. 

Berikut contohnya :

set PATH=C:\ProgramFiles\Java\Jdk1.5.0\bin;%PATH%

set CLASSPATH=.;D:\JavaCode

Untuk memeriksa setting PATH sudah bekerja atau belum, tuliskan perintah javac atau java disembarang direktori.

Distribusi Normal

Distribusi normal, disebut pula distribusi Gauss, adalah distribusi probabilitas yang paling banyak digunakan dalam berbagai analisis statistika. Distribusi normal baku adalah distribusi normal yang memiliki rata-rata nol dan simpangan baku satu. Distribusi ini juga dijuluki kurva lonceng (bell curve) karena grafik fungsi kepekatan probabilitasnya mirip dengan bentuk lonceng.

Distribusi normal memodelkan fenomena kuantitatif pada ilmu alam maupun ilmu sosial. Beragam skor pengujian psikologi dan fenomena fisika seperti jumlah foton dapat dihitung melalui pendekatan dengan mengikuti distribusi normal. Distribusi normal banyak digunakan dalam berbagai bidang statistika, misalnya distribusi sampling rata-rata akan mendekati normal, meski distribusi populasi yang diambil tidak berdistribusi normal. Distribusi normal juga banyak digunakan dalam berbagai distribusi dalam statistika, dan kebanyakan pengujian hipotesis mengasumsikan normalitas suatu data.

SEJARAH

Distribusi normal pertama kali diperkenalkan oleh Abraham de Moivre dalam artikelnya pada tahun 1733 sebagai pendekatan distribusi binomial untuk n besar. Karya tersebut dikembangkan lebih lanjut oleh Pierre Simon de Laplace, dan dikenal sebagai teorema Moivre-Laplace. Laplace menggunakan distribusi normal untuk analisis galat suatu eksperimen. Metode kuadrat terkecil diperkenalkan oleh Legendre pada tahun 1805. Sementara itu Gauss mengklaim telah menggunakan metode tersebut sejak tahun 1794 dengan mengasumsikan galatnya memiliki distribusi normal.

Istilah kurva lonceng diperkenalkan oleh Jouffret pada tahun 1872 untuk distribusi normal bivariat. Sementara itu istilah distribusi normal secara terpisah diperkenalkan oleh Charles S. Peirce, Francis Galton, dan Wilhelm Lexis sekitar tahun 1875. Terminologi ini secara tidak sengaja memiliki nama sama.

Sumber :

http://id.wikipedia.org/wiki/Distribusi_normal

 

DFD Penerimaan Obat Pasien Rawat Inap

Data Flow Diagram (DFD)

Penerimaan Obat Pasien Rawat Inap

KLASIFIKASI FILE

Dari DFD

File	Fungsi
KTP	Transaction
Sort Program	Program
Sort Work File	Work
Sorted KTP	Transaction
Master Pasien	Master
Update Program Pasien	Program
Pasien Baru	Transaction
Pasien Lama	Transaction
Program Daftar Pasien	Program
Program Periksa	Program
Kartu Pasien	Report
Resep Obat	Report

MODEL AKSES DFD

No	Program File	Input File	Output	I/O File
1	Sort Program	KTP	Sorted KTP	Sorted Work File
2	Update Program Pasien	Sorted KTP	Pasien Baru	Master Pasien
3	Program Daftar Pasien	Pasien Baru	Pasien Lama	Pasien Baru
4	Program Periksa	Pasien Lama	KP	Pasien Lama
5	-	-	Resep Obat	-

Perform 4 with COBOL

Perform 4 dengan menggunakan VARYING statement.

Coding :    

       IDENTIFICATION DIVISION.
       PROGRAM-ID. PERFORM4.
       AUTHOR. AMJAD.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 I PIC 99 VALUE 0.
       PROCEDURE DIVISION.
       AWAL.
           PERFORM TAMPILKAN VARYING I FROM 1 BY 1 UNTIL I>10.
           DISPLAY 'GUNADARMA'.
           STOP RUN.
       TAMPILKAN.
           DISPLAY I.

Kemudian compile programnya:

Dan hasil outputnya seperti gambar dibawah ini :

BPN Project with VB.NET 2005 & Ms.Access 2007

Langkah pertama saya sudah siapkan data base dengan menggunakan Ms.Access 2007 yang kemudian akan dikoneksikan dengan VB.NET 2005 agar mempermudah penginputan data untuk Kantor Badan Pertanahan Nasional.

Project ini saya buat untuk BPNRI Kabupaten Bogor, dibuat pada tanggal 28 Desember 2011.

Codingnya bisa dilihat sebagai berikut :

Imports System.Data.OleDb
Public Class Form1
    Dim conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim str As String
    Dim cmd As System.Data.OleDb.OleDbCommand
    Dim rd As System.Data.OleDb.OleDbDataReader
    Dim sqledit As String

    Sub Koneksi()
        str = "provider=microsoft.ace.oledb.12.0;data source=db1.accdb"
        conn = New OleDbConnection(str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
    Sub Kosongkan()
        TWarkah.Text = ""
        THak.Text = ""
        TDesa.Text = ""
        TKecamatan.Text = ""
        TTahun.Text = ""
        TUrut.Text = ""
        TRak.Text = ""
        TBlock.Text = ""
        TWarkah.Focus()
    End Sub
    Sub TampilJenis()
        TJhak.Items.Clear()
        cmd = New OleDbCommand("select distinct Jenis Hak from Data", conn)
        rd = cmd.ExecuteReader
        While rd.Read
            TJhak.Items.Add(rd.GetString(0))
        End While
    End Sub
    Sub TampilkanData()
        cmd = New OleDbCommand("Select * from Data", conn)
        rd = cmd.ExecuteReader
        da = New OleDbDataAdapter("Select * from Data", conn)
        ds = New DataSet
        da.Fill(ds, "Data")
        DGV.DataSource = ds.Tables("Data")
        DGV.ReadOnly = True
    End Sub
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHapus.Click
        If TWarkah.Text = "" Then
            MsgBox("Isi nomor warkah terlebih dahulu")
            TWarkah.Focus()
            Exit Sub
        Else
        End If
        If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
        End If
        cmd = New OleDbCommand("Delete * from Data where Nomor Warkah='" & TWarkah.Text & "'", conn)
        cmd.ExecuteNonQuery()
        Call Kosongkan()
        Call TampilkanData()
        Exit Sub
    End Sub

    Private Sub DVG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
        Call TampilkanData()
        TJhak.Items.Add("Hak Milik")
        TJhak.Items.Add("Hak Pakai")
        TJhak.Items.Add("Hak Guna Bangunan")
        TJhak.Items.Add("Hak Guna Usaha")
    End Sub

    Private Sub cmdSimpan_(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSimpan.Click
        If TWarkah.Text = "" Or THak.Text = "" Or TJhak.Text = "" Or TDesa.Text = "" Or TKecamatan.Text = "" Or TTahun.Text = "" Or TUrut.Text = "" Or TRak.Text = "" Or TBlock.Text = "" Then
            MsgBox("Maaf Data Belum Lengkap")
            Exit Sub
        Else
            cmd = New OleDbCommand("Select * from Data where Nomor Warkah='" & TWarkah.Text & "", conn)
            rd = cmd.ExecuteReader()
            rd.Read()
            If Not rd.HasRows Then
                Dim sqltambah As String = "Insert into Data(Nomor Warkah,Nomor Hak,Jenis Hak,Desa,Kecamatan, Tahun, Nomor Urut Bundel, Nomor Lemari Rak, Blok) values " & _
                                      "('" & TWarkah.Text & "','" & THak.Text & "','" & TJhak.Text & "','" & TDesa.Text & "','" & TKecamatan.Text & "','" & TTahun.Text & "','" & TUrut.Text & "','" & TRak.Text & "','" & TBlock.Text & "')"
                cmd = New OleDbCommand(sqltambah, conn)
                cmd.ExecuteNonQuery()
                Call TampilkanData()
                TWarkah.Clear()
                THak.Clear()
                TDesa.Clear()
                TKecamatan.Clear()
                TTahun.Clear()
                TUrut.Clear()
                TRak.Clear()
                TBlock.Clear()
                TJhak.Focus()
                TWarkah.Focus()
                Call Kosongkan()
            Else
                Dim sqledit As String = "Update Data set " & _
                "Nomor Warkah='" & TWarkah.Text & "', " & _
                "Nomor Hak='" & THak.Text & "', " & _
                "Jenis Hak='" & TJhak.Text & "', " & _
                "Desa='" & TDesa.Text & "', " & _
                "Kecamatan='" & TKecamatan.Text & "', " & _
                "Tahun='" & TUrut.Text & "', " & _
                "Nomor Urut Bundel='" & TUrut.Text & "', " & _
                "Nomor Lemari Rak='" & TRak.Text & "', "
                cmd = New OleDbCommand(sqledit, conn)
                cmd.ExecuteNonQuery()
                Call TampilkanData()
                TWarkah.Clear()
                THak.Clear()
                TDesa.Clear()
                TKecamatan.Clear()
                TTahun.Clear()
                TUrut.Clear()
                TRak.Clear()
                TBlock.Clear()
                TWarkah.Focus()
            End If
        End If
    End Sub

    Private Sub BTNBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBatal.Click
        Call Kosongkan()
    End Sub

    Private Sub BTNTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNTutup.Click
        Me.Close()
    End Sub

    Private Sub TWarkah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TWarkah.KeyPress
        If e.KeyChar = Chr(13) Then THak.Focus()
    End Sub

    Private Sub TWarkah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TWarkah.TextChanged

    End Sub

    Private Sub THak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles THak.KeyPress
        If e.KeyChar = Chr(13) Then TDesa.Focus()
    End Sub

    Private Sub THak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THak.TextChanged

    End Sub

    Private Sub TDesa_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TDesa.KeyPress
        If e.KeyChar = Chr(13) Then TKecamatan.Focus()
    End Sub

    Private Sub TDesa_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TDesa.TextChanged

    End Sub

    Private Sub TKecamatan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TKecamatan.KeyPress
        If e.KeyChar = Chr(13) Then TTahun.Focus()
    End Sub

    Private Sub TKecamatan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKecamatan.TextChanged

    End Sub

    Private Sub TTahun_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TTahun.KeyPress
        If e.KeyChar = Chr(13) Then TUrut.Focus()
    End Sub

    Private Sub TTahun_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TTahun.TextChanged

    End Sub

    Private Sub TUrut_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TUrut.KeyPress
        If e.KeyChar = Chr(13) Then TRak.Focus()
    End Sub

    Private Sub TUrut_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUrut.TextChanged

    End Sub

    Private Sub TRak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TRak.KeyPress
        If e.KeyChar = Chr(13) Then TBlock.Focus()
    End Sub

    Private Sub TRak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TRak.TextChanged

    End Sub

    Private Sub TBlock_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TBlock.KeyPress
        If e.KeyChar = Chr(13) Then BTNSimpan.Focus()
    End Sub

    Private Sub TBlock_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBlock.TextChanged

    End Sub

    Private Sub DGV_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellContentClick
        Koneksi()
        da = New OleDbDataAdapter("Select * from Data", conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Data")
        DGV.DataSource = (ds.Tables("Data"))
    End Sub
End Class

Dengan hasil outputnya :

Selamat mencoba sobat blogger :)

Membuat Program Looping dengan VB.NET 2005

Pada project ini saya menggunkan 2 statment perulangan yaitu For Next dan juga Do While.

Dimana codingnya sebagai berikut :

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim j As Integer
        ListBox1.Items.Clear()
        i = 1
        j = i + 1
        For j = 1 To 5
            ListBox1.Items.Add(j)
        Next j
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Angka As Integer
        ListBox1.Items.Clear()
        Angka = 1
        ListBox1.Items.Add(Int(Angka))
        Do While Angka <= 4
            Angka = Angka + 1
            ListBox1.Items.Add(1 & Int(Angka))
            Angka = Angka + 1
            ListBox1.Items.Add(1 & 2 & Int(Angka))
            Angka = Angka + 1
            ListBox1.Items.Add(1 & 2 & 3 & Int(Angka))
            Angka = Angka + 1
            ListBox1.Items.Add(1 & 2 & 3 & 4 & Int(Angka))
        Loop
    End Sub
End Class

Outputnya :

Untuk Looping menggunakan For Next

 Untuk Looping dengan menggunakan Do While

Semoga bermanfaat

~Selamat Mencoba~