Malam hari yang indah, sekarang saya akan menjelaskan bagaimana cara mengakses sensor tegangan AC ZMPT101B untuk mengukur tegangan AC, sebenarnya banyak cara yang bisa dilakukan untuk mengukur tegangan AC seperti halnya menggunakan sampling data dengan timer tertentu, ada juga yang dikonversi menjadi tegangan DC, dan banyak lainnya, disini saya mencontohkan dengan menggunakan cara kedua yaitu merubah tegangan AC tersebut menjadi DC, sehingga mudah untuk dibaca mikrokontroller, perlu diketahui bahwa adc tidak bisa membaca sinyal negatif maka dari itu tegangan negatif harus dinaikkan offsetnya ke 2.5 volt, sehingga ada space untuk nilai negatif dan positif, untuk menaikkan tegangan AC bisa digunakan rangkaian summing amplifier, namun pada modul sensor ini sudah include summing amplifier sehingga tidak perlu menggunakan rangkaian tersebut, berikut adalah penjelasan gambarnya.
a. Minimum System ATMega
b. 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 Dataadc As Integer
Dim V As Single
Dim X As String * 5
Dim Vint As Integer
Start Adc
Do
Dataadc = Getadc(0)
V = Dataadc * 5
V = V / 1023
X = Fusing(v , "#.##")
Locate 1 , 1
Lcd "adc= " ; Dataadc
Locate 2 , 1
Lcd "V= " ; X
Loop
$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 Dataadc As Integer
Dim V As Single
Dim X As String * 5
Dim Vint As Integer
Start Adc
Do
Dataadc = Getadc(0)
V = Dataadc * 5
V = V / 1023
X = Fusing(v , "#.##")
Locate 1 , 1
Lcd "adc= " ; Dataadc
Locate 2 , 1
Lcd "V= " ; X
Loop
c. Rangkaian Penyearah
d. Hasil Sinyal Output Sensor
e. Cara merubah ADC ke tegangan terukur menggunakan regresi linier
- Pertama ukur pakai multimeter sumber tegangan
- catat tegangan sumber / yang diukur
- catat nilai V output sensor, lalu ketikkan di ms. excel
- Buat grafik menggunakan scatter
- Pada contoh digunakan variabel supply AC dari 0 sampai 220v AC
- V out adalah tegangan output sensor
- V uji adalah V setelah dimasukkan rumus regresi linier
- Sehingga didapat rumus y = 0.001x - 1.718
- Rubah menjadi x = (y + 1.718) / 0.001
- masukkan rumus ke program bascom avr seperti berikut
V = Dataadc * 5
V = V / 1023
V = V + 1.718
V = V / 0.001
- Pertama ukur pakai multimeter sumber tegangan
- catat tegangan sumber / yang diukur
- catat nilai V output sensor, lalu ketikkan di ms. excel
- Buat grafik menggunakan scatter
- Pada contoh digunakan variabel supply AC dari 0 sampai 220v AC
- V out adalah tegangan output sensor
- V uji adalah V setelah dimasukkan rumus regresi linier
Vsumber | Vout | V uji |
0 | 1.74 | -1.74 |
10 | 1.75 | 8.25 |
20 | 1.76 | 18.24 |
30 | 1.77 | 28.23 |
40 | 1.79 | 38.21 |
50 | 1.8 | 48.2 |
60 | 1.82 | 58.18 |
70 | 1.84 | 68.16 |
80 | 1.86 | 78.14 |
90 | 1.88 | 88.12 |
100 | 1.9 | 98.1 |
110 | 1.91 | 108.09 |
120 | 1.94 | 118.06 |
130 | 1.95 | 128.05 |
140 | 1.97 | 138.03 |
150 | 1.99 | 148.01 |
160 | 2.01 | 157.99 |
170 | 2.03 | 167.97 |
180 | 2.05 | 177.95 |
190 | 2.07 | 187.93 |
200 | 2.09 | 197.91 |
210 | 2.11 | 207.89 |
220 | 2.13 | 217.87 |
- Sehingga didapat rumus y = 0.001x - 1.718
- Rubah menjadi x = (y + 1.718) / 0.001
- masukkan rumus ke program bascom avr seperti berikut
V = Dataadc * 5
V = V / 1023
V = V + 1.718
V = V / 0.001
f. VIDEO HASILNYA
No comments:
Post a Comment