Latihan_09_46110055

Deskripsi Latihan 09

Form Latihan 09 Terdapat 3 object yaitu label, textbox, dan button:

Object Label
Pada form Latihan 09 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, dan Tingkat Kesehatan Keuangan


Object Text Box
Pada form ini Terdapat juga 25 textbox (22 status input dan 3 lainnya berstatus read only). Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.

Object Button
Terdapat 1 buah object button yaitu Analisa. Tombol analisa ini akan memunculkan kriteria hasil perhitungan z score,yang rumusnya sudah diketahui sebelumnya. Untuk tiap tahun ,rumus menghitung z-score itu sama, maka dari itu buatkan procedure nyaa. akan tetapi kali ini kita akan menggunakan procedure yang dilengkapi parameter.
==> z-scor e= (1,2 * modal kerja/total aktiva)+(1,4*laba ditahan/total aktiva)+(3,3*ebit/total aktiva)+(0,6*Harga pasar equity/Nilai buku hutang)

jika nilainya lebih dari 3,3 maka sehat
>= 1,81 waspada
>= mengalami kesulitan

Script Unique
feby(a146110055, a246110055, a346110055, a446110055, a546110055, a646110055, a746110055, a846110055) ==> Script ini digunakan sebagai data dari fungsi prosedur yang telah di buat. Urutan text box nya harus sama dengan urutan yang ada di prosedur.

Even
Button click

Cara  membuat Latihan 09 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 09”
6. Pilih menu “view” klik  “code”
7. Masukkan rumus berikut :

Public Class Latihan_09_46110055

    Private Sub feby(ByVal a1 As TextBox, ByVal a2 As TextBox, ByVal a3 As TextBox, ByVal a4 As TextBox, ByVal a5 As TextBox, ByVal a6 As TextBox, ByVal a7 As TextBox, ByVal a8 As TextBox)
        If 1.2 * Val(a2.Text) / Val(a1.Text) + 1.4 * Val(a4.Text) / Val(a1.Text) + 3.3 * Val(a5.Text) / Val(a1.Text) + 0.6 * Val(a6.Text) / Val(a7.Text) >= 3.3 Then
            a8.Text = "SEHAT"
        ElseIf 1.2 * Val(a2.Text) / Val(a1.Text) + 1.4 * Val(a4.Text) / Val(a1.Text) + 3.3 * Val(a5.Text) / Val(a1.Text) + 0.6 * Val(a6.Text) / Val(a7.Text) >= 1.81 Then
            a8.Text = "WASPADA"
        ElseIf 1.2 * Val(a2.Text) / Val(a1.Text) + 1.4 * Val(a4.Text) / Val(a1.Text) + 3.3 * Val(a5.Text) / Val(a1.Text) + 0.6 * Val(a6.Text) / Val(a7.Text) >= 0 Then
            a8.Text = "MENGALAMI KESULITAN"
        Else
            a8.Text = ""
        End If
    End Sub

    Private Sub analisa46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles analisa46110055.Click
        feby(a146110055, a246110055, a346110055, a446110055, a546110055, a646110055, a746110055, a846110055)
        feby(b146110055, b246110055, b346110055, b446110055, b546110055, b646110055, b746110055, b846110055)
        feby(c146110055, c246110055, c346110055, c446110055, c546110055, c646110055, c746110055, c846110055)
    End Sub
End Class


Langkah - langkah menjalankan Latihan 09:
1.  Klik start debugging.
2.  Isi text box yang berstatus input, sesuai dengan keinginan anda.
3.  setelah itu Klik tombol analisa , untuk mengetahui hasilnya.