Latihan 13

Deskripsi Form

1. objek datagridview
terdapat 3 objek datagridview pada form ini. datagridview pertama menampilkan tabel dengan 2 kolom. datagridview kedua menampilkan tabel dengan 3 kolom, sedangkan datagridview ketiga menampilkan 4 kolom pada tabel yang ada.

even :
Form_Load



Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. pada script anda, buat variable tertentu untuk datatable, dataset, & bindingsource seperti dibawah ini :

Dim DTRI As New DataTable
Dim DTRS As New DataTable
Dim DTRSS As New DataTable
Dim xxx As New DataSet
Dim aaa As New BindingSource
Dim bbb As New BindingSource
Dim ccc As New BindingSource

6. lalu, masukkan script berikut untuk mengisi datagridview anda :

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

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

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


        Dim Acak As New Random

        For RI As Integer = 1 To Acak.Next(1, 5)
            DTRI.Rows.Add(RI, "Nama Rekening " & RI)
            For RS As Integer = 1 To Acak.Next(1, 5)
                DTRS.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To Acak.Next(1, 5)
                    DTRSS.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next
        xxx.Tables.Add(DTRI)
        xxx.Tables.Add(DTRS)
        xxx.Tables.Add(DTRSS)

        DTRI.TableName = "ICA"
        DTRS.TableName = "DIS"
        DTRSS.TableName = "OCA"

        xxx.Relations.Add(New DataRelation("TA", xxx.Tables("ICA").Columns("kode rekening induk"), xxx.Tables("DIS").Columns("kode rekening induk")))
        xxx.Relations.Add(New DataRelation("HI", xxx.Tables("DIS").Columns("kode rekening sub"), xxx.Tables("OCA").Columns("kode rekening sub")))

        aaa.DataSource = xxx
        aaa.DataMember = "ICA"

        bbb.DataSource = aaa
        bbb.DataMember = "TA"

        ccc.DataSource = bbb
        ccc.DataMember = "HI"

        dgv1_46110008.DataSource = aaa
        dgv2_46110008.DataSource = bbb
        dgv3_46110008.DataSource = ccc
    End Sub

7. simpan, lalu tekan debug untuk menjalankan form

Latihan 12

Deskripsi Form

1. Objek Groupbox
ada 5 objek groupbox pada form ini. groupbox pertama (dengan nama judul Formulir) diisi dengan 5 texbox, 1 button, dan 1 daytimepicker. groupbox kedua (Data) diisi dengan satu objek datagridview, 2 textbox, dan 3 groupbox. groupbox yang ada di groupbox Data diberi judul Berdasarkan No. Baris, Berdasarkan No. Pembelian, dan Berdasarkan Baris Sekarang (pada masing-masing goupbox tersebut diberi 2 objek button, lalu pada Groupbox Berdasarkan No. Baris dan Berdasarkan No. Pembelian diberikan masing-masing 1 textbox)

2. objek textbox
terdapat 9 textbox di dalam form ini. dimana ada 1 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan hasil kali dari harga per unit dikali dengan banyaknya unit yang anda input pada textbox input pada goupbox pertama.

3. Objek Label
terdapat sebelas label (bertuliskan no. pembelian, tanggal, nama barang, no. pembelian, harga perunit, unit, jumlha, total unit, total, No. baris, no. pembelian, dan Baris sekarang)
















4. Objek Datagridview
terdapat 1 objek datagridview di form ini. objek ini bertujuan untuk membuat tabel berisi data yang diinput maupun yang ditampilkan di textbox yang berstatus readonly pada groupbox yang pertama.



5. Objek Button
objek button pada groupbox formulir diberi judul nama Simpan yang mana berfungsi menyimpan hasil input pada textbox ke datagridview untuk dijadikan tabel. sedangkan pada groupbox Berdasarkan No. Baris, Berdasarkan No. Pembelian, & Berdasarkan Baris Sekarang masing-masing 2 button yaitu button Tampilkan dan Hapus. masing-masing memiliki fungsi untuk menampilkan kembali data pada groupbox Formulir serta menghapusnya.

