Rabu, 12 September 2012
di
23.10
|
Form Latihan_03_36110037 Terdapat tiga object yaitu label, textbox, dan button.
Object Label
Terdapat Sembilan label (yang bertuliskan tidak sadar sudah; umur saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik; Umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya)
Object Text Box
Terdapat delapan textbox (lima status input dan tiga status read only).
Status input digunakan untuk memasukkan nilai umur "saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik". Status Read Only digunakan untuk menampilkan hasil perhitungan "umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya".
Object Button
Terdapat satu object button (Kosongkan Lagi) yang digunakan untuk mengosongkan nilai pada semua TextBox.
Script Unique
Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu pada saat text diubah atau textchanged.
TextBox6.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
Mengosongkan nilai TextBox
TextBox1.Text = “”
Dst.
Event
Textchanged
ButtonClick
Property
Property TextBox ==> ReadOnly=True
Prosedur Penyelesaian
1. Buka project yang telah dibuat.
2. Buka "Solution Explorer".
3. Setelah itu, klik kanan nama project, pilih add, dan klik new item.
4. Setelah add new item terbuka, pilih windows form, windows form, lalu ketik nama form dan add.
5. Kemudian buat form seperti di bawah ini dengan menggunakan "toolbox" yang saya tunjukkan pada postingan sebelumya.
6. Setelah itu ubah nama textbox dan button menjadi seperti di bawah ini.
7. Setelah form selesai, klik 2x form untuk masuk ke lembar "Vb" kemudian masukkan scrip di bawah.
Public Class Latihan_03_36110037
Private Sub Latihan_03_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Masuk_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Masuk_36110037.TextChanged
Selesai_36110037.Text = (Val(Masuk_36110037.Text) + Val(SD_36110037.Text) + Val(SMP_36110037.Text) + Val(SMA_36110037.Text) + Val(Poltek_36110037.Text))
Persentase_36110037.Text = (Val(Lama_36110037.Text) / Val(Selesai_36110037.Text)) * 100
End Sub
Private Sub SD_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SD_36110037.TextChanged, SMP_36110037.TextChanged, SMA_36110037.TextChanged, Poltek_36110037.TextChanged
Selesai_36110037.Text = (Val(Masuk_36110037.Text) + Val(SD_36110037.Text) + Val(SMP_36110037.Text) + Val(SMA_36110037.Text) + Val(Poltek_36110037.Text))
Lama_36110037.Text = (Val(SD_36110037.Text) + Val(SMP_36110037.Text) + Val(SMA_36110037.Text) + Val(Poltek_36110037.Text))
Persentase_36110037.Text = (Val(Lama_36110037.Text) / Val(Selesai_36110037.Text)) * 100
End Sub
Private Sub Kosongkan_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Kosongkan_36110037.Click
Masuk_36110037.Text = ""
SD_36110037.Text = ""
SMP_36110037.Text = ""
SMA_36110037.Text = ""
Poltek_36110037.Text = ""
Selesai_36110037.Text = ""
Lama_36110037.Text = ""
Persentase_36110037.Text = ""
End Sub
End Class8. Setelah itu Uji program dengan mengklik "Start Debugging" untuk mengetahui apakah program berjalan.
9. Kemudian simpan program dengan mengklik icon "save".
10. Selesai.
Object Label
Terdapat Sembilan label (yang bertuliskan tidak sadar sudah; umur saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik; Umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya)
Object Text Box
Terdapat delapan textbox (lima status input dan tiga status read only).
Status input digunakan untuk memasukkan nilai umur "saya masuk sekolah dasar, lama belajar di SD; SLTP; SLTA; Politeknik". Status Read Only digunakan untuk menampilkan hasil perhitungan "umur saya setelah selesai di Politeknik; Lama saya belajar; Persentase lama Belajar terhadap umur saya".
Object Button
Terdapat satu object button (Kosongkan Lagi) yang digunakan untuk mengosongkan nilai pada semua TextBox.
Script Unique
Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu pada saat text diubah atau textchanged.
TextBox6.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
Mengosongkan nilai TextBox
TextBox1.Text = “”
Dst.
Event
Textchanged
ButtonClick
Property
Property TextBox ==> ReadOnly=True
Prosedur Penyelesaian
1. Buka project yang telah dibuat.
2. Buka "Solution Explorer".
3. Setelah itu, klik kanan nama project, pilih add, dan klik new item.
4. Setelah add new item terbuka, pilih windows form, windows form, lalu ketik nama form dan add.
5. Kemudian buat form seperti di bawah ini dengan menggunakan "toolbox" yang saya tunjukkan pada postingan sebelumya.
6. Setelah itu ubah nama textbox dan button menjadi seperti di bawah ini.
7. Setelah form selesai, klik 2x form untuk masuk ke lembar "Vb" kemudian masukkan scrip di bawah.
Public Class Latihan_03_36110037
Private Sub Latihan_03_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Masuk_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Masuk_36110037.TextChanged
Selesai_36110037.Text = (Val(Masuk_36110037.Text) + Val(SD_36110037.Text) + Val(SMP_36110037.Text) + Val(SMA_36110037.Text) + Val(Poltek_36110037.Text))
Persentase_36110037.Text = (Val(Lama_36110037.Text) / Val(Selesai_36110037.Text)) * 100
End Sub
Private Sub SD_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SD_36110037.TextChanged, SMP_36110037.TextChanged, SMA_36110037.TextChanged, Poltek_36110037.TextChanged
Selesai_36110037.Text = (Val(Masuk_36110037.Text) + Val(SD_36110037.Text) + Val(SMP_36110037.Text) + Val(SMA_36110037.Text) + Val(Poltek_36110037.Text))
Lama_36110037.Text = (Val(SD_36110037.Text) + Val(SMP_36110037.Text) + Val(SMA_36110037.Text) + Val(Poltek_36110037.Text))
Persentase_36110037.Text = (Val(Lama_36110037.Text) / Val(Selesai_36110037.Text)) * 100
End Sub
Private Sub Kosongkan_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Kosongkan_36110037.Click
Masuk_36110037.Text = ""
SD_36110037.Text = ""
SMP_36110037.Text = ""
SMA_36110037.Text = ""
Poltek_36110037.Text = ""
Selesai_36110037.Text = ""
Lama_36110037.Text = ""
Persentase_36110037.Text = ""
End Sub
End Class8. Setelah itu Uji program dengan mengklik "Start Debugging" untuk mengetahui apakah program berjalan.
9. Kemudian simpan program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar