Postingan ini sebagai tugas interface semester 2 teknik komputer
Pada saat pertama kali program utama dijalankan maka tampilannya seperti gambar di bawah ini
di program Visualisasi.Seperti terlihat pada gambar (3.1), pengambilan data pada hari Jumat tanggal 30 Mei 2008
jam 10:02:05 sehingga jadwal yang ada di program langsung menyesuaikan timer yang ada di komputer. Pada
program utama ini terdapat dua pilihan yaitu Auto Controll dan Manual Controll.
3. Pengujian Kontrol Otomatis ( Penjadwalan ) dan Status Lampu
Jika pada Program Utama kita memilih tombol Auto Controll maka status lampu akan langsung
menyesuaikan penjadwalan pada program Visualisasi dengan waktu yang ada pada komputer.
dengan tampilan sebagai berikut:
dengan tampilan sebagai berikut:
hari = "1"
ElseIf (hari = "Selasa") Or (hari = "Tuesday")
Then
hari = "2"
ElseIf (hari = "Rabu") Or (hari = "Wednesday")
Then
hari = "3"
ElseIf (hari = "Kamis") Or (hari = "Thursday")
Then
hari = "4"
ElseIf hari = "Jumat" Or (hari = "Friday") Then
hari = "5"
ElseIf (hari = "Sabtu") Or (hari = "Saturday")
Then
hari = "6"
ElseIf (hari = "Minggu") Or (hari = "Sunday")
Then
hari = "7"
Else
MsgBox "Regional and Language seting" +
Chr(13) + "Pilih Seting Englis atau Indonesia",
vbInformation, "Informasi"
Timer1.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
lampuoffsemua
Exit Sub
End If
waktu = (jam1 * 3600) + (menit1 * 60) + detik1
– rumus disamping digunakan untuk penghitungan
waktu.
If (hari = "1" Or hari = "2" Or hari = "3" Or hari =
"4") And ((waktu > 28800 And waktu <= 43200)
Or (waktu > 46800 And waktu <= 61200)) Then
'jam kerja hari senin-kamis
ruangkaryawanon
ruanglobbyon
ruangDirekturon
ruangsekretarison
toilet1on
ElseIf (hari = "1" Or hari = "2" Or hari = "3" Or
hari = "4") And (waktu > 43200 And waktu <=
46800) Then 'istirahat hari senin-kamis
ruanglobbyon
ruangdirekturoff
ruangsekretarisoff
ruangkaryawanoff
toilet1on
ElseIf (hari = "5") And ((waktu > 28800 And
waktu <= 39600) Or (waktu > 46800 And waktu
<= 61200)) Then 'jam kerja hari jumat
ruangkaryawanon
ruanglobbyon
ruangDirekturon
ruangsekretarison
toilet1on
ElseIf (hari = "5") And (waktu > 39600 And
waktu <= 46800) Then 'istirahat hari jumat
ruangkaryawanoff
ruanglobbyon
ruangdirekturoff
ruangsekretarisoff
toilet1on
ElseIf waktu > 63000 Or waktu <= 19800 Then '
malam hari
terasdepanon
teraskananon
teraskirion
terasblkgon
satpamon
ruangdirekturoff
ruangsekretarisoff
ruanglobbyoff
ruangkaryawanoff
auditoriumoff
toilet1on
ElseIf (hari = "6" Or hari = "7") Or (waktu >
19800 And waktu <= 28800) Or (waktu > 61200
And waktu <= 63000) Then 'untuk hari
sabtu,minggu dan jam kosong
lampuoffsemua
End If
Exit Sub
timErr:
MsgBox Err.Description
End Sub
Dari contoh program di atas, jika pada hari kerja yaitu Senin sampai kamis, lampu yang akan dinyalakan secara
otomatis adalah lampu di ruang karyawan, ruang Lobby, ruang direktur dan toilet dengan waktu antara jam
08.00-12.00 dengan penghitungan waktu pada Visual Basic sebagai berikut:
waktu = (jam1 * 3600) + (menit1 * 60) + detik1
waktu awal penyalaan lampu adalah jam 08.00 maka : (8 * 3600) + (0 * 60) + 0 = 28800 detik
waktu akhir penyalaan lampu sebelum jam istirahat adalah jam 12.00 maka : (12 * 3600) + (0 * 60) + 0 = 43200
detik.
Jika waktu penyalaan lampu otomatis belum memenuhi syarat waktu yang telah ditentukan di atas maka lampulampu
di ruang yang disebutkan diatas belum bisa menyala.
4. Pengujian Kontrol Manual dan Status lampu
Pada pengujian kontrol manual jika pada program utama kita memilih tombol Manual Controll maka status
lampu yang nyala dan yang mati sesuai dengan tombol ruangan yang kita pilih ( klik ).
Contoh pengujian kontrol manual, tombol ruangan di pilih (klik) semua maka status lampu akan ”ON” semua,
dengan tampilan sebagai berikut:
5. Pengujian Kendali Lampu Ketika Terdapat Kerusakan pada salah satu Lampu
Lampu yang diingikan untuk menyala adalah lampu di ruang Lobby, Toilet dan Musholla. Lampu di Musholla
sudah tidak berfungsi atau rusak, maka sensor akan membaca kondisi lampu tersebut mati/off walaupun tampilan
lampu di visualisasi menyala tetapi status lampu musholla tetap ”OFF”. Berikut adalah tampilan dari penjelasan
diatas:
Berdasarkan pada uraian di atas, maka dapat disimpulkan bahwa bahasa pemrograman Visual Basic dapat
digunakan untuk simulasi pengontrolan lampu rumah atau lampu gedung. Lampu dapat dikendalikan secara
otomatis dari pewaktuan pada komputer atau dapat juga dikendalikan secara manual oleh user. Untuk
pengembangan lebih lanjut, program dapat diaplikasikan untuk interface antara computer dengan peralatan rumah
tangga lainnya selain lampu.
sumber:http://repository.upnyk.ac.id/371/1/A-16_SIMULASI_PENGONTROLAN_LAMPU_RUMAH_MENGGUNAKAN_VISUAL_BASIC.pdf
Wassalamu'alaikum Wr.Wb
0 komentar:
Posting Komentar