MEMBUAT APLIKASI INPUT UKURAN BADAN/PAKAIAN WANITA MENGGUNAKAN VISUAL STUDIO 2012

Penjelasan :

Aplikasi ini digunakan untuk penjahit, untuk memasukkan/input ukuran badan. Apabila ukuran badan/pakaian sudah di input semua, maka akan muncul di textbox jumlah ukuran panjang/lebar, bahan yang diperlukan, dan harga yang harus dibayar oleh pelanggan. Didalam aplikasi ini juga terdapat pilihan diskon, apabila salah satu diskon dipilih, harga akan berkurang sesuai diskon yang telah dipilih.

  

Langka-langkah membuat aplikasi :

1.    Buka aplikasi Visual Studio 2012 › New Project › Windows › Windows Form Application › Ok

Maka akan muncul form kosong seperti dibawah ini

2. Desain form tersebut dengan menggunakan ToolBox yang ada disamping kiri atas

 

Toolbox yang digunakan diantaranya : Label, TextBox, ComboBox, Button, PictureBox, dan Timer

Label :

Aplikasi Input Ukuran Pakaian Wanita, Tanggal, Bulan, Tahun, Nama Pelanggan, Model Pakaian, Ukuran Badan, Lingkar Badan, Lingkar Pinggang, Panjang Dada, Panjang Punggung, Lebar Dada, Lebar Punggung, Bahu, Panjang Tangan, Lingkar Tangan, Lingkar Pinggul, Panjang Baju, Jumlah Ukuran, Bahan yang diperlukan, Diskon, cm (12), m.

TextBox :

Bulan (nama variable : bulan)

Tampil (nama variable : tbtgl)

Nama Pelanggan (nama variable : pelanggan)

Lingkar Badan (nama variable : TextBox1)

Lingkar Pinggang (nama variable : TextBox2)

Panjang Dada (nama variable : TextBox3)

Panjang Punggung (nama variable : TextBox4)

Lebar Dada (nama variable : TextBox5)

Lebar Punggung (nama variable : TextBox6)

Bahu (nama variable : TextBox7)

Panjang Tangan (nama variable : TextBox8)

Lingkar Tangan (nama variable : TextBox9)

Lingkar Pinggul (nama variable : TextBox10)

Panjang Baju (nama variable : TextBox11)

Jumlah Ukuran/Panjang  (nama variable : tbpanjang)

Jumlah Ukuran/Lebar (nama variable : tblebar)

Bahan yang diperlukan/Panjang (nama variable : hpanjang)

Bahan yang diperlukan/Lebar (nama variable : hlebar)

Harga (nama variable : harga)

Diskon (nama variable : dsk, dskn)

Total (nama variable : ttlakhir)

ComboBox :

Tanggal (nama variable : ComboBox1)

Bulan (nama variable : ComboBox2)

Tahun (nama variable : ComboBox3)

Model Pakaian (nama variable : cbmodel)

Button :

Tampil (nama variable : Button2)

Jumlah Ukuran/Panjang (nama variable : btpanjang)

Jumlah Ukuran/Lebar (nama variable : btlebar)

Bahan yang diperlukan/Panjang (nama variable : btpanjang2)

Bahan Yang diperlukan/Lebar (nama variable : btlebar2)

Harga (nama variable : Button5)

Start (nama variable : btnmulai)

Total (nama variable : Button3)

Simpan (nama variable : Button4)

Tutup (nama variable : Button1)

Timer (nama variable : timer1)

3. Desain form dengan ToolBox seperti yang telah disebutkan diatas, sehingga tampilan/desain menjadi seperti dibawah ini

Masing-masing ToolBox tersebut mempunyai nama variable, cara mengubah nama variable ada disamping kanan, Properties › (DataBindings) › (Name)

Berikut adalah screenshoot source code pada masing-masing ToolBoox :

Source code pada form Nurmala Tailor :

Imports word = Microsoft.Office.Interop.Word

Public Class Form1

    Dim Appnya As New word.Application

    Dim Dokumennya As word.Document

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

        For a = 1 To 31

            ComboBox1.Items.Add(a)

        Next

        For b = 1 To 12

            ComboBox2.Items.Add(b)

        Next

        For c = 2016 To 2025

            ComboBox3.Items.Add(c)

        Next

        cbmodel.Items.Add("Dress")

        cbmodel.Items.Add("Gaun")

        cbmodel.Items.Add("Kemeja")

        cbmodel.Items.Add("Cardigan")

   End Sub

