Syofie Deviyanti

240210130031
LAPORAN PENERAPAN KOMPUTER

Langkah 1
Private Sub cmd_grading_Click()
Dim nilai As Integer
Dim grade As String
nilai = Val(ndata.Value)
'periksa kriteria grading
If nilai >= 9 And nilai <= 10 Then
grade = "A"
ElseIf nilai >= 7 And nilai < 9 Then
grade = "B"
ElseIf nilai >= 5 And nilai < 7 Then
grade = "C"
ElseIf nilai < 5 Then
grade = "D"
End If
tkelas = grade
MsgBox "Pesan ini tampil saat TOMBOL di KLIK!"
End Sub
Langkah 2
Private Sub cmd_grading_Click()
Dim nilai As Integer
Dim grade As String
nilai = Val(ndata.Value)
'periksa kriteria grading
If nilai >= 9 Then
grade = "A"
ElseIf nilai >= 7 Then
grade = "B"
ElseIf nilai >= 5 Then
grade = "C"

Syofie Deviyanti
240210130031
Else
grade = "D"
End If
tkelas = grade
MsgBox "Pesan ini tampil saat TOMBOL di KLIK!"
End Sub
Langkah 3
Private Sub cmd_grading_Click()
Dim nilai As Integer
Dim grade As String
nilai = Val(ndata.Value)
'periksa kriteria grading
If nilai >= 9 Then
grade = "A"
ElseIf nilai >= 7 Then
grade = "B"
ElseIf nilai >= 5 Then
grade = "C"
Else
grade = "D"
End If
tkelas = grade
Select Case tkelas
Case "A"
tkelas = tkelas & " (Amat baik)"
Case "B", "C"
tkelas = tkelas & " (Baik)"
Case Else
tkelas = tkelas & " (Kurang)"
End Select
MsgBox "Pesan ini tampil saat TOMBOL di KLIK!"
End Sub

Syofie Deviyanti
240210130031
Langkah 4
Private Sub cmd_grading_Click()
Dim nilai As Integer
Dim grade As String
nilai = Val(ndata.Value)
If nilai < 0 Or nilai > 10 Then
MsgBox "Angka yang diberikan tidak sesuai"
ndta.SetFocus
Exit Sub
End If

If nilai >= 9 Then

grade = "A"
ElseIf nilai >= 7 Then
grade = "B"
ElseIf nilai >= 5 Then
grade = "C"
Else
grade = "D"
End If
tkelas = grade
Select Case tkelas
Case "A"
tkelas = tkelas & " (Amat baik)"
Case "B", "C"
tkelas = tkelas & " (Baik)"
Case Else
tkelas = tkelas & " (Kurang)"
End Select

End Sub
Langkah 5

Syofie Deviyanti
240210130031
Private Sub cmd_hitung_Click()
Dim nA As Integer
Dim nB As Integer
Dim nH As Integer
Dim i As Integer
nA = Val(nAwal)
nB = Val(nAkhir)
nH = 0
For i = nA To nB
nH = nH + i
Next i
nHasil.Value = nH

End Sub

Syofie Deviyanti
240210130031
PEMBAHASAN
1. Option explicit, biasanya diletakkan dibagian atas coding atau dibagian
general.

Fungsi

option

explicit

untuk

memaksa

programmer

mendeklarasikan semua variable sebelum variable tersebut digunakan,

dengan option explicit akan sangat membantu programmer dalam
mengurangi kesalahan dan mengetahui letak kesalahan atau debug.
2. SetFocus, metode ini memindahkan fokus input ke kontrol tertentu.
Sesuatu masalah yang sering terjadi adalah metode ini akan menyebabkan
error ketika diterapkan pada kontrol yang sedang di Disable atau dalam
keadaan Invisible. Untuk menhindari hal ini, metode SetFocus jangan
digunakan pada bagian Form Load.
3. Kegunaan properties: Properties form adalah informasi yang menyangkut
tentang control ( obyek ) yang dibuat dan menyiapkan control untuk
kepentingan pemrograman yang akan dibuat. Tampilan form dapat diatur
langsung melalui jendela properties dan atau jendela code, pada intinya
fasilitas properties ini guna mengatur sifat dn karakteristik yang secara
default sebagai control seperti halnya mengganti nama, teks, jenis huruf,
warna, aligment, dan lain sebagainya.
4. Private Sub cmd_grading_Click(), mengkhususkan program ini bekerja
jika mengklik tombol hitung
5. Dim Nilai As Integer , mendeklarasikan variabel
6. Dim Grade As String, mendeklarasikan variable
7. Select case, sebagai suatu alternatif terhadap IfThenElse. Suatu Select
Case

statement

memiliki

kemampuan

yang

sama

dengan

IfThenElse, tetapi membuat code lebih mudah dibaca. ( mengisi

kolom tkelas)
8. Tkelas, kolom tKelas untuk variable Grade
Perbedaan antara If Then, ElseIf dan select case :

If-tehn-else, menyeleksi suatu kondisi yang terpenuhi, selanjutnya proses

penyeleksian masih dilakukan pada struktur berikutnya.

Select Case, bila salah satu kondisi sudah terpenuhi dan blok program
sudah diproses, selanjutnya blok program tidak dilanjutkan.

