Deksripsi_Latihan_09_36110054

Cara Membuat Progam/Apliaksi Latihan 09

Dengan Software Microsoft Visual Basic 2008

 

Langkah 1:

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

 

  Langkah 2 : 

Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

 

   Langkah Ke 3 : 

Rancanglah From Seperti Gambar Berikut Berikut :

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan_09_36110054
Label	Text : Nama Perusahaan
Label	Text : Total Aktiva
Label	Text : Modal kerja
Label	Text : Penjualan
Label	Text : Laba Ditahan
Label	Text : Ebit
Label	Text : Harga Pasar Equity
Label	Text : Nilai Buku utang
Label	Text : Tingkat kesehatan keuangan
Label	Text : Tahun 1
Label	Text : Tahun 2
Label	Text : Tahun 3
Button	Text : Analisa
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	-
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)
Textbox	- (Status: Readonly True)

Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_09_36110054
    Private Sub Ruslan(ByVal ta As TextBox, ByVal mk As TextBox, ByVal p As TextBox, ByVal ld As TextBox, ByVal ebit As TextBox, ByVal hpe As TextBox, ByVal nbu As TextBox, ByVal tkk As TextBox)
        If 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 3.3 Then
            tkk.Text = "Sangat Sehat"
        ElseIf 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 1.81 Then
            tkk.Text = "Waspada"
        ElseIf 1.2 * Val(mk.Text) / Val(ta.Text) + 1.4 * Val(ld.Text) / Val(ta.Text) + 3.3 * Val(ebit.Text) / Val(ta.Text) + 0.6 * Val(hpe.Text) / Val(nbu.Text) >= 0 Then
            tkk.Text = "Mengalami Kesulitan"
        Else : tkk.Text = ""
        End If
    End Sub



    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Ruslan(TA1_36110054, MK1_36110054, P1_36110054, LD1_36110054, Ebit1_36110054, HPE1_36110054, NBU1_36110054, TKK1_36110054)
        Ruslan(TA2_36110054, MK2_36110054, P2_36110054, LD2_36110054, Ebit2_36110054, HPE2_36110054, NBU2_36110054, TKK2_36110054)
        Ruslan(TA3_36110054, MK3_36110054, P3_36110054, LD3_36110054, Ebit3_36110054, HPE3_36110054, NBU3_36110054, TKK3_36110054)

    End Sub
End Class