Tugas - Tugas

Kelas 1D3-Mi5


Latihan :





















Jawaban :

1. Mengisi Isi Combo1

Private Sub Form_Load()
Combo1.AddItem "MI"
Combo1.AddItem "KA"
Combo1.AddItem "BI"
End Sub


2. Rumus Kode Jurusan Pada Combo1

Private Sub Combo1_Click()
If Combo1 = "MI" Then
Text1 = "Manajemen Informatika"
ElseIf Combo1 = "KA" Then
Text1 = "Komputer Akuntansi"
ElseIf Combo1 = "BI" Then
Text1 = "Bahasa Inggris"
End If
End Sub


3. Rumus Biaya SKS

Private Sub Text2_Change()
Text3 = Text2 * 15000
End Sub


4. Rumus Mencari Biaya-Biaya

a. Biaya BPP (Check1)

Private Sub Check1_Click()
If Check1 = 1 Then
bpp = 750000
Else
bpp = 0
End If

If Check2 = 1 Then
almamater = 50000
Else
almamater = 0
End If

If Check3 = 1 Then
ktm = 25000
Else
ktm = 0
End If

hasil = bpp + almamater + ktm
Text4 = hasil
End Sub

Ket :
Untuk Biaya Almamater dan Biaya KTM (Check2 dan Check3)
Anda cukup copy paste script diatas pada check2 dan check3


5. Rumus Mencari Total Biaya

Private Sub Text4_Change()
Text5 = Val(Text3) + Val(Text4)
End Sub


6. Rumus Bersih

Private Sub Command1_Click()
Combo1 = ""
Text1 = ""
Text2 = 0
Text3 = 0
Text4 = 0
Text5 = 0
End Sub


7. Rumus Keluar

Private Sub Command2_Click()
Unload Me
End Sub

---

Tugas 1

Buatlah aplikasi program dibawah ini :






















- Data yang diinputkan :
1. Kode Buku
2. Jumlah

- Data hasil keluarannya (Outputnya) :
1. Nama Buku'
2. Harga Buku
3. Total
4. Discount (Pilihan)
5. Total Bayar


Soal :

Mencari Kode, Judul dan Harga Buku

- Jika Kode Buku = "VB"
Maka
Judul Buku = "Visual Basic"
Harga Buku = 50000

- Jika Kode Buku = "DP"
Maka
Judul Buku = "Delphi"
Harga Buku = 35000

- Jika Kode Buku = "DW"
Maka
Judul Buku = "Design Web"
Harga Buku = 20000


Total = Harga Buku * Jumlah


Discount :
- 5% * Total
- 10% * Total


Total Bayar = Total - Discount

- Perintah Tombol Bersih
- Perintah TOmbol Keluar


Perintah :

Buatlah listing programnya berdasarkan soal diatas.

Kirim jawabannya ke e-mail gen_xeost@yahoo.co.id paling lambat tanggal 23 Oktober 2008.
Jika melewati tanggal tersebut, nilai tugas anda kosong (0).

Terima Kasih...