Latihan_09_36110056

Deskripsi Latihan 09:

Form Latihan 09 terdapat tiga object yaitu Label, textbox,  dan button

Object Label

Terdapat dua belas object label(yang diberi nama perusahaan, tahun 1, tahun 2 tahun 3, total aktiva, modal kerja, penjualan, laba ditahan, ebit, harga pasar equty, nilai buku hutang, tingkat kesehatan keuangan).

Object Text Box

Terdapat dua puluh lima textbox (dua puluh status input; lima status Readonly).

Object Button

Terdapat satu object button dengan nama Analisa dan object button ini digunakan untuk menampilkan

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

                                                              Form Latihan 09

Langkah-langkah penyelesaian latihan 9 :

• Buka project yang dibuat sebelumnya
• Pilih Add new item
• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add
• Buat form sesuai soal di atas dengan menggunakan Label, Textbox, dan buttonyang ada dalam Toolbox
• Setelah form selesai, ubah nama textbox,dan button yang terdapat dalamproperties window
• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class Latihan09_36110056

    Private Sub ias(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 = "Sehat"

        ElseIf ((1.2 * Val(b.Text) / Val(b.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"

        Else

            i.Text = ""

        End If

    End Sub

    Private Sub Analisa_36110056_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Analisa_36110056.Click

        ias(ta1_36110056, mk1_36110056, p1_36110056, ld1_36110056, e1_36110056, hpe1_36110056, nb1_36110056, tkk1_36110056)

        ias(ta2_36110056, mk2_36110056, p2_36110056, ld2_36110056, e2_36110056, hpe2_36110056, nb2_36110056, tkk2_36110056)

       ias(ta3_36110056, mk3_36110056, p3_36110056, ld3_36110056, e3_36110056, hpe3_36110056, nb3_36110056, tkk3_36110056)  

 End Sub

End Class

• Setelah itu untuk mengujinya dapat memilih start debugging atau langsung menekan F5 pada keyboard