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-07-46110021

Posted by Unknown - - 0 komentar

Deskripsi Form :

Form Latihan 07 Terdapat Tigaobject yaitu label, textbox, dan button:
1.      Object Label.
Terdapat 2 label (yang bertuliskan Masukkan Angka, dan Hasil perhitungan)
2.      Object Text Box.
Terdapat 30 textbox(5 status input, 25 berstatus read only). Status input digunakan untuk memasukkan nilai. Status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan.
3.      Object Button.
Terdapat 3 buah button yaitu:
a.  Hitung1. Ketika anda mengklik button ini, maka akan muncul hasil perhitungan (sesuai dengan fungsi yang telah dimasukkan di dalam tombol button tersebut) di dalam text box yang Read only.
b.  Hitung2. Ketika anda mengklik tombol ini, hasil perhitungannya tdk akan berbeda, kecuali pada textbox ke 6,7,29,30. Hasilnya akan berbeda dengan hasil perhitungan pada tombol hitung1
c.  Hitung3. Ketika anda mengklik button ini, maka hasil perhitungan pada textbox ke 6,7,29,30 akan berbeda lagi dengan hasil perhitungan pada hitung1, dan hitung2, sedangkan hasil perhitungan dari text box ke 8-28, tidak akan berbeda dengan hasil perhitungan pada hitung1, dan hitung2.

Cara Membuat Form latihan07 
     silahkan lihat video dibawah ini :


setelah itu ubah nama masing2 text box, seperti (Tbxx_46110021), klik kanan pada form lalu pilih view code, dan masukkan kode ini (jangan lupa," Tb(xx)_46110021 " itu adalah nama textbox, jadi sesuaikan dengan nama text box yang anda buat).

Public Class Latihan_07_46110021

    Private Sub panjang()
        
        Tb08_46110021.Text = Val(Tb01_46110021.Text) * Val(Tb05_46110021.Text) + Val(Tb01_46110021.Text)
        Tb09_46110021.Text = Val(Tb03_46110021.Text) + Val(Tb02_46110021.Text)
        Tb10_46110021.Text = Val(Tb03_46110021.Text) + Val(Tb04_46110021.Text) * Val(Tb01_46110021.Text) / Val(Tb03_46110021.Text)
        Tb11_46110021.Text = Val(Tb01_46110021.Text) * Val(Tb05_46110021.Text)
        Tb12_46110021.Text = Val(Tb01_46110021.Text) - Val(Tb04_46110021.Text)
        Tb13_46110021.Text = Val(Tb05_46110021.Text) / Val(Tb04_46110021.Text)
        Tb14_46110021.Text = Val(Tb03_46110021.Text) / Val(Tb02_46110021.Text)
        Tb15_46110021.Text = Val(Tb01_46110021.Text) / Val(Tb03_46110021.Text)
        Tb16_46110021.Text = Val(Tb03_46110021.Text) + Val(Tb04_46110021.Text) * Val(Tb01_46110021.Text) / Val(Tb03_46110021.Text)
        Tb17_46110021.Text = Val(Tb03_46110021.Text) * Val(Tb02_46110021.Text)
        Tb18_46110021.Text = Val(Tb03_46110021.Text) / Val(Tb04_46110021.Text) - Val(Tb01_46110021.Text) * Val(Tb03_46110021.Text)
        Tb19_46110021.Text = Val(Tb03_46110021.Text) + Val(Tb04_46110021.Text) / Val(Tb01_46110021.Text) + Val(Tb03_46110021.Text)
        Tb20_46110021.Text = Val(Tb05_46110021.Text) + Val(Tb04_46110021.Text) / Val(Tb02_46110021.Text)
        Tb21_46110021.Text = Val(Tb03_46110021.Text) / Val(Tb02_46110021.Text)
        Tb22_46110021.Text = Val(Tb04_46110021.Text) / Val(Tb05_46110021.Text) + Val(Tb01_46110021.Text) - Val(Tb03_46110021.Text)
        Tb23_46110021.Text = Val(Tb01_46110021.Text) + Val(Tb02_46110021.Text) + Val(Tb03_46110021.Text) / Val(Tb04_46110021.Text)
        Tb24_46110021.Text = Val(Tb01_46110021.Text) / Val(Tb02_46110021.Text)
        Tb25_46110021.Text = Val(Tb01_46110021.Text) + Val(Tb03_46110021.Text) / Val(Tb04_46110021.Text)
        Tb26_46110021.Text = Val(Tb04_46110021.Text) / Val(Tb01_46110021.Text) + Val(Tb03_46110021.Text)
        Tb27_46110021.Text = Val(Tb01_46110021.Text) * Val(Tb02_46110021.Text) + Val(Tb01_46110021.Text)
        Tb28_46110021.Text = Val(Tb02_46110021.Text) * Val(Tb03_46110021.Text)

    End Sub

    Private Sub Hitung1_46110021_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung1_46110021.Click
        Tb06_46110021.Text = Val(Tb03_46110021.Text) + Val(Tb04_46110021.Text) * Val(Tb01_46110021.Text)
        Tb07_46110021.Text = Val(Tb05_46110021.Text) / Val(Tb04_46110021.Text) + Val(Tb01_46110021.Text)
        Tb29_46110021.Text = Val(Tb01_46110021.Text) + Val(Tb04_46110021.Text)
        Tb30_46110021.Text = Val(Tb03_46110021.Text) - Val(Tb02_46110021.Text)
        panjang()
    End Sub

    Private Sub Hitung2_46110021_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung2_46110021.Click
        Tb06_46110021.Text = Val(Tb03_46110021.Text) - Val(Tb04_46110021.Text) / Val(Tb01_46110021.Text)
        Tb07_46110021.Text = Val(Tb05_46110021.Text) + Val(Tb04_46110021.Text) * Val(Tb01_46110021.Text)
        Tb29_46110021.Text = Val(Tb01_46110021.Text) - Val(Tb04_46110021.Text) - Val(Tb01_46110021.Text)
        Tb30_46110021.Text = Val(Tb02_46110021.Text) + Val(Tb02_46110021.Text)
        panjang()
    End Sub

    Private Sub Hitung3_46110021_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hitung3_46110021.Click
        Tb06_46110021.Text = Val(Tb01_46110021.Text) - Val(Tb02_46110021.Text) / Val(Tb01_46110021.Text)
        Tb07_46110021.Text = Val(Tb02_46110021.Text) + Val(Tb02_46110021.Text) * Val(Tb04_46110021.Text)
        Tb29_46110021.Text = Val(Tb04_46110021.Text) - Val(Tb02_46110021.Text) - Val(Tb05_46110021.Text)
        Tb30_46110021.Text = Val(Tb03_46110021.Text) + Val(Tb02_46110021.Text) + Val(Tb02_46110021.Text)
        panjang()
    End Sub
End Class



Langkah untuk menjalankan form ini :
1.    Klik start debugging.
2.    Isi text box yang berstatus input, sesuai dengan angka pilihan anda,
3.    Untuk mengetahui hasil perhitungan, klik hitung1 atau hitung2 atau hitung3 sesuai dengan keinginan anda.

Scipt unik
    Private Sub panjang().,, script ini digunakan sebagai Procedure yang dapat digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.
Even
Button click

Leave a Reply