Latihan_12_36110052

Latihan_12_36110052

A.    Object-object dalam Latihan_12_36110052 :

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.

   

4.          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.

    

5.         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_36110052_Load

HPU_36110052_TextChanged

SIMPAN_36110052_Click

TAMPILKAN1_36110048_Click

HAPUS1_36110048_Click

VIA()

D.    Property

 Property TextBox ==> ReadOnly=True

Langkah-langkah kerja  latihan_12_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_12_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Buat 2 groupbox yang aplikasikanya dapat diambil dri toolbox

4.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara

5.      Ubah text groupbox pertama menjadi FORMULIR dan groupbox kedua menjadi DATA

6.      Di dalam groupbox pertama buat  6 label dengan dan ubah textnya menjadi no pembelian,nama barang,harga per unit,unit,jumlah,tanggal

7.      Buat 1 date time picker dan ubah namanya contoh saya ubah menjadi DTP_36110052

8.      Buat 4 textbox dan ubah setiap nama dari textbox tersebut contoh:

Np_36110052,nb_36110052,hpu_36110052,unit_36110052

9.      Buat 1 textbox dan ubah status  textbox menjadi read only di atas dengan cara klik kanan àpropertiesàcari kalimat read onlyàubah statusnya menjadi true  dan berikan nama textbox tersebut contoh jumlah_36110052

10.  Didalam groupbox kedua buat 1 dategridview dan ubah namanya,contoh datagridview_36110052

11.  Buat 3 groupbox didalam groupbox kedua dan ubah  textnya masing-masing menjadi berdasarkan no baris,berdasarkan no pembekian dan berdasarkan baris sekarang

12.  Buat 5 label dan ubah textnya menjadi total unit,total,no.baris,no pembelian,baris sekarang

13.  Buat 4 textbox dan 2 diantaranya dengan status read only dan berikan nama setiap textbox yang dibuat

14.  Buat 6 button dan ubah teksnya menjadi tampilkan dan hapus

15.  Form yang kita buat berbentuk seperti ini

