UAS - Web Program II

Web Aplikasi Input Barang Masuk


Web aplikasi inout barang masuk adalah aplikasi web yang berfungsi untuk mendata barang masuk suatu perusahaan retail untuk mempermudah dalam merekap dan mendata barang-barang yang baru datang. web sudah di upgrade memakai database. sehingga lebih memudahkan dalam mencari data dan melihat summary


Web page akan berisi form penginputan barang masuk sebagai berikut :

Form akan diisi sesuai dengan barang yang masuk, seperti berikut :

Jika kita mengklik Import to Access, maka inputan yang tadi kita isi akan masuk ke database.

berikut untuk tampilan summary nya.

berikut jika data tidak ada.

Source Code

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Imports System.Data
Imports System.Data.OleDb


Public Class About
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Wbprogram sources\databarang.mdb"
    Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
    Dim Xreader As OleDb.OleDbDataReader


    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aplikasinya As New word.Application
        Dim dokumennya As word.Document

        dokumennya = aplikasinya.Documents.Open("D:\1908 Collage's Shits\1908-2 Tugas\Tugas Kelas\WebProgram2\databasebarang.docx")

        dokumennya.Bookmarks("kodebarang").Select()
        aplikasinya.Selection.TypeText(txtkodebarang.Text)

        dokumennya.Bookmarks("namabarang").Select()
        aplikasinya.Selection.TypeText(txtnamabarang.Text)

        dokumennya.Bookmarks("jenisbarang").Select()
        aplikasinya.Selection.TypeText(ddjenisbarang.Text)

        dokumennya.Bookmarks("hargabarang").Select()
        aplikasinya.Selection.TypeText(txthargabarang.Text)

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim aplikasiexcel As New excel.Application
        Dim dokumenexcel As excel.Workbook

        dokumenexcel = aplikasiexcel.Workbooks.Open("D:\1908 Collage's Shits\1908-2 Tugas\Tugas Kelas\WebProgram2\databasebarang.xlsx")

        aplikasiexcel.Range("A5").Value = txtkodebarang.Text
        aplikasiexcel.Range("B5").Value = txtnamabarang.Text
        aplikasiexcel.Range("C5").Value = ddjenisbarang.Text
        aplikasiexcel.Range("D5").Value = txthargabarang.Text

        MsgBox("SUKSES")
        aplikasiexcel.Visible = True

    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        objekkoneksi.Open()
        Dim Tambah As String = "Insert Into barangmasuk Values ('" & txtkodebarang.Text & "','" & txtnamabarang.Text & "','" & ddjenisbarang.SelectedItem.Value & "','" & txthargabarang.Text & "')"

        Dim oCMD = New OleDbCommand(Tambah, objekkoneksi)
        oCMD.ExecuteNonQuery()
        MsgBox("Sukses")

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Not Len(txtkodebarang.Text) = 0 Then
            objekkoneksi.Close()
            objekkoneksi.Open()

            Dim ocmd As New OleDb.OleDbCommand("Select * from barangmasuk Where KodeBarang = ('" & txtnamabarang.Text & "'", objekkoneksi)

            Xreader = ocmd.ExecuteReader()
            If Xreader.HasRows Then
                Xreader.Read()
                txtkodebarang.Text = Xreader("KodeBarang")
                txtnamabarang.Text = Xreader("NamaBarang")
                ddjenisbarang.Text = Xreader("JenisBarang")
                txthargabarang.Text = Xreader("HargaBarang")
            Else
                txtkodebarang.Text = "Nomor Tersebut tidak Ada"

                Exit Sub
            End If
        End If
    End Sub
End Class

UTS - Web Program II

Web Aplikasi Input Barang Masuk


Web aplikasi inout barang masuk adalah aplikasi web yang berfungsi untuk mendata barang masuk suatu perusahaan retail untuk mempermudah dalam merekap dan mendata barang-barang yang baru datang.


Web page akan berisi form penginputan barang masuk sebagai berikut :

Form akan diisi sesuai dengan barang yang masuk, seperti berikut :

Jika kita mengklik Import to Word, maka inputan yang tadi kita isi akan masuk ke file Word. disini file word bisa berfungsi sebagai daftar barang yang masuk.

Sedangkan jika kita klik Import to Excel, maka otomatis inputan yang tadi akan tersimpan di file Excel. fungsi file excel ini adalah untuk merekap barang masuk juga sebagai acuan untuk pencarian barang yang sudah masuk.

