PİC 16f84A role sürme projesi

[yakup_407]

Sen HI-TECH kodu mu istiyorsun yoksa CCS mi?
CCS yazsam sorun olur mu?
Şuan evde olmadığım için, o yüzden...
Burda sadece CCS var.

farketmez bana hex e dönüştürüp pice atsam ve role seslerini duysam yeterli şu an 5 er saniye çekiyor hex dosyasınıda atarsan sevinirim 1 haftadır uğraşıyorum

 

[ULAGA]

Öncelikle 'emrelyus' arkadaşa teşekkürler...
Programın algoritmasını doğru yazmış.
Onun affına sığınarak kodu alıp birazcık düzenledim.
Artık senin istediğin gibi çalışıyor 'yakup_407'...

#include <16f84a.h>
#fuses HS, NOWDT, NOPROTECT, NOPUT
#use delay (clock=4000000)

void OneSC()
{
   delay_ms(1000);
}

void main()
{
   unsigned char a;
   set_tris_b(0x00);       // RB0 portu tümüyle çıkış olarak yönlendiriliyor...
   output_b(0x01);         // Sadece RELAY-01 etkin kılınıyor...

   while(1)
   {
      OneSC();
    
      for(a=1;a<6;a++)
      {
         output_b(0x03);   // Sadece RELAY-01 ve RELAY-02 etkin kılınıyor...
         delay_ms(250);    // 250ms bekle
         output_b(0x01);   // Sadece RELAY-01 etkin kılınıyor...
         delay_ms(250);    // 250ms bekle
      }

      OneSC();

      output_b(0x05);      // Sadece RELAY-01 ve RELAY-03 etkin kılınıyor...
      Delay_ms(6000);      // 6sn bekle
      output_b(0x01);      // Sadece RELAY-01 etkin kılınıyor...

      OneSC();

      output_b(0x09);      // Sadece RELAY-01 ve RELAY-04 etkin kılınıyor...
      Delay_ms(3000);      // 3sn bekle
      output_b(0x01);      // Sadece RELAY-01 etkin kılınıyor...
   }
}

 

[yakup_407]

Program Sorunsuz çalışıyor emeği geçen herkese teşekkür ederim saygılarımı sunar çalışmalarınızda sonsuz başarılar dilerim...

 

[skurt]

Bunun Picbasic kodunu gönderirmisiniz arkadaşlar bende burdan denemek istiyorum.Teşekkürler.