16.  Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public Class LATIHAN_12_36110052

    Dim TABEL As New DataTable

    Sub LATIHAN_12_36110052_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TABEL.Columns.Add(New DataColumn("no. pembelian", GetType(String)))

        TABEL.Columns.Add(New DataColumn("nama barang", GetType(String)))

        TABEL.Columns.Add(New DataColumn("harga per unit", GetType(Double)))

        TABEL.Columns.Add(New DataColumn("tanggal pembelian", GetType(Date)))

        TABEL.Columns.Add(New DataColumn("unit", GetType(Integer)))

        TABEL.Columns.Add(New DataColumn("jumlah", GetType(Double)))

        DataGridView_36110052.DataSource = TABEL

        Dim kolom(1) As DataColumn

        kolom(0) = TABEL.Columns("no. pembelian")

        TABEL.PrimaryKey = kolom

    End Sub

    Private Sub HPU_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPU_36110052.TextChanged, UNIT_36110052.TextChanged

        JUMLAH_36110052.Text = Val(HPU_36110052.Text) * Val(UNIT_36110052.Text)

    End Sub

    Private Sub SIMPAN_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36110052.Click

        Dim baris As DataRow

        baris = TABEL.Rows.Find(NP.Text)

        If baris Is Nothing Then

            baris = TABEL.NewRow

            baris("no. pembelian") = NP_36110052.Text

            baris("nama barang") = NB_36110052.Text

            baris("harga per unit") = Val(HPU_36110052.Text)

            baris("tanggal pembelian") = DTP_36110052.Value.Date

            baris("unit") = Val(UNIT_36110052.Text)

            baris("jumlah") = Val(JUMLAH_36110052.Text)

            TABEL.Rows.Add(baris)

            NP_36110052.Text = ""

            NB_36110052.Text = ""

            HPU_36110052.Text = ""

            UNIT_36110052.Text = ""

            JUMLAH_36110052.Text = ""

        Else : MsgBox("baris sudah ada")

            JUMLAH.Text = ""

        End If

        VIA()

    End Sub

    Private Sub TAMPILKAN_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPILKAN_36110052.Click

        Dim baris As DataRow

        If Val(NBARIS_36110052.Text) <= TABEL.Rows.Count Then

            baris = TABEL.Rows(Val(NBARIS_36110052.Text) - 1)

            NP_36110052.Text = baris("no. pembelian")

            NB_36110052.Text = baris("nama barang")

            HPU_36110052.Text = baris("harga per unit")

            DTP_36110052.Value = baris("tanggal pembelian")

            UNIT_36110052.Text = baris("unit")

            JUMLAH_36110052.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        NBARIS_36110052.Text = ""

    End Sub

    Private Sub HAPUS_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_36110052.Click

        Dim baris As DataRow

        If Val(NBARIS_36110052.Text) <= TABEL.Rows.Count Then

            baris = TABEL.Rows(Val(NBARIS_36110052.Text) - 1)

            baris.Delete()

            VIA()

        Else

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

        End If

        NBARIS_36110052.Text = ""

    End Sub

    Private Sub TAMPILKAN2_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPILKAN2_36110052.Click

        Dim baris As DataRow

        baris = TABEL.Rows.Find(NPEM_36110052.Text)

        If Not baris Is Nothing Then

            NP_36110052.Text = baris("no. pembelian")

            NB_36110052.Text = baris("nama barang")

            HPU_36110052.Text = baris("harga per unit")

            DTP_36110052.Value = baris("tanggal pembelian")

            UNIT_36110052.Text = baris("unit")

            JUMLAH_36110052.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        NPEM_36110052.Text = ""

    End Sub

    Private Sub HAPUS2_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS2_36110052.Click

        Dim baris As DataRow

        baris = TABEL.Rows.Find(NPEM_36110052.Text)

        If Not baris Is Nothing Then

            baris.Delete()

            VIA()

            NPEM_36110052.Text = ""

        Else

            MsgBox("no. pembelian yang dimasukkan tidak ada")

            NPEM_36110052.Text = ""

        End If

    End Sub

    Private Sub TAMPILKAN3_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPILKAN3_36110052.Click

        Dim baris As DataRow

        baris = TABEL.DefaultView(BindingContext(TABEL).Position).Row

        NP_36110052.Text = baris("no. pembelian")

        NB_36110052.Text = baris("nama barang")

        HPU_36110052.Text = baris("harga per unit")

        DTP_36110052.Value = baris("tanggal pembelian")

        UNIT_36110052.Text = baris("unit")

        JUMLAH_36110052.Text = baris("jumlah")

    End Sub

    Private Sub HAPUS3_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS3_36110052.Click

        Dim baris As DataRow

        baris = TABEL.DefaultView(BindingContext(TABEL).Position).Row

        baris.Delete()

        VIA()

    End Sub

    Private Sub VIA()

        Dim tu, total As Integer

        For Each x As DataRow In TABEL.Rows

            tu = tu + x("unit")

Latihan_13_36110052

Latihan_8_36110052

Latihan_08_36110052

A.   Object-object dalam Latihan_08_36110052 :

1.     Object Label

     Terdapat dua belas label (yang bertuliskan nama, alamat, anda, teman 1, teman 2, teman 3, teman 4, teman 5, cerita 1, cerita 2, cerita 3, dan cerita 4).

2.   Object Textbox

    Terdapat enam belas textbox (dua belas status input; empat status read only). Status input digunakan untuk memasukkan nilai yang akan dimasukkan dalam perhitungan. Status Read Only digunakan untuk menampilkan hasil perhitungan dari angka-angkat yang sudah diinput.

3.  Object Button

    Terdapat satu object button (Close). Button Close digunakan untuk mengosongkan kembali semua TextBox.

B.     Script Unique

  Untuk button Close

    CLOSE_36110052.Text = ""

C.       Even

   CLOSE_36110052­_Click

   TextBox1_36110052_TextChanged

D.        Property

   Property TextBox ==> ReadOnly=True

Langkah-langkah kerja  latihan_8_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_8_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Buat  12 label dengan menggunakan toolbox dan ubah text setiap label tersebut,text setiap label dapat dilihat pada gambar diatas dimulai dari nama,alamat,anda,teman1, dst.

4.      Buat 12 textbox dan berikan nama masing-masing textbox tersebut,contoh saya berikan nama:

Textbox1_36110052 sampai textbox12_36110052

5.      Buat 4 lagi textbox tetapi ubah statusnya menjadi read only, caranya klik kanan àproperties àcari kalimat read only dan ubah statusnya menjadi false

6.      Ubah juga scroolbar ke-4 textbox diatas menjadi vertical dan berikan nama masing-masing textbox diatas. Contoh saya berikan nama CERITA1_36110052, CERITA2_36110052, CERITA3_36110052, CERITA4_36110052

7.      Buat satu button dan ubah textnya menjadi close

