TUGAS KOMPUTER II
RIKI STEINLI FAOT
12-1668
PROGRAM STUDI PENDIDIKAN MATEMATIKA
FAKULTAS KEGURUAN DAN ILMU
PENDIDIKAN
UNIVERSITAS MAHASARASWATI DENPASAR
2015
PROGRAM PENGECEKAN NILAI DAN
KELULUSAN SISWA-SISWI DENPASAR
Berikut
adalah langkah-langkah pembuatan program pengecekan nilai dan kelulusan
siswa-siswi denpasar yang dilengkapi dengan screenshootnya :
LANGKAH 1
Buka aplikasi visual basic yang ada di laptop anda (saya memakai visual basic 6). lalu pilih standar exe dan open, seperti gambar berikut
Setelah itu akan muncul seperti gambar di bawah, lalu atur maximize dan minimize jendela form dan jendela kode agar memudahkan dalam pengeditan
LANGKAH 2
Aktifkan jendela object dan buatlah jendela objectnya sehingga
menjadi sama seperti gambar di bawah ini, dengan menggunakan tools-tools yang
ada pada bagian sebelah kanan, tools yang digunakan adalah label, textbox,
command button
Aturlah form object
sedemikian rupa agar seperti gambar berikut
Berikut adalah
pengaturan property untuk object-object yang digunakan
No
|
Form/object
|
Property
|
Setting
|
1
|
Form
|
Name
|
Form 1
|
|
Caption
|
Program pengecekan nilai
|
|
Backcolor
|
Biru
|
2
|
Label 1
|
Name
|
Label 1
|
|
Caption
|
Nilai UTS
|
|
Backcolor
|
Abu-abu
|
3
|
Label 2
|
Name
|
Label 2
|
|
Caption
|
Nilai UAS
|
|
Backcolor
|
Pallete Abu-abu
|
4
|
Label 3
|
Name
|
Label 3
|
|
Caption
|
Rata-rata
|
|
Backcolor
|
Pallete hijau
|
5
|
Label 4
|
Name
|
Label 4
|
|
Caption
|
Keterangan
|
|
Backcolor
|
Pallete hijau
|
6
|
Label 5
|
Name
|
Label 5
|
|
Caption
|
Predikat
|
|
Backcolor
|
Pallete hijau
|
7
|
Text 1
|
Name
|
Txt_1
|
|
Caption
|
“Dikosongkan”
|
|
Backcolor
|
Pallete abu-abu
|
8
|
Text 2
|
Name
|
Txt_2
|
|
Caption
|
“Dikosongkan”
|
|
Backcolor
|
Pallete abu-abu
|
9
|
Text 3
|
Name
|
Txt_3
|
|
Caption
|
“Dikosongkan”
|
|
Backcolor
|
Pallete hijau
|
10
|
Text 4
|
Name
|
Txt_4
|
|
Caption
|
“Dikosongkan”
|
|
Backcolor
|
Pallete hijau
|
11
|
Text 5
|
Name
|
Txt_1234
|
|
Caption
|
“Dikosongkan”
|
|
Backcolor
|
Pallete hijau
|
12
|
Command button
|
Name
|
Command1
|
|
Caption
|
Proses
|
LANGKAH
3
Double clik di command button
atau tombol proses yang ada pada form sehingga akan otomatis jendela akan
berpindah ke jendela kode. Setelah masuk ke jendela kode, maka ketiklah
perintah seperti di bawah ini :
Private Sub Command1_Click()
Dim nilaisatu, nilaidua, ratarata
As Integer
nilaisatu
= Val(txt_1.Text)
nilaidua
= Val(txt_2.Text)
ratarata
= Val(nilaisatu + nilaidua) / 2
txt_3.Text
= ratarata
If ratarata
>= 85 Then
txt_4.Text
= "LULUS"
txt_1234.Text
= "SANGAT MEMUASKAN"
ElseIf ratarata
>= 65 Then
txt_4.Text
= "LULUS"
txt_1234.Text
= "MEMUASKAN"
Else
txt_4.Text
= "TIDAK LULUS"
txt_1234.Text
= "GAGAL"
End If
End Sub
Demikian
langkah-langkah pembuatan program pengecekan nilai dan kelulusan siswa-siswi
SMP Negeri 4 Denpasar.
Semoga Bermanfaat,,,,,