even :
TextChanged, ButtonClick

property :
property textbox ==> ReadOnly = True



Scrip Unik
membuat kolom untuk tabel yang ada pada datagriview


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)))

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan scipt berikut untuk membuat tabel pada datagridview anda :
Dim tabel As New DataTable
Private Sub Latihan_12_46110008_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)))

        dgv46110008.DataSource = tabel

        Dim kolom(1) As DataColumn
        kolom(0) = tabel.Columns("no. pembelian")
        tabel.PrimaryKey = kolom
    End Sub

6. lalu, masukkan scipt berikut pada button Simpan anda untuk dijadikan isi dari tabel yang ada di datagridview

 Dim baris As DataRow
        baris = tabel.Rows.Find(nopem46110008.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = nopem46110008.Text
            baris("nama barang") = barang46110008.Text
            baris("harga per unit") = Val(hu46110008.Text)
            baris("tanggal pembelian") = tgl46110008.Value.Date
            baris("unit") = Val(unit46110008.Text)
            baris("jumlah") = Val(jumlah46110008.Text)

            tabel.Rows.Add(baris)

            nopem46110008.Text = ""
            barang46110008.Text = ""
            hu46110008.Text = ""
            unit46110008.Text = ""
            jumlah46110008.Text = ""

        Else : MsgBox("baris sudah ada")
            jumlah46110008.Text = ""
        End If

7. masukkan scipt berikut untuk tombol Tampilkan dan Hapus pada groupbox Berdasarkan No. Baris

-  Button Tampilkan
Dim baris As DataRow
        If Val(nob46110008.Text) <= tabel.Rows.Count Then

            baris = tabel.Rows(Val(nob46110008.Text) - 1)

            nopem46110008.Text = baris("no. pembelian")
            barang46110008.Text = baris("nama barang")
            hu46110008.Text = baris("harga per unit")
            tgl46110008.Value = baris("tanggal pembelian")
            unit46110008.Text = baris("unit")
            jumlah46110008.Text = baris("jumlah")
        Else
            MsgBox("baris terlalu besar")
        End If
        nob46110008.Text = ""

- button Hapus
Dim baris As DataRow
        If Val(nob46110008.Text) <= tabel.Rows.Count Then
            baris = tabel.Rows(Val(nob46110008.Text) - 1)
            baris.Delete()
        Else
            MsgBox("no. baris yang dimasukkan tidak ada")
        End If
        nob46110008.Text = ""

8. pada tombol tampilkan dan hapus pada groupbox Berdasarkan No. Pembelian masukkan script berikut :
 - button tampilkan
Dim baris As DataRow
        baris = tabel.Rows.Find(nopem46110008.Text)

        If Not baris Is Nothing Then
            nopem46110008.Text = baris("no. pembelian")
            barang46110008.Text = baris("nama barang")
            hu46110008.Text = baris("harga per unit")
            tgl46110008.Value = baris("tanggal pembelian")
            unit46110008.Text = baris("unit")
            jumlah46110008.Text = baris("jumlah")
        Else
            MsgBox("no. pembelian tidak ada")
        End If
        nopem46110008.Text = ""

-button Hapus

Dim baris As DataRow
        baris = tabel.Rows.Find(nopem46110008.Text)
        If Not baris Is Nothing Then
            baris.Delete()
            nopem46110008.Text = ""
        Else
            MsgBox("no. pembelian yang dimasukkan tidak ada")
            nopem46110008.Text = ""
        End If

11. pada button tampilkan dan hapus pada Groupbox Berdasarkan Baris sekarang masukkan Scipt berikut :
-button tampilkan
Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

        nopem46110008.Text = baris("no. pembelian")
        barang46110008.Text = baris("nama barang")
        hu46110008.Text = baris("harga per unit")
        tgl46110008.Value = baris("tanggal pembelian")
        unit46110008.Text = baris("unit")
        jumlah46110008.Text = baris("jumlah")

-button hapus
Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row
        baris.Delete()

12. masukkan script dibawah ini pada textbox input unit yang ada pada form anda
jumlah46110008.Text = Val(hu46110008.Text) * Val(unit46110008.Text)

13. buatlah fungsi private sub seprti dibawah ini pada script anda
Private Sub xxx()
        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        tu46110008.Text = tu
        tot46110008.Text = total
    End Sub

14. simpan, lalu tekan debug untuk menjalankan form anda

Latihan 11

Deskripsi Form

1. objek label
terdapat empat belas label (bertuliskan indeks prestasi kumulatif, nama, stambuk, mata kuliah, pengantar akuntansi, akuntansi intermedite, akuntansi advance, akuntansi biaya, sistem akuntansi, total, ipk, nilai, sks, nilai x sks)

2. objek textbox
terdapat 20 textbox di dalam form ini. dimana 8 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan hasil kali dari nilai mutu dan SKS yang anda input pada textbox input, total SKS dan total perkalian antar SKS dengan nilai mutu  yang anda input pada textbox input.

even :
TextChanged

property :
property textbox ==> ReadOnly = True


Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. sama pada latihan sebelumnya. masukkan dulu fungsi Private Sub pada script code anda contohnya seperti di bawah ini :

Private Sub sulhi(ByVal n As TextBox, ByVal s As TextBox, ByVal ns As TextBox)
        If n.Text = "A" Or n.Text = "a" Then
            ns.Text = 4 * Val(s.Text)
        ElseIf n.Text = "B" Or n.Text = "b" Then
            ns.Text = 3 * Val(s.Text)
        ElseIf n.Text = "C" Or n.Text = "c" Then
            ns.Text = 2 * Val(s.Text)
        ElseIf n.Text = "D" Or n.Text = "d" Then
            ns.Text = 1 * Val(s.Text)
        ElseIf n.Text = "E" Or n.Text = "e" Then
            ns.Text = 0

        End If
End Sub

6. lalu, seperti pada latihan sebelumnya, masukkan script kode pada textbox yang digunakan untuk menginput SKS.
7. jika sudah selesai, and tinggal menekan debug untuk menjalankan.
 

Latihan 10

eskripsi Form

1. objek label
terdapat 9 label (bertuliskan nama perusahaan, nama pegawai, PKP, PPh, Pegawai 1, Pegawai 2, Pegawai 3, Pegawai 4, Pegawai 5)

2. objek textbox
terdapat 11 textbox di dalam form ini. dimana 5 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan PPh yang dibayarkan pegawai berdasarkan PKP-nya yang di-input dari textbox yang berstatus input.

even :
TextChanged

property :
property textbox ==> ReadOnly = True


Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

 5. sama pada Latihan sebelumnya, masukkan dulu fungsi Private Sub pada form ini. contohny seperti di bawah ini

 Private Sub pajak(ByVal pkp As TextBox, ByVal pph As TextBox)
        If Val(pkp.Text) <= 50000000 Then
            pph.Text = 0.05 * Val(pkp.Text)
        ElseIf 50000000 < Val(pkp.Text) <= 250000000 Then
            pph.Text = (0.05 * 50000000) + (0.15 * (Val(pkp.Text) - 50000000))
        ElseIf 250000000 < Val(pkp.Text) >= 500000000 Then
            pph.Text = (0.05 * 50000000) + (0.15 * 200000000) + (0.25 * (Val(pkp.Text) - 250000000))
        ElseIf Val(pkp.Text) >= 500000000 Then
            pph.Text = (0.05 * 50000000) + (0.15 * 200000000) + (0.25 * 200000000) + (0.3 * (Val(pkp.Text) - 500000000))
        End If
End Sub

6. setelah itu anda tinggal memasukkan code pada tiap-tiap textbox input PKP. codenya sama dengan yang ada pada latihan 9 yag lalu.
7. jika selesai, anda tinggal menekan debug untuk menjalankan. 

Latihan 09

Deskripsi Form

1. objek label
terdapat dua belas label (bertuliskan nama perusahaan, total aktiva, modal kerja, penjualan, laba ditahan, EBIT, harga pasar equity, nilai buku hutang, tingkat kesehatan keuangan, tahun 1, tahun 2 dan tahun 3)

2. objek textbox
terdapat 25 textbox di dalam form ini. dimana 3 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan hasil analisa tingkat kesehatan keuangan perusahaan pada tahun 1, tahun 2, dan tahun 3 dengan menggunakan rumus Z-Score. nilai-nilai yang digunakan untuk menghitung Z-Score diambil dari textbox yang berstatus input.

3. objek button
terdapat satu buah  button pada form ini. button ini diisi dengan script code yang dapat menjalankan rumus Z-Score serta menganalisa tingkat kesehatan keungan perusahaan.

Scirpt Unik :
Private Sub parameter(ByVal ta As TextBox, ByVal mk As TextBox, ByVal p As TextBox, ByVal ld As TextBox, ByVal ebit As TextBox, ByVal hpe As TextBox, ByVal nbu As TextBox, ByVal tkk As TextBox)

==> scipt diatas adalah fungsi Private Sub yang diisi dengan parameter tertentu. parameter ini diumpamakan adalah variabel textbox anda. ini bertujuan agar penulisan scipt dapat dipersingkat.
even :
ButtonClick

property :
property textbox ==> ReadOnly = True 

pembuatan form 
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

3. klik kanan pada form anda, lalu pilih view code. masukkan fungsi Private Sub kedalam form anda. contohnya seperti scrpt berikut :
Private Sub parameter(ByVal ta As TextBox, ByVal mk As TextBox, ByVal p As TextBox, ByVal ld As

TextBox, ByVal ebit As TextBox, ByVal hpe As TextBox, ByVal nbu As TextBox, ByVal tkk As TextBox)
        If 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 3.3 Then
            tkk.Text = "Sangat Sehat"
        ElseIf 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 1.81 Then
            tkk.Text = "Waspada"
        ElseIf 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 0 Then
            tkk.Text = "Mengalami Kesulitan"
        Else : tkk.Text = ""
        End If
    End Sub

5. selanjutnya anda tinggal mengisi script code untuk button. contohnya seperti berikut :

 parameter(ta1_46110008, mk1_46110008, p1_46110008, ld1_46110008, ebit1_46110008, hpe1_46110008, nbu1_46110008, tkk1_46110008)

 parameter(ta2_46110008, mk2_46110008, p2_46110008, ld2_46110008, ebit2_46110008, hpe2_46110008, nbu2_46110008, tkk2_46110008)

 parameter(ta3_46110008, mk3_46110008, p3_46110008, ld3_46110008, ebit3_46110008, hpe3_46110008, nbu3_46110008, tkk3_46110008)

6. jika sudah anda tinggal menjalankannya dengan menekan tombol debug untuk menjalankan

Latihan 08

Deskripsi Form

1. objek label
terdapat dua belas label (bertuliskan nama, alamata, anda, teman 1, teman 2, teman 3, teman 4, cerita 1, ceriat 2, cerita 3, & cerita 4)

2. objek textbox
terdapat 16 textbox di dalam form ini. dimana 4 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan cerita yang mana di dalam cerita tersebut terdapat nama dan alamat yang anda input pada textbox yag tidak berstatus readonly

even :
TextChanged

property :
property textbox ==> ReadOnly = True, ScrollBars.Vertical


Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. klik kanan pada form anda, lalu klik view code.
6. masukkan fungsi private sub kedalam kode tersebut. private sub yang anda buat isinya berupa cerita. buatlah private sub sebanyak empat (masing-masing untuk 1 cerita)

Latihan 07

Deskripsi Form

1. objek label
terdapat dua label (bertuliskan "Masukkan angka" & "hasil perhitungan")

2. objek textbox
terdapat 30 textbox di dalam form ini. dimana 25 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan hasil perhitungan dari angka-angka yang anda input di textbox yang tidak berstatus readonly.

3. objek button
objek button pada form ini berjumlah tiga (bertuliskan HITUNG 1, HITUNG 2, HITUNG 3). masing-masing tombol berfungsi untuk menampilkan hasil perhitungan berbeda pada textbox tertentu.

script unik :
Private Sub xxx ()
==> fungsi digunakan untuk mempersingkat penulisan script yang panjang (xxx bisa anda ganti sesuai dengan nama yang anda suka)

even :
Button

property :
property textbox ==> ReadOnly = True

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox, button, dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

 

5. klik kanan pada form anda, lalu pilih view code

6. masukkan fungsi Private Sub xxx (). lalu pada fungsi tersebut masukkan rumus perhitungan dibawah fungsi tersebut. contohnya seperti script di bawah ini :

Private Sub xxx()

        HP346110008.Text = Val(MA246110008.Text) * Val(MA146110008.Text)
        HP446110008.Text = Val(MA546110008.Text) / Val(MA446110008.Text)
        HP546110008.Text = Val(HP1446110008.Text) + Val(HP446110008.Text)
        HP646110008.Text = Val(MA446110008.Text) * Val(MA146110008.Text)
        HP746110008.Text = Val(HP346110008.Text) - Val(HP346110008.Text)
        HP846110008.Text = Val(HP746110008.Text) + Val(HP746110008.Text)
        HP946110008.Text = Val(MA446110008.Text) - Val(MA446110008.Text)
        HP1046110008.Text = Val(MA446110008.Text) - Val(MA446110008.Text) + Val(MA146110008.Text)
        HP1146110008.Text = Val(MA346110008.Text) / 2
        HP1246110008.Text = Val(MA446110008.Text) / Val(MA146110008.Text)
        HP1346110008.Text = Val(MA546110008.Text) / Val(MA146110008.Text)
        HP1446110008.Text = Val(HP1246110008.Text) + Val(MA146110008.Text)
        HP1546110008.Text = Val(MA346110008.Text) - Val(HP1046110008.Text)
        HP1646110008.Text = Val(MA546110008.Text) * Val(HP846110008.Text)
        HP1746110008.Text = Val(MA446110008.Text) / Val(HP546110008.Text)
        HP1846110008.Text = Val(MA346110008.Text) * Val(HP346110008.Text)
        HP1946110008.Text = Val(MA146110008.Text) + Val(MA246110008.Text)
        HP2046110008.Text = Val(MA546110008.Text) - Val(MA146110008.Text)
        HP2146110008.Text = Val(MA346110008.Text) * Val(MA346110008.Text)
        HP2246110008.Text = Val(MA546110008.Text) - Val(MA246110008.Text)
        HP2346110008.Text = Val(MA446110008.Text) / Val(MA146110008.Text)

    End Sub

7. selanjutnya anda tinggal mengisi kode untuk tombol tersebut

8. untuk menjalankan, anda tekan debug

Latihan 06

Deskripsi latihan 06

Terdapat 4 objek yang digunakan pada form latihan ini : label, textbox, checkbox &  radiobutton

1.  Objek label :

Terdapat 3 objek label, yang bertuliskan makanan khas makassar, total & jumlah bersih

2.  Objek textbox :

Terdapat 21 buah objek ini di dalam form latihan 6 dan kesemuanya berstatus readonly

3.  checkbox :

Terdapat 6 objek check box. Masing-masing bertuliskan Coto, Pallubasa, Sop Konro, Sop Saudara, Konro Bakar & Ulu Juku.

4.  Objek Radiobutton

Terdapat 2 objek ini di dalam form. Masing-masing bertuliskan Pot. Member 10% dan non-member.

Untuk lebih jelasnya mengenai form latihan 6 ini, bisa adan lihat pada gambar dibawah

Script unik

Mematikan status readonly pada textbox

hcoto46110008.ReadOnly = False

Latihan 5

Deskripsi Latihan 05

Objek yang digunakan yaitu : label, button, dan textbox

1.  Objek Label :

Terdpat 3 objek label, masing-masing bertuliskan nama saya, tanggal lahir saya dan bintang

2.  Objek Textbox

Terdapat 3 objek textbox (2 diantaranya berstatus readonly). Yang tidak berstatus readonly digunakan untuk menginput nama anda. Beri nama objek ini sesuai dengan keinginan anda.

3. Objek Button

Terdapat 2 objek button (bertuliskan analisa, dan close). Button analisa berfungsi untuk mengisi textbox yang berstatus readonly sedangkan yang bertuliskna close untuk menutup tampilan program.

 Bentuk formnya dapat anda lihat pada gambar di bawah ini

Script Unik

Untuk menampilkan nama bintang dan ramalan anda

If tanggal46110008.Value.Month = 12 And tanggal46110008.Value.Day >= 22 Or tanggal46110008.Value.Month = 1 And tanggal46110008.Value.Day <= 20 Then

bintang46110008.Text = "Capricorn"

ramalan46110008.Text = "di masa depan nanti anda akan menjadi seorang pemimpin."

==>scipt ini dimasukkan kedalam button analisa anda. Jika isi sesuai dengan rumus if yang dimaksud maka isi dan sesuai dengan kata yang berwarna merah diatas. Anda tinggal menambahkan else if untuk bintang dan ramalan selanjutnya.

Menutup tampilan form

End

==>Fungsi ini disisipkan pada tombol close, sehingga ketika tobol tersebut di klik maka form pun akan tertutup.

Latihan 04

Deskripsi Form Latihan 04

Terdapat empat objek yang dipergunakan yaitu : label, textbox, button & daytimepicker

1.  Objek Label :

terdapat 6 label (yang bertuliskan : nama saya, tanggal lahir saya, tanggal kelahiran, bulan kelahiran, tahun kelahiran, & hari kelahiran).

2.  Objek Textbox :

terdapat 5 textbox (4 yang berstatus Readonly).  Yang berstatus Readonly berfungsi untuk menampilkan hari, bulan, tahun dan nama hari kelahiran yang anda input di objek daytimepicker. Yang tidak berstatus readonly berfungsi untuk menginput nama anda. Beri nama sesuai keinginan anda.

3.  Objek Button :

Terdapat satu objek button pada Form 4 (yang bertuliskan : analisa). ButtonBerfungsi untuk menjalankan script. Yang mana script tersebut dapat mengisi textbox yang berstatus readonly tadi. Beri nama objek ini sesuai keinginan anda.

4.  Objek daytimepicker :

Terdapat satu objek daytimepicker di form ini. Objek ini berfungsi untuk menginput tanggal secara cepat.

Berikut contoh gambar Form latihan 4

Script unik

Menampilkan tanggal, bulan, dan tahun kedalam textbox anda

tgl46110008.Text = tanggal46110008.Value.Day

bln46110008.Text = tanggal46110008.Value.Month

thn46110008.Text = tanggal46110008.Value.Year

==> tanggal46110008 merupakan nama dari objek daytimepicker anda. Sedangkan tgl46110008, bln46110008, & thn46110008 adalah nama dari textbox anda yang berstatus readonly. Script ini ditempatkan pada code objek button anda.

Menampilkan nama hari kedalam textbox anda

If tanggal46110008.Value.DayOfWeek = 0 Then

   hari46110008.Text = "Minggu"

==> angka nol (0) setelah tanda sama dengan merupakan hari minggu dalam bahasa pemrograman vb. Anda tinggal mengkonversinya menjadi sebuah kata dengan menggunakan rumus if, agar nanti di textbox anda tertulis kata “minggu”. Anda tinggal melanjutkannya dengan else if untuk hari-hari selanjutnya.