Tampilan menu utama e-Faktur

IKWAN 161021450062

fitur diskon Member

Dengan menggunakan Check Box

Fitur Report dengan Ms. Word

Bisa Print Out atau Menyimpan Data

Fitur Report dengan Ms. Excel

Bisa Print Out atau Menyimpan Data

Fitur Tanggal semi Otomatis

Dengan menggunakan Combo Box

Sunday, September 8, 2019

Seputar Rekayasa Perangkat Lunak di Kehidupan Sehari - hari STMIK ERESHA 06TPLP001


Assalamualaikum wr.wb..

Pada keesempatan kali ini saya ingin menuliskan sedikit pembahasan seputar RPL (Rekayasa Perangkat Lunak). Dimana Ini adalah tugas dari Mata Kuliah RPL di kampus tercinta STMIK ERESHA Tangsel 😅... Yang Alhamdulilah sekarang sudah semester 06TPLP01.
Okelah langsung saja ke pokok materinya. Check it out....👇👇👇 

RPL (Rekayasa Perangkat Lunak)
Yaitu ilmu yang memberikan pengetahuan tentang prinsip dan teknik untuk mendesain perangkat lunak yang tepat guna, tanguh dan mudah digunakan. Dimana kita akan mempelajari cara mendesain dan menganalisis algoritma dan pemrograman menggunakan struktur data yang efisien serta mengembangkan system operasi dan aplikasi berbasis web atau mobile.
 



Perangkat lunak adalah istilah khusus untuk data yang diformat, dan disimpan secara digital, termasuk program komputer, dokumentasinya, dan berbagai informasi yang bisa dibaca, dan ditulis oleh komputer. Dengan kata lain, bagian sistem komputer yang tidak berwujud. 
pemrograman" yang ditulis oleh programmer untuk selanjutnya di kompilasi dengan aplikasi kompiler sehingga menjadi kode yang bisa dikenali oleh mesin hardware. Di bawah ini ada beberapa contoh macam perangkat lunak, yaitu: ·
          
1. Perangkat lunak aplikasi (application software) seperti pengolah katalembar tabel hitungpemutar media, dan paket aplikasi perkantoran seperti OpenOffice.org. ·         Sistem operasi (operating system) misalnya Linux.

Gambar 1
Gambar 1



1.1. Perkakas pengembangan perangkat lunak (software development tool) seperti Kompilator untuk bahasa pemrograman tingkat tinggi seperti Pascal dan bahasa pemrograman tingkat rendah yaitu bahasa rakitan.

Software Development Tools

1.2. Pengendali perangkat keras (device driver) yaitu penghubung antara perangkat perangkat keras pembantu, dan komputer adalah software yang banyak dipakai di swalayan, dan juga sekolah, yaitu penggunaan barcode scanner pada aplikasi database lainnya.

Barcode Scanner
     1.3. Perangkat lunak menetap (firmware) seperti yang dipasang dalam jam digital, dan pengendali jarak jauh.
Jam Digital
1.4 Jenis Perangkat Lunak :
·    Perangkat lunak uji coba (shareware / trialware)
·    Perangkat lunak perusak (malware)

2. SISTEM OPERASI
Sistem Operasi adalah perangkat lunak sistem yang bertugas untuk melakukan kontrol dan manajemen perangkat keras serta operasi-operasi dasar sistem, termasuk menjalankan software aplikasi seperti program-program pengolah kata dan browser web. Sistem Operasi merupakan sisitem operasi pada lappisan pertamayan di tempatkan pada memori komputer pada saat komputer dinyalakan. Sedangkan sofware lainnya dijalankan setelah sistem Operasi berjalan. Untuk mengendalikan Program Kerja Komputer secara mendasar seperti mengatur media Input, Output, Mengatur Memory serta Penjadwalan Proses seperti :        
Sistem Operasi Komputer

1   .    PC DOS
2   .    MS DOS
3   .    MICROSOFT WINDOWS
4   .    LINUX
5   .    UNIX
6   .    MACINTOSH
7   .    FREE BSD



3. PERANGKAT LUNAK BAHASA
Program yang digunakan untuk menerjemahkan instruksi-instruksi yang ditulis dalam bahasa mesin agar dapat diterima dan dimengerti oleh komputer.
1)MACAM PERANGKAT LUNAK BAHASA
·         Bahasa Tingkat Rendah
·         Bahasa Tingkat Menengah
·         Bahasa Tingkat Tinggi
Merupakan Bahasa Komputer yang sudah dibuat dan dikembangkan dengan menggunakan bahasa sehari-hari seperti : Basic, Cobol, Pascal.

