diskripsi dan prosedur latihan 27

16.46 |

DISKRIPSI LATIHAN 27

A. Object-object dalam Latihan_27_36110030:

1. Object Label

Terdapat lima label (yang bertuliskan penginputan barang, kode barang, nama barang, harga jual, dan jumlah barang).

2. Object Textbox

Terdapat empat textbox yang semuanya merupakan status input. Status input digunakan untuk memasukkan nilai: kode barang, nama barang, harga jual, dan jumlah barang yang akan disimpan ke dalam form BARANG di Ms Access.

3. Object Button

Terdapat satu object button (Simpan). Button Simpan digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam form BARANG di Ms Access.

B. Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Latihan_27_36110030.

C. Even

SIMPAN_36110030_Click

PROSEDUR PENYELESAIAN LATIHAN 27

1.KLIK STAR KEMUDIAN PILIH MICROSOFT VISUAL STUDIO 2008

2.KEMUDIAN KLIK NEW PROJECT PADA FILE

3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT

4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :

5.KEMUDIAN MASUKAN RUMUS :

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Latihan_27_36110030
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.Simpan = New System.Windows.Forms.Button
        Me.jb_36110030 = New System.Windows.Forms.TextBox
        Me.hj_36110030 = New System.Windows.Forms.TextBox
        Me.nb_36110030 = New System.Windows.Forms.TextBox
        Me.kb_36110030 = New System.Windows.Forms.TextBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'Simpan
        '
        Me.Simpan.Location = New System.Drawing.Point(249, 167)
        Me.Simpan.Name = "Simpan"
        Me.Simpan.Size = New System.Drawing.Size(75, 23)
        Me.Simpan.TabIndex = 19
        Me.Simpan.Text = "Simpan"
        Me.Simpan.UseVisualStyleBackColor = True
        '
        'jb_36110030
        '
        Me.jb_36110030.Location = New System.Drawing.Point(104, 140)
        Me.jb_36110030.Name = "jb_36110030"
        Me.jb_36110030.Size = New System.Drawing.Size(74, 20)
        Me.jb_36110030.TabIndex = 18
        '
        'hj_36110030
        '
        Me.hj_36110030.Location = New System.Drawing.Point(104, 114)
        Me.hj_36110030.Name = "hj_36110030"
        Me.hj_36110030.Size = New System.Drawing.Size(146, 20)
        Me.hj_36110030.TabIndex = 17
        '
        'nb_36110030
        '
        Me.nb_36110030.Location = New System.Drawing.Point(104, 88)
        Me.nb_36110030.Name = "nb_36110030"
        Me.nb_36110030.Size = New System.Drawing.Size(220, 20)
        Me.nb_36110030.TabIndex = 16
        '
        'kb_36110030
        '
        Me.kb_36110030.Location = New System.Drawing.Point(104, 62)
        Me.kb_36110030.Name = "kb_36110030"
        Me.kb_36110030.Size = New System.Drawing.Size(100, 20)
        Me.kb_36110030.TabIndex = 15
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(13, 143)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(77, 13)
        Me.Label5.TabIndex = 14
        Me.Label5.Text = "Jumlah Barang"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(13, 117)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(58, 13)
        Me.Label4.TabIndex = 13
        Me.Label4.Text = "Harga Jual"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(13, 91)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 13)
        Me.Label3.TabIndex = 12
        Me.Label3.Text = "Nama Barang"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(13, 65)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(69, 13)
        Me.Label2.TabIndex = 11
        Me.Label2.Text = "Kode Barang"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Mistral", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(64, 9)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(228, 38)
        Me.Label1.TabIndex = 10
        Me.Label1.Text = "Penginputan Barang"
        '
        'latihan_27_36110030
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(418, 209)
        Me.Controls.Add(Me.Simpan)
        Me.Controls.Add(Me.jb_36110030)
        Me.Controls.Add(Me.hj_36110030)
        Me.Controls.Add(Me.nb_36110030)
        Me.Controls.Add(Me.kb_36110030)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Name = "latihan_27_36110030"
        Me.Text = "latihan_27_36110030"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents Simpan As System.Windows.Forms.Button
    Friend WithEvents jb_36110030 As System.Windows.Forms.TextBox
    Friend WithEvents hj_36110030 As System.Windows.Forms.TextBox
    Friend WithEvents nb_36110030 As System.Windows.Forms.TextBox
    Friend WithEvents kb_36110030 As System.Windows.Forms.TextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label


End Class

6. KEMUDIAN UJI PROGRAM

jika sudah di uji maka akan muncul seperti ini :

7. JIKA SUDAH BERHASIL Save program anda