Syofie Deviyanti
240210130031

JAWABAN TUGAS
Private Sub cmd_hitung_Click()

: Mengkhususkan program ini bekerja jika

mengklik tombol hitung

SetFocus

: memindahkan fokus input ke kontrol

tertentu. Sesuatu masalah yang sering
terjadi adalah metode ini akan
menyebabkan error ketika diterapkan pada
kontrol yang sedang di Disable atau dalam
keadaan Invisible.

val()

: digunakan untuk mengambil suatu nilai

dari suatu form isian tertentu

Dim nA As Integer

: Mendeklarasikan variable yang akan

digunakan

Dim nB As Integer

: Mendeklarasikan variable yang akan

digunakan

Dim nH As Long

: Tipe data cakupan lebih besar dari integer

nA = Val(nAwal)

: Variable nA akan diperoleh dari data input

yang akan dimasukkan pada kolom untuk
nilai Awal (Val digunakan untuk
memvalidasi data masukan).

nB = Val(nAkhir)
nH = 0

: Variabel nH di set terlebih dahulu menjadi

0

For i = nA To nB

: ulangi sebanyak Nb kali dengan nilai awal

Na

nH = nH + i

: (i= pencacah) nH : hasil keluaran

Next i

: Next i digunakan untuk menyatakan bahwa

I hasil perhitungan sebelumnya tetap
digunakan selama perhitungan.

Syofie Deviyanti
240210130031
nHasil.Value = Nh

: Untuk menampilkan hasil dari data yang

sudah diinput kemudian dihitung, dengan
memvalidasi data dari Nh kemudian akan
muncul pada kolom yang bersangutan
dengan nHasil.

Macam Macam Kontrol

1. Kontrol check box sama dengan control option button, perbedaannya jika
pada control option button user hanya diberikan satu pilihan sedangkan
pada control check box user dapat memilih lebih dari satu pilihan.
2. Combo Box merupakan control uang menyediakan pilihan-pilihan dan
user dapat menginputkan suatu nilai jika pilihan tersebut tidak tersedia
pada control Combo Box.
3. Exit Sub atau fungsi keluar sebelum penanganan kesalahan rutin, Anda
mencegah penanganan kesalahan kode yang dijalankan ketika makro
berjalan tanpa kesalahan.
4. Label adalah control yang digunakan untuk menampilkan teks yang tidak
dapat diperbaiki oleh pemakai.
5. Textbox adalah kontrol yang berfungsi sebagai penerima input dari user
dalam bentuk teks yang diketikan. Kontrol ini biasanya digunakan untuk
memasukkan informasi-informasi tertulis, misalnua nama, npm, harga,
jumlah, dn lin sebaginya
6. Frame adalah control yang digunakan sebagai container bagi control
lainnya
Macam-macam event:
1. Event untuk perubahan :
a. On Activate : terjadi ketika sebuah form menjadi windows aktif.
b. On GotFocus : terjadi saat sebuah objek menjadi satu-satunya
fokus.
c. On LostFocus : terjadi apabila sebuah objek kehilangan fokus, dan
biasanya ada objek lain yang menjadi fokus.

Syofie Deviyanti
240210130031
d. On Load : Terjadi ketika sebuah form dibuka atau dipanggil. Jika
form yang dibuka adalah form startup.
e. On Can Resize : akan dilaksanakan saat terdapat usaha untuk
mengubah ukuran control, untuk mengizinkan aplikasi untuk
mengindikasikan bahwa ukuran yang dimasukkan akan dibatalkan.
f. On Click : kejadian akan dilaksanakan saat pemakai mengklik
control, digunakan untuk men8liskan kode yang akan direspon saat
pemakai mengetik control.
g. On Close : kejadian yang akan dilaksanakan saat form ditutup.
h. On Close Query : kejadian yang akan dilaksanakan saat metode
close dipanggil atau untuk menentukan menentukan apakah form
diizinkan untuk ditutup
i. On Create : untuk menampilkan proses khusus saat form dibuat
oleh pembangun form.
j. On Context Pop up : digunkan saat control tidak memiliki menu
popup ( property popup belum didefinisikan ) atau jika property
autopopup pada menu popup suatu control bernilai false
k. On doubleClick : untuk menuliskan kode yang dapat direspon saat
pemakai melakukan proses klik ganda.
l. On Destory : kejadian yang akan dilaksanakan saat form
dimusnahkan, digunakan untuk menjalankan proses khusus saat
form digunakan proses khusus saat form digunakan.
m. On Get Site Info : menghasilkan informasi control yang dikaitkan.
Event On Get Site Info digunakan untuk menginisialisasikan
TDrag Dock Object dengan informasi tentang dimana sebuah objek
yang digeser dapat ditempatkan pada suatu lokasi. On Get Site Info
hanya terjadi jika DockSite bernilai true.
n. On Help : kejadian yang akan dilaksanakan saat form menerima
permintaan untuk mebuka help, digunakan untuk menuliskan
sebuah event handler untuk menjalankan proses khusus saat
aplikasi help dijalankan.

Syofie Deviyanti
240210130031
o. On Hide : Kejadian yang akan dilaksanakan saat form
disembunyikan, digunakan untuk menjalankan proses khusus saat
form disembunyikan ( saat property form visible bernilai false)