8.      Berikan nama button tersebut,contoh saya berikan nama close_36110052

9.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Private Sub VIA1()

        CERITA1_36110052.Text = " NAMA SAYA ADALAH " & TextBox1_36110052.Text & " SEKARANG INI SAYA TINGGAL DI MAKASSAR TEPATNYA DI " & TextBox7_36110052.Text & "." & " DI SINI SAYA TINGGAL TANPA ORANG TUA KARENA ORANG TUA SAYA SEKARANG ADA DI TORAJA " & "." & "SAYA MULAI TINGGAL DI SINI SEMENJAK SAYA MULAI KULIAH DI POLITEKNIK NEGERI UJUNG PANDANG " & "." & " AWAL HARUS TINGGAL D SINI TANPA ORANG TUA SANGAT BERAT KARENA DARI AWAL SAYA TIDAK PERNAH JAUH DARI ORANG TUA " & "." & " TETAPI " & "," & " JIKA HARUS BERMANJA-MANJA DAN SELALU MENGHARAPKAN ORANG TUA SAYA BERFIKIR KAPAN SAYA BISA MANDIRI KARENA ITULAH MULAI SEKARANG SAYA HARUS MANDIRI " & " ALASAN KEDUA SAYA MASIH BISA BERTAHAN SAMPE SEKARANG KARENA SAYA MELIHAT BANYAK TEMAN-TEMAN SAYA YANG JUGA MENGALAMI NASIB YANG SAMA SEPERTI SAYA " & "." & " CONTOHNYA " & TEXTBOX2_36110052.Text & " DIA TINGGAL DI DAERAH " & TextBox8_36110052.Text & " DAN JUGA " & TextBox3_36110052.Text & " YANG TINGGAL SANGAT JAUH DARI ORANG TUANYA KARENA ORANG TUANYA ADA DI KALIMANTAN DAN DIA HARUS KULIAH DI MAKASSAR " & "." & " SAAT INI DIA TINGGAL DI " & TextBox9_36110052.Text & " BEDA DENGAN TEMAN SAYA YANG BERNAMA " & TextBox3_36110052.Text & " DIA MASIH BERUNTUNG DARI KAMI SEMUA KARENA IA MASIH TINGGAL BERSAMA ORANG TUANYA DI " & TextBox9_36110052.Text & "." & " KETIGA TEMAN SAYA YANG LAIN JUGA TINGGAL JAUH DARI ORANG TUA MISALNYA " & TextBox4_36110052.Text & " DIA TINGGAL DI " & TextBox10_36110052.Text & " DAN " & TextBox5_36110052.Text & " YANG JUGA TINGGAL DI " & TextBox11_36110052.Text & " RUMAH MEREKA BERDEKATAN " & "." & " ADA JUGA TEMAN SAYAYANG TINGGAL BERSAMA SANAK SAUDARANYA YANG ADA D MAKASSAR " & "." & " CONTOHNYA  " & TextBox5_36110052.Text & "YANG TINGGAL DI " & TextBox12_36110052.Text & "."

    End Sub

    Private Sub VIA2()

        CERITA2_36110052.Text = " NAMA SAYA ADALAH " & TextBox1_36110052.Text & " SAAT INI SAYA BERUMUR 15 TAHUN " & "." & " SAYA SEKARANG KULIAH DI POLITEKNIL NEGERI UJUNG PANDANG JURUSAN AKUNTANSI " & "." & " SAYA TINGGAL DI " & TextBox7_36110052.Text & " TEMAN SAYA BERNAMA " & TEXTBOX2_36110052.Text & " SAAT DIA BERUMUR 15 TAHUN " & "." & " KULIAH DI POLITEKNIL NEGERI UJUNG PANDANG JURUSAN AKUNTANSI " & "." & " DI TINGGAL DI " & TextBox8_36110052.Text & "TEMAN SAYA YANG LAIN BERNAMA " & TextBox3_36110052.Text & " SAAT INI DIA BERUMUR 20 TAHUN " & " SAYA SEKARANG KULIAH DI POLITEKNIL NEGERI UJUNG PANDANG JURUSAN AKUNTANSI " & "." & " DIA TINGGAL DI " & TextBox9_36110052.Text & " TEMAN SAYA YANG LAIN BERNAMA " & TextBox4_36110052.Text & " DIA KULIAH DI UNIVERISITAS MUSLIM INDONESIA JURUSAN KEDOKTERAN " & "." & " SAAT INI DIA TINGGAL BERSAMA DENGAN KAKAK-KAKAKNYA YANG JUGA KULIAH DAN BEKERJA DI DAERAH YANG SAMA " & "." & " DIA TINGGAL DI " & TextBox10_36110052.Text & "," & " SELAIN KELUARGANYA " & TextBox4_36110052.Text & " JUGA TINGGAL DENGAN DUA TEMAN SAYA YANG LAIN YANG BERNAMA " & TextBox5_36110052.Text & " DAN " & TextBox6_36110052.Text & "." & " AWALNYA " & TextBox5_36110052.Text & " TINGGAL DI " & TextBox11_36110052.Text & " DAN " & TextBox6_36110052.Text & " TINGGAL DI " & TextBox12_36110052.Text & " TETAPI KARENA MEREKA TIDAK BETAH AKHIRNYA MEREKA MEMILIH TINGGAL BERSAMA-SAMA" & "."

 End Sub

