ALAT PENGUKUR KETINGGIAN AIR MELALUI SMS BERBASIS MIKROKONTROLER

Alat ini adalah Water Level Warning System Melaui Short Message Service Berbasis Mikrokontroler, peringatan tinggi permukaan air menggunakan SMS. Alat ini dapat memberikan informasi secara cepat tentang detektor datangnya banjir oleh tiga buah sensor air yang dipasang pada bibir sungai. Merek telepon seluler yang digunakan adalah jenis Siemens M35 karena sistem yang digunakan adalah sistem komunikasi serial dengan baudrate 19200 bps antara telepon seluler Siemens M35 dengan mikrokontroler AT89S52. Mikrokontroler adalah sebagai pembaca keadaan sensor air, dan sebagai perintah mengirimkan SMS ke nomor tujuan yang ditentukan pada program. Pengujian tanggapan sistem alat dilakukan dengan memasang handphone Siemens M35 dengan rangkaian secara keseluruhan. Dari pengujian pada ketiga sensor air, maka diperoleh hasil sesuai setting yaitu dapat mengirimkan pesan yang berbeda dari tiap-tiap level air.

List Program Mikrokontroler..

MULAI:

mov flag_sms,#00h

MOV P0,#0FFH

clr lampu_1

ACALL INITIAL ;INISIALISASI BAUT RATE 19200

call tunda_long

setb lampu_1

call tunda_long

clr lampu_1

ACALL HAPUS_INBOX

ACALL MODE_STANBY ;KIRIM PERINTAH MODE STANBY

call tunda_long

setb lampu_1

jmp cek_sensor_1

cek_sensor_1:

JB SENSOR_1,cek_sensor_2

CLR LAMPU_1

mov flag_sms,#01h

ACALL TUNDA_LONG

ACALL SEND_SMS

JMP MULAI

cek_sensor_2:

JB SENSOR_2,cek_sensor_3

CLR LAMPU_2

mov flag_sms,#02h

ACALL TUNDA_LONG

ACALL SEND_SMS

JMP MULAI

cek_sensor_3:

JB SENSOR_3,cek_sensor_1

CLR LAMPU_3

mov flag_sms,#03h

ACALL TUNDA_LONG

ACALL SEND_SMS

JMP MULAI

;---------------------------

; RUTIN PENGIRIMAN SMS

;---------------------------

SEND_SMS:

MOV DPTR,#SMSSEND ;BACA SMS

ACALL KIRIM_DATA ;KIRIM PERINTAH

TUNGGUS:

ACALL TERIMA_DATA

CJNE A,#'>',TUNGGUS ;TUNGGU KARAKTER >

ACALL TUNDA_LONG

MOV DPTR,#SMS_CENTER ;KIRIM NO SMS CENTER

MOV R0,#6

BERULANG1A:

CLR A

MOVC A,@A+DPTR

ACALL KIRIM_SERIAL

INC DPTR

DJNZ R0,BERULANG1A

JMP KIRIM_1

kirim_1:

MOV DPTR,#NOMOR_HP_1 ;KIRIM NOMOR TUJUAN

MOV R0,#18

ulang_1:

CLR A

MOVC A,@A+DPTR

CALL KIRIM_SERIAL

INC DPTR

DJNZ R0,ulang_1

Acall tunda_long

MOV DPTR,#REF_SMS ;KIRIM NO REFFERENSI SMSM

MOV R0,#6 ;'000000'

BERULANG3A:

CLR A

MOVC A,@A+DPTR

ACALL KIRIM_SERIAL

INC DPTR

DJNZ R0,BERULANG3A

ACALL TUNDA_LONG

MOV A,flag_sms

flag_1:

CJNE A,#01,flag_2

ACALL ISI_SMS_1

JMP DONE

flag_2:

CJNE A,#02,flag_3

ACALL ISI_SMS_2

JMP DONE

flag_3:

CJNE A,#03,flag_1

ACALL ISI_SMS_3

JMP DONE

;--------------------------------

DONE:

MOV A,#1AH ;DONE

ACALL KIRIM_SERIAL

TUNGGUU:

ACALL TERIMA_DATA

CJNE A,#'K',TUNGGUU

ACALL TUNDA_LONG

RET
;=========================
selesai;=======================================================
end