Soal Ujian Tengah Semester Pemrograman Visual
Sunday, November 24, 2013 @ 8:01 AM | 0 Comment Box(s)
UJIAN TENGAH SEMESTER ( UTS ) SEMESTER GANJIL
TAHUN AKADEMIK 2013 - 2014
1. Buat Program Dengan Ketentuan Interface Sebagai Berikut :
Dan Dengan Ketentuan Sebagai Berikut :
- Diketahui Terdapat 3 Tombol Input Liter Air, Reset, Dan Exit. Di Mana Tombol Input Liter Air Apabila Kita Klik Akan Menampilkan Input Box Dan Kita Dapat Isikan Jumlah Air Yang Akan Kita Isikan Ke Dalam Gelas
- Tombol Start Dan Reset : Setelah Diinputkan Banyak - Nya Air, Maka Kita Tekan Tombol Start Dan Caption Pada Tombol Start Akan Berubah Menjadi Reset. Tombol Reset Berfungsi Untuk Mengosongkan Gelas Sehingga Dapat Diisi Kembali Dengan Menginputkan Banyak - Nya Air Pada Tombol Input Liter Air ( Tombol Start Dan Reset Adalah 1 Command Button, Hanya Caption - Nya Yang Dirubah Disesuaikan Dengan Kondisi ). Di Mana Apabila Kondisi Awal Dan Setelah Penginputan Isi Air Pada Input Box, Maka Tombol Start Yang Aktif. Namun, Apabila Kondisi Pengisian Air Dan Setelah Pengisian, Maka Tombol Reset Yang Aktif
- Tombol Exit Untuk Keluar Dari Program
2. Lengkapi Source Code Program Dengan Interface Di Bawah Ini !
Dim menit As Integer, detik As Integer
Private Sub cmdstop_Click()
Timer1.Enabled = False
lbldetik.Caption = 0
lblmenit.Caption = 0
End Sub
Private Sub Command1_Click()
frmstopwatch.Show
frmlampu11.Visible = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
frmlampu11.Visible = True
frmlogin.tmrwaktu.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static i
detik = 1. ...
If detik > 60 Then
menit = 2. ...
detik = 0
If menit = 6 Then
menit = 0
End If
End If
lblmenit.Caption = 3. ...
lbldetik.Caption = 4. ...
i = menit
If i = 6 Then
i = 0
End If
If i = 0 Then
Shape2(2).FillColor = 5. ...
Shape2(0).FillColor = 6. ...
Else If i = 2 Then
Shape2(0).FillColor = 7. ...
Shape2(1).FillColor = 8. ...
Else If i = 4 Then
Shape2(1).FillColor = 9. ...
Shape2(2).FillColor = 10. ...
End If
End Sub
3. Buat Program Untuk Memasukkan Password Dengan Ketentuan Pada Label Hitung Dimulai Dengan Angka 10 Dengan Interval Timer = 500. Apabila Angka Pada Label Hitung Berada Pada Posisi 0, Maka Akan Keluar Pesan "Waktu Anda Habis Dan Program Dihentikan", Apabila Password Yang Diketikkan Benar, Maka Akan Keluar Pesan "Password Anda Benar" Dan Apabila Password Yang Ditulis Salah, Maka Akan Keluar Pesan "Password Anda Salah" Dan Anda Harus Kembali Mengetikkan Password Yang Benar Dengan Posisi Kursor Berda Di Text Box Masukkan Password. Untuk Tampilan Interface Program, Bisa Dilihat Dibawah Ini :
Attention !!! :-) :-) :-)
- Put Your Link Or E-mail, And Real Nick Name
- Ask Something, Request Tutorial / Freebies?
- I Will Answer Your Mes On Your Blog Or Your E-Mail Or My Facebook Page(http://www.facebook.com/kormakka?ref=hl)
- And No Harsh Word!
- Keep Smiling :-) :-):-)
Labels: Pemrog. Visual
