Aplikasi Hidup Mati

APLIKASI HIDUP MATI

Oleh : Fadly Okfianto Muin

Aplikasi hidup-mati ? hehehe…anda tidak usah terkejut. Aplikasi bukan dimaksudkan untuk menghidupkan atau mematikan makhluk hidup atau bahkan menentukan waktu hidup dan waktu mati seseorang. Aplikasi ini adalah simulasi untuk menghidupkan dan mematikan sebuah interface atau alat berdasakan waktu yang kita tentukan sendiri. Namun karena namanya hidup-mati (sampai sekarang saya sendiri belum menemukan nama tepat buat aplikasi ini hehehehehe J ), maka aplikasi ini tidak hanya menghidupkan tetapi juga mematikan sesuatu secara terus menerus. Artinya hidup mati dong…ya iyalah…dari tadi juga kan udah dibilang hidup-mati  ‘L

Aplikasi ini sebenarnya mirip timer buat kedap kedip atau apa sajalah, hanya saja dalam software atau program ini, waktu hidup dan matinya atau waktu kedap dan waktu kedipnya ( heuh ribet sekali sih cari padanan katanya K) diatur oleh kita sendiri…jadi kedapkedipnya tergantung waktu yang kita set sendiri.

Program ini merupakan dasar untuk membuat aplikasi-aplikasi interface misalnya mengatur timer kedipan lampu obstacle (lampu kedip-kedip merah pada puncak menara), mengatur waktu hidup dan mati mercusuar sesuai keinginan operator dan lain-lain. Tetapi, berhubung ini adalah program dasar, maka tentunya belum disambungkan dengan perangkat apapun dan simulasi hidup matinya diindikasikan melalui kedap kedip kotak label pada form.

Baiklah, apapun itu gunanya, terserah anda nantinya…yang jelas cara membuatnya seperti ini :

1.       Bukalah sebuah project dalam visual basic anda dalam bentuk standart Exe.

2.       Buat dan rancanglah form seperti dibawah ini  dan aturlah propertinya seperti pada keterangan gambar :

3.       Setelah itu, klik 2 (dua) kali pada area kosong di form (tempat selain komponen) dan masukkan listing berikut :

Sub hidup()

Label1.BackColor = vbRed

Label2.BackColor = vbRed

Label3.BackColor = vbRed

End Sub

Sub mati()

Label1.BackColor = vbBlack

Label2.BackColor = vbBlack

Label3.BackColor = vbBlack

End Sub

Sub hidupkan()

    hidup

    timermati.Enabled = True

    timermati.Interval = Val(txtmati.Text) * 1000

End Sub

Private Sub cmdmulai_Click()

    hidupkan

End Sub

Private Sub timermati_Timer()

    If timermati.Interval = Val(txtmati.Text) * 1000 And Label3.BackColor = vbRed Then

        mati

    Else

        hidupkan

    End If

End Sub

4.       Setelah itu jalankanlah program yang telah anda buat ! begitu saja? Ya…begitu saja! Emangnya kita mau bikin nasi gorang  wkwkwkwkwk...

5.       Jika program anda benar, maka hasilnya akan tampak sebagai berikut :

Jika anda mengisi kotak waktu kedipan dgn angkan 3 misalnya, maka kotak label akan berganti warna menjadi merah selama 3 detik dan hitam selama 3 detik, begitu seterusnya.

Gampangkan ! hehehehe…selamat mencoba! 

Untuk mendownload artikel ini, silahkan anda klik link di bawah ini :
DOWNLOAD ARTIKEL