Followers

About Me

Unknown
Lihat profil lengkapku
RSS

diskripsi dan prosedur latihan 13

00.34 |

Deskripsi Latihan 13

A.    Object dalam Latihan_13_36110030 :
Hanya ada terdapat satu object dalam latihan ini yaitu datagridview. Terdapat 3 object datagridview. Digunakan untuk menampilkan tabel yang telah dibuat dalam script.

B.     Script Unique
Untuk script, akan ditampilkan secara keseluruhan dalam prosedur Latihan_13_36110030.

C.     Even
Latihan_13_36110030_Load

Prosedur Penyelesaian Latihan 13
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 :
Public Class Latihan_13_36110030
    Dim DT1 As New DataTable
    Dim DT2 As New DataTable
    Dim DT3 As New DataTable

    Dim DS As New DataSet

    Dim DBS1 As New BindingSource
    Dim DBS2 As New BindingSource
    Dim DBS3 As New BindingSource

    Private Sub Latihan_13_36110030_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DT1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DT1.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

        DT2.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DT2.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
        DT2.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

        DT3.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DT3.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
        DT3.Columns.Add(New DataColumn("Kode Rekening Sub-Sub", GetType(String)))
        DT3.Columns.Add(New DataColumn("Nama Rekening Sub-Sub", GetType(String)))

        Dim RPT As New Random
        For RI As Integer = 1 To RPT.Next(1, 5)
            DT1.Rows.Add(RI, "Nama Rekening " & RI)
            For RS As Integer = 1 To RPT.Next(1, 5)
                DT2.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To RPT.Next(1, 5)
                    DT3.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next

        DS.Tables.Add(DT1)
        DS.Tables.Add(DT2)
        DS.Tables.Add(DT3)

        DT1.TableName = "yy1"
        DT2.TableName = "yy2"
        DT3.TableName = "yy3"

        DS.Relations.Add(New DataRelation("NR1", DS.Tables("yy1").Columns("Kode Rekening Induk"), DS.Tables("yy2").Columns("Kode Rekening Induk")))
        DS.Relations.Add(New DataRelation("NR2", DS.Tables("yy2").Columns("Kode Rekening Sub"), DS.Tables("yy3").Columns("Kode Rekening sub")))

        DBS1.DataSource = DS
        DBS1.DataMember = "yy1"

        DBS2.DataSource = DBS1
        DBS2.DataMember = "NR1"

        DBS3.DataSource = DBS2
        DBS3.DataMember = "NR2"

        DGV1_36110030.DataSource = DBS1
        DGV2_36110030.DataSource = DBS2
        DGV3_36110030.DataSource = DBS3
    End Sub

    Private Sub DGV3_36110030_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV3_36110030.CellContentClick

    End Sub
    Private Sub DGV2_36110030_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV2_36110030.CellContentClick

    End Sub
    Private Sub DGV1_36110030_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV1_36110030.CellContentClick

    End Sub
End Class
6. KEMUDIAN UJI PROGRAM

  


7. JIKA SUDAH BERHASIL Save program anda
 

8. selesai





  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0
Diposting oleh Unknown

diskripsi dan prosedur latihan 12

00.33 |

DISKRIPSI LATIHAN 12


A.    Object-object dalam Latihan_12_36110030 :
1.                         Object Label
Terdapat sebelas label (yang bertuliskan no pembelian, nama barang, harga perunit, unit, tanggal, jumlah, total unit, total, no baris, no pembelian, baris sekarang).

2.                          Object Textbox
Terdapat sembilan textbox (enama status input; tiga status read only). Status input digunakan untuk memasukkan no pembelian, nama barang, harga perunit, no baris. Status Read Only digunakan untuk menampilkan hasil dari perkalian harga perunit dan unit, dan total unit serta jumlah dari data yang dimasukkan dalam datagridview.

3.                         Object Button
Terdapat tujuh object button (Simpan, button Tampilkan ada 3, dan button Hapus ada 3). Button simpan digunakan untuk memasukkan data yang telah diinput ke dalam datagridview. Button tampilkan digunakan untuk menampilkan data dalam datagridview ke dalam textbox tempat menginput data. Sedangkan button hapus digunkan untuk menghapus data yang ada di dalam datagridview.
   
      Object DataGridView
Terdapat satu objek datagridview yang digunakan untuk menampilkan data yang telah diinput dalam no pembelian, nama barang, harga perunit, unit, jumlah, dan tanggal pembelian.
    

1                Object DateTimePicker
     Terdapat satu object datetimepicker yang digunakan untuk menentukan tanggal pembelian.
  
B.     Script Unique
Untuk button Simpan, Tampilkan, dan Hapus:
Dim baris As DataRow

C.     Even
Latihan_12_36110048_Load
HP_36110030.TextChanged, UNIT_36110030.TextChanged
SIMPAN_36110030_Click
T1_36110030_Click
H1_3611003o_Click
yhuya()

