Invoice Go-Food Visual Studio-AutoWord dan AutoExcel

Assalamualaikum, 
Untuk memenuhi tugas dari UTS Pemrograman Visual, saya membuat aplikasi sebuah input data Go-Food.
Dari rancangan pertama yang saya buat sedikit berbeda dengan yang sudah ada.
Pada rancangan pertama saya memakai fungsi : TextBox, Button, CheckBox, ComboBox.
Saya merubahnya menjadi : TextBox, Button, ComboBox, dan RadioButton serta menambah gambar hanya pada desain.

Untuk hasil run pada saat rancangan saya membuat Form1 untuk AutoWord dan Form2 AutoExcel.
Dan untuk yang saya buat saat ini saya membaliknya Form1 untuk Excel dan Form2 untuk Word, pada intinya fungsi ini sama hanya saja penampilannya saja yang saya rubah.

Berikut ScreenShoot dari Desain :
Form1

Form2

Untuk Script Coding pada Form1 :

Imports excel = Microsoft.Office.Interop.Excel

Public Class Form1

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

        For a = 1 To 31

            cmbtgl.Items.Add(a)

        Next

        For a = 1 To 12

            cmbbln.Items.Add(a)

        Next

        For a = 2030 To 2001 Step -1

            cmbthn.Items.Add(a)

        Next

    End Sub

    Sub bersih()

        txtkepada.Clear()

        txtnomor.Clear()

        txtlokasi.Clear()

        txtrate.Clear()

        id1.Clear()

        id2.Clear()

        id3.Clear()

        id4.Clear()

        id5.Clear()

        byk1.Clear()

        byk2.Clear()

        byk3.Clear()

        byk4.Clear()

        byk5.Clear()

        hrg1.Clear()

        hrg2.Clear()

        hrg3.Clear()

        hrg4.Clear()

        hrg5.Clear()

        txtjumlah.Clear()

        txttotal.Clear()

    End Sub

    Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click

        cmbbln.Text = ""

        cmbtgl.Text = ""

        cmbthn.Text = ""

        menu1.Text = ""

        menu2.Text = ""

        menu3.Text = ""

        RadioButton1.Checked = False

        RadioButton2.Checked = False

        menu4.Text = ""

        menu5.Text = ""

        cmbbln.Focus()

        bersih()

    End Sub

    Private Sub btnnext_Click(sender As Object, e As EventArgs) Handles btninput.Click

        Dim myExcelApp As New excel.Application

        Dim myExcelBook As excel.Workbook

        myExcelApp.Visible = True

        myExcelBook = myExcelApp.Workbooks.Open("G:\tugas uts\data.xlsx")

        myExcelApp.Range("D5").Value = txtkepada.Text()

        myExcelApp.Range("D6").Value = txtnomor.Text()

        myExcelApp.Range("D7").Value = txtlokasi.Text()

        myExcelApp.Range("K5").Value = cmbtgl.Text()

        myExcelApp.Range("L5").Value = cmbbln.Text()

        myExcelApp.Range("M5").Value = cmbthn.Text()

        myExcelApp.Range("K6").Value = txtrate.Text()

        myExcelApp.Range("B11").Value = id1.Text()

        myExcelApp.Range("C11").Value = menu1.Text()

        myExcelApp.Range("F11").Value = byk1.Text()

        myExcelApp.Range("H11").Value = hrg1.Text()

        myExcelApp.Range("B12").Value = id2.Text()

        myExcelApp.Range("C12").Value = menu2.Text()

        myExcelApp.Range("F12").Value = byk2.Text()

        myExcelApp.Range("H12").Value = hrg2.Text()

        myExcelApp.Range("B13").Value = id3.Text()

        myExcelApp.Range("C13").Value = menu3.Text()

        myExcelApp.Range("F13").Value = byk3.Text()

        myExcelApp.Range("H13").Value = hrg3.Text()

        myExcelApp.Range("B14").Value = id4.Text()

        myExcelApp.Range("C14").Value = menu4.Text()

        myExcelApp.Range("F14").Value = byk4.Text()

        myExcelApp.Range("H14").Value = hrg4.Text()

        myExcelApp.Range("B15").Value = id5.Text()

        myExcelApp.Range("C15").Value = menu5.Text()

        myExcelApp.Range("F15").Value = byk5.Text()

        myExcelApp.Range("H15").Value = hrg5.Text()

        myExcelApp.Range("N10").Value = txtjumlah.Text()

        myExcelApp.Range("N12").Value = txttotal.Text()

        myExcelBook.SaveAs("G:\tugas uts\data_1.xlsx")

    End Sub

    Private Sub btnjumlah_Click(sender As Object, e As EventArgs) Handles btnjumlah.Click

        Dim banyak1, banyak2, banyak3, banyak4, banyak5, harga1, harga2, harga3, harga4, harga5, hasil As Integer

        banyak1 = byk1.Text

        banyak2 = byk2.Text

        banyak3 = byk3.Text

        banyak4 = byk4.Text

        banyak5 = byk5.Text

        harga1 = hrg1.Text

        harga2 = hrg2.Text

        harga3 = hrg3.Text

        harga4 = hrg4.Text

        harga5 = hrg5.Text

        hasil = (banyak1 * harga1) + (banyak2 * harga2) + (banyak3 * harga3) + (banyak4 * harga4) + (banyak5 * harga5)

        txtjumlah.Text = hasil

    End Sub

    Private Sub menu1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles menu1.SelectedIndexChanged

        If menu1.SelectedItem = "Bakso Urat" Then

            hrg1.Text = "20000"

        End If

        If menu1.SelectedItem = "Mie Ayam" Then

            hrg1.Text = "15000"

        End If

        If menu1.SelectedItem = "Mie Ayam Bakso" Then

            hrg1.Text = "25000"

        End If

        If menu1.SelectedItem = "Soto Ayam" Then

            hrg1.Text = "15000"

        End If

        If menu1.SelectedItem = "Soto Daging" Then

            hrg1.Text = "20000"

        End If

        If menu1.SelectedItem = "Bebek Goreng/ Bakar" Then

            hrg1.Text = "35000"

        End If

        If menu1.SelectedItem = "Ayam Goreng/ Bakar" Then

            hrg1.Text = "20000"

        End If

        If menu1.SelectedItem = "Gurame Goreng/ Bakar" Then

            hrg1.Text = "45000"

        End If

        If menu1.SelectedItem = "Bawal Goreng/ Bakar" Then

            hrg1.Text = "20000"

        End If

        If menu1.SelectedItem = "Lele Goreng/ Bakar" Then

            hrg1.Text = "15000"

        End If

    End Sub

    Private Sub menu2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles menu2.SelectedIndexChanged

        If menu2.SelectedItem = "Bakso Urat" Then

            hrg2.Text = "20000"

        End If

        If menu2.SelectedItem = "Mie Ayam" Then

            hrg2.Text = "15000"

        End If

        If menu2.SelectedItem = "Mie Ayam Bakso" Then

            hrg2.Text = "25000"

        End If

        If menu2.SelectedItem = "Soto Ayam" Then

            hrg2.Text = "15000"

        End If

        If menu2.SelectedItem = "Soto Daging" Then

            hrg2.Text = "20000"

        End If

        If menu2.SelectedItem = "Bebek Goreng/ Bakar" Then

            hrg2.Text = "35000"

        End If

        If menu2.SelectedItem = "Ayam Goreng/ Bakar" Then

            hrg2.Text = "20000"

        End If

        If menu2.SelectedItem = "Gurame Goreng/ Bakar" Then

            hrg2.Text = "45000"

        End If

        If menu2.SelectedItem = "Bawal Goreng/ Bakar" Then

            hrg2.Text = "20000"

        End If

        If menu2.SelectedItem = "Lele Goreng/ Bakar" Then

            hrg2.Text = "15000"

        End If

    End Sub

    Private Sub menu3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles menu3.SelectedIndexChanged

        If menu3.SelectedItem = "Bakso Urat" Then

            hrg3.Text = "20000"

        End If

        If menu3.SelectedItem = "Mie Ayam" Then

            hrg3.Text = "15000"

        End If

        If menu3.SelectedItem = "Mie Ayam Bakso" Then

            hrg3.Text = "25000"

        End If

        If menu3.SelectedItem = "Soto Ayam" Then

            hrg3.Text = "15000"

        End If

        If menu3.SelectedItem = "Soto Daging" Then

            hrg3.Text = "20000"

        End If

        If menu3.SelectedItem = "Bebek Goreng/ Bakar" Then

            hrg3.Text = "35000"

        End If

        If menu3.SelectedItem = "Ayam Goreng/ Bakar" Then

            hrg3.Text = "20000"

        End If

        If menu3.SelectedItem = "Gurame Goreng/ Bakar" Then

            hrg3.Text = "45000"

        End If

        If menu3.SelectedItem = "Bawal Goreng/ Bakar" Then

            hrg3.Text = "20000"

        End If

        If menu3.SelectedItem = "Lele Goreng/ Bakar" Then

            hrg3.Text = "15000"

        End If

    End Sub

    Private Sub menu4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles menu4.SelectedIndexChanged

        If menu4.SelectedItem = "Bakso Urat" Then

            hrg4.Text = "20000"

        End If

        If menu4.SelectedItem = "Mie Ayam" Then

            hrg4.Text = "15000"

        End If

        If menu4.SelectedItem = "Mie Ayam Bakso" Then

            hrg4.Text = "25000"

        End If

        If menu4.SelectedItem = "Soto Ayam" Then

            hrg4.Text = "15000"

        End If

        If menu4.SelectedItem = "Soto Daging" Then

            hrg4.Text = "20000"

        End If

        If menu4.SelectedItem = "Bebek Goreng/ Bakar" Then

            hrg4.Text = "35000"

        End If

        If menu4.SelectedItem = "Ayam Goreng/ Bakar" Then

            hrg4.Text = "20000"

        End If

        If menu4.SelectedItem = "Gurame Goreng/ Bakar" Then

            hrg4.Text = "45000"

        End If

        If menu4.SelectedItem = "Bawal Goreng/ Bakar" Then

            hrg4.Text = "20000"

        End If

        If menu4.SelectedItem = "Lele Goreng/ Bakar" Then

            hrg4.Text = "15000"

        End If

    End Sub

    Private Sub menu5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles menu5.SelectedIndexChanged

        If menu5.SelectedItem = "Bakso Urat" Then

            hrg5.Text = "20000"

        End If

        If menu5.SelectedItem = "Mie Ayam" Then

            hrg5.Text = "15000"

        End If

        If menu5.SelectedItem = "Mie Ayam Bakso" Then

            hrg5.Text = "25000"

        End If

        If menu5.SelectedItem = "Soto Ayam" Then

            hrg5.Text = "15000"

        End If

        If menu5.SelectedItem = "Soto Daging" Then

            hrg5.Text = "20000"

        End If

        If menu5.SelectedItem = "Bebek Goreng/ Bakar" Then

            hrg5.Text = "35000"

        End If

        If menu5.SelectedItem = "Ayam Goreng/ Bakar" Then

            hrg5.Text = "20000"

        End If

        If menu5.SelectedItem = "Gurame Goreng/ Bakar" Then

            hrg5.Text = "45000"

        End If

        If menu5.SelectedItem = "Bawal Goreng/ Bakar" Then

            hrg5.Text = "20000"

        End If

        If menu5.SelectedItem = "Lele Goreng/ Bakar" Then

            hrg5.Text = "15000"

        End If

    End Sub

    Private Sub btntotal_Click(sender As Object, e As EventArgs) Handles btntotal.Click

        Dim hasil As Integer

        Select Case txtrate.Text

            Case 0.1

                hasil = 0.1 * txtjumlah.Text

                txttotal.Text = hasil

            Case 0.15

                hasil = 0.15 * txtjumlah.Text

                txttotal.Text = hasil

        End Select

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        txtrate.Text = 0.1

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        txtrate.Text = 0.15

    End Sub

    Private Sub btnext_Click(sender As Object, e As EventArgs)

        Form2.Show()

        Me.Close()

    End Sub

    Private Sub btnnext_Click_1(sender As Object, e As EventArgs) Handles btnnext.Click

        Form2.Show()

        Me.Hide()

    End Sub

