FOTO SAMPUL

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, ...

Category name clash

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. ...

Test with enclosures

Here's an mp3 file that was uploaded as an attachment: Juan Manuel Fangio by Yue And here's a link to an external mp3 file: Acclimate by General Fuzz Both are CC licensed. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, ...

Block quotes

Some block quote tests: Here's a one line quote. This part isn't quoted. Here's a much longer quote: Lorem ipsum dolor sit amet, consectetuer adipiscing elit. In dapibus. In pretium pede. Donec molestie facilisis ante. Ut a turpis ut ipsum pellentesque tincidunt. Morbi blandit sapien in mauris. Nulla lectus lorem, varius aliquet, ...

Contributor post, approved

I'm just a lowly contributor. My posts must be approved by the editor.Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. Maecenas at ...

Latihan_09_46110021

Posted by Unknown - - 0 komentar

Deskripsi Form :

Form Latihan 09 Terdapat Tigaobject yaitu label, textbox, dan button:
1.    Object Label.
      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)

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

      3.   Object Button.
     Terdapat 1 button yanitu Analisa. pada button analisa, tersembunyi fungsi dari z-score yaitu
   ==> z-score=(1,2 * modal kerja/total aktiva)+(1,4*lba 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

Cara Membuat Form latihan09
     silahkan lihat video dibawah ini :

setelah itu ubah nama masing2 text box, klik kanan pada form lalu pilih view code, dan masukkan kode ini (jangan lupa," nama teks box yang didesain harus sama dengan nama text box di vb.

Public Class Latihan_09_46110021

    Private Sub parameter(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_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles analisa_46110021.Click
        parameter(Ta1_46110021, mk1_46110021, p1_46110021, ld1_46110021, ebit1_46110021, hpe1_46110021, nbh1_46110021, tkk1_46110021)
        parameter(Ta2_46110021, mk2_46110021, p2_46110021, ld2_46110021, ebit2_46110021, hpe2_46110021, nbh2_46110021, tkk2_46110021)
        parameter(ta3_46110021, mk3_46110021, p3_46110021, ld3_46110021, ebit3_46110021, hpe3_46110021, nbh3_46110021, tkk3_46110021)
    End Sub
End Class

Langkah untuk menjalankan form ini :
1.    Klik start debugging.
2.    Isi text box yang berstatus input, sesuai dengan angka dan data pilihan anda,
3.    Untuk mengetahui hasilnya, maka anda harus meng klik tombol analisa.

Scipt unik
   parameter(Ta1_46110021, mk1_46110021, p1_46110021, ld1_46110021, ebit1_46110021, hpe1_46110021, nbh1_46110021, tkk1_46110021).,, script ini digunakan sebagai data dari fungsi prosedure yang tela di buat. urutan text box nya harus sama dengan urutan yang ada di prosedure.
Even
Button click

Leave a Reply