Latihan 09 APKOM 4 D3B Akuntansi PNUP

A.    Object-object dalam Latihan_09_36110051 :

1.                          Object Label

Terdapat dua belas label (yang bertuliskan nama perusahaan, tahun I, tahun II, tahun III, total aktiva, modal kerja, penjualan, laba ditahan, EBIT, harga pasar equity, nilai buku hutang, tingkat kesehatan keuangan).

2.                         Object Textbox

Terdapat dua puluh lima textbox (dua puluh dua status input; tiga 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 (Analisa). Button Analisa digunakan untuk menampilkan tingkat kesehatan keuangan perusahaan sesuai dengan nilai-nilai yang telah diinput.

B.     Script Unique

Untuk button Analisa

      MELISSA(TA136110051, MK136110051, P136110051, LB136110051, EBIT136110051, HP136110051, NB136110051, TK136110051)

C.     Even

Button136110051_Click

D.    Property

Property TextBox ==> ReadOnly=True

 

PROSEDUR :

1.       Buka Ms. Visual Studio

2.       Klik Create Project

3.       Ketik nama file yang ingin disimpan

4.       Akan terbuka jendela pekerjaan Ms. Visual Studio

5.       Design form dengan menggunakan tools pada toolbox

6.       Buat text pada form dengan menggunakan object label, al:

a.         “Nama perusahaan”

b.        “Tahun1”

c.         “Tahun2”

d.        “Tahun3”

e.         “Total aktiva”

f.         “Modal kerja”

g.        “Penjualan”

h.        “Laba ditahan”

i.          “EBIT”

j.          ‘Harga pasar equity”

k.        “N. Buku hutang’

l.          “Tk. Kesehatan keu.”

7.       Buat kolom sesuai dengan design pada latihan 9 dengan menggunakan object textbox, kolom sebanyak 25 dengan nama :

1.      NP36110051

2.      TA136110051

3.      MK136110051

4.      P136110051

5.      LB136110051

6.      EBIT136110051

7.      HP136110051

8.      NB136110051

9.      TK136110051

10.        TA236110051

11.        MK236110051

12.        P236110051

13.        LB236110051

14.        EBIT26110051

15.        HP236110051

16.        NB236110051

17.        TK236110051

18.        TA336110051

19.        MK336110051

20.        P336110051

21.        LB336110051

22.        EBIT336110051

23.        HP336110051

24.        NB336110051

25.        TK336110051

8.      Buat tombol sesuai dengan design menggunakan object Button bernama Button136110051 yang berisikan teks “Analisa”

9.      Setelah itu masuk ke lembar “Vb”, dan ketik script :

Public Class Latihan_09_36110051

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

    End Sub

    Private Sub MELISSA(ByVal TA As TextBox, ByVal MK As TextBox, ByVal P As TextBox, ByVal LB As TextBox, ByVal EBIT As TextBox, ByVal HP As TextBox, ByVal NB As TextBox, ByVal TK As TextBox)

        If 1.2 * Val(MK.Text) / Val(TA.Text) + 1.4 * Val(LB.Text) / Val(TA.Text) + 3.3 * Val(EBIT.Text) / Val(TA.Text) + 0.6 * Val(HP.Text) / Val(NB.Text) >= 3.3 Then

            TK.Text = " sangat sehat"

        ElseIf 1.2 * Val(MK.Text) / Val(TA.Text) + 1.4 * Val(LB.Text) / Val(TA.Text) + 3.3 * Val(EBIT.Text) / Val(TA.Text) + 0.6 * Val(HP.Text) / Val(NB.Text) >= 1.81 Then

            TK.Text = " waspada "

        ElseIf 1.2 * Val(MK.Text) / Val(TA.Text) + 1.4 * Val(LB.Text) / Val(TA.Text) + 3.3 * Val(EBIT.Text) / Val(TA.Text) + 0.6 * Val(HP.Text) / Val(NB.Text) >= 0 Then

            TK.Text = " mengalami kesulitan"

        Else : TK.Text = ""

        End If

    End Sub

    Private Sub Button136110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136110051.Click

        MELISSA(TA136110051, MK136110051, P136110051, LB136110051, EBIT136110051, HP136110051, NB136110051, TK136110051)

        MELISSA(TA236110051, MK236110051, P236110051, LB236110051, EBIT236110051, HP236110051, NB236110051, TK236110051)

        MELISSA(TA336110051, MK336110051, PA336110051, LB336110051, EBIT336110051, HP336110051, NB336110051, TK336110051)

    End Sub

End Class

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