• PERANCANGAN PERANGKAT KERAS
  • PEMROGRAMAN PENGENDALI JEMURAN OTOMATIS
  • Pendahuluan




    Download 69,5 Kb.
    Sana01.04.2020
    Hajmi69,5 Kb.
    #9560



    SISTEM JEMURAN OTOMATIS
    1. PENDAHULUAN


    Sistem kendali secara otomatis di bidang ilmu pengetahuan dan teknologi belakangan ini berkembangan dengan pesat. Dengan adanya kemajuan di bidang ilmu pengetahuan dan teknologi menghasilkan inovasi baru yang berkembang menuju lebih baik. Hal ini dapat dilihat jangkauan aplikasinya mulai dari rumah tangga hingga peralatan yang canggih.

    Menjemur pakaian adalah salah satu kegiatan yang sering dilakukan didalam kehidupan rumah tangga, dan biasa kita lihat menjemur pakaian sering kita tinggal berpergian, sehingga kita tidak sempat lagi untuk mengangkat jemuran pada waktu akan turun hujan ataupun hari sudah malam. Untuk mengatasi masalah tersebut perlu adanya sistem kontrol otomatis, dengan cara membuat sistem jemuran otomatis. Sitem jemuran otomatis akan bekerja saat hujan dan mendeung yang sangat tebal. Pada saat mendung yang sangat tebal atau terjadi hujan maka jemuran akan segera masuk kedalam.



    1. PERANCANGAN PERANGKAT KERAS


    Pada sistem perangkat keras (hardware) untuk sistem jemuran otomatis ini dapat dibagi menjadi 3 bagian, yaitu bagian sistem kontrol, bagian sistem sensor, dan bagian sistem penampil (display). Berdasarkan analisis kebutuhan diatas dapat dibuat blok diagram perancangan perangkat elektronik dari alat pengendali sistem jemuran otomatis seperti ditunjukan pada gambar 17.1 berikut.



    1. Blok diagram perancangan perangkat keras

    Berdasarkan blok diagram diatas, Anda dapat membuat rangkaian sistem jemuran otomatis. Rangkaian sistem jemuran otomatis ditunjukan pada gambar 17.2. Pada rangkaian tersebut sensor air atau sensor hujan dihubungkan ke ADC0804. Port data ADC0804 di hubungkan dengan kaki port P2 mikrokontroller. Port CS,RD,WR, dan INT pada port ADC0804 akan dihubungkan dengan port P0.4, P.05, P0.6, dan P0.7 pada port miktokontroller.



    Sensor cahaya dengan LDR dihubungkan dengan komparator. Komparator berfungsi sebagai pembanding tegangan yang di keluarkan oleh LDR dengan setting tegangan komparator. Tegangan keluaran komparator akan berupa tegangan logika digital. Tegangan keluaran dari komparator akan masuk ke mikrokontroller pada port P1.0. Saklar deteksi jemuran masuk dan keluar dihubungkan dengan port P1.1 dan P1.2 pada mikrokontroller. Driver motor untuk mengerakan motor jemuran di hubungkan ke port P3.1 dan P3.2 pada mikrokontroller



    1. Rangkaian sistem jemuran otomatis.
    1. PEMROGRAMAN PENGENDALI JEMURAN OTOMATIS


    Setelah rangkaian sistem jemuran otomatis, maka sekarang saatnya Anda membuat program yang digunakan untuk menghidupkan sistem jemuran otomatis tersebut.

    Program sebagai berikut ini



    $regfile = "REG51.dat"

    $crystal = 12000000

    Config Lcdpin = Pin , Db4 = P1.4 , Db5 = P1.5 , Db6 = P1.6 , Db7 = P1.7 , E = P1.1 , Rs = P1.0

    Config Lcd = 16 * 2

    L_luar Alias P3.2

    L_dalam Alias P3.3

    Sensor_ldr Alias P2.2

    Relay_keluar Alias P3.0

    Relay_dalam Alias P3.1

    Dim S_ldr As Byte

    Dim S_luar As Byte

    Dim S_dalam As Byte

    Dim A1 As Integer

    Adc_cs Alias P2.4

    Adc_rd Alias P2.5

    Adc_wr Alias P2.6

    Adc_int Alias P2.7

    Declare Sub Henti

    Declare Sub Luar

    Declare Sub Dalam

    Declare Sub Terang

    Declare Sub Mendung

    Declare Sub Hujan

    Reset Relay_keluar

    Reset Relay_dalam

    Set L_luar

    Set L_dalam

    Upperline

    Lcd "DI BUAT OLEH"

    Lowerline

    Lcd "+++++++++++++++++++++"

    Waitms 500

    Cls

    Upperline



    Lcd "ISWANTO, S.T, M.Eng"

    Lowerline

    Lcd "+++++++++++++++++++++"

    Waitms 500

    Do

    Cls


    Reset Adc_cs

    Reset Adc_wr

    Set Adc_wr

    Do

    Loop Until Adc_int = 1



    Reset Adc_rd

    A1 = P0


    Set Adc_rd

    Set Adc_cs

    Lcd A1

    Waitms 500



    S_ldr = Sensor_ldr

    If S_ldr = 0 Then

    Call Terang

    Else


    Call Mendung

    End If


    Loop

    End


    Sub Terang

    Do

    If L_luar = 0 Then



    Call Henti

    Exit Do


    End If

    If A1 < 250 Then

    Call Hujan

    Exit Do


    End If

    Call Luar

    Cls

    Lcd " TERANG "



    Waitms 500

    Exit Do


    Loop

    End Sub


    Sub Hujan

    Do

    If L_dalam = 0 Then



    Call Henti

    Exit Do


    End If

    Call Dalam

    Cls

    Lcd " HUJAN "



    Waitms 500

    Loop


    End Sub

    Sub Dalam

    Do

    If L_dalam = 0 Then



    Call Henti

    Exit Do


    End If

    Set Relay_keluar

    Reset Relay_dalam

    Loop


    End Sub

    Sub Luar


    If L_luar = 0 Then Call Henti

    Reset Relay_keluar

    Set Relay_dalam

    End Sub


    Sub Mendung

    Cls


    Lcd " MENDUNG "

    Waitms 500

    End Sub

    Sub Henti



    Reset Relay_keluar

    Reset Relay_dalam



    End Sub


    Download 69,5 Kb.




    Download 69,5 Kb.