Kendali Listrik Berbasis Delphi

Back to Blog

Kendali Listrik Berbasis Delphi

Kendali listrik berbasis delphi. dari judulnya mungkin kamu sudah bisa sedikit membayangkan alat seperti apa itu. bukan pengendali hemat listrik :D tetapi pengendali nyala on dan off dari perangkat listrik yang akan di pasangkan pada alat tersebut. Alat ini saya buat berdasarkan pesanan dari salah satu teman saya. dengan membawa sebuah konsep dia terangkan kepada saya seperti apa alat yang akan dibuat tersebut.

Alat itu adalah alat yang dapat menyalakan perangkat listrik layaknya saklar listrik biasa namun dapat dikendalikan dari interface yang dibuatkan pada komputer, dalam kasus ini menggunakan delphi. Selain dapat dikendalikan oleh komputer, diharapkan juga pengendalian tersebut tidak hanya sekedar klik untun on dan off tetapi juga berisikan modus timer yang dapat menyalakan perangkat listrik berdasarkan timer yang telah diatur pada interface delphi yang telah dibuat tersebut.

Dalam postingan kali ini, program yang saya buat baru hanya sebatas menyalakan dan mematikan perangkat listrik dari interface tersebut diatas. dengan menggunakan kabel usb dari komputer ke perangkat, alat ini dapat berkomunikasi dengan komputer. dan diharapkan pada artikel berikutnya saya telah merampungkan program untuk mudus timer pada interface delphi ini.

untuk coding pada hardware dan pada software bisa dilihat pada ulasan dibawah ini. dan untuk kamu yang ingin mengetahui perkembangan blog saya ini silahkan mendaftarkan email kamu pada kolom pendaftaran di pojok atas tersebut, maka dengan mengaktifkan email tersebut kamu telah berlangganan artikel dari duwiarsana.com yang sangat menarik dan mungkin dapat menambah wawasan bagi kita semua.

Berikut ini adalah design dari pesanan yang telah dibuat dan juga beberapa foto hasil jadinya :

Baca juga  Halo Keypad LCD

Download Coding untuk Hardware :

int SER_Pin = 4;   
int RCLK_Pin = 3;  
int SRCLK_Pin = 2; 
int a,b,c,d,e,f,g,h=0;

#define number_of_74hc595s 1 

#define numOfRegisterPins number_of_74hc595s * 8

boolean registers[numOfRegisterPins];

void setup(){
  Serial.begin(9600);
  pinMode(SER_Pin, OUTPUT);
  pinMode(RCLK_Pin, OUTPUT);
  pinMode(SRCLK_Pin, OUTPUT);

  bersih();
  tulis();
  digitalWrite(13,HIGH);
  delay(1000);
  digitalWrite(13,LOW);
}               

void bersih(){
  for(int i = numOfRegisterPins - 1; i >=  0; i--){
     registers[i] = LOW;
  }
} 

void tulis(){

  digitalWrite(RCLK_Pin, LOW);

  for(int i = numOfRegisterPins - 1; i >=  0; i--){
    digitalWrite(SRCLK_Pin, LOW);

    int val = registers[i];

    digitalWrite(SER_Pin, val);
    digitalWrite(SRCLK_Pin, HIGH);

  }
  digitalWrite(RCLK_Pin, HIGH);

}

void setRegisterPin(int index, int value){
  registers[index] = value;
}

void loop(){

  if (Serial.available())
  {
    char delphi = Serial.read();
    switch(delphi)
    {
      case 'a':
      a= HIGH;
      break;
      case 'b':
      b= HIGH;
      break;
      case 'c':
      c= HIGH;
      break;
      case 'd':
      d= HIGH;
      break;
      case 'e':
      e= HIGH;
      break;
      case 'f':
      f= HIGH;
      break;
      case 'g':
      g= HIGH;
      break;
      case 'h':
      h= HIGH;
      break;

      case '1':
      a= LOW;
      break;

      case '2':
      b= LOW;
      break;
      case '3':
      c= LOW;
      break;
      case '4':
      d= LOW;
      break;
      case '5':
      e= LOW;
      break;
      case '6':
      f= LOW;
      break;
      case '7':
      g= LOW;
      break;
      case '8':
      h= LOW;
      break;

    }
  }

  setRegisterPin(0, a);
  setRegisterPin(1, b);
  setRegisterPin(2, c);
  setRegisterPin(3, d);
  setRegisterPin(4, e);
  setRegisterPin(5, f);
  setRegisterPin(6, g);
  setRegisterPin(7, h);

  tulis();  
}

Dan dibawah ini adalah screenshoot dari coding yang saya buat pada delphi XE :

Dan video Ujicobanya bisa disaksikan pada kolom youtube dibawah ini :

Download Program.

Share this post

Comments (13)

  • (@duwiarsana) (@duwiarsana) Reply

    Kendali Listrik Berbasis Delphi http://t.co/wCcpjOG2 via @duwiarsana

    15 Juli 2012 at 03.34
  • (@duwiarsana) (@duwiarsana) Reply

    Kendali Listrik Berbasis Delphi: Tweet Kendali listrik berbasis delphi. dari judulnya mungkin… http://t.co/5tOoFfcZ

    15 Juli 2012 at 03.57
  • Timer Delphi Mikrokontroller » Duwi Arsana Reply

    […] yang belum pernah membuatnya pada artikel ini saya akan menceritakan yang saya buat, yaitu “Kendali Listrik Berbasis Delphi” untuk yang belum baca silahkan klik disini, disana saya menerangkan tentang pembuatan […]

    21 Juli 2012 at 16.23
  • Billing Mikrotik Reply

    Saya tertaik Alat ini mas mohon kalau sudah selesai Skripsi SMS saya di HP 081331578899 Salam kenal dan sukses selalu.

    27 Februari 2013 at 22.51
  • Elektronez Hakimi Nic EE Reply

    mas program bagi softwarenya gimana?

    22 April 2013 at 17.46
  • Iqbaal Alidrus Reply

    Salam..feel free to ask me if u need help to fix error in delphi coding or script. Ur serial-gsm project need more programming language knowledge! Wslam.

    22 April 2013 at 19.22
  • Iqbaal Alidrus Reply

    Anyway, good task bro! Carry on.

    22 April 2013 at 19.24
  • Elektronez Hakimi Nic EE Reply

    Iqbaal Alidrus@ apa masud kamu? comen u for who. u know programming microcontroller?

    23 April 2013 at 08.03
  • Iqbaal Alidrus Reply

    Bkn, maksudnya kalu perlukan bantuan nk trouble shoot error code time build program samaada borland, delphi, etc.

    23 April 2013 at 16.30
  • Iqbaal Alidrus Reply

    Like posting abg smlm bkenaan error on built@compiling serialgsm-master antrnya disebabkan pgunaan '-' yg mana program hanya mbenarkan pgunaan ascii

    23 April 2013 at 16.38
  • Elektronez Hakimi Nic EE Reply

    Iqbaal Alidrus@ tu lah sakit pala belajar programming ni, tapi program microcontroller dengan pc lain sikit.

    23 April 2013 at 17.03
  • imam wahyudi Reply

    gambar screenshot filenya kok gak ada mas??

    13 Januari 2014 at 05.56

Komentar anda

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Back to Blog