Cara Membuat Program Sederhana di Visual Basic 6.0

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,,,,,