File pun akan tersimpan otomatis di folder yang sudah kita tentukan sendiri.

Source Code

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel

Public Class About
    Inherits Page

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

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aplikasinya As New word.Application
        Dim dokumennya As word.Document

        dokumennya = aplikasinya.Documents.Open("D:\1908 Collage's Shits\1908-2 Tugas\Tugas Kelas\WebProgram2\databasebarang.docx")

        dokumennya.Bookmarks("kodebarang").Select()
        aplikasinya.Selection.TypeText(txtkodebarang.Text)

        dokumennya.Bookmarks("namabarang").Select()
        aplikasinya.Selection.TypeText(txtnamabarang.Text)

        dokumennya.Bookmarks("jenisbarang").Select()
        aplikasinya.Selection.TypeText(ddjenisbarang.Text)

        dokumennya.Bookmarks("hargabarang").Select()
        aplikasinya.Selection.TypeText(txthargabarang.Text)

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim aplikasiexcel As New excel.Application
        Dim dokumenexcel As excel.Workbook

        dokumenexcel = aplikasiexcel.Workbooks.Open("D:\1908 Collage's Shits\1908-2 Tugas\Tugas Kelas\WebProgram2\databasebarang.xlsx")

        aplikasiexcel.Range("A5").Value = txtkodebarang.Text
        aplikasiexcel.Range("B5").Value = txtnamabarang.Text
        aplikasiexcel.Range("C5").Value = ddjenisbarang.Text
        aplikasiexcel.Range("D5").Value = txthargabarang.Text

        MsgBox("SUKSES")
        aplikasiexcel.Visible = True

    End Sub

End Class

Konversi Bilangan Oktal ke Biner STMIK ERESHA

Nama : Rifati Rahma

NIM : 161021450261

Matkul : Arsitektur Komputer

Hi Reader Blog ku.

Di sini aku akan memberi tau bagaimana cara menghitung bilangan Oktal ke Biner. sebelum itu aku jelasin dulu yuk apa itu bilangan Oktal dan Biner.

Pengertian Oktal :
Bilangan oktal atau yang dikenal juga dengan sebutan bilangan basis 8 adalah bilangan yang menggunakan 8 simbol yakni 0,1,2,3,4,5,6,7 . tidak ada angka 8 dan 9 di sistem bilangan oktal ini.


Pengertian Biner :
Bilangan biner atau yang dikenal juga dengan sebutan bilangan basis 2 adalah bilangan yang hanya menggunakan 2 simbol angka yakni 0 dan 1. Tidak ada simbol lain baik berupa angka maupun huruf pada bilangan biner ini.

scr : http://cara-ini-itu123.blogspot.com

Nah! kali ini aku akan memberi tahu cara menghitungnya. dari versi ku ada 2 cara. yaitu Cara 1: ubah bilangan Oktal ke Desimal terlebih dahulu dan Cara 2: Mengkonversi dengan kamus bilangan. berikut cara nya :)

Cara 1 :

Di sini aku akan menggunakan Bilangan Oktal 154 untuk dijadikan bilangan binner.

seperti yang sudah aku bilang, pertama kita jadikan bilangan Oktal 154 ini menjadi desimal dengan cara sebagai berikut :

154₈ = (1 x 8²)₁₀ + (5 x 8¹)₁₀ + (4 x 8⁰)₁₀ = 64 + 40 + 4 = 108

Nah, setelah dapat angka Desimal 108, lalu kita ubah menjadi biner dengan cara di bagi 2. caranya adalah sebagai berikut :

108/2 = 54 sisa 0

54/2 = 27 sisa 0

27/2 = 13 sisa 1

13/2 = 6 sisa 1

6/2 = 3 sisa 0

3/2 = 1 sisa 1

1/2 = 0 sisa 0

* sisa disini dimaksudkan adalah ketika dibagi ada bilangan sisa ya

nah untuk jawabannya adalah angka yang berwarna merah. Tinggal disusun sesuai urutan dari bawah, yakni 00101100

Cara 2 :

Ini cara yang paling mudah, yaitu melihat rumus. Berikut rumusnya aku lampirkan :

scr image: http://mahasiswa.ung.ac.id

Nah cara nya adalah pertama kita pisahkan angka 1, 5 dan 4. Bisa dilihat di kamus jika dari kolom Oktal ke Biner adalah sebagao berikut :

