Welcome to My Blog: November 2016

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)

For b = 1 To 12

ComboBox2.Items.Add(b)

For c = 2016 To 2025

ComboBox3.Items.Add(c)

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.

Welcome to My Blog

Minggu, 20 November 2016

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