4. Program Aplikasi (Aplication Program)
Merupakan suatu program paket yang telah dirancang dan dibuat khusus untuk kebutuhan tertentu.
1   .    Word Processing (Pengolah Kata)
2   .    Program Database
3   .    Program Spreadsheet
4   .    Program CAD (Computer Aided Design)
5   .    Program Layout Artikel (Publisher)
6   .    Aplikasi multimedia

Program Aplikasi 

Cotoh Rekayasa Perangkat Lunak :

4.1.Real Time System
 disebut juga dengan Sistem waktu nyata atau “komputasi relatif” adalah studi yang mempelajari tentang perangkat keras (Hard Real Time System) dan perangkat lunak (Soft Real Time System). Sistem yang tunduk pada suatu kendala yaitu tenggat / batas waktu operasional dari sistem secara responsif. Dan  menghasilkan respon yang tepat dalam batas waktu yang telah ditentukan.
Contoh sederhananya yaitu, sistem anti-lock brakes pada mobil, kendalanya adalah sistem ini adalah waktu singkat dimana rem harus dikeluarkan untuk mencegah roda mobil terkunci.
Contoh Real Time System -
 Anti-Lock Brake System pada Rem Kendaraan

Perhitungan real time dapat dikatakan gagal bila mereka tidak selesai sebelum tenggat / batas waktu mereka, dimana batas waktu mereka relatif pada suatu peristiwa. Real time system harus dipenuhi, terlepas dari load sistem. Dalam definisi lain disebutkan bahwa kontrol sistem hard real-time dapat mentoleransi keterlambatan tidak lebih dari 100 mikro detik.

Contoh : 
dalam kehidupan sehari-hari adalah pada sistem pengontrol pesawat terbang. Dalam hal ini, keterlambatan sama sekali tidak boleh terjadi,karena dapat berakibat tidak terkontrolnya pesawat terbang. Nyawa penumpang yang ada dalam pesawat tergantung dari sistem ini, karena jika sistem pengontrol tidak dapat merespon tepat waktu, maka dapat menyebabkan kecelakaan yang merenggut korban jiwa.
Air Traffic Control di Bandara

4.2 Sistem Soft Real-Time ( SRTS )
Komputasi soft real-time memiliki sedikit kelonggaran. Dalam sistem ini,proses yang kritis menerima prioritas lebih daripada yang lain.

Contoh :
 penerapan sistem ini dalam kehidupan sehari-hari adalah pada alat penjual/pelayan otomatis. 

Contoh Mesin Penjualan Minuman Otomatis
Contoh Mesin Layanan Sewa Pengisi Daya Portable Otomatis

4.3 Semi Hard Real-Time System (HRTS)  atau Semi Soft Real-Time ( SRTS )
Metoda ini merupakan gabungan antara :

Semi Hard Real-Time System (HRTS) atau Semi Soft Real-Time ( SRTS ).

Dengan demikian waktu yang digunakan oleh deadlinenya lebih pendek jika dibandingkan dengan soft real-time ( SRTS ).


4.4 Interaktif Deadline ( Waktu Deadlinenya   Bisa Ditawar )

Pada interaktif real-time, maka waktu deadlinen nya bisa ditawar, artinya tidak secara mutlak pada titik tertentu, tetapi tergantung dari kesepakatan yang ditentukan dan fleksibel.


4.5 Embedded intelligent
adalah Kemampuan sebuah sistem yang bekerja secara otomatis.
Contoh dan jenis :

-digital pada kendaraan seperti alat ukur tangki bensin

-tampilan dashboard

-sistem rem dan lain-lain.

Contoh MID (Multi Interface Display) pada Motor
Contoh MID (Multi Interface Display) pada Mobil
4.6 Perangkat Lunak Komputer Pribadi (Personal Computer Software)
Banyak digunakan pada aplikasi yang bersifat perorangan
Contoh dan jenis : pengolah kata, spreadsheet, game, DBMS dan lain-lain.

Contoh  Personal Computer Software - Game 

4.7 Perangkat Lunak Kecerdasan Buatan (Artificial Intelligent Software)
Dibuat dengan menggunakan teknik algoritma non-numerik untuk memecahkan masalah yang kompleks, digunakan dalam bidang aplikasi kecerdasan buatan
Contoh dan jenis : game, expert sistem, neural network, dan lain-lain

Gambar Ilustrasi Artificial Intelegence Software


Sekian tulisan saya seputar RPL, kurang dan salahnya mohon dimaafkeun.😂😂😂
Wabilahi taufik walhidayah 
Wassalamalaikum wr.wb

