Materi kuliah Rekayasa Perangkat Lunak 1 s/d pertemuan 6 (Materi
Sampai Ujian Tengah Semester...!!!!)
1. Definisi Rekayasa Perangkat Lunak
2. Pengenalan Rekayasa Perangkat Lunak
3. Pengenalan Rekayasa Perangkat Lunak(2)
4. Konsep dan Prinsip Analisis
5. Pemodelan Analisis
6. Rekayasa Sistem
Selamat Belajar Moga Sukses...!!!!
CONTOH PENGGUNAAN SELECT CASE
CONTOH PENGGUNAAN SELECT CASE
DI MICROSOFT ACCESS DENGAN VBA
Hai
para sobat blogger dan adik-adikku masih merupakan lanjutan dari Logika
Sederhana di MS. Access, berikut ini saya mencoba bahas contoh penggunaan SELECT
CASE di Ms. Access, dengan menggunakan Visual Basic for Application (VBA). Ok lansung
aja langkah-langkahnya:
1.
Desainlah
form seperti gambar dibawah ini.
2.
Aturlah
property sebagai berikut:
a.
TextBox1
:
8 Format : General
Number
8 Name : Nhadir
b.
TextBox2
8 Format : General
Number
8 Name : NUts
c.
TextBox3
8 Format : General
Number
8 Name : NUas
d.
TextBox4
8 Format : General
Number
8 Name : NTugas
e.
TextBox5
8 Format : General
Number
8 Name : Nakhir
8 Locked : Yes
f.
TextBox6
8 Format : General
Number
8 Name : NHurup
8 Locked : Yes
g.
Button1
8 Caption :
&Proses
8 Name : CmdProses
h.
Button
8 Caption :
&Close
8 Name : CmdClose
3.
Klik
pada tombol Proses,, pada Tab Event,,pilih On Click…masukkan code
berikut:
nakhir.Value =
((nhadir.Value * 0.15) + (nuts.Value * 0.3) + (nuas.Value * 0.35) +
(ntugas.Value * 0.2))
Select Case nakhir
Case Is >= 85
nhurup = "A"
Case Is >= 75
nhurup = "B"
Case Is >= 65
nhurup = "C"
Case Is >= 55
nhurup = "D"
Case Else
nhurup = "E"
End Select
4.
Pada
tombol Close, ketik code berikut:
DoCmd.Close
5.
Jalankan
program, jika tidak terjadi kesalahan maka hasil seperti gambar dibawah ini.
SEMOGA BERMANFAAT
Subscribe to:
Posts (Atom)