Translate

Cara Mengakses Power Line Carrier Menggunakan Microcontroller

Cara Mengakses Power Line Carrier Menggunakan Microcontroller


         Finally, my ambition project telah usai seiring project ini berakhir, kali ini saya akan menjelaskan mengenai bagaimana cara mengakses modul power line carrier KQ330 menggunakan mikrokontroller dan bahasa bascom avr. Sebelumnya apa itu power line carrier ??, PLC adalah sebuah sistem dimana kita bisa mengirimkan data dari master ke slave dalam satu line menggunakan tegangan 220VAC 50 Hz. jadi ini adalah inovasi terbaru dalam bidang elektronika, jika biasanya menggunakan kabel panjang dalam pengiriman data, sekarang bisa dengan mudah mengirimkan data melalui tegangan AC 220v 50 Hz. Aplikasi dari PLC ini yaitu misal dalam sebuah kantor terdapat lampu yang harus dikontrol melalui kontrol room, maka tidak perlu menggunakan kabel khusus yang terhubung ke kontroller, sambungkan saja kontroller ke PLC lalu PLC ke listrik 220V AC, di TKP terdapat kontroller penerima yang akan mematikan lampu sesuai perintah dari master / transmitter, itu hanya salah satu contoh saja, masih banyak lainnya. Untuk lebih jelasnya berikut skema dan programnya menggunakan bascom AVR.



a. Minimum System






b. Modul Power Line Carrier KQ330 / KQ 132K







c. Mikrokontroller Master - Slave 1 - Slave 2






d.  Program Bascom AVR

'======================
' Program Master / Transmitter
'======================
$regfile = "m8def.dat"
$crystal = 12000000
$baud = 9600

Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portc.3
Config Lcdpin = Pin , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0
Config Lcd = 16 * 2

Ddrb.0 = 0
Ddrb.1 = 0
Ddrb.2 = 0
Ddrd.7 = 0

Set Portb.0
Set Portb.1
Set Portb.2
Set Portd.7

Cls
Cursor Off

Do

Upperline
Lcd "Transmitter"
Lowerline
Lcd " 1 " ; " 2 " ; " 3 " ; " 4 "

If Pinb.0 = 0 Then
Cls
Do
Print "1"
Lowerline
Lcd "kirim data 1"
Loop Until Pind.7 = 0

Elseif Pinb.1 = 0 Then
Cls
Do
Print "2"
Lowerline
Lcd "kirim data 2"
Loop Until Pind.7 = 0

Elseif Pinb.2 = 0 Then
Do
Print "3"
Lowerline
Lcd "kirim data 3"
Loop Until Pind.7 = 0

Else
Lowerline
Print "0"
End If

Loop


'=========================
' Program Slave / Receiver 1 dan 2
'=========================
$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600

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

Ddrd.7 = 1
Ddrd.6 = 1
Ddrd.5 = 1
Ddrd.4 = 1

Dim Perintah As String * 1

Cls
Cursor Off
Upperline
Lcd "Receiver 1/2"

Do

Perintah = Waitkey()

Upperline
Lcd "Receiver 1/2"
Lowerline
Lcd "Data = " ; Perintah

Wait 1

Select Case Perintah
Case "0" :
  Portd.7 = 0
  Portd.6 = 0
  Portd.5 = 0
  Portd.4 = 0

Case "1" :
  Portd.7 = 1
  Portd.6 = 0
  Portd.5 = 0
  Portd.4 = 0

Case "2" :
  Portd.7 = 0
  Portd.6 = 1
  Portd.5 = 0
  Portd.4 = 0

Case "3" :
  Portd.7 = 0
  Portd.6 = 0
  Portd.5 = 1
  Portd.4 = 0

Case "0" :
  Portd.7 = 0
  Portd.6 = 0
  Portd.5 = 0
  Portd.4 = 1

End Select
Loop




e. VIDEO HASILNYA








   
 

4 comments:

  1. Beli Power Linenya dimana? Saya beli punya agan bisa ndak?

    ReplyDelete
    Replies
    1. mas bisa saya minta WA nya atau kontaknya untuk membeli PLC kq330......

      Delete
  2. Mas bisa minta kontaknya tidak .. saya perlu modul plc kq330 .. terima kasih

    ReplyDelete
  3. This comment has been removed by a blog administrator.

    ReplyDelete