Wednesday, July 10, 2019

WEB FORM ASP.Net VB dengan SQL Server 2014



Assalamualaikum wr.wb

Pada kesempatan kali ini saya akan memposting tugas UAS mata kuliah BASIS DATA II dengan judul Project Web Form Normalisasi Data dengan ASP.Net VB dan Database SQL Server 2014  dari Struk Pembayaran SPP kuliah via Bank.
Berikut ini saya lampirkan bukti asli dari struk pembayaran SPP yang saya gunakan untuk project normalisasi data ini.

1. Sumber Referensi










2. Bentuk Tidak Normal (UnNormalized)
 dari bentuk tidak normal berikutnya kita rubah kedalam bentuk normal ke-1 atau 1NF

3. Bentuk 1NF
Suatu relasi yang disebut memenuhi bentuk normal pertama (1NF) jika setiap atribut dari relasi tersebut hanya memiliki satu nilai dan tidak ada nilai yang berulangan grup atribut dalam baris.
Setelah itu kita rubah kembali kedalam bentuk normal ke-2 atau 2NF

4. Bentuk 2NF
Untuk membentuk normal kedua harus ditentukan kunci-kunci dalam setiap field suatu form tersebut, dan kunci field harus unik dan bisa menjadi wakil untuk atributte lain yang menjadi anggota lainnya.
Setelah itu lanjut normalisasi bentuk ke-3 atau 3NF

5. Bentuk 3NF
Normalisasi data dalam bentuk ketiga bertujuan untuk menghilangkan seluruh atribut atau field yang sama sekali tidak berhubungan dengan primary key. 
Setelah itu kita buat query atau relasinya.

6. Relasi Table
Relasi Table

Setelah tahap normalisasi selesai selanjutnya kita buat form dengan Web Form ASP.Net VB di visual Studio. Berikut Ini tampilan dari Web Form ASP.Net VB yang telah saya buat.

1. Form Input Data
Web Form

2. Form View Data
3. Tampilan Database di SQL Server

4. Source code Manipulasi Data

Imports System.Data
Imports System.Data.SqlClient


Public Class WebForm1
    Inherits System.Web.UI.Page
    Dim Conn As SqlConnection
    Dim Da As SqlDataAdapter
    Dim Ds As DataSet
    Dim Cmd As SqlCommand
    Dim RD As SqlDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=DESKTOP-1B9QNLA;initial catalog=DB_IKWAN-161021450062;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub

    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
        Call Koneksi()
        Dim simpan As String = "insert into Faktur values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "', '" & DropDownList1.Text & "','" & TextBox4.Text & "','" & DropDownList2.Text & "','" & TextBox6.Text & "','" & DropDownList3.Text & "','" & TextBox7.Text & "')"
        Cmd = New SqlCommand(simpan, Conn)
        Cmd.ExecuteNonQuery()
        MsgBox("Input data berhasil")


    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        DropDownList1.Text = ""
        DropDownList2.Text = ""

    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Response.Redirect("Database.aspx")

    End Sub

    Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Call Koneksi()
        Dim delete As String = "delete from Faktur where NomorTagihan = '" & TextBox3.Text & "'"
        Cmd = New SqlCommand(delete, Conn)
        Cmd.ExecuteNonQuery()
        Conn.Close()
        MsgBox("Data Telah Dihapus")
        Response.Redirect("Database.aspx")
    End Sub

    Protected Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Call Koneksi()
        Dim search As String = "select * from Faktur where NomorTagihan like '%" & TextBox3.Text & "'"
        Cmd = New SqlCommand(search, Conn)
        Dim xReader As SqlDataReader
        xReader = Cmd.ExecuteReader()

        If xReader.HasRows Then
            xReader.Read()

            TextBox1.Text = xReader("WaktuTransaksi")
            TextBox2.Text = xReader("KodeReferensi")
            TextBox3.Text = xReader("NomorTagihan")
            DropDownList1.Text = xReader("NamaTagihan")
            TextBox4.Text = xReader("TotalTagihan")
            DropDownList2.Text = xReader("KodeReferensi")
            TextBox6.Text = xReader("NamaMahasiswa")
            DropDownList3.Text = xReader("NamaProdi")
            TextBox7.Text = xReader("UserIDTeller")
            Button2.Enabled = True
        Else
            MsgBox("Data Tidak Ditemukan!!!")
            Exit Sub
        End If
        Conn.Close()
    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Call Koneksi()
        Dim cari As String = "update Faktur set WaktuTransaksi  = '" + TextBox1.Text + "' where NomorTagihan='" + TextBox3.Text + "'"
        Cmd = New SqlCommand(cari, Conn)
        Cmd.ExecuteNonQuery()
        Conn.Close()

    End Sub

    Protected Sub Exit_Click(sender As Object, e As EventArgs) Handles [Exit].Click
        FileClose()
    End Sub
