Larihan_09_46110006

1.      Deskripsi from

Object Label

Terdapat 12 label (yang bertuliskan Nama Perusahan, Tahun 1, Tahun 2, Tahun 3, Total Aktiva, Modal Kerja, Penjualan, Laba ditahan,Ebit,HPE, Nilai Buku Hutang, Tingkat Kesehatan Keuangan)

                                                                                     

Object TexBox

Terdapat 25 textbox (21 status input, 3 berstatus read only. Status input digunakan untuk memasukkan nilai Sedangkan Status Read Only digunakan untuk menampilkan hasil pada fungsi yang telah di kerjakan.

Object Button

Terdapat 1 buah button yaitu “Analisa” yang berfungsi untuk menampilkan hasil yang tela diinput

Script Unique

Script Unique yang terdapat pada latihan 09 ini adalah Private Sub ABC().,, script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut dan menggunakan rumus Z-Crore.

Event :

Button Click

Property :

Property TextBox ==> ReadOnly=True

2.      Cara Membuat From Latihan 09 :

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

       

 

 2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_09_46110006”

                

          

     3. Buatlah desain dibawah ini dengan menggunakan toolbox TextBox,Label dan  Button.

         

                      4.   Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_09_46110006

Private Sub fitry(ByVal f146110006 As TextBox, ByVal f246110006 As TextBox, ByVal f346110006 As TextBox, ByVal f446110006 As TextBox, ByVal f546110006 As TextBox, ByVal f646110006 As TextBox, ByVal f746110006 As TextBox, ByVal f846110006 As TextBox)

        If 1.2 * Val(f246110006.Text) / Val(f146110006.Text) + 1.4 * Val(f446110006.Text) / Val(f146110006.Text) + 3.3 * Val(f546110006.Text) / Val(f146110006.Text) + 0.6 * Val(f646110006.Text) / Val(f746110006.Text) >= 3.3 Then

            f846110006.Text = "Sangat Sehat"

        ElseIf 1.2 * Val(f246110006.Text) / Val(f146110006.Text) + 1.4 * Val(f446110006.Text) / Val(f146110006.Text) + 3.3 * Val(f546110006.Text) / Val(f146110006.Text) + 0.6 * Val(f646110006.Text) / Val(f746110006.Text) >= 1.81 Then

        f846110006.Text = "Waspada"

        ElseIf 1.2 * Val(f246110006.Text) / Val(f146110006.Text) + 1.4 * Val(f446110006.Text) / Val(f146110006.Text) + 3.3 * Val(f546110006.Text) / Val(f146110006.Text) + 0.6 * Val(f646110006.Text) / Val(f746110006.Text) >= 0 Then

            f846110006.Text = "Mengalami Kesulitan"

        End If

    End Sub

  

    Private Sub Analisa_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Analisa_46110006.Click

        fitry(T1_46110006, m1_46110006, p1_46110006, Ld1_46110006, b1_46110006, hp1_46110006, nb1_46110006, Tk1_46110006)

        fitry(T2_46110006, m2_46110006, p2_46110006, Ld2_46110006, b2_46110006, hp2_46110006, nb2_46110006, Tk2_46110006)

        fitry(T3_46110006, m3_46110006, p3_46110006, Ld3_46110006, b3_46110006, hp3_46110006, nb1_46110006, Tk1_46110006)

    End Sub

End Class

3. Langkah untuk menjalankan from 09 :

1.    Klik start debugging.

2.    Isi TextBox yang berstatus input, sesuai dengan keinginan anda.

3.  Hasil akan muncul sendri setelah anda menginput textbox yang tersedia untuk di input.

4.  Untuk melihat hasilnya klik tombol “Analisa”