D.    Property
Property TextBox ==> ReadOnly=True

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 :
Public Class Latihan_12_36110030
    Dim TABLE As New DataTable

    Private Sub Latihan_12_36110030_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TABLE.Columns.Add(New DataColumn("No. Pembelian", GetType(String)))
        TABLE.Columns.Add(New DataColumn("Nama Barang", GetType(String)))
        TABLE.Columns.Add(New DataColumn("Harga Perunit", GetType(Double)))
        TABLE.Columns.Add(New DataColumn("Tanggal Pembelian", GetType(Date)))
        TABLE.Columns.Add(New DataColumn("Unit", GetType(Integer)))
        TABLE.Columns.Add(New DataColumn("Jumlah", GetType(Double)))

        DGV_36110030.DataSource = TABLE

        Dim kolom(1) As DataColumn
        kolom(0) = TABLE.Columns("No. Pembelian")
        TABLE.PrimaryKey = kolom
    End Sub

    Private Sub UNIT_36110030_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UNIT_36110030.TextChanged
        JUMLAH_36110030.Text = Val(UNIT_36110030.Text) * Val(HP_36110030.Text)
    End Sub

    Private Sub SIMPAN_36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36110046.Click
        Dim baris As DataRow
        baris = TABLE.Rows.Find(NP_36110030.Text)

        If baris Is Nothing Then
            baris = TABLE.NewRow

            baris("No. Pembelian") = NP_36110030.Text
            baris("Nama Barang") = NB_36110030.Text
            baris("Harga Perunit") = Val(HP_36110030.Text)
            baris("Tanggal Pembelian") = TGL_36110030.Value.Date
            baris("Unit") = Val(UNIT_36110030.Text)
            baris("Jumlah") = Val(JUMLAH_36110030.Text)

            TABLE.Rows.Add(baris)

            NP_36110030.Text = ""
            NB_36110030.Text = ""
            HP_36110030.Text = ""
            UNIT_36110030.Text = ""
            JUMLAH_36110030.Text = ""

        Else : MsgBox("baris sudah ada")
            JUMLAH_36110030.Text = ""
        End If
        yhuya()
    End Sub

    Private Sub T1_36110046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1_36110030.Click
        Dim baris As DataRow

        If Val(NOBARIS_36110030.Text) <= TABLE.Rows.Count Then

            baris = TABLE.Rows(Val(NOBARIS_36110030.Text) - 1)

            NP_36110030.Text = baris("No. Pembelian")
            NB_36110030.Text = baris("Nama Barang")
            HP_36110030.Text = baris("Harga Perunit")
            TGL_36110030.Value = baris("Tanggal Pembelian")
            UNIT_36110030.Text = baris("Unit")
            JUMLAH_36110030.Text = baris("Jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        NOBARIS_36110030.Text = ""
    End Sub

    Private Sub H1_36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H1_36110030.Click
        Dim baris As DataRow


        If Val(NOBARIS_36110030.Text) <= TABLE.Rows.Count Then

            baris = TABLE.Rows(Val(NOBARIS_36110030.Text) - 1)
            baris.Delete()

        Else
            MsgBox("no. baris yang dimasukkan tidak ada")

        End If
        NOBARIS_36110030.Text = ""
        yhuya()
    End Sub

    Private Sub T2_36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T2_36110030.Click
        Dim baris As DataRow
        baris = TABLE.Rows.Find(NOPEMB_36110030.Text)

        If Not baris Is Nothing Then
            NP_36110030.Text = baris("No. Pembelian")
            NB_36110030.Text = baris("Nama Barang")
            HP_36110030.Text = baris("Harga Perunit")
            TGL_36110030.Value = baris("Tanggal Pembelian")
            UNIT_36110030.Text = baris("Unit")
            JUMLAH_36110030.Text = baris("Jumlah")
        Else
            MsgBox("no. pembelian tidak ada")

        End If
        NOPEMB_36110030.Text = ""
    End Sub

    Private Sub H2_36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H2_36110030.Click
        Dim baris As DataRow
        baris = TABLE.Rows.Find(NOPEMB_36110030.Text)

        If Not baris Is Nothing Then
            baris.Delete()
            NOPEMB_36110030.Text = ""
        Else
            MsgBox("no. pembelian yang dimasukkan tidak ada")
            NOPEMB_36110030.Text = ""
        End If
        yhuya()
    End Sub

    Private Sub T3_36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T3_36110030.Click
        Dim baris As DataRow
        baris = TABLE.DefaultView(BindingContext(TABLE).Position).Row

        NP_36110030.Text = baris("No. Pembelian")
        NB_36110030.Text = baris("Nama Barang")
        HP_36110030.Text = baris("Harga Perunit")
        TGL_36110030.Value = baris("Tanggal Pembelian")
        UNIT_36110030.Text = baris("Unit")
        JUMLAH_36110030.Text = baris("Jumlah")

    End Sub

    Private Sub H3_36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H3_36110030.Click
        Dim baris As DataRow
        baris = TABLE.DefaultView(BindingContext(TABLE).Position).Row
        baris.Delete()
        yhuya()
    End Sub

    Private Sub yhuya()
        Dim tu, total As Integer
        For Each x As DataRow In TABLE.Rows
            tu = tu + x("Unit")
            total = total + x("Jumlah")
        Next
        TOTUNIT_36110030.Text = tu
        TOT_36110030.Text = total
    End Sub

    Private Sub DGV_36110030_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_36110030.CellContentClick

    End Sub
End Class
6. KEMUDIAN UJI PROGRAM
 
 

7. JIKA SUDAH BERHASIL Save program anda
 
 


8. selesai
 

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0
Diposting oleh Unknown
Langganan: Postingan (Atom)