latihan_09_46110023

pada form latihan 09
Form Latihan 09 Terdapat tiga object yaitu label, textbox dan button

Object Label :
Dalam form latihan ini terdapat 12 buah label. Label-label tersebut 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.

Object Textbox:
Selain Object Label, dalam form ini terdapat 25 buah textbox ( 23 status input dan 3 status read only ) status input digunakan untuk memasukkan nama perusahaan, total aktiva, modal kerja, penjualan, laba ditahan, EBIT, harga pasar equity dan nilai buku hutang untuk tahun I, tahun II dan tahun III. Sedangkan status read only digunakan untuk menampilkan hasil perhitungan dari nilai yang diinput dari textbox yang berstatus input dan akan menampilkan analisa tingkat kesehatan keuangan perusahaan pada tahun I, tahun II dan tahun III.

Object Button :
Selain dua buah object diatas, terdapat juga 1 buah object button yang bertuliskan Analisa yang berfungsi untuk menjalankan perintah atau rumus yang telah dibuat jika di klik.

Script Unique :

Private Sub DIAN(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)
Script ini digunakan menghemat penulisan kode program, karena kode-kode program yang sama dibeberapa tempat cukup dibuat pada satu bagian saja. Selain itu, procedure akan memudahkan perbaikan kode program bila terjadi perubahan atau kesalahan, karena perbaikan cukup dilakukan pada satu bagian saja.

Even :

ButtonClick

Property

Property TextBox ==> ReadOnly=True

 

langkah-langkah membuat form latihan 09

 

1. Buat design seperti gambar di bawah ini:

 2.Textbox yang berwarna putih menunjukkan textbox tresebut berstatus input sedangkan yang berwarna gelap itu berstatus read only. Beri nama setiap object yang ada kecuali object label. Setelah itu buat script sbb:

 Public Class LATIHAN_09_46110023
    Private Sub DIAN(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


    Private Sub ANALISA_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA_46110023.Click
        DIAN(TA1_46110023, MK1_46110023, P1_46110023, LD1_46110023, EB1_46110023, HP1_46110023, NB1_46110023, TK1_46110023)
        DIAN(TA2_46110023, MK2_46110023, P2_46110023, LD2_46110023, EB2_46110023, HP2_46110023, NB2_46110023, TK2_46110023)
        DIAN(TA3_46110023, MK3_46110023, P3_46110023, LD3_46110023, EB3_46110023, HP3_46110023, NB3_46110023, TK3_46110023)
    End Sub
End Class

 

 

3. untuk menjalankan form ini: 

 klik kanan pada nama project  anda lalu klik properties, setelah itu pilih form latihan 08 pada startup form. kemudian klik tombol play. Setelah itu masukkan nama perusahaan anda dan hal" yang harus di input pada textbox yang berstatus input, lalu klik tombol analisa maka program akan menganalisa tingkat kesehatan keuangan perusahaan anda.