Read more
Pengukuran parameter tertentu secara jarak jauh, saya sebut di sini sebagai telemeteri, dimana data yang di cek secara jarak jauh adalah data suhu menggunakan media SMS untuk berkomunikasi data,
source code Telemeteri Sensor Suhu dan kendali lampu via SMS dengan AT mega 16 wavecom dan bascom AVR
'-----------------------------------------------------
' Kontrol nyala - padam listrik via SMS
' serta cek suhu via sms
''-----------------------------------------------------
$regfile = "m16def.dat" 'Mikrokontroler ATMega16
$crystal = 16000000
$baud = 9600
'Ddrd.2 = 0
'Portd.2 = 1
'------- konfigurasi LCD
'Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.2 , Db4 = Porta.4 ,
'Config Lcdpin = Pin , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7
'Config Lcd = 16 * 2
'Cursor Off
'Cls
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = PortC.1 , Db7 = Portc.0 , E = Portc.5 , Rs = Portc.7
Config Lcd = 16 * 2
cls
Cursor Off
'On Int0 Int_ext0
'Enable Interrupts
'Enable Int0
Config Portb = Output
portb = 255
wait 1
portb = 0
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim Data_adc As Word , Adc_convert As Single , Adc_string As String * 10
$hwstack = 20
$swstack = 8
$framesize = 8
Declare Sub Getline(s As String)
Declare Sub Showsms(s As String )
Dim I As Byte , B As Byte
Dim Sret As String * 70 , Stemp As String * 70
Dim Pos_str1 As Byte , Pos_str2 As Byte , Long_str As Byte
Dim Inbox As String * 2
Dim No_sender As String * 15
Dim S1 As String * 6 , S2 As String * 6 , S3 As String * 6 , S4 As String * 6 , Alls As String * 25
Declare Sub Status
Config Serialin = Buffered , Size = 72
Enable Interrupts
Wait 1
Print "AT"
Lcd "SMS CONTROLLER"
'------ sistem interupsi diaktifkan
Enable Interrupts
Wait 1 'Tunggu modem stabil
'------ tes komunikasi dengan modem
Do
Print "AT" : ' Waitms 100
Getline Sret ' get data from modem
Lowerline
Lcd Sret
Loop Until Sret = "OK" ' modem must send OK
'------ tunggu 2 detik
Wait 2
'Print "AT+CMGF=1";
'Wait 1
Do
Getline Sret
I = Instr(sret , ":")
If I > 0 Then
Stemp = Left(sret , I)
Select Case Stemp
Case "+CMTI:" : Showsms Sret
End Select
End If
Loop
End
'***********************************************
Sub Getline(s As String)
S = ""
Do
B = Inkey()
Select Case B
Case 0 :
Case 13
Case 10 : If S <> "" Then Exit Do
Case Else
S = S + Chr(b)
End Select
Loop
End Sub
'**********************************************
Sub Showsms(s As String )
Pos_str1 = Instr(s , ",")
Long_str = Len(s)
Long_str = Long_str - Pos_str1
Inbox = Right(s , Long_str)
Print "AT+CMGR=" ; Inbox
Getline Stemp
Getline Sret
'__ambil nomor dulu_____no pengirim ada di no_sender ____
Pos_str1 = Instr(stemp , ",")
Incr Pos_str1
Pos_str2 = Instr(pos_str1 , Stemp , ",")
Incr Pos_str1
Decr Pos_str2
Long_str = Pos_str2 - Pos_str1
No_sender = Mid(stemp , Pos_str1 , Long_str)
'_________________________________________________________
Print "AT+CMGD=" ; Inbox
'-------------------------kontrol lampu
If Sret = "ER-07-s1 on" Then
Wait 1
Portb.0 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 1 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s1 off" Then
Wait 1
PortB.0 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 1 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s2 on" Then
Wait 1
Portb.1 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 2 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s2 off" Then
Wait 1
Portb.1 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 2 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s3 on" Then
Wait 1
Portb.2 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 3 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s3 off" Then
Wait 1
PortB.2 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 3 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s4 on" Then
Wait 1
PortB.3 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 4 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s4 off" Then
Wait 1
Portb.3 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 4 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s5 on" Then
Wait 1
PortB.4 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 5 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s5 off" Then
Wait 1
Portb.4 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 5 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s6 on" Then
Wait 1
PortB.5 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 6 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s6 off" Then
Wait 1
PortB.5 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 6 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-suhu" Then
Wait 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Data_adc = Getadc(0)
Adc_convert = Data_adc
Adc_convert = Adc_convert * 500
Adc_convert = Adc_convert / 1023
Adc_string = Fusing(adc_convert , "#.##")
cls
Locate 2 , 1
Lcd "Suhu =" ; Adc_string ; " C "
Waitms 200
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print Adc_string ; "Celcius"
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
End If
End Sub
video ujicoba Telemeteri Sensor Suhu dan kendali lampu via SMS dengan AT mega 16 wavecom dan bascom AVR
membutuhkan Telemeteri Sensor Suhu dan kendali lampu via SMS dengan AT mega 16 wavecom dan bascom AVR ?
source code Telemeteri Sensor Suhu dan kendali lampu via SMS dengan AT mega 16 wavecom dan bascom AVR
'-----------------------------------------------------
' Kontrol nyala - padam listrik via SMS
' serta cek suhu via sms
''-----------------------------------------------------
$regfile = "m16def.dat" 'Mikrokontroler ATMega16
$crystal = 16000000
$baud = 9600
'Ddrd.2 = 0
'Portd.2 = 1
'------- konfigurasi LCD
'Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.2 , Db4 = Porta.4 ,
'Config Lcdpin = Pin , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7
'Config Lcd = 16 * 2
'Cursor Off
'Cls
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = PortC.1 , Db7 = Portc.0 , E = Portc.5 , Rs = Portc.7
Config Lcd = 16 * 2
cls
Cursor Off
'On Int0 Int_ext0
'Enable Interrupts
'Enable Int0
Config Portb = Output
portb = 255
wait 1
portb = 0
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim Data_adc As Word , Adc_convert As Single , Adc_string As String * 10
$hwstack = 20
$swstack = 8
$framesize = 8
Declare Sub Getline(s As String)
Declare Sub Showsms(s As String )
Dim I As Byte , B As Byte
Dim Sret As String * 70 , Stemp As String * 70
Dim Pos_str1 As Byte , Pos_str2 As Byte , Long_str As Byte
Dim Inbox As String * 2
Dim No_sender As String * 15
Dim S1 As String * 6 , S2 As String * 6 , S3 As String * 6 , S4 As String * 6 , Alls As String * 25
Declare Sub Status
Config Serialin = Buffered , Size = 72
Enable Interrupts
Wait 1
Print "AT"
Lcd "SMS CONTROLLER"
'------ sistem interupsi diaktifkan
Enable Interrupts
Wait 1 'Tunggu modem stabil
'------ tes komunikasi dengan modem
Do
Print "AT" : ' Waitms 100
Getline Sret ' get data from modem
Lowerline
Lcd Sret
Loop Until Sret = "OK" ' modem must send OK
'------ tunggu 2 detik
Wait 2
'Print "AT+CMGF=1";
'Wait 1
Do
Getline Sret
I = Instr(sret , ":")
If I > 0 Then
Stemp = Left(sret , I)
Select Case Stemp
Case "+CMTI:" : Showsms Sret
End Select
End If
Loop
End
'***********************************************
Sub Getline(s As String)
S = ""
Do
B = Inkey()
Select Case B
Case 0 :
Case 13
Case 10 : If S <> "" Then Exit Do
Case Else
S = S + Chr(b)
End Select
Loop
End Sub
'**********************************************
Sub Showsms(s As String )
Pos_str1 = Instr(s , ",")
Long_str = Len(s)
Long_str = Long_str - Pos_str1
Inbox = Right(s , Long_str)
Print "AT+CMGR=" ; Inbox
Getline Stemp
Getline Sret
'__ambil nomor dulu_____no pengirim ada di no_sender ____
Pos_str1 = Instr(stemp , ",")
Incr Pos_str1
Pos_str2 = Instr(pos_str1 , Stemp , ",")
Incr Pos_str1
Decr Pos_str2
Long_str = Pos_str2 - Pos_str1
No_sender = Mid(stemp , Pos_str1 , Long_str)
'_________________________________________________________
Print "AT+CMGD=" ; Inbox
'-------------------------kontrol lampu
If Sret = "ER-07-s1 on" Then
Wait 1
Portb.0 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 1 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s1 off" Then
Wait 1
PortB.0 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 1 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s2 on" Then
Wait 1
Portb.1 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 2 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s2 off" Then
Wait 1
Portb.1 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 2 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s3 on" Then
Wait 1
Portb.2 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 3 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s3 off" Then
Wait 1
PortB.2 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 3 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s4 on" Then
Wait 1
PortB.3 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 4 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s4 off" Then
Wait 1
Portb.3 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 4 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s5 on" Then
Wait 1
PortB.4 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 5 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s5 off" Then
Wait 1
Portb.4 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 5 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s6 on" Then
Wait 1
PortB.5 = 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 6 dinyalakan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-s6 off" Then
Wait 1
PortB.5 = 0
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print "Lampu 6 dipadamkan";
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
Elseif Sret = "ER-07-suhu" Then
Wait 1
Cls
Locate 1 , 1
Lcd Sret
Locate 2 , 1
Lcd No_sender
Data_adc = Getadc(0)
Adc_convert = Data_adc
Adc_convert = Adc_convert * 500
Adc_convert = Adc_convert / 1023
Adc_string = Fusing(adc_convert , "#.##")
cls
Locate 2 , 1
Lcd "Suhu =" ; Adc_string ; " C "
Waitms 200
Print "AT+CMGS=";
'----nomor HP tujuan : , bisa ganti yang lain
Print No_sender
'----- tunggu 700 ms
Waitms 700
'----- isi sms yang dikirim
Print Adc_string ; "Celcius"
'----- kode akhiran untuk perintah kirim sms
Print Chr(26)
'----- tunggu 1 detik
Wait 1
End If
End Sub
video ujicoba Telemeteri Sensor Suhu dan kendali lampu via SMS dengan AT mega 16 wavecom dan bascom AVR
https://www.blogger.com/blogger.g?blogID=2644711086117012239#editor/target=post;postID=5554990425331950395;onPublishedMenu=allposts;onClosedMenu=allposts;postNum=0;src=link
membutuhkan Telemeteri Sensor Suhu dan kendali lampu via SMS dengan AT mega 16 wavecom dan bascom AVR ?
Contact Person :
Facebook : Taufik Adi Sanjaya
No HP / Whats App : 0823 2613 3990
PIN BBM 5983E244
PIN BBM 5983E244
Alamat : Jalan Imogiri Timur KM 11,
Blawong 1 , RT 01, Trimulyo,
Jetis, Bantul 55781.
Anda membutuhkan komponen elektronik , Arduino, Sensor, Tutorial(paket belajar), jasa pembuatan alat berbasis mikrokontroler, kendali lampu via jaringan LAN, led running teks, pengendali lampu atau peralatan listrik lainnya via internet dan sebagainya ? anda dapat membelinya di www.kedaiarduino.com
0 Reviews
Silakan dikomentari