1 = 001     5 = 101     4 = 100

Maka, Jika angka tersebut digabungkan akan menjadi 001101100.

Jadi, Kesimpulannya adalah Bilangan Biner dari 1548 adalah 001101100.

Bagaimana, mudah kan?

Jadi, Sekian dari saya.

UAS - Mesin Moore Modulus 4

Mesin moore adalah otomasi fasa berhingga (finite stateautomaton) di mana keluarannya ditentukan hanya oleh fasa saat itu(dan tidak terpengaruh oleh bagian masukan/input). Diagram fasa (statediagram) dari mesin Moore memiliki sinyal keluaran untuk masing-masing fasa.

Mesin Moore memiliki 6 (Enam) tupel, M = (Q, Σ, δ, S, Δ, λ).
Dimana :
Q = Himpunan State
Σ = Himpunan Simbol Input
δ = Fungsi Transisi
S = State Awal
Δ = Himpunan Output
λ = Fungsi Output untuk setiap State

Contoh kasus :

Penerapan Mesin Moore Kita akan mencari nilai sisa pembagian (modulus) suatu bilangan dengan 4. Dimana input dinyatakan dalam biner.

Konfigurasi :
Q = {q0, q1, q2, q3}
Σ = {0, 1}
S = q0
Δ = {0, 1, 2, 3}
λ = Q -> Δ , yaitu λ (q0) = j untuk j = 0,1,2,3
λ (q0) = 0
λ(q1) = 1
λ(q2) = 2
λ(q3) = 3
δ = Q x Σ -> Q didefinisikan sebagai berikut:

Gambar Mesin Moore modulus 4 :

Pembuktian:

• 3 mod 4 = ?
  input 3 dalam biner 0011
  bila kita masukkan 0011 kedalam mesin, urutan state yang dicapai adalah : q0, q0 , q0, q1, q0 
  State terakhir yang dicapai adalah q0, λ(q0) = 0 
  Maka 3 mod 4 = 0

• 4 mod 4 = ?
  input 4 dalam biner 0100
  bila kita masukkan 0100 kedalam mesin, urutan state yang dicapai adalah : q0, q0 , q1, q2, q1 
  State terakhir yang dicapai adalah q1, λ(q1) = 1 
  Maka 4 mod 4 = 0

• 9 mod 4 = ?
  input 9 dalam biner 1001
  bila kita masukkan 1001 kedalam mesin, urutan state yang dicapai adalah : q0, q1 , q2, q1, q0 
  State terakhir yang dicapai adalah q0, λ(q0) = 0 
  Maka 9 mod 4 = 0

Sekian.

UTS - FSA and Grammar

1. Finite State Automata (FSA)

Finite State Automata (FSA) adalah mesin abstrak berupa sistem model matematika dengan masukan dan keluaran diskrit yang dapat mengenali bahasa paling sederhana (bahasa reguler) dan dapat diimplementasikan secara nyata.

Pada FSA mesin mula-mula dalam state S0 dan menerima sederatan masukan yang dapat mengubahnya ke state-state berikutnya. Dalam FSA juga dikenal himpunan state-state tertentu yang disebut sabagai FINAL STATE. Perubahan dari satu state ke state berikutnya mengikuti sturan tertentu yang dirumuskan sebagai suatu FUNGSI transisi

Secara formal FSA dapat didefinisikan sebagai TUPLE-5 : (Q, ∑, δ, S, F). 
Q : himpunan hingga state 
∑ : himpunan hingga simbol input (alfabet) 
δ : fungsi transisi, menggambarkan transisi state FSA akibat pembacaan simbol input. Fungsi transisi ini biasanya diberikan dalam bentuk tabel. 
S : state awal
F : himpunan state akhir

Contoh :

2. Regular Grammer

Grammar adalah bentuk abstrak yang dapat diterima (accept) untuk membangkitkan suatu kalimat otomata berdasarkan suatu aturan tertentu.

Grammar G didefinisikan sebagai pasangan 4 tuple : V , T , P, dan S, dan dituliskan sebagai G(V , T , P, S), dimana :
V       : himpunan  simbol-simbol variable / non terminal
T       : himpunan simbol-simbol terminal
P       : himpunan produksi 
S    : simbol awal (atau simbol start)

Contoh Kasus Grammer