End Class

Sekian laporan normalisasi data saya, mohon maaf atas segala kekuranganya. Wassalamualaikum wr.wb Salam Super :)

Wednesday, April 24, 2019

UTS BASIS DATA II - NORMALISASI DATA - STRUK PEMBAYARAN SPP VIA BANK DKI



Assalamualaikum wr.wb

Pada kesempatan kali ini saya akan memposting tugas UTS mata kuliah BASIS DATA II dengan judul Project Normalisasi Data dari Struk Pembayaran SPP kuliah via Bank.
Berikut ini saya lampirkan bukti asli dari struk pembayaran SPP yang saya gunakan untuk project normalisasi data ini.

1. Sumber Referensi








2. Bentuk Tidak Normal (UnNormalized)
 dari bentuk tidak normal berikutnya kita rubah kedalam bentuk normal ke-1 atau 1NF

3. Bentuk 1NF
Suatu relasi yang disebut memenuhi bentuk normal pertama (1NF) jika setiap atribut dari relasi tersebut hanya memiliki satu nilai dan tidak ada nilai yang berulangan grup atribut dalam baris.
Setelah itu kita rubah kembali kedalam bentuk normal ke-2 atau 2NF

4. Bentuk 2NF
Untuk membentuk normal kedua harus ditentukan kunci-kunci dalam setiap field suatu form tersebut, dan kunci field harus unik dan bisa menjadi wakil untuk atributte lain yang menjadi anggota lainnya.
Setelah itu lanjut normalisasi bentuk ke-3 atau 3NF

5. Bentuk 3NF
Normalisasi data dalam bentuk ketiga bertujuan untuk menghilangkan seluruh atribut atau field yang sama sekali tidak berhubungan dengan primary key. 
Setelah itu kita buat query atau relasinya.

6. Relasi dan Query

Setelah tahap normalisasi selesai selanjutnya kita buat form dengan VB.net di visual Studio. Berikut Ini tampilan Form dari VB.net yang telah saya buat.

1. Form Input Data

Form Input Data
2. Form View Data

Sekian laporan normalisasi data saya, mohon maaf atas segala kekuranganya.
Wassalamualaikum wr.wb
Salam Super :)








Monday, January 7, 2019

( SISTEM INFORMASI PERGURUAN TINGGI )-UAS - PEMROGRAMAN - IKWAN - 04TPLP001

Assalamualaikum, pada kesempatan kali ini saya akan sedikit menerangkan sebuah Form website dengan ASP.net Visual Studio 2012, dimana website ini sudah memiliki fitur keaaman dasar yang memanfaatkan form login yang telah disediakan oleh ASP.net Visual Studio 2012.
Langsung saja pada pokok pembahasan nya saja.
       
1.     Deskripsi Program
Website ini dibuat dengan tujuan untuk memberikan kemudahan bagi para pencari informasi seputar Perguruan Tinggi Lokal. Dimana Website ini di desain dengan simpel agar mudah dalam penggunaannya.
Website ini sudah dilengkapi dengan fitur Database, Report To Word, Report To Excel dan sistem CRUDS, agar memudahkan dalam proses pengelolaan data. Dan sistem pengamanan dasar yaitu berupa form Login.
2.      Flowchart
Flowchart Program
Flowchart Program

3. Screenshoot 
a. Form Login
 Form Login
Form Login

b. Master Page
Master Page
Halaman Master Page

c. Form Input Data
Input Data
Form Input Data

d. Tabel Database
Table Database
Table Database
e. Report To Word
Report to Word
Tampilan Report to Word

f. Report To Excel
Report to Excel
Tampilan Report to Excel

g. Fungsi button search
Button Search
Fitur Button Search

SOURCE CODE
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports word = Microsoft.Office.Interop.Word
Imports Excel = Microsoft.Office.Interop.Excel
Public Class FormInput
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VBDatabase\DBKampus.mdb"
    Dim objKoneksi As New OleDb.OleDbConnection(koneksi)


    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles btnsave.Click
        objKoneksi.Close()
        objKoneksi.Open()
        Dim sql1 As String = "insert into tbldata values ('" & txtkode.Text & "','" & txtnama.Text & "','" & txtkategori.Text & "', '" & txtalamat.Text & "','" & txtnomor.Text & "')"
        Dim ocmd = New OleDbCommand(sql1, objKoneksi)
        ocmd.ExecuteNonQuery()
        objKoneksi.Close()
        Response.Redirect("FormView.aspx")
    End Sub

    Protected Sub btnupdate_Click(sender As Object, e As EventArgs) Handles btnupdate.Click
        objKoneksi.Close()
        objKoneksi.Open()
        Dim rubah As String = "update tbldata set Kategori,Kode, Nama_Perguruan, Alamat, No_Telp  = '" + txtkategori.Text + txtalamat.Text + txtkode.Text + txtnama.Text + txtnomor.Text + "' where Kode='" + txtkode.Text + "'"
        Dim ocmd = New OleDbCommand(rubah, objKoneksi)
        ocmd.ExecuteNonQuery()
        objKoneksi.Close()
        Response.Redirect("FormView.aspx")

    End Sub

    Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
        txtkode.Text = ""
        txtnama.Text = ""
        txtalamat.Text = ""
        txtkategori.Text = ""
        txtnomor.Text = ""
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        objKoneksi.Close()
        objKoneksi.Open()
        Dim sql4 As String = "delete from tbldata where Kode = '" & txtkode.Text & "'"
        Dim ocmd As New OleDbCommand(sql4, objKoneksi)
        ocmd.ExecuteNonQuery()
        objKoneksi.Close()
        MsgBox("Data Telah Dihapus")
        Response.Redirect("FormView.aspx")
    End Sub

    Protected Sub txtcari_Click(sender As Object, e As EventArgs) Handles btnsearch.Click
        objKoneksi.Close()
        objKoneksi.Open()
        Dim sql As String = "select * from tbldata where Kode like '%" & txtcariID.Text & "'"
        Dim ocmd As New OleDbCommand(sql, objKoneksi)
        Dim xReader As OleDbDataReader
        xReader = ocmd.ExecuteReader()

        If xReader.HasRows Then
            xReader.Read()

            txtkode.Text = xReader("Kode")
            txtnama.Text = xReader("Nama_Perguruan")
            txtalamat.Text = xReader("Kategori")
            txtkategori.Text = xReader("Alamat")
            txtnomor.Text = xReader("No_Telp")
            btnupdate.Enabled = True
        Else
            MsgBox("Data Tidak Ditemukan!!!")
            Exit Sub
        End If
        objKoneksi.Close()
    End Sub

    Protected Sub btnview_Click(sender As Object, e As EventArgs) Handles btnview.Click
        Response.Redirect("FormView.aspx")
    End Sub

    Protected Sub txtcariID_TextChanged(sender As Object, e As EventArgs) Handles txtcariID.TextChanged

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim aplikasi As New word.Application
        Dim dokumen As New word.Document
        Dim waktu As String = TimeOfDay

        dokumen = aplikasi.Documents.Open("D:\UTS\Report.docx")

        dokumen.Bookmarks("kode").Select()
        aplikasi.Selection.TypeText(txtcariID.Text)

        dokumen.Bookmarks("np").Select()
        aplikasi.Selection.TypeText(txtnama.Text)

        dokumen.Bookmarks("kategori").Select()
        aplikasi.Selection.TypeText(txtkategori.Text)

        dokumen.Bookmarks("alamat").Select()
        aplikasi.Selection.TypeText(txtalamat.Text)

        dokumen.Bookmarks("telp").Select()
        aplikasi.Selection.TypeText(txtnomor.Text)

        dokumen.SaveAs2("D:\UTS\coba.docx")
        MsgBox("TERHUBUNG")
        aplikasi.Visible = True

    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim aplikasiExcel As New Excel.Application
        Dim fileExcelnya As Excel.Workbook
        Dim waktu As String = TimeOfDay
        fileExcelnya = aplikasiExcel.Workbooks.Open("D:\UTS\Report.xlsx")
        aplikasiExcel.Range("A3").Value = txtcariID.Text
        aplikasiExcel.Range("B3").Value = txtnama.Text
        aplikasiExcel.Range("C3").Value = txtkategori.Text
        aplikasiExcel.Range("D3").Value = txtalamat.Text
        aplikasiExcel.Range("E3").Value = txtnomor.Text
        
        fileExcelnya.SaveAs("D:\UTS\UAS1.xlsx")
        MsgBox("TERHUBUNG")

        aplikasiExcel.Visible = True

    End Sub
End Class

Sekian penjelasan mengenai project Web Form Sistem Informasi Perguruan Tinggi ini. Mohon maaf atas segala kekurangan nya. Semoga bermanfaat.
Terimkasih telah mampir di blog sederhana ini.
#BisaKarenaTerbiasa