End Class

Untuk Script Coding pada Form2 :

Imports word = Microsoft.Office.Interop.Word

Public Class Form2

    

    Private Sub btnselesai_Click(sender As Object, e As EventArgs) Handles btnselesai.Click

        Dim Appnya As New word.Application

        Dim Dokumennya As word.Document

        Dokumennya = Appnya.Documents.Open("G:\tugas uts\hasil.docx")

        Dokumennya.Bookmarks("kepada").Select()

        Appnya.Selection.TypeText(txtkpd.Text)

        Dokumennya.Bookmarks("nomor").Select()

        Appnya.Selection.TypeText(txtnoin.Text)

        Dokumennya.Bookmarks("lokasi").Select()

        Appnya.Selection.TypeText(txtlok.Text)

        Dokumennya.Bookmarks("total").Select()

        Appnya.Selection.TypeText(txttocf.Text)

        Dokumennya.SaveAs2("G:\tugas uts\hasil1.docx")

        Appnya.Visible = True

    End Sub

    Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click

        Dim x = MsgBox("TERIMA KASIH SUDAH MELAKUKAN TRANSAKSI!", MsgBoxStyle.Information + MsgBoxStyle.Question, "INFORMASI")

            Me.Close()

            'End

    End Sub

End Class

Berikut hasil dari Run :

Semoga bermanfaat :)

Wassalamualaikum...

Metode Waterfall dalam Rekayasa Perangkat Lunak

Assalamualaikum,

Bagi kalian yang belum mengetahui mengenai RPL (Rekayasa Perangkat Lunak), RPL adalah suatu bidang profesi yang mendalami cara-cara pengembangan perangkat lunak termasuk pembuatan, pemeliharaan, manajemen organisasi pengembangan perangkat lunak manajemen kualitas.

Sangat banyak berbagai metode yang digunakan dalam Rekayasa Perangkat Lunak, salah satunya adalah metode waterfall. 

Mari kita bahas mengenai metode waterfall ini secara singkat.

Berikut salah satu pertanyaan yang jawabannya akan saya bahas dalam tulisan ini :

1. Sebenarnya apa sih metode waterfall itu?
2. Apa saja kelebihan dan kekurangan dari metode waterfall?
3. Apa bedanya metode waterfall dengan metode lainnya dalam RPL?

Mari kita bahas jawaban dari pertanyaan diatas

.

1.Sebenarnya apa sih metode waterfall itu?

Metode waterfall adalah sebuah model yang dikembangkan untuk pengembangan perangkat lunak dan membuat perangkat lunak. Model ini mencakup beberapa aktivitas sebagai : rekayasa permodelan system informasi, analisis kebutuhan, desain, coding, pegujian dan pemeliharaan.

Menurut salah satu ahli yang bernama (Pressman, Roger s.2001) Metode waterfall ini adalah suatu proses pengembangan perangkat lunak berurutan, dimana kemajuan dipandang sebagai terus mengalir kebawah seperti air terjun, melewati fase-fase perencanaan, permodelan, implementasi(konstruksi), dan pengujian.

Dan model ini merupakan model yang paling banyak dipakai oleh para pengembang software.

Inti dari metode ini adalah pengerjaan dari suatu system dilakukan secara berurutan atau secara linear. Jadi jika salah satu tahapan dalam pengembangan software ada yang belum dilakukan maka untuk tahapan selanjutnya otomatis tidak bias dilakukan.  Dibawah ini adalah salah satu contoh gambar dari metode waterfall. 

2. Apa saja kelebihan dan kekurangan dari metode waterfall?

Kelebihan dari waterfall :

• Kualitas dari system yang dihasilkan baik, karena pelaksanaannya dilakukan secara bertahap sehingga tidak terfokus pada tahap tertentu.
• Dokumen pengembangan system sangat terorganisir, karena setiap tahap harus selesai dan lengkap sebelum masuk ketahap selanjutnya, sehingga setiap tahapan memiliki dokumennya masing-masing.
• Metode ini sangat baik untuk digunakan  walaupun tergolong metode yang kuno.

Kekurangan Waterfall :

• Diperlukan manajemen yang baik, karena proses pengembangan tidak dapat dilakukan secara berulang sebelum terbentuknya produk.
• Kesalahan kecil pada tahapan akan menjadi masalah besar jika tidak diketahui sejak awal pengembangan yang berakibat pada tahap selanjutnya.
• Pelanggan harus sabar karena pada tahap sebelum desain memakan waktu yang sangat lama sebelum pembuatan perangkat lunak.

3. Apa bedanya metode waterfall dengan metode lainnya dalam RPL?

• Model Waterfall

Merupakan model pengembang software yang bersifat berurutan dalam membangun. Model ini disusun bertingkat, setiap tahap dalam model dilakukan berurutan.

• Model Prototyping

Metode yang dimulai dengan pengumpulan kebutuhan, model ini memberikan gambaran lengkap dari system untuk melakukan identifikasi keseluruhan.

Salah satu system yang cocok menggunakan metode waterfall adalah system operasi computer, karena pada system computer memiliki fungsi yang sangat komplek sehingga membutuhkan analisa yang penuh mengenai kebutuhan user tentang system operasi tersebut.

Semakin baiknya proses riset dan analisa yang dilakukan maka akan membuat fungsi sebuah system operasi computer menjadi lebih kompleks, ekslusif dan beragam sehingga banyak digunakan oleh user.

Semoga posting kali ini bermanfaat :)

https://id.wikipedia.org/wiki/Rekayasa_perangkat_lunak

http://www.orangbejo.com/2015/12/pengertian-beserta-kelebihan-dan.html

http://hayteknologi.blogspot.co.id/2012/10/perbandingan-waterfall-model-dangan_30.html