Form Latihan 01 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; 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 SLPTm 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 = “”
Even
ButtonClick
Property
Property TextBox ==> ReadOnly=True
Langkah-langkah penyelesaian latihan 1 :
1. Memulai dangan mengaftikan atau membuka Visual Studio.
2. Setelah itu akan muncul jendela start page .
3. Setelah muncul jendela tersebut anda memilih menu file dan pilih New Project.
4. Piilih windows from aplikasi dan pilih dimana tempat anda ingin mnyimpan data tersebut serta anda juga dapat mengganti nama file anda, setelah itu pilih ok.
5. Selanjutnya akan muncul from dan anda dapat mengerjakan from dengan menggunkan toolbox yang berada di sebelah kiri from tersebut.
6. Buatlah label yang telah di tentukan seperti yang di lingkari merah dengan cara memilih toolbox dan pilih label.
7. Buatlah textbox dengan cara memilih toolbox dan pilih textbox dan letakkan di samping label yang telah anda buat.
8. Untuk textbox yang di lingkari hijau property ReadOnly textbox tersebut diatur menjadi True.
9. Setelah itu mengganti property name textbox untuk memudahkan anda dalam membuat script, seperti umur masuk SD diganti name pada textbox menjadi USD, lama belajar SD diganti nama textbox menjadi LSD, dan seterusnya sesuai dengan keinginan anda.
10. Buatlah button yang di butuhkan dengan cara memilih toolbox dan pilih button. Setelah itu anda dapat mengganti property text button
11. Untuk mengisi formulanya dengan cara mengklik dua kali pada form:
Public Class Form1
Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
UPoltek_36110056.text=(val(usd_36110056.Text)+Val(lsd_36110056.Text)+Val(lsltp_36110056.Text)+val(lslta_36110056.text)+val(Lpoltek_36110056.Text))
LB_36110056.text=(val(lsd_36110056.Text)+val(lsltp_36110056.Text)+val(lslta_36110056.Text)+val(Lpoltek_36110056.Text))
LBU_36110056.text=((val(LB_36110056.text)/val(UPoltek_36110056.Text))*100)
End Sub
Private Sub kosong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong.Click
Usd_36110056.Text=””
Lsd_36110056.Text=””
Lsltp_36110056.Text=””
Lslta_36110056.Text=””
Lpoltek_36110056.Text=””
Upoltek_36110056.Text=””
LB_36110056.Text=””
LBU_36110056.Text=””
End Sub
End Class
12. Setelah itu uji program dengan memilih start debugging
Tidak ada komentar:
Posting Komentar