Latihan_09_46110038

Deskripsi Form Latihan_09_46110038:

Form Latihan_09_46110038 terdapat tiga object yaitu label, textbox, dan button.

Object Label

Di Latihan_09_46110038 ada 12 label yang berisi teks Nama Perusahaan, Tahun1, Tahun2, Tahun3, Total Aktiva, Modal Kerja, Penjualan, Laba Ditahan, EBIT, Harga Pasar Equity, Nilai Buku Hutang, Tingkat Kesehatan Keuangan Perusahaan.

Object Text Box

Di Latihan_09_46110038 ada 25 textbox, 23 status input, 3 berstatus read only. Status input digunakan untuk memasukkan data. Status Read Only digunakan untuk menampilkan hasil  dari fungsi yang telah di kerjakan.

Object Button

Di Latihan_09_46110038 ada 1 buah button yaitu Analisa. Tombol analis akan memunculkan kriteria hasil perhitungan z-score (sesuai rumus). Kemudian untuk tiap tahun, rumus menghitung z-score itu sama.

Script Unique

Private Sub ermaa(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox, ByVal D As TextBox, ByVal E1 As TextBox, ByVal F As TextBox, ByVal G As TextBox, ByVal H As TextBox)digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut. Akan tetapi kali ini menggunakan prosedure yg dilengkapi dgn parameter. A, B, …, H nama variabel yg bukan objeck dalam form.

Even

Button click

Property

Property TextBox =>ReadOnly=True

Cara Membuat Form Latihan_09_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_09_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_09_46110038

    Private Sub ermaa(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox, ByVal D As TextBox, ByVal E1 As TextBox, ByVal F As TextBox, ByVal G As TextBox, ByVal H As TextBox)

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

            H.Text = "sangat sehat"

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

            H.Text = "waspada"

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

            H.Text = "mengalami kesulitan"

        Else

            H.Text = ""

        End If

    End Sub

    Private Sub Button46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46110038.Click

        ermaa(t146110038, t246110038, t346110038, t446110038, t546110038, t646110038, t746110038, t846110038)

        ermaa(t946110038, t1046110038, t1146110038, t1246110038, t1346110038, t1446110038, t1546110038, t1646110038)

        ermaa(t1746110038, t1846110038, t1946110038, t2046110038, t2146110038, t2246110038, t2346110038, t2446110038)

    End Sub

End Class

Langkah untuk menjalankan Latihan_09_46110038:

1.    Klik start debugging.

2.    Isi text box yang berstatus input.

3.  Hasil akan muncul secara otomatis setelah klik analisa.