Rabu, 12 September 2012
di
09.23
|
Form Latihan_01_36110037 Terdapat tiga object yaitu label, textbox, dan button.
Object LabelTerdapat 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 dua object button (Hitung dan Kosongkan Lagi). Tombol Hitung digunakan untuk menampilkan hasil perhitungan di object TextBox ReadOnly. Rumus perhitungannya adalah:
- Umur saya setelah selesai di Politeknik merupakan hasil penjumlahan Umur saya masuk sekolah dasar, lama belajar di sekolah dasar, lama belajar di SLPT, lama belajar di SLTA, dan lama belajar di Politeknik;
- Lama saya belajar adalah hasil penjumlahan lama belajar di sekolah dasar, lama belajar di SLPT, lama belajar di SLTA, dan lama belajar di Politeknik;
- Persentase lama belajar terhadap umur saya adalah lama saya belajar dibagi umur saya setelah selesai di politeknik dikali 100.
Sedangkan Tombol Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.
Script Unique
Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu.
TextBox6.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
Mengosongkan nilai TextBox
TextBox1.Text = “”
Dst.
Event
ButtonClick
Property
Property TextBox ==> ReadOnly=True
Prosedur Penyelesaian
1. Buka Microsoft Visual Stodio 2008.
2. Buat project baru dengan cara klik file, pilih new dan klik project.
3. Lalu pilih Window, Window Form Application, lalu atur nama serta tempat menyimpan project. kemudian klik ok.
4. Setelah itu, buat form seperti di bawah ini dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox".
5. Kemudian ganti nama textbox dan button menggunakan "Properties Window".
6. Setelah form selesai, klik 2x form untuk masuk ke lembar "Vb" dan masukkan script di bawah ini.
Public Class Latihan_01_36110037
Private Sub Latihan_01_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Hitung_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hitung_36110037.Click
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 Class
7. Uji program untuk mengetahui apakah program ini berjalan dengan mengklik "Start Debugging".
8. jika program berjalan, maka simpan program dengan mengklik icon "Save".
9. Selesai.
Object LabelTerdapat 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 dua object button (Hitung dan Kosongkan Lagi). Tombol Hitung digunakan untuk menampilkan hasil perhitungan di object TextBox ReadOnly. Rumus perhitungannya adalah:
- Umur saya setelah selesai di Politeknik merupakan hasil penjumlahan Umur saya masuk sekolah dasar, lama belajar di sekolah dasar, lama belajar di SLPT, lama belajar di SLTA, dan lama belajar di Politeknik;
- Lama saya belajar adalah hasil penjumlahan lama belajar di sekolah dasar, lama belajar di SLPT, lama belajar di SLTA, dan lama belajar di Politeknik;
- Persentase lama belajar terhadap umur saya adalah lama saya belajar dibagi umur saya setelah selesai di politeknik dikali 100.
Sedangkan Tombol Kosongkan lagi digunakan untuk mengosongkan nilai pada semua TextBox.
Script Unique
Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu.
TextBox6.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
Mengosongkan nilai TextBox
TextBox1.Text = “”
Dst.
Event
ButtonClick
Property
Property TextBox ==> ReadOnly=True
Prosedur Penyelesaian
1. Buka Microsoft Visual Stodio 2008.
2. Buat project baru dengan cara klik file, pilih new dan klik project.
3. Lalu pilih Window, Window Form Application, lalu atur nama serta tempat menyimpan project. kemudian klik ok.
4. Setelah itu, buat form seperti di bawah ini dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox".
5. Kemudian ganti nama textbox dan button menggunakan "Properties Window".
6. Setelah form selesai, klik 2x form untuk masuk ke lembar "Vb" dan masukkan script di bawah ini.
Public Class Latihan_01_36110037
Private Sub Latihan_01_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Hitung_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hitung_36110037.Click
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 Class
7. Uji program untuk mengetahui apakah program ini berjalan dengan mengklik "Start Debugging".
8. jika program berjalan, maka simpan program dengan mengklik icon "Save".
9. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar