latihan_09_36110036

Deskripsi latihan_9_36110036

A.         Object label

          Terdapat 12 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).

B.         Object textbox

      Terdapat 25 textbox (22 status input, tiga status read only). Status input digunakan untuk memasukkan nilai total aktiva, modal kerja, penjualan, laba ditahan, EBIT, harga pasar equity, nilai buku hutang.

    Sedangkan Status Read Only digunakan untuk menampilkan hasil perhitungan tingkat kesehatan keuangan.

C.         Object button

Terdapat satu object button (analisa). Tombol analisa digunakan untuk menampilkan hasil perhitungan di object TextBox ReadOnly.

D.         Script unique

                  Membuat call prosedur:

Private Sub anna(ByVal A As TextBox, ByVal B As TextBox, ByVal c As TextBox, ByVal D As TextBox, ByVal F As TextBox, ByVal G As TextBox, ByVal H As TextBox, ByVal I As TextBox)

        If 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(F.Text) / Val(A.Text) + 0.6 * Val(G.Text) / Val(H.Text) >= 3.3 Then

            I.Text = "sehat"

Untuk button analisa:

anna(A1_36110036, B1_36110036, C1_36110036, D1_36110036, F1_36110036, G1_36110036, H1_36110036, I1_36110036)

        anna(A2_36110036, B2_36110036, C2_36110036, D2_36110036, F2_36110036, G2_36110036, H2_36110036, I2_36110036)

        anna(A3_36110036, B3_36110036, C3_36110036, D3_36110036, F3_36110036, G3_36110036, H3_36110036, I3_36110036)

E.  Even

   analisa_36110036_Click

F.        Property 

Property TextBox ==> ReadOnly=True

Langkah-langkah mengerjakan latihan_9_36110036

                     1.       Buka Ms. Visual Studio

                 2.          Buka project yang telah dibuat, dan buka solution explorer

                 3.          Klik  kanan nama project ==> add ==> new item

                     4.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik  Add 

                      5.          Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio 

                 6.          Desaign form dengan menggunakan tools pada toolbox
                 7.          Buat text pada form dengan menggunakan label:

a.       nama perusahaan

b.      tahun I

c.       tahun II

d.      tahun III

e.       total aktiva

f.        modal kerja

g.       penjualan

h.      laba ditahan

i.         EBIT

j.        harga pasar equity

k.       nilai buku hutang

l.         tingkat kesehatan keuangan

8.          Buat kolom pada form dengan menggunakan textbox, sebanyak 25 kolom 

9.      Buat  tombol button berisi tulisan analisa 

10.    Setelah desaign selesai  dibuatlah rumusnya

11.    Berikut adalah rumus untuk menjalankan latihan_09_36110036

          Public Class latihan_09_36110036

    Private Sub anna(ByVal A As TextBox, ByVal B As TextBox, ByVal c As TextBox, ByVal D As TextBox, ByVal F As TextBox, ByVal G As TextBox, ByVal H As TextBox, ByVal I As TextBox)

        If 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(F.Text) / Val(A.Text) + 0.6 * Val(G.Text) / Val(H.Text) >= 3.3 Then

            I.Text = "sehat"

        ElseIf 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(F.Text) / Val(A.Text) + 0.6 * Val(G.Text) / Val(H.Text) >= 1.81 Then

            I.Text = "waspada"

        ElseIf 1.2 * Val(B.Text) / Val(A.Text) + 1.4 * Val(D.Text) / Val(A.Text) + 3.3 * Val(F.Text) / Val(A.Text) + 0.6 * Val(G.Text) / Val(H.Text) >= 0 Then

            I.Text = "mengalami kesulitan"

        Else : I.Text = ""

        End If

    End Sub

    Private Sub analisa_36110036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles analisa_36110036.Click

        anna(A1_36110036, B1_36110036, C1_36110036, D1_36110036, F1_36110036, G1_36110036, H1_36110036, I1_36110036)

        anna(A2_36110036, B2_36110036, C2_36110036, D2_36110036, F2_36110036, G2_36110036, H2_36110036, I2_36110036)

        anna(A3_36110036, B3_36110036, C3_36110036, D3_36110036, F3_36110036, G3_36110036, H3_36110036, I3_36110036)

    End Sub

    Private Sub I1_36110036_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I1_36110036.TextChanged

    End Sub

End Class

12.    setelah rumus selesai, program dijalankan dengan menggunakan start debugging

13.      setelah program jalan maka file disave.