Private Sub VIA3()

        CERITA3_36110052.Text = TEXTBOX2_36110052.Text & " ADALAH SEORANG SISWA YANG TINGGAL DI PERKOTAAN DAN AYAHNYA " & " DIPINFAH TUGASKAN DI DAERAH TERPENCIL,MAKA " & TEXTBOX2_36110052.Text & "JUGA IKUT PINDAH SEKOLAH,UNTUNGNYA DI SEKOLAH BARU  " & TEXTBOX1.Text & " PUNYA TEMAN YANG SANGAT BAIK YANG BERNAMA " & TEXTBOX6_36110052 & " SENINGGA " & TEXTBOX2_36110052.TEXT & " MERASA BETAH. DI SEKOLAH BARUNYA, TERNYATA " & TEXTBOX2_36110052.TEXT & " DITAKSIR OLEH SALAH SEORANG SISWA YANG SANGAT POPULER DI SEKOLAHNYA YAITU" & TEXTBOX3_36110052.TEXT & ". " & TEXTBOX3_36110052.TEXT & " ADALAH KETUA OSIS DAN PEMAIN BASKET TERHEBAT DI SEKOLAH TERSEBUT. DAN " & TEXTBOX2_36110052.TEXT & " JUGA NAKSIR SAMA " & TEXTBOX3_36110052.TEXT & "."

    End Sub

    Private Sub VIA4()

        CERITA4_36110052.TEXT = TEXTBOX3_36110052.TEXT & " MEMPUNYAI DUA ORANG SAHABAT. LUCUNYA, MEREKA HANYA BERSAHABAT LEWAT DUNIA MAYA YAITU DENGAN CHATTING LEWAT YM DAN FB. AWALNYA " & TEXTBOX3_36110052.TEXT & " MENDAPAT ALAMAT EMAIL " & TEXTBOX4_36110052.TEXT & " DARI SALAH SEORANG TEMANNYA YANG BERNAMA " & TEXTBOX6_36110052.TEXT & ". SEMENJAK SAAI ITULAH MEREKA BERSAHABAT WALAUPUN HANYA LEWAT DUNIA MAYA."

    End Sub

    Private Sub TextBox1_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1_36110052.TextChanged, TEXTBOX2_36110052.TextChanged, TextBox3_36110052.TextChanged, TextBox4_36110052.TextChanged, TextBox5_36110052.TextChanged, TextBox6_36110052.TextChanged, TextBox7_36110052.TextChanged, TextBox8_36110052.TextChanged, TextBox9_36110052.TextChanged, TextBox10_36110052.TextChanged, TextBox11_36110052.TextChanged, TEXTBOX2_36110052.TextChanged

        VIA1()

        VIA2()

        VIA3()

        VIA4()

     Private Sub CLOSE_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLOSE_36110052.Click

        TextBox1_36110052.Text = ""

        TextBox10_36110052.Text = ""

        TextBox11_36110052.Text = ""

        TextBox12_36110052.Text = ""

        TEXTBOX2_36110052.Text = ""

        TextBox3_36110052.Text = ""

        TextBox4_36110052.Text = ""

        TextBox5_36110052.Text = ""

        TextBox6_36110052.Text = ""

        TextBox7_36110052.Text = ""

        TextBox8_36110052.Text = ""

        TextBox9_36110052.Text = ""

        CERITA1_36110052.Text = ""

        CERITA2_36110052.Text = ""

        CERITA3_36110052.Text = ""

        CERITA4_36110052.Text = ""

10.  Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

11.  Selesai