LATIHAN 9

DESKRIPSI LATIHAN 9

Form Latihan_09 terdapat tiga object yaitu Label, Textbox, dan Button:

Object Label

Terdapat dua belas object Label (yang bernama 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).

Object Textbox

Terdapat dua puluh lima object textbox (dua puluh dua status input; tiga status read only). Status input digunakan untuk memasukkan data/angka. Status Read Only digunakan untuk menampilkan hasil dari data-data  yang telah diinput.

Object Button

Terdapat satu object button yaitu “ANALISA”

Object button ini digunakan untuk menampilkan Tingkat Kesehatan Keuangan perusahaan dari data-data yang telah diinput.

RUMUS PERHITUNGAN :  (1,2 * MODAL KERJA / TOTAL AKTIVA) + (1,4 * LABA DITAHAN / TOTAL AKTIVA ) + (3,3 * EBIT /TOTAL AKTIVA) + 0,6 * HPE / NILAI BUKU HUTANG)

KET:  >= 3,3 = "SANGAT SEHAT"

          >= 1,8 = "WASPADA"

          >= 0 = "MENGALAMI KESULITAN"

Script Unique

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 = "SANGAT SEHAT"

Even

Button Click

Property

Property TextBox ==> ReadOnly=True

LANGKAH-LANGKAH

1.      BUKA  Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft Visual Studio 2008

2.      Click icon "Add new Item" 

3.       pilih Windows Form, lalu isi Name dengan Nama Latihan 08 dan click add.

4.      Buat design Form sesuai dengan Form diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}

5.      Ganti nama setiap object kecuali Label menggunakan "Properties Window"

6.      Klik 2x pada design form yang telah dibuat  untuk membuka lembar Scripnya.

7.      Masukkkan Scrip di bawah ini.

SCRIPT LATIHAN 9

Public Class latihan_09_36110043

    Private Sub ADI(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 = "SANGAT 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"

        End If

    End Sub

    Private Sub ANALISA_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA_36110043.Click

        ADI(TA1_36110043, MK1_36110043, PJ1_36110043, LABA1_36110043, EBIT1_36110043, HPE1_36110043, NBH1_36110043, TKK1_36110043)

        ADI(TA2_36110043, MK2_36110043, PJ2_36110043, LABA2_36110043, EBIT2_36110043, HPE2_36110043, NBH2_36110043, TKK2_36110043)

        ADI(TA3_36110043, MK3_36110043, PJ3_36110043, LABA3_36110043, EBIT3_36110043, HPE3_36110043, NBH3_36110043, TKK3_36110043)

    End Sub

End Class

TERAKHIR,,,SAVE 

 

DAN UNTUK MENJALANKAN PROGRAM INI CLICK STAR DEBUGGING

  

SELAMAT....