Kendali Listrik Berbasis Delphi

Kendali listrik berbasis delphi. dari judulnya mungkin kamu sudah bisa sedikit membayangkan alat seperti apa itu. bukan pengendali hemat listrik 😀 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 :

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.