Menghitung Hasil tes Penerimaan Pegawai
1. Desain awal program
2. Atur Properties Masing-masing Objek sebagai
berikut:
|
NO.
|
OBJEK
|
PROPERTIES
|
PENGATURAN
|
|
1
|
Form1
|
Text
|
Project Luas Segitiga
|
|
2
|
Label1
|
Text
|
Hasil Test Penerimaan Pegawai
|
|
|
|
Bold
|
True
|
|
|
|
FontSize
|
10
|
|
3
|
Label2
|
Text
|
Nilai :
|
|
4
|
Label3
|
Text
|
Hasil :
|
|
5
|
Textbox1
|
Name
|
Txtnilai
|
|
6
|
Textbox2
|
Name
|
Txthasil
|
|
7
|
Button1
|
Text
|
Proses
|
|
|
|
Name
|
Btnproses
|
|
8
|
Button2
|
Text
|
Bersih
|
|
|
|
Name
|
Btnbersih
|
|
9
|
Button3
|
Text
|
Tutup
|
|
|
|
Name
|
Btntutup
|
3. Tampilan program
setelah pengaturan properties sebagai berikut:
4. Pemberian
Perintah/Instruksi pada Program
Alur Program:
a. Masukkan nilai pada
label1 (Nilai) pada bagian Textbox1 (Txtnilai) sesuai dengan hasil yang
diperoleh pegawai.
b. Setelah itu klik
Button1 (Proses) jika nilai yang di peroleh oleh pegawai 75 ke atas maka
dinyatakan LULUS dan jika nilai yang diperoleh pegawai di bawah 75 maka
dinyatakan GAGAL, maka akan muncul kata LULUS atau GAGAL pada label2 (Hasil)
pada bagian Textbox2 (Txthasil) berdasarkan pada Perintah Program.
c. Jika diklik tombol
Button2(Bersih), maka:
a.
Nilai yang terdapat pada Textbox1 (Txtnilai) akan
hilang.
b.
Nilai yang terdapat pada Textbox2 (Txthasil) akan
hilang.
d.
Jika diklik tombol Button3(Tutup), maka
program akan ditutup (keluar dari program)
Perintah Program :
PrivateSub
Btnproses_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Btnproses.Click
If
Txtnilai.Text >= 75 Then
Txthasil.Text = "LULUS"
Else
Txthasil.Text = "GAGAL"
EndIf
EndSub
PrivateSub
Btnbersih_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Btnbersih.Click
Txthasil.Text = " "
Txtnilai.Text = " "
EndSub
PrivateSub
Btntutup_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Btntutup.Click
End
EndSub
EndClass
Tampilan Program setelah dijalankan berdasarkan nilai
diperoleh sebagai berikut :
Untuk
menjalankan program, klik tombol Start Debugging
atau tekan tombol F5 pada
keyboard.
Untuk menutup program, klik tombol Stop Debugging





Komentar
Posting Komentar