Membuat Alat Monitoring Daya Arus dan Tegangan AC Menggunakan AVR ATMEGA16 Software BASCOM AVR Sensor Tegangan ZMPT101b Sensor Arus SCT-013 KWH METER

Membuat Alat Monitoring Daya Arus dan Tegangan AC Menggunakan AVR ATMEGA16 Software BASCOM AVR Sensor Tegangan ZMPT101b Sensor Arus SCT-013  KWH METER

          Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara membuat sebuah alat yang berfungsi untuk memonitoring arus dan tegangan AC untuk monitor daya dan KWH Meter rumah. alat ini dilengkapi dengan sensor tegangan AC zmpt101b dan sensor arus AC SCT-013 dengan mikrokontroller ATMega16 + Software BASCOM AVR. untuk lebih jelasnya berikut adalah komponen dan programnya.

a. Minimum System ATMega16

b. Sensor ZMPT101B

c. Sensor Arus SCT-013

d. LCD 16x2

e. Program Bascom AVR

$regfile = "m16def.dat"

$crystal = 12000000

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2

Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5

Config Lcd = 16 * 2

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Cursor Off

Cls

Dim Dataadc1 As Integer

Dim Dataadc2 As Integer

Dim V As Single

Dim X As Integer

Dim Vint As Integer

Dim Adcv As Integer

Dim Adci As Integer

Dim Vac As Single

Dim Iac As Single

Dim Vacx As String * 5

Dim Iacx As String * 5

Start Adc

Mulai:

X = 0

Adcv = 0

Adci = 0

Do

Dataadc1 = Getadc(0)  'ambil data tegangan

Dataadc2 = Getadc(1)  'ambil data arus

'ambil data max tegangan

If Dataadc1 > Adcv Then    

Adcv = Dataadc1

End If

'ambil data max arus

If Dataadc2 > Adci Then    

Adci = Dataadc2

End If

Incr X

Waitms 1

Loop Until X > 1000      'ambil 1000 data dan compare max 

Vac = Adcv - 514.0  'kalibrasi tegangan AC

Vac = Vac / 0.5864

Iac = Adci - 251.0   'kalibrasi arus AC

Iac = Iac / 8.0925

Vacx = Fusing(vac , "#.##")

Iacx = Fusing(iac , "#.##")

Locate 1 , 1

Lcd "v= " ; Vacx ; "    "

Locate 2 , 1

Lcd "I= " ; Iacx ; "    "

Waitms 200

Goto Mulai

f. VIDEO HASILNYA