IR Kumandadan Excel'e Veri Alma Uygulaması

Bu uygulamada IR kumandadan gönderilen veriler Arduino tarafından alınarak, Arduino'nun  PC'ye bağlı usb portu üzerinden PC'ye gönderilir. Bu veriler Excel tarafından alınır. Kumandanın ses yükseltme tuşuna basınca Excel hücresinde 'M', ses azaltma tuşuna basınca 'G', diğer tuşlara basınca '?' karakteri görünür. Uygulama Samsung kumandaya göre yapılmıştır.

Uygulama için indireceğiniz "vba7-seri porttan veri alma-1.xlsm" dosyasını açtıktan sonra Dosya -> Seçenekler -> Güven Merkezi -> Güven Merkezi Ayarları ->Makro Ayarları Kısmından "Tüm makroları etkinleştir" ve "VBA projesi nesne modeli erişimine güven" seçeneklerini aktif etmeyi unutmayın.

Ardından kumandadan veri almak için  "PORTTAN VERİ AL" butonuna basmasınız gerekmektedir.

Programlama Kodları

//AÇIKLAMA
//Bu uygulamada "Arduino-IRremote-master.zip" kütüphanesi ve Samsung kumanda kullanıldı.
//Bu uygulamada IR kumandadan gönderilen veriler Arduino tarafından alınarak, Arduino'nun 
//PC'ye bağlı usb portu üzerinden PC'ye gönderilir. Bu veriler Excelde tarafından alınır.
//Kumandanın ses yükseltme tuşuna basınca Excel hücresinde 'M', ses azaltma tuşuna basınca
//'G', diğer tuşlara basınca '?' karakteri görünür.
//NOT: Arduino IDE'de seri port penceresi açılırsa kumandadaki tuşa bastığımızda karakterler
//Arduino seri port penceresinde görünür.

#include <IRremote.hpp>
#define pin 11
#define artir 4161210119  //HEX: 0xF8070707
#define azalt 4094363399  //HEX: 0x6546C02B
void setup()
{
  Serial.begin(9600);
  IrReceiver.begin(pin);
}

void loop()
{
  if (IrReceiver.decode())
  {
    if (IrReceiver.decodedIRData.decodedRawData == artir)
    {
      Serial.write(77); //M karakteri
    }
    else if (IrReceiver.decodedIRData.decodedRawData == azalt)
    {
      Serial.write(71); //G karakteri
    }
    else
    {
      Serial.write(63); //? karakteri
    }
    delay(300); //sık aralıklarla okuma olmaması için bekleme koyduk. diğer türlü tuşa 1 kez bastığımızda birden fazla okuma olur.
    IrReceiver.resume();  //veri okuma işlemine devam etmek için bu komut yazıldı.
  }
}

Excel VBA Dosyası

İndirme Linki: vba7-seri porttan veri alma-1.xlsm

Devre Şeması