Source code pada ComboBox Bulan :

Select Case ComboBox2.Text

            Case 1

                bulan.Text = "Januari"

            Case 2

                bulan.Text = "Februari"

            Case 3

                bulan.Text = "Maret"

            Case 4

                bulan.Text = "April"

            Case 5

                bulan.Text = "Mei"

            Case 6

                bulan.Text = "Juni"

            Case 7

                bulan.Text = "Juli"

            Case 8

                bulan.Text = "Agustus"

            Case 9

                bulan.Text = "September"

            Case 10

                bulan.Text = "Oktober"

            Case 11

                bulan.Text = "November"

            Case 12

                bulan.Text = "Desember"

        End Select

   End Sub

Source code pada Button Tampil :

  

tbtgl.Text = ComboBox1.Text + "-" + Strings.Left(bulan.Text, 3) + "-" + ComboBox3.Text

End Sub

 

Source code pada Button Jumlah Ukuran/Panjang :

    Dim uku3, uku4, uku8, uku11, hasil As Integer

        uku3 = TextBox3.Text

        uku4 = TextBox4.Text

        uku8 = TextBox8.Text

        uku11 = TextBox11.Text

        hasil = uku3 + uku4 + uku8 + uku11

        tbpanjang.Text = hasil

    End Sub

Source code pada Button Jumlah Ukuran/Lebar :

Dim uku1, uku2, uku5, uku6, uku7, uku9, uku10, hasil As Integer

        uku1 = TextBox1.Text

        uku2 = TextBox2.Text

        uku5 = TextBox5.Text

        uku6 = TextBox6.Text

        uku7 = TextBox7.Text

        uku9 = TextBox9.Text

        uku10 = TextBox10.Text

        hasil = uku1 + uku2 + uku5 + uku6 + uku7 + uku9 + uku10

        tblebar.Text = hasil

    End Sub

Source code pada Button Bahan Yang dibutuhkan/Panjang :

Dim ukuran As Integer

        ukuran = tbpanjang.Text

        If (ukuran < 80) Then

            hpanjang.Text = "1"

        End If

        If (ukuran >= 80) And (ukuran < 131) Then

            hpanjang.Text = "1.5"

        End If

        If (ukuran >= 131) And (ukuran < 181) Then

            hpanjang.Text = "2"

        End If

        If (ukuran >= 181) And (ukuran < 231) Then

            hpanjang.Text = "2.5"

        End If

        If (ukuran >= 231) And (ukuran < 281) Then

            hpanjang.Text = "3"

        End If

        If (ukuran >= 281) And (ukuran < 331) Then

            hpanjang.Text = "3.5"

        End If

        If (ukuran >= 331) And (ukuran <= 381) Then

            hpanjang.Text = "4"

        End If

    End Sub

Source code pada Button Bahan Yang dibutuhkan/Lebar :

Dim ukuran As Integer

        ukuran = tblebar.Text

        If (ukuran < 80) Then

            hlebar.Text = "1"

        End If

        If (ukuran >= 80) And (ukuran < 131) Then

            hlebar.Text = "1.5"

        End If

        If (ukuran >= 131) And (ukuran < 181) Then

            hlebar.Text = "2"

        End If

        If (ukuran >= 181) And (ukuran < 231) Then

            hlebar.Text = "2.5"

        End If

        If (ukuran >= 231) And (ukuran < 281) Then

            hlebar.Text = "3"

        End If

        If (ukuran >= 281) And (ukuran < 331) Then

            hlebar.Text = "3.5"

        End If

        If (ukuran >= 331) And (ukuran <= 381) Then

            hlebar.Text = "4"

        End If

    End Sub

Source code pada Button Harga :

Dim har1, har2, hasil As Double

        har1 = hpanjang.Text

        har2 = hlebar.Text

        hasil = (har1 * 30000) * har2

        harga.Text = hasil

    End Sub

Source code Button Start :

If btnmulai.Text = "&Start" Then

            btnmulai.Text = "&Stop"

            Timer1.Enabled = True

            dskn.Text = ""

            PictureBox1.Image = Nothing

        Else

            btnmulai.Text = "&Start"

            Timer1.Enabled = False

            Select Case dsk.Text

                Case 1

                    dskn.Text = "10"

                    PictureBox1.Image = System.Drawing.Image.FromFile("D:\TUGAS KULIAH\OTHER\dis3.png")

                Case 2

                    dskn.Text = "15"

                    PictureBox1.Image = System.Drawing.Image.FromFile("D:\TUGAS KULIAH\OTHER\dis2.png")

                Case 3

                    dskn.Text = "20"

                    PictureBox1.Image = System.Drawing.Image.FromFile("D:\TUGAS KULIAH\OTHER\dis1.png")

            End Select

        End If

    End Sub

Source code pada Button Total :

Dim total1, total2, hasil As Integer

        total1 = harga.Text

        total2 = dskn.Text

        hasil = total1 - (total1 * total2 / 100)

        ttlakhir.Text = hasil

    End Sub

Source code pada Button Simpan :

Dokumennya = Appnya.Documents.Open("D:\TUGAS KULIAH\SEMESTER V\Ms.Visual Studio\Auto Word1.docx")

        Dokumennya.Bookmarks("tanggal").Select()

        Appnya.Selection.TypeText(tbtgl.Text)

        Dokumennya.Bookmarks("nama").Select()

        Appnya.Selection.TypeText(pelanggan.Text)

        Dokumennya.Bookmarks("TextBox1").Select()

        Appnya.Selection.TypeText(TextBox1.Text)

        Dokumennya.Bookmarks("TextBox2").Select()

        Appnya.Selection.TypeText(TextBox2.Text)

        Dokumennya.Bookmarks("TextBox3").Select()

        Appnya.Selection.TypeText(TextBox3.Text)

        Dokumennya.Bookmarks("TextBox4").Select()

        Appnya.Selection.TypeText(TextBox4.Text)

        Dokumennya.Bookmarks("TextBox5").Select()

        Appnya.Selection.TypeText(TextBox5.Text)

        Dokumennya.Bookmarks("TextBox6").Select()

        Appnya.Selection.TypeText(TextBox6.Text)

        Dokumennya.Bookmarks("TextBox7").Select()

        Appnya.Selection.TypeText(TextBox7.Text)

        Dokumennya.Bookmarks("TextBox8").Select()

        Appnya.Selection.TypeText(TextBox8.Text)

        Dokumennya.Bookmarks("TextBox9").Select()

        Appnya.Selection.TypeText(TextBox9.Text)

        Dokumennya.Bookmarks("TextBox10").Select()

        Appnya.Selection.TypeText(TextBox10.Text)

        Dokumennya.Bookmarks("TextBox11").Select()

        Appnya.Selection.TypeText(TextBox11.Text)

        Dokumennya.Bookmarks("pnjng").Select()

        Appnya.Selection.TypeText(hpanjang.Text)

        Dokumennya.Bookmarks("lbr").Select()

        Appnya.Selection.TypeText(hlebar.Text)

        Dokumennya.Bookmarks("mdl").Select()

        Appnya.Selection.TypeText(cbmodel.Text)

        Dokumennya.Bookmarks("harga").Select()

        Appnya.Selection.TypeText(harga.Text)

        Dokumennya.Bookmarks("dsk").Select()

        Appnya.Selection.TypeText(dskn.Text)

        Dokumennya.Bookmarks("ttlharga").Select()

        Appnya.Selection.TypeText(ttlakhir.Text)

        Dokumennya.SaveAs2("D:\TUGAS KULIAH\SEMESTER V\Ms.Visual Studio\Auto Word1 " & pelanggan.Text & ".docx")

        Appnya.Visible = True

    End Sub

Sorce code pada Button Tutup :

Dim total1, total2, hasil As Integer

        total1 = harga.Text

        total2 = dskn.Text

        hasil = total1 - (total1 * total2 / 100)

        ttlakhir.Text = hasil

    End Sub

Source code pada Timer :

 For a = 2 To 4
            dsk.Text = Strings.Left(Rnd() * a, 1)
        Next
